From 26664df45f5f3829d8600792e60c3f030c9f75f9 Mon Sep 17 00:00:00 2001
From: IndrajeetPatil <IndrajeetPatil@users.noreply.github.com>
Date: Sun, 14 Jan 2024 00:48:32 +0000
Subject: [PATCH] =?UTF-8?q?Deploying=20to=20gh-pages=20from=20@=20Indrajee?=
 =?UTF-8?q?tPatil/Advanced-R-exercises@d118af9badc3bf2c77c0d2ae3e0bb78cf35?=
 =?UTF-8?q?ffa27=20=F0=9F=9A=80?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 404.html                                      |   2 +-
 Conditions.md                                 |  10 +--
 Control-flow.md                               |   6 +-
 Environments.md                               |  22 +++---
 Evaluation.md                                 |  18 ++---
 Expressions.md                                |  10 +--
 Function-factories.md                         |  56 ++++++-------
 .../figure-html/Function-factories-28-1.png   | Bin 53440 -> 52038 bytes
 Function-operators.md                         |  22 +++---
 Functionals.md                                |  20 ++---
 Functions.md                                  |  24 +++---
 Names-values.md                               |  72 ++++++++---------
 .../figure-html/Names-values-31-1.png         | Bin 62664 -> 63010 bytes
 Perf-improve.md                               |  48 ++++++------
 .../figure-html/Perf-improve-28-1.png         | Bin 52143 -> 55323 bytes
 Perf-measure.md                               |  22 +++---
 Quotation.md                                  |  12 +--
 R6.md                                         |  14 ++--
 Rcpp.md                                       |  70 ++++++++---------
 S3.md                                         |  18 ++---
 S4.md                                         |   8 +-
 Subsetting.md                                 |   8 +-
 Translation.md                                |   8 +-
 Vectors.md                                    |  10 +--
 base-types.html                               |   2 +-
 big-picture.html                              |   2 +-
 conditions.html                               |  12 +--
 control-flow.html                             |   8 +-
 debugging.html                                |   2 +-
 environments.html                             |  24 +++---
 evaluation.html                               |  20 ++---
 expressions.html                              |  12 +--
 function-factories.html                       |  58 +++++++-------
 function-operators.html                       |  24 +++---
 functionals.html                              |  22 +++---
 functions.html                                |  26 +++---
 improving-performance.html                    |  50 ++++++------
 index.html                                    |   2 +-
 index.md                                      |   2 +-
 introduction.html                             |   2 +-
 measuring-performance.html                    |  24 +++---
 names-and-values.html                         |  74 +++++++++---------
 quasiquotation.html                           |  14 ++--
 r6.html                                       |  16 ++--
 rewriting-r-code-in-c.html                    |  72 ++++++++---------
 s3.html                                       |  20 ++---
 s4.html                                       |  10 +--
 search.json                                   |   2 +-
 subsetting.html                               |  10 +--
 trade-offs.html                               |   2 +-
 translation.html                              |  10 +--
 vectors.html                                  |  12 +--
 52 files changed, 507 insertions(+), 507 deletions(-)

diff --git a/404.html b/404.html
index a30e101f..236d440d 100644
--- a/404.html
+++ b/404.html
@@ -101,7 +101,7 @@ <h1>Page not found<a class="anchor" aria-label="anchor" href="#page-not-found"><
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/Conditions.md b/Conditions.md
index d0a3cb0c..71b89efc 100644
--- a/Conditions.md
+++ b/Conditions.md
@@ -292,7 +292,7 @@ rlang::catch_cnd
 #>         return(NULL)
 #>     })))
 #> }
-#> <bytecode: 0x55f2c19fa068>
+#> <bytecode: 0x5605664637c0>
 #> <environment: namespace:rlang>
 ```
 
@@ -691,7 +691,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -705,7 +705,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
 #>  desc          1.4.3   2023-12-10 [1] RSPM
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr         1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -713,7 +713,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -728,7 +728,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  pkgload       1.3.3   2023-09-22 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  rprojroot     2.0.4   2023-11-05 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
diff --git a/Control-flow.md b/Control-flow.md
index 6aa7b7e6..d964210c 100644
--- a/Control-flow.md
+++ b/Control-flow.md
@@ -246,7 +246,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -258,7 +258,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
@@ -274,7 +274,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  memoise       2.0.1   2021-11-26 [1] RSPM
 #>  methods     * 4.3.2   2023-11-01 [3] local
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Environments.md b/Environments.md
index f19f5aae..c573bc67 100644
--- a/Environments.md
+++ b/Environments.md
@@ -40,7 +40,7 @@ library(rlang)
 e <- env()
 e$loop <- e
 env_print(e)
-#> <environment: 0x5592b255c2e8>
+#> <environment: 0x5653c4908508>
 #> Parent: <environment: global>
 #> Bindings:
 #> • loop: <env>
@@ -51,8 +51,8 @@ The binding `loop` should have the same memory address as the environment `e`:
 
 ```r
 lobstr::ref(e$loop)
-#> █ [1:0x5592b255c2e8] <env> 
-#> └─loop = [1:0x5592b255c2e8]
+#> █ [1:0x5653c4908508] <env> 
+#> └─loop = [1:0x5653c4908508]
 ```
 
 **Q3.** Create a pair of environments as illustrated by this picture.
@@ -71,9 +71,9 @@ e2$deloop <- e1
 
 # following should be the same
 lobstr::obj_addrs(list(e1, e2$deloop))
-#> [1] "0x5592b4bbb1e8" "0x5592b4bbb1e8"
+#> [1] "0x5653c6f66620" "0x5653c6f66620"
 lobstr::obj_addrs(list(e2, e1$loop))
-#> [1] "0x5592b4c08948" "0x5592b4c08948"
+#> [1] "0x5653c6fbb9f0" "0x5653c6fbb9f0"
 ```
 
 **Q4.** Explain why `e[[1]]` and `e[c("a", "b")]` don't make sense when `e` is an environment.
@@ -300,7 +300,7 @@ fget("mean", inherits = FALSE)
 fget("mean", inherits = TRUE)
 #> function (x, ...) 
 #> UseMethod("mean")
-#> <bytecode: 0x5592aff915a8>
+#> <bytecode: 0x5653c233ea20>
 #> <environment: namespace:base>
 
 mean <- 5
@@ -506,7 +506,7 @@ rlang::caller_env
 #> {
 #>     parent.frame(n + 1)
 #> }
-#> <bytecode: 0x5592b0ab08d0>
+#> <bytecode: 0x5653c2e5d500>
 #> <environment: namespace:rlang>
 ```
 
@@ -559,7 +559,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -572,7 +572,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  crayon        1.5.2   2022-09-29 [1] RSPM
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr         1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -580,7 +580,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  highr         0.10    2022-12-22 [1] RSPM
@@ -597,7 +597,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  png           0.1-8   2022-11-29 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Evaluation.md b/Evaluation.md
index 83d167ca..f732f70e 100644
--- a/Evaluation.md
+++ b/Evaluation.md
@@ -49,7 +49,7 @@ withr::with_tempdir(
     foo()
   }
 )
-#> <environment: 0x564fa1bed6a8>
+#> <environment: 0x556694e969e0>
 #> Parent: <environment: global>
 ```
 
@@ -250,17 +250,17 @@ q1 <- new_quosure(expr(x), env(x = 1))
 q1
 #> <quosure>
 #> expr: ^x
-#> env:  0x564fa1a3e9a0
+#> env:  0x556694cebe60
 q2 <- new_quosure(expr(x + !!q1), env(x = 10))
 q2
 #> <quosure>
 #> expr: ^x + (^x)
-#> env:  0x564fa20915d8
+#> env:  0x55669533ac58
 q3 <- new_quosure(expr(x + !!q2), env(x = 100))
 q3
 #> <quosure>
 #> expr: ^x + (^x + (^x))
-#> env:  0x564fa23500b0
+#> env:  0x5566955fd570
 ```
 
 **A1.** Correctly predicted 😉
@@ -298,7 +298,7 @@ enenv(x)
 
 foo <- function(x) enenv(x)
 foo()
-#> <environment: 0x564fa32bc708>
+#> <environment: 0x55669656a448>
 ```
 
 ---
@@ -674,7 +674,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -686,13 +686,13 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fansi         1.0.6   2023-12-08 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -706,7 +706,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pillar        1.9.0   2023-03-22 [1] RSPM
 #>  purrr         1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Expressions.md b/Expressions.md
index e9a43887..367b3d7a 100644
--- a/Expressions.md
+++ b/Expressions.md
@@ -374,7 +374,7 @@ call_standardise(quote(mean(x = 1:10, , TRUE)))
 mean
 #> function (x, ...) 
 #> UseMethod("mean")
-#> <bytecode: 0x562fc13895a8>
+#> <bytecode: 0x5577d9c40a20>
 #> <environment: namespace:base>
 ```
 
@@ -993,7 +993,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -1006,13 +1006,13 @@ sessioninfo::session_info(include_base = TRUE)
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  crayon        1.5.2   2022-09-29 [1] RSPM
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fansi         1.0.6   2023-12-08 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -1027,7 +1027,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pillar        1.9.0   2023-03-22 [1] RSPM
 #>  purrr         1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Function-factories.md b/Function-factories.md
index 4e304a5c..0bde45bc 100644
--- a/Function-factories.md
+++ b/Function-factories.md
@@ -21,7 +21,7 @@ library(ggplot2, warn.conflicts = FALSE)
 force
 #> function (x) 
 #> x
-#> <bytecode: 0x56479c5e3ab0>
+#> <bytecode: 0x5590c97aba90>
 #> <environment: namespace:base>
 ```
 
@@ -47,8 +47,8 @@ f <- approxfun(x, y)
 f
 #> function (v) 
 #> .approxfun(x, y, v, method, yleft, yright, f, na.rm)
-#> <bytecode: 0x5647a0854cb0>
-#> <environment: 0x5647a0853ba0>
+#> <bytecode: 0x5590cda1fcf8>
+#> <environment: 0x5590cda1e670>
 f(x)
 #>  [1] -0.7786629 -0.3894764 -2.0337983 -0.9823731  0.2478901
 #>  [6] -2.1038646 -0.3814180  2.0749198  1.0271384  0.4730142
@@ -212,15 +212,15 @@ new_counter3()
 #>     i <- i + 1
 #>     i
 #>   }
-#> <environment: 0x5647a09f9e68>
+#> <environment: 0x5590cdbc7ee0>
 
 new_counter3()
 #> function() {
 #>     i <- i + 1
 #>     i
 #>   }
-#> <bytecode: 0x5647a0bbe600>
-#> <environment: 0x5647a0a71c80>
+#> <bytecode: 0x5590cdd86650>
+#> <environment: 0x5590cdc39d08>
 ```
 
 ---
@@ -258,7 +258,7 @@ ggplot2::label_bquote
 #>     }
 #>     structure(fun, class = "labeller")
 #> }
-#> <bytecode: 0x5647a0d500b0>
+#> <bytecode: 0x5590cdf1fd70>
 #> <environment: namespace:ggplot2>
 ```
 
@@ -281,7 +281,7 @@ scales::number_format
 #>             scale_cut = scale_cut, trim = trim, ...)
 #>     }
 #> }
-#> <bytecode: 0x5647a0fa0bc8>
+#> <bytecode: 0x5590ce16b2e0>
 #> <environment: namespace:scales>
 ```
 
@@ -377,7 +377,7 @@ Let's have a look at one example with each:
 ```r
 boxcox2(1)
 #> function(x) (x^lambda - 1) / lambda
-#> <environment: 0x56479c998358>
+#> <environment: 0x5590c9ee8238>
 
 boxcox3(mtcars$wt)
 #> function(lambda) {
@@ -387,7 +387,7 @@ boxcox3(mtcars$wt)
 #>       (x^lambda - 1) / lambda
 #>     }
 #>   }
-#> <environment: 0x56479de7f188>
+#> <environment: 0x5590c96d5fa0>
 ```
 
 As can be seen:
@@ -420,7 +420,7 @@ boot_permute(mtcars, "mpg")
 #>     col <- df[[var]]
 #>     col[sample(n, replace = TRUE)]
 #>   }
-#> <environment: 0x56479fac0b28>
+#> <environment: 0x5590cceb60a0>
 ```
 
 This is why we don't need to worry about a copy being made because the `df` in the function environment points to the memory address of the data frame. We can confirm this by comparing their memory addresses:
@@ -429,7 +429,7 @@ This is why we don't need to worry about a copy being made because the `df` in t
 ```r
 boot_permute_env <- rlang::fn_env(boot_permute(mtcars, "mpg"))
 rlang::env_print(boot_permute_env)
-#> <environment: 0x5647a06ef728>
+#> <environment: 0x5590cd8a9768>
 #> Parent: <environment: global>
 #> Bindings:
 #> • n: <int>
@@ -488,8 +488,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression      min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 LL1          28.3µs   30.2µs    31979.    12.9KB     41.6
-#> 2 LL2          14.6µs   15.7µs    60147.        0B     48.2
+#> 1 LL1          27.4µs   28.9µs    33688.    12.9KB     43.9
+#> 2 LL2          14.3µs   14.9µs    63742.        0B     51.0
 ```
 
 As can be seen, the second version is much faster than the first version.
@@ -515,16 +515,16 @@ generate_ll_benches <- function(n) {
 #> # A tibble: 10 × 5
 #>    length expression      min   median `itr/sec`
 #>     <dbl> <bch:expr> <bch:tm> <bch:tm>     <dbl>
-#>  1     10 LL1          39.9µs   42.1µs    22543.
-#>  2     10 LL2          17.3µs   18.3µs    53968.
-#>  3     20 LL1            43µs   44.6µs    22159.
-#>  4     20 LL2          17.1µs     18µs    54815.
-#>  5     50 LL1          46.8µs   48.3µs    20374.
-#>  6     50 LL2          16.3µs   17.4µs    56753.
-#>  7    100 LL1          62.4µs   64.1µs    15369.
-#>  8    100 LL2          17.6µs   18.4µs    53652.
-#>  9   1000 LL1         857.4µs    965µs     1081.
-#> 10   1000 LL2          54.6µs   56.2µs    17530.
+#>  1     10 LL1          39.4µs   41.1µs    23111.
+#>  2     10 LL2          17.3µs   17.9µs    54853.
+#>  3     20 LL1          41.8µs   43.4µs    22623.
+#>  4     20 LL2          16.5µs   17.4µs    56762.
+#>  5     50 LL1          46.4µs   47.8µs    20648.
+#>  6     50 LL2          16.1µs   17.1µs    57875.
+#>  7    100 LL1          61.5µs   63.3µs    15559.
+#>  8    100 LL2          17.3µs   18.1µs    54058.
+#>  9   1000 LL1         855.2µs  901.3µs     1090.
+#> 10   1000 LL2          53.9µs   55.2µs    17862.
 
 ggplot(
   df_bench,
@@ -648,7 +648,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -662,7 +662,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  colorspace    2.1-0   2023-01-23 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr         1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -672,7 +672,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
 #>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  grid          4.3.2   2023-11-01 [3] local
@@ -694,7 +694,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  profmem       0.6.0   2020-12-13 [1] RSPM
 #>  purrr         1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  scales      * 1.3.0   2023-11-28 [1] RSPM
diff --git a/Function-factories_files/figure-html/Function-factories-28-1.png b/Function-factories_files/figure-html/Function-factories-28-1.png
index 1ba1f6ed6e8967ff12d611a630630a88147072d5..394d2581ac923063d6b222faa1ee12f622f832b6 100644
GIT binary patch
literal 52038
zcmce;byQSq8#X>-prRm(U{H?I2m%t)>L7whBhpH$lyozoA_EGDfQU$oNK1DpCDI_>
z-QE4W_sluxjo<s<_pOh$4#zcn_OqY3<GQc=+IY#!N}fD^;W!F~Iw^G*qliKs7Du5D
zmL4U7Pn-^6eBpn`p5IloLZN6pk^c_(jV>CXQ1mD%%uQwc&ojLapU<|2?e90l=ih6c
zHM?-(kii*@c=<_w<>DWQ&r)G--M-v0AyBDrxMao6<)<Ib#pCd{(~z4-t<ph;FM#>#
zy^N!1GjiqA6hp6b-F|&#PrrVzr8j5pfsHFx^Y#h)Tm9WGb4!kUDk|$eDf|^$Q!eJc
ztg%^?Ff9~HzJtBx0RCU4Mlq!a@gE&xUci4sap1Tx{vQ%<L}bW6#K|N7?|$Xh*Msy-
zPU~~6>UKT-WS(WMt*z+ycdw{xXb71}#3m;s{7z3A8#8RV>8-*}`KCe_-Q3*#UWW00
z70Ux&US2N@n$|CrR52+bF|lm$J8q^shw~^=i-q@l)9&7U8zK9JN322IVX+Tw=KHi*
zMz{C&cDL^vu{`h{R(|lnc7;~?7>UO%tpeM#{`%aV&CR-3UMeQQWbQmTd9I58|J4@!
zKilj7qX!)gAw>)z^4uZ!)j`Vr*@HvdiVE?L;YoUDzw#Uy^}yT50M9GFLMpATOq=gF
zmd6=_vcp83FiYNvHUhfb=jCMy6Yymy+)^3Oi^EKps84MVwx+5J+1cmx-0>t9Brb6$
zhKDS~C+%*3HfW&k>)WsG%e%Z(MJ32jE?-QzUsPqoN40$2kN454F>AnFrm*-8g57Q?
zuX%?0iHI9CxB1S7ojJm6MPZN3IpX&-V<BIzt6}dBp$^l+2c>b%{u4%iUV{Jj$&%CB
z)?0GvO{TCO7Bx3Z$-gGD^SDe*uQWbxG9jV<*ulUXcz<w<QS!o!1O-){i;QV14{Enn
zr;V)jkU^%7lE*0*)|r}oUz<5ip2mLcMcI)Fj@HG{XD?})&L1TXWFQPs7N6brQ14}H
zrUu6P&m!af7IagVx#Sw}q|6<=c-a*ZUY;FlnrL}cnCJLK7}Tvqm&U|)Tv(T;gA?6l
zQ6$x}qqK#)o4@boouVaiB}C?{My@q=V<%yQ_I`G?Qy81bUnQ2ns46?!th)Mzf4zO+
zR21HI1<L!1YD_;z73S(=hqU=cCLZVsQn>jk3?M-OhwBisD<7+);N(Exv{5zxZ3@3z
zqEI`B@f+vX(JlIXyy3mFH0H&e$dFBo4TGv3@o^ITMP|FGx{IGZd{_g>$xGT<`bHdQ
z^Wm`q)P$?XQ9jdQ5>`R;Z*cu_5voEek~A<dHDO?8oxv>g8*&`)=}(cD^rKSOC~15@
zk{%wIz^_O=<ao*Er{!%X31jl=&wK)0kJGbRj*1TsZ61R;2gWQ+V=X_31enfG^1Nm;
z`$(T{3M<khEZ2Z3{h5UIX7h~oSgqCRc0Z~b?u*AtjiT{;F^ZX<c+()E?QlaVSakkp
zd29O{MMIb}E#7b<O`gzbt;vk6iW!V6UY2B#^y3OWTDnLuw$V#RKO2P~Eh!Qdl5`^W
zCM7KLVDY?g8hxQ_G7hI$&6XmiW$!g9gOWW#xN7lxJ*;ZngRhVYt*ho`Y$g-I^V6Cc
z#U%4I`M#0(cB~>xtG^Mog0#o2OXSC1l&<gkYA8I-Fx6lQs@9hwW_j?zpfmd_x_F-W
z<|9GbwBw#-!v0p|$34<hb3$ZZ=hUxN7sq`+U`0;qDS<JrbCNDF=vQi<%$%eTV+(5L
z!6x!2QGrRWZn8Wp_n6(j=keX@Tb3^d{a3WBxNqDWRdBN{B9$>Z>#IOksA;!JsV4PS
zAnQ>gKD`119gYsS*{@mkq7*ObBeB_Xwg;C4YDuym7tlDOLrI&xgyk;KzE7qD3(A%$
zR*7)PHk+puSovCOb^h85BAp&2qFak`Q<JKys=m1^7-nW_I-7eoC_5p6wI*F%T^(6p
z+C%p3$5^!gUB-Z~!xV|1K7G>XKJQm`A1*;&=xn&Ip`p=fWJ=eaec2y3?hvp1+xmm<
zSuaeW;>}YF;mv0Mg!MuB@bP-5KYe+(G1km8_rEP~pL|D6D;6csygh5j7{IkEpe!vB
zqi{L#$Xmi`GThC|%J(^G+hRuEG>GH3@b1S(PRgS!Z{fp$w9hlqQ^qFWNoUTG&*m<6
z#owGS2Fw0+mT;^rZN)`tc_*hHW#A?rdZ?<>eg0De$Lb(XxY@HclZh|qW>z*1m-6jx
zdn>Vs<0sO?^kM|l_WEw;GE#3UAI^ln8T<@!xOOvS?2Gt7A%A?vlrEpdFkW8~^Wqcj
zV*X@)!fzOR6N4YyJA8ML((Z>zkgON3e_1~@MZ16toNDAeVPa-@ms<{uASd4+>06X)
zd9_9wh$akN{&Tv|B3zTXm=o>Vzo$KW-3ue*Nz{0WFsroVMH!V2TNcNN$g58Xi*QBB
zdUli%OH<03gTqBKd-U5^sBL9Fxrz>H@no!&YsPyV>0gtQ({J^jSc>hOT=|}HhQEjX
zg8|=ZH{Uyi8O!KbylD#7u9b~zD5AHhI~g6=c^4&kfG}ZNb;$@U-%?k?jONr(&HI?D
z#y)rMn}i!Nrvw@}j+Lz5vE|^kRJL3>m*Iu7W+W`;#EVjwt;I$mV+<xxTHDoTD*E1i
zBcjH5!eV|byR3U{My*ccuk!NQ>{UR@nlK?ad1SmymsZCU^FC(8Dbx648wA^7hmXi3
z0nzPe?E7POd+biz56H>8W#5K=q~)%KtA>QDM6su}P4;Art8B@evct}au~==%!~UPU
zji2&yfA5?;AD$$U0tt*~S>G#`J+~Iv<430nixrr9WR+y`Itv?tds5{k_xZxgq>&&6
zs*Et{$7!F)a;<3LHxB2kVjnR5GQ0@6nU-)feOuqxj-K-gu@V?-2?J+Km*<Ld@MMZZ
zgbiVy=@sg&JTh7V8Nkj5Y);D<ZkA^zjD7RF-Q4qWkpy8mFseDcQN00cKYkQH_O*t-
zE%$;)AEaY3S0*eJoh^$}lDKJ(i$5j=)Yl$-rq3yP6J+jScC_Qlnfh7HkR3VfiAMk*
zDO~5ZjH>m9w$VfDv-9^qvo?K0h9)Nr&A2kBQLpso%27=DyjW?d{TotAWL}Z@dAXej
zFd*0<!l3@<u3_W5^16V`y1g52aup<p!0H}}kI1n_b8^&y<(v!8ef**$8!YEIA-hbN
z_^Yr**X;N7HQW%hnDxP1)p0ufLnkomk~$kMBdtN5c`LX#r}a`|iVprA;xnGivO6*E
zY(=D7#rwyA#eKYgC=y3FU0L!&b3AWuo0o)y-Sf#uJ9It)lcS)*?{MRybH9V`%_qC+
z<m9pMRkcI&AANyH?@fsG6AxJfY$^F(^O;kSrzMqV4L2J_z}dPD5e!4{opfApm0>rX
z2_*#N`TWI@!EwlTk<9oc?B*MN+N<M*TH9JOI@(l-D}|3|<OFiIY=kFY`WL{UIqnpZ
zx=efmIUaICB-@PZQrGi2`2dMz3RQ_=Q|pLTxeXEAZ>d(WW2WArT=2UNCUdybIPP%K
zHuB^N!jqlT*Jgcq>+#5;inWlX<t44ieK?=v1iR^bc)tL~PDob4SO-tp_pU^0_`u;x
zAHwhRFEXcb-;TnNp$dsB-{z+7=Ux3a_Y5B0OmN_((!Mn?tL!TQ=+oBo<PpMJswyGy
z=r4rL*7V>re@@Bwmsx?mXH7$tjQm5m`uP=KiXCO0k}DWpfRj^zS!~h4iK7Gu-u-FZ
zZwry^COz7<<Un7!hV>O)<gtWk)WxzhHeEj-jB7)`zhU}(XslYWoRrVa_vbVT7*!+f
zAiuW72hlLV4pByoW;=x)*~p3r0aV~I-l~EP<64Zu!*cfw)7UfoQGvqvb9k<c#yVfx
zT3VX1-YO(HqpHIx9pZB+lA18#;jcC;n?{#YlYiI8-tm?8rPbpjcUvOtgs&WgGEs6@
zV;fuFHPXlc!rl)LY}dc9`Z-_3hK^QV@-|ka($*C`<F-UdL8330T#OcX8n^L5Op}+-
z1%lY^1I$ABJs5bXEI7+yl9^)y_Qq~Lb3Y`bo)>K51_9<oNHd(7D-2olHASPdXMI9H
zp2r6<18=;`Qim-G+wIA0$IPOmZx5D_PjeqUf*g!9VO}xvrpab{FMAQFDll~a^Uylo
z6WHE#f<ckSk@8htFnYMX?uE1cY(JYBX{Q6W8YqO{qXpHZv4eA;CE+(ZTJNm37KABI
zxJ;-fonK_-u(S!>{;$l4LKD_>%Bfv)uII?81K3Oa+SeXR>sdpHkIrxLvj&{eos++8
zl<;?Ebku6CfH<^4f`2moTHDpRole%U)8r*aoT+B{wtBE#r8@W+7TM#$S2WN5IdSJL
zZi8vvSMC#IrX9)yAHm$xDYe&qmq%_bx{xn!udP3elS0htZ=gELwla5NJidzIDCP>!
z!b<roK^k4M^WyG9qX-l=VEwDK0i1f`!uwo@^lVdD?tl`0E9HIBi4QQroDji0!@_b0
z3Fb7=fp;!uA^)?ScXS-Ngu+DEcglJBy%h~FANUKXMt*)m<FePez{Y7b-aM}JIrka+
zERDDVz7~%(Ids!-Z|3%_$UkXuV1w{H+86Yh_U<KPHb{&L)(Oj>P;3c74IILosQeM<
zeivPL^^yk|O#Fz7p3=CEiQpO3=X3b|lm7hsORtB|+L#X-{UPX_5Qj^f1G0g~@KGi*
zFy8vN*0rj==NUMhsb^eYUsr+7TGu>EUNg6i0X9PVgS35G<@wIF6w~gA>ve*m^L+;>
z*ou*~DE?G&kuL}Go>2~N;(15tH3nh*kKl8SuJ~gQq=(wEt>e*bKO0m!g<Vfw=Zhb=
z#G~k`2$wHRKgtjqC!a2LC2vZZZk1h@n}qrWHG;QgxA(fU#@<K(yNZrxV=c;eERjUg
zB0U*lk7?HC!oZf7hS1T81(nlNFH?A7QR1$I4MER@3H3Pmu{NCXkNoNcd2db;3JKK6
zNql&VE&ZQq5w+xn*rQuCRafQ@wLjmu&yz1Yg$><LX-_dmZYD&MimRD}BIAn=zt<(o
z=UW;Q!@kBSAoJQM%uDy*s-Jz7`OsBCYA%}NC_zGCtzg|5Gp?VHph%Xu!t><r(3n)0
z;Xb8!_0VBb*lG!urMTeenqb3jr>(bxUKbg0rlF*VQ8YOGw1&>8Wufz(pV|uY?0hb_
z8LmjLy+iaD7!y}$65JZH@>kWauaA|~3_NEQ#%#bxfwCsTn}D}xTa$sDq&Aj8DEPt+
z)*Fs*J29xnr-T`wzBwSAA+WO++L`y~TTMW)mKh)U-*C*^eO^e8{b;HVK9c=5R-$@)
zJ?t1tkN}rGWH*bKHwqhHuVXOmY>=xbGbAAep~8Id6Mpfv`KjF?wNnivIeE=e%EgHD
zuD)O$kHpC-HZbU>#>VfKqrYDglaXGyK2f+_AA0@idlzS_P2u|OG2@3WF1tTo68rg&
zm+Wts$cgP*lZWsa)yMdWI{x9>U&rpZ$H_$uZ?*%l3lt8zTTWS<o^5`XJk8Wx)70?S
zc`yaH^B&p*p`Sj{+7Gzbh4R0-Yh$x2G!M^#Uz=m0>wQk<Dk>`4bD{l@t0<4V6#lTA
z>v15`fB_@f<LyI*a(;9b-TSNNASQ*hjC#wmLbN|jw{O2ZR#)apw%^rW+!iD0M<ZnG
zJnz)+v^|?c=Qt6C-HOBhu5nowm}xKBTU7`s+@34w->kRe$e)NlaPWwJus+EScDEh7
zI^911{YTT2mGW$Ia3vN+(`2YT+QNI$(PiXdH?I2!kX1;1m_${joAu`B^f@M`r!N(6
z&rLVQc;Z&(dbf4<Ms-ZOUH3M}*JnBdwq2HmYHwWV&c^Oe>!?0>;JR6(BTB)kF|fTl
zZ8u^ctK64!1s-IfP)DrGgI%|9vg@($weAu^QCPcUCu4&#BR@$vcSg9TiX2xj@R@vU
za~%C0l-JK+Qs$eGmS)kNZEDwRqk8}TeOoEkpspNqo%R$hnyMS&vtYUM50YG**bH~;
z1;5K-tdo8gjIKrU8yzKb`^m9zk>8BMf4M<y|NCesL#KvSp}DIk&E!im(U1J*eVgME
z*wG+WTJ>Dxc8=uLYNiP1w>vQ4X!WzMGoicRpWR?a=ijq&?xNX~Lhy^*3;D(p_x?0J
zPn<rP+WwcB_p{wO<F5TXq(aS{*v%UHqh=+$YjPa5v|{~P#_gNS<0T6}NeXOdr<!7_
zO5G0{8ym|B&1S~z(e$r(cXjzXDtXdc?pKS|r|sU*Jvb)IQejwo_~JFrj<>TPdd*Bq
zdxF;ZGNG*F<HJ!=k@seW@{jUq_44}dcir|Y+u5yNQamc;xw9Vi`K+~j!-KZV4U5`p
zYAonQd*Su%F}se(4^p*v+ceBw=By$v3OpZR3N|9y`5nZjnxc9BxJSPAWV$KrYj<|h
zO7lIt9*e4t#bLi4CF8cFyy=tzU(I6c$>yo4shAXzlJt^>`B!IyzR&d*g!;;_u(Gjb
z$O&fpP3Naff09*L$+wv{6uf02w0AFOpylBQm4tbgA7eg~H~j9RFQF5RQh!nHiN)!y
zS&{C3C!eMCxpP0vQO(#?zexNN^8`_ZY@Ec%uim<c?2PDYeQv_cX&pw$Ytp~UhB<aD
znYgDWCGAvUcdAG@3$IZe&&tZG3m0)}ik2wZtTV3{Uap<V8UoMxE%|+McV*s{CH@QU
zTc1mr&IYl{56^7Wg6i@7QdJcd8iD7f%Y|hhj7k<o*CaQp9N^rxzrc2wb$oyP=bM7d
z_L|7d*TmG~trsL56a6LoQF=>ktgLh3wY%HvoI1sYX=#h#0YWnzX%9`{9?295<FIOd
zU(Ik%X_oG6i7Q86&>s~9y7_9sNtb?pnlBI4J{YKdz-<&ac+SmI9`~?EkN?b`ow*rG
zvz4IHl|Iix;9W2nV=c#d7RO$pA4!r|0w~ERTN<`PIX4v~1qUWSxX2B9^_Y3ulAaVL
z&1xHb-tjBpz%Z<+{m&n2f#;D~S*wU?SBc^l1?C}~M68Si$a(+z$ff67_;jGu-IGQ+
zg4cGYW3(pNyeo6^SLka}8bQ6vx0i$GdkfaVC?z=>f}aa~7Qu)GNz-gLR9Pe>B&4$^
z=H+!-ztcVYrXpRkpnP~ykIwO>-naO8sVk?e_7=%~qw@0w3rg%425yQHKLsMCz-GFw
ztqp2D8KA{`3+z;-58rHzn%@iKES#emulB&#aYC)30xEHe&0KzGsw}{WLPJA0>Em5)
zMahFVOI!((&dSU@R~;G1+N$G^iinRSab9bE++XbCd9}X;TjJct>Fu{%yh&sG3+%Ap
zdASY(6OF^rmfl2bqN?pxbz|9j#0+lQ*G<=F+`}LopRME2m>>=71dTH4+P6r~%k3pt
zEV&xQn8!6Rz<u%?Q^6ffj)(*6Pd3M@PuFmk2s`!6GgS;PR=lC&R7)TE)!+hgJbgO4
z=pf3?@|5dv5FjLx6&drN6cD|rZ{MWac*9xz5Tos~+A2qT-DzRq2LwyD(_Wgco1^#u
zM!E@Mn;Css(pQ-K<8;1{k59=)1*bN4ceTvS5yGd0{zPL`)rK9CO<w;>I9qQe=K}So
zun?D7G`@<EZ-nEHuxV4f?Md2Og57U$UCWq};(lK}LWbQavlbL_T$%9p_P%{Nm|ZR1
zesSpJMZV7y5Rci7=lhB@a?G+!ky%OZ#RMwy_u0qbc1D=Qs$JbV(O#ILCP_M%wN9hN
zgalt<V-bkZUS3J|m+*<+rOyLUz%TNut3)VLr3qq|UaJO?{*6lhy#-IP!nH1A@QVJ-
zr%J3rQ(#Fnc0G&Lk4tuE&6VQ+%;xm(Rg-+D8HZWO>^W=hM&5jh_Wz}@uMof_w<bKF
zRz<tLmQ$joqB5F42fm!y2H9}E$4YK(eGTGotkm?xa>E^Mji9i5TEeUjn+md9Bq)LR
zyJ7RrRo1Wd;u8|`hrHQ_7B}Et(XELXFa#~DI$oXau69<o{i*y&*yQ5*2)jN9qi}~Y
zuRcg482!PY9vayun?2*A{JQ11n7tVGnhRXI<&$v{ea+43=KZ1#%d!xi?{OBbMC@-y
z`0bYMU8Zp`DA<88X+cd6vFY>m+}`M>Z;IY6aXA_S)b-)JLP63&eL(?&KGXRjGK^ue
zNDqm+s#^O-^|G+6cCY9MgS?bb8Ab<mjs`oWlJwK$GhVMI*=Nrls?U(aJSh19guu+q
z8tripAS)&3Zw6hfNlzE@ES?YTx}hv>z$tey@KS~LU4`xfJ9E!HGTQvNnrQz4Zp+z9
zgAq&X32w`)SFbvgHk)bQ;gIy?xSRuv;JDl_+FA39M%ezH+^g=ZPUmm*uV=LXU=b~z
zXLn%V=_^2^r5RFl8Epm`!l*AfozL^_d&&A3ZVr}V%zI1SxOsf{lp~x$AZm2GerPjl
zz1<7P98@@!|7Vj5syURzYdpO2jpcs2o_5En<_-d{D*FO&OltxVjoiRP;6`_4?!o#9
z1M_}Xv~IVT#TlO4ukkk%FfI@i;X>wLcbkCjih8blOUrP89=Z7;zT9X;h>0+sGPAC$
zXhG^VQS2M+l$X|XV$^~Z9=eZ22zF2#e||jM&jiSR=uF%Zmn~%Q3IgyG&iD_)%Vzb5
z6he5pMdMpB;-YF!p}Iai%EoVS6W+f!Mz#jNAWaQ%7JLyzZ$6_%muGb`aNG-*GIt?0
zl$KB|1|G#j*`>0+;?^*+dkkmLr~g>{wcl@7(L%;1P!r;`9U3{gB!-DdTZ2|)*k(09
zx*1AIW){M{Su-bHj0QDFjWFe6d3Mgt*Da7*Qam1COVTq9+RO{caZvPAk(Zcb&4-k|
z?jVrkG@gDC-}dO!8Wvv7J>-tlKSC-k^D+AN%wr;P&w<gia9Fbx+PewMJxbA8aP_2A
zkFZqtj5d+D<ltGPH#<xIH+C19Nh&{irW}vmoAHHr>9Os^HP^XK=ps<WB9Q()ew#|Y
z8U?q0&R<SVsr?Jm)6CNRO|MqnHy-a~`f1$v>tCD%Dv%7nL%>PoHn5Wx?Hby0tnR1W
z)fVhBL8F-2@H;?F+;120@YG+WVo>{6j&o0;R173gVWKa8e+jF)a9e}V8~5<RP?yDI
zMgtEZ-`|9uNL6$*i`@_E?Xo%`AHs4Mmw{*jW(PG&C{X0^6e_!M6(2&O=En2!Y#?M;
zqzvAso?El_jq&k4bh7ork$M&#v)OaIiR}F*p4b>*R@N|1O8fB)vA8MwfUlcH+sM!c
z1dA$DBM$Ao;rEbu?G4UWE7kTBR+<hOx(7cra1$=~p++T8sIjW5^Xn5&p<=^x6K-<f
z?dGj7UJOL=Tdd&UZ8DVjE4&xohDuR)+0dJc%0Dtck$*HBenXM+R~L;Qt!utr3g)KB
zLVhfN9S7zXqyn=>?Y%(mMjbQl8(=q44gvC^NOqACeeY??-&%ln<96U}0Q%sotWl2t
zsu~kwkXp#C48MTi>h`l5^#KGjmA^ExNW$|n@)TeEQ{;<(nir4l>`67LW4Pl^%F299
zGF>A(5GlS$bP}NV*Pp5T)oN=p*+u`bsmRE35=e>8EcrL@#bXp6kn39b@B>h-ZhH9I
zKk$5V45uiS!|3RY=0C*O$-}4(8N^oHETe6#J9+%u_X8nDQU_6sRDvCqTHwzs(1-qc
zxC44;ZEA)Z%+ed*H;feCC|)jqv9Oi(uLuY9JW3YdtBqV?>9?bepz2x($KebZQi`}-
z){ep<qL}dUOnwL<zCP=jcU}SZzON&c+b9evy9Zw3w@5lf`id@zp;~v2H?*br&2$Za
zT|;i3#S?MNYQLAE-iP)x4oB*N7*{D`T&OO5w3Gh?#${smlE71xhYD28i#0-25Z@*Y
z{qBGEg#Kz7G4uXsPl#Vc0D8!<!J34dz5mq{np31nO(e^=;fHg7M~vUY=Ew6}zrwmB
z5q_SdwJ)&yMM^J(E7S-v!bC)3pbKkFRjXM21$T%S--T5PLdGt{2c$rv?Xs(LF9_7v
zc(t}x5uW<`i>HuZxplE!=*<|5*k$xyby1O2&NIBly)(i;dFbECudu26pA#;VBOA7f
zk1ou*gS@Fi4IJb^L|AoAdWB9~<7k9Y%=Zh6K{rB?xNtF5;9kUDZc&8jbuQQUc<u{D
zgO>)#2mUYa3q^ycZRDNNY}&ZuOksrkdI8)Q4&lB~f*0`1{YL1*W~l(xP!SAW*r=j|
z;y3VNpTdv+C~fF+@S5n~9U)X0!7i@6pyx3+T-ahmjEb{F(55LCF)Bea{E+81Tn)#}
zU*@#q{*@!^51}TM@tbffj{B+IW4-SVF^I`Qjuge`$iEm0`Nn_Gk!yjIlcKv2@KNVV
zD{dV?p^gUw^X1^@+S7MC>iKRzYq1ltn`H%FOmbMdqPwT^JfT`2Trjm$yIsHF(r?Xy
zayw6W@RxrlQ#Z=vdykMI;egOFiX3=YN8AJPtd1Ci0d~H6^=5-MVy`Fgen~-TY_4Q7
zccQf!jn0qe7R?hSm>g;uA4?9G_pSO1tt<RjOX#nTk$BYqZV9>FB6!NtwKlSz!x_q~
z4CtGF0Z8LtA{H?@B0M{NjT6a`O`1W~I9&g9;KqnXg%6V1nc0zLp~`^No@RHDan`}?
z6z>*!DKT6?Rwe%&KQTs+K9?GYXa0~OH+G5b&zM6478&{$K7n3i{4YlJeRikFK@>I3
z{3#gO5VMzw-Wr1D{y)^0&mk1EKK`)>@fNqAR}^98I@EPhf(5vH)L~yF1UKeo`W7#2
z|4L-bu$m;NVyM)F9zMz$-%S)}YVLx-xbYudf0R5sezIW<M|+GYJ^NgFfD^NkSW0g)
zJaYi$jc=SqD&YfJ<6nWSkk97FU7%Z075JRdIH=4xE8KRjD_sFoo_@OB_g;icII>PO
zz9$47qcB^#P*d!8HMm?jU1{_>0^v3P0%p)Lx}v*mq%M^0h0C5Tzn>NI!w4bGn5FTC
z;~PC>3cO~PQ7~>ozGK@tOzhD+WNcl0IG;F`kjx8|D(@^MIgL$WSG;S4D`Gd^=MZP0
z-%om3hj8=<w<Rz_Dg00WN|S%#vUf&p#a}_Hf^aH=4+igt%n{P$UoE30pj>D`Yhnt$
zssiPz>954S&yY|Ri02T+`~J6_1jT^QQSa#1vJtal2%+$gbn*jYNlVQDS+q4CjV{q=
zI=syIu3*3oy+px^P|Z{=q%$ing^zP1teF-?8BfBOc;M>fc&luyLKSkA0Lw<M6t0;<
z{d)QkT)jAOzfeLFjjUN(Uh?dQ4C9&Oi<4kK%oc<EI(Dulm`qCl+NUqi@XNK$5J8l9
z9h54z@`ISJ2fM$ks_if;#T2IBZ7V=c=}&)ju4I4D=OX`@@l_bW<MK`=n`f7k<3vc`
zD?unMBZo)gO7{nd#m@1WbgUPz7g1^3N5#jp9DOlknY@a800d<}4C|nV5P0smB=tez
z^*>epMG+3Nx;>aQq+fuFWhXnlx81+L=d#{A?huYUK`U&(v#}Uam<4hPjp34|pwy9K
z4#>8*PHhg8G>zWNXqjB*STW00ODd%4IEpG&7~PW1fa+={XBvu6t!$Idt<`C&tLoMh
z54yAYO}ngH?(=*70y=GDu3&yFR}k^iOkWNsMx>vm`E2AHAqc~U{dR9wAGh4+beX(Y
zvNOt=n3$-Vsx9)U)Xi`In<CnBf-_Dr9_mXwklSImbFkZux5-8+&tWUpT@qi4&8uSj
zE>|x`Db|xZ-HD{>c%7$raSTUQRw&QfPD8f*qEzQv71qYUw!V1i*>--Ypy{YE>2fp$
zt>>NdSn6lVLXO1em>=ea8;!;WYoGQ<=HS`2?GF_x6_nymb9qK}pLlPika|in1|(b-
zTgqW)yWryu>Jh297Mh&sW=cdFQmx;N5F#Lx8LyCuYk?ZgR|#spMVAOB%L0j*rkOom
z?hyU<5|=<l-(iaNGo9<LJ8DzCIUp8jZtwe8yka$piEe3|&riWUNj?*n+k9HD+xE)o
z#|N{!qrz_YuPem|#-HmPCz5|{d37O_-<;B)gd=yLqwMvG^Jw&RduoG)jlkP+2bz4k
z^Q4|+XE(C5v+=SX_L_8dzDETWx@jiva*P2;IoR~%dXRL*umz%aWTyB{xnVEtI-!{?
za4FkV$T#5bl@oI-<F_`8GwfX_c5RTvmO>LOYV^u_&bVM$KsuiOsJ+}%{wfQoNrh?0
z19I1ndEBbBBMnldun$buBohU-B)Yk$$9d*4o$E%F^N>AA%iPe>z_<TM^6M@zaA^0D
zBPf!@JFBxw$!LWiVm@5eu$_4f)FXwz9<?EaPWg|@=s~{v?>Q!*Z!?|$+EuGIj$m$P
z$vn!9t}b=*5D}-fVL!3Gr+V7Xixp}ahF-r`+jSy_r@+Pp1EAH|7lSk+qi;V3zB=Sm
z89rLXYm)2)gMAgdY<u4YWe~!G14oNpdXT&tE%Am?_VY*Cxb3ysZ69;z%T=wAXRR-^
zwoTQ$cI-VVfHqQjVi5xmA?7Uw8M~)``)0qhSOw(Phid)3WwHGX^ZsI>JsSF~I}L)v
zEPu0{VU+2}F^^E3vMbrv$}#J;Bs~FX;k@#)dq-`5=Y3FY2$>b8^!)|-)N0DkQb@i%
zmj*6XFkdX>bgLj)BgYVCyi@};@o9gck~Y9bFYp-3%uR#pcj8dnUeVbMx@<%;M3cB+
zmUnfc7azRxYF4=|)nJcyI)M*rO?6$3j|+F)-(BYiYSOqp#r+^L5Pd5^Wu6mr6&{ZO
zI9~A+p|!gs)ip4n=R?|7_^v#PUhc4{F;Ip33uOE6s>F`M0;>NhgYP!Rc7<AMGzRsf
zh)~CGiIRYjS6m?@$J}PTLHTdwxSF4U2tQEH>|%$Dv$AYvyRv|4Ird_p<8qu#$opVk
zSjtFnk<A++Y_@b9Xf`@)5<^pZk#-$wM}qeF4nz?9`J#2OY1)QINFm8A{y#KFDCTQm
z91Qn9^gujw@Pa`fVeET_>H|nBkbYQqe_|M;Ka%uO)Ew<Z`!RI8cQNcWTLmTC1sY~~
zv2b=Df;{gbDrIZm#scHdakRnor~GS6Th5%Bvc?4*I)FN^kTNef-IjdDAC706No-R}
zbP4RuI-CGWDG|WB)mXkE)s>B4wSfun)w;SmH22fyFV3%E;0fWsOP-dpdfA@m8PDl2
zp(5Qzw>Vl;b;QUQg*oXSBL*x5@+Iuk`El)cxfVoF!^jU<y2N}Eu!zRhh6(W#z7r08
zvjz;($_*CXANnVfE`-2C*L&^y-3}adT}{*x*%)}KK3%Afm<uzs)0QzKc#Qi?!HcWC
zsqX+v;!=Bmsoi9=L1(%_%pIS6=m}w$L;E#tT2;VgrnqD=`=gxL8&$|DWh$M@mE$BW
zTK<YC4{K6owXEYokAk9371m@JRV~?Stq&8D81VrjaoC67SL7oCgK8H*7<D*m)mQ?N
zP5mv5LOmyfi6V?3cHt%62m{F4#fcR{G7G*p^%dg5i(VCoq#7XEqGV-K4)0;1wI*?e
znsmRWWT)nfRKV8Cq}AKuaoAPC2<bS;@3Uk%(5|=D?I~Y*_xLry@aIGD1hAWMoHHz_
zaDQ)m*&hs@K0^8Do4SanvmG4huIw|zOa`)apdf*I&0opguWC3sIT>xayV^d^0+Sc-
z`(_{7El}2#fd~_3?tdI26R1Px)Ws4<6j7}osHi>-E<er&Kv7)#+snGN$|J`6+T=~X
z!_YN$T1OzL+gi=!`jl3_b>7JPdl>z(+7O4|P|3U_Zu>FTG2<y_HlH$mKP3(*WN)n$
zrqA1(4Or;ZY)-`Zx$bZGue*qG0=`38K8B`q-HuPIvp8Oi^?Md7E5yv`RrA8j&A=@C
zcgFblS9SJRHTt*OF8c{{1M{n0<Vd5pbC68<-S7q2D&HS{MJ=W#^4gjhYnyg^Etkfu
zN@O)l^zB4qW<9yLTVTJm*S@S&;bnz1RegD7Ve8+PgvpOR%dcW;pXO*q@Xb3q@U-8*
ze;1Cx#D4h~tsb=d!5$>-b+>W&%f^T!0bijU0*u|wpFXX=2MuI5%~$^}==xiEgAx}V
zRYxRnZ%It;8yuX&mk4?YM%h-pqU*2DHbu@tSI%c9DydTd{jqNRiv-~=N_-C~bj8U@
zQe9ge=2#FC;^pfrX5n8<ZOsASOqTZz(n8;Jrabd$i)Q=o$opaI@i4paMub9;JG0pW
z0z!k%wQx~A`=Qszbi0wIH7dv^m0|};bbiUcy~xj@F+g_phAaYq-%<VTyF6tLQkwkQ
z>@_CPv=pSM`gi~^aE#4L#W*^(@N?Kbzg%XnF+qjjCa|%BU0!E5zJC2WgF(8J(OFr%
z4PLNkzBi{Q(&H|tmc0Kr{sJXf1z(2l1zq-+=x8(+2?f3^AONQH>?f204om4Zb&N!)
z$d=6UE4JXRg2Qil1R23jOXC(?#=Q;?{^ey3rc*Ecky5nLq08!YLB#&fII@PukidB%
zzXsTAIedB0_fgd86%rAxS!H#>HI9e<Pstcc9RJRS+l#ONNX8I_Ph#DP!Moxpg8m0I
zj6<d%q%mIS0NVCDe^fo4z%RtKYLOb+jVKlbV^$aODn&_}RNDklXCn_Lh!{QY^3vgW
z`G7+MeNPWw--B>ysB7^ehxbN<b!@5QT&4?l*SfpyBmo?VLPu8*SlXJK<V|VEQ_UO+
zvP9IiB>4KEC*Y1j&+Z&iBvT0RB|f!FO1qhr<&8r)5TI-m5zzx`S>P3vB@~GKCoRwK
zzd1G(#j7=n4WYSQz1ojl4t@~&et#~Sy$x0_#VB!QqVKY(Lw-sE(s_5g)f7%7W;yap
z!@P)hUIC)O4HDD73HHx1e`_>~Rq%3I6f-^bEhHS0m}<_me~Kfhg4P&&6Y%v0ilA>l
zN2$G?z5EA_*9H9>HNq@_oZlnG|6lh?cmEK|EoR{4Y1qp%uES@ICR@OwX&nuRDjVM5
zH5%gXcv_6-A8G`eM;5zvx@rjfA^!`^eSfRHgwkIj=8lcbIoMu~fAJ)LtJRTj4!}42
z9md0G0wH(>k|f78h+T9rRk7u;S^PFKs#lBHCG+#6&?cI|5Of=DQ+Sj=@&rm2R280~
z5qvZ6Ny*n`+)qia!0J%J8&AT?1*#3VXgmWDh7OPt+v<iMnni2J$|hAP&?VwrNFnA%
z8rM8I@w4*Lf3*})%-ndxPDALD(5LeqjQ`P65MLzR{N<mPg8%a?T0*?N^U8>Q5enNz
z1!axI?v6+NNaac@xi|KvI-KbqtAQXD=w7P1X}}Ew89^_^H*H6kV^<|5yL)kZ<q{Gs
z<ja@VPVRiY9|~nyWR~dK_cXn#F=HQK&mO7$2aA&Lcq1<dv3H6bVTz4lZO8cHVpq^=
zRPk)^Toi?g*n-mb;qZypE<CNGtxC5t@ibKSFiJeFCacuEuW&OVF-4j&z(ET3-aD*l
z`m&wbOC&1iD?2Hfk>uMVRJfbsJ7f2KsE%?>oFW7)hO|HwF%=)DPFa#j3{-a~Uda}(
zf9pTwxTruJpyC9TM2!B=SI3se8yY0RFXWSEk~JWws^F=Z@Wp&bEd_+OM#Wx^BTCKc
z%e9EX_1Ls);S-s+;**x``k#5f8*n(R<^0B%r$dzp-j4h-qC5af2F3V5+{#4LWjP1%
zj>TiCPE`(;Q5(g$4VP`FGjY<_@yR!qF|I#R67B!{w=}r}fQO|(h({D52oPiNGw60Q
z9GHZ6J?;a65_xb$eE@(X8ZEXvDF<TxWeQNmQTQxOsrKSi1YXuVK5flRMiqY;g_8We
z`gT!lZ_%#-<TW6?@TC)T1qkX;eF(PlmVWE;@pU<G&~4J%e&COi?FNk=N>DmwKD{QG
zvjn6#kP!Po39>hn(NH{-UIPV}<x({hTdc3(o;xw^FAL<fPhlP;<2ZCag~>)Zxek50
zII7gQ3wcQ!CR*il(e6pt`mWf{AkvSe^W_Q$P$b^e@;^E#ZoVIk-5bKoAzy-jg&9R0
zP2Jqs$@)h!j1mv|l~tOPnK{A$o5M_Wb3imhU<I#^+AlymOd`r*6f+&b0sIL4c2o`f
zxkYS2g?J%fh!cdx)<p{lHyy)ScJqBEW1h5*zpOu?t(v8nSYnF-i`n(C3aGH7P#Y#7
zEvDk@3gt(-ExI$gD{A8i*Y>L#k%XA{Lr)UQPofsJ=bB3o23-0hc#Ye<&$96Wgs>Q{
z#GtvL_kZd3YfZ~)hMZno4cxt-L@4=8Wx-L7k9yc#AfK|&@Vkmaqa3_2(hbxlG)M!y
z64jk8bhUPIyMohov3K4zN79ehX>Eop>~Ix>Sdk;NXc1uhxE&GMR3XJsqR#GA|Nd_O
z{;=5I@K~sMeN8@?n33W!PCo31EWJ?NlWy4_<<Rraufg}^A6C9SZ#A8q^GVj94qodM
zvYVsu=g`XkSpTAIG^%tT`reyUswJPoQj(IWh3yvrK;MdL9IFd$Pu0OfiyTx@av!e^
zLU%g!+T&YuiQtK0cMz`ih%u1WO@sKHcMZvT;>3#5t5dBt*2k%}QVzQUX`urlR^rRo
zuVV-_Luds#?T7Wtg*tmn!DPY<rF}(CB?}&$no!CXIjz^@ZOZD~KQC`(4%=t7?DV-H
z9l!JsvT-ewnbY~wEG=rXGK-9y%z5D+d)U2kEO&^^mD3JTk<RChhnI1X%;(Rk7B2;X
zQ~~@7#zi{wwH7vDuT~F<L-lyD+aR>kGH*@>lmFF}qE(R2WFH}h-Sf}kP|sv`nkJ@m
ze*WaKib{~;v+DN@0E-ck)%sj7$X=+c&Wk#4gxU4w8Pt4;NqGVciO$Xt74gXnBl%_x
z;Ub(+v%>AyKs0h;0VHwj((&`I>jmiMKYs$X=H;+kO5{(CjfE=JCUQ)>ZQ)eOF7hR%
zr>7?*JOk;BUBAmZFiC#Yoy8-0=3L}Y&CFZ}+=)|ihrFS5f1s><f=;wBJKMIx`)ow^
z2Pg~ab|)l*wYT;&?8Yq=g0|^OON{Dg+>Q?Uva`~E%8UG9*>d`%(oKqTt?Jpn8OLSy
zJcC{h!;q(jYDL%idn7P7@845uVT;mD`Gp?v{*6wo6}583Qe!c=qo3W&mK^qZt?GHk
zH|uZei&}**3%i8!8XFoJwL@)=XgO}&*i@SZ7DE6k>j%l|EJ4zCcIzekyYr*r?w{ya
zj_;(F>`7yk;$&A>S6v>2!UAL?M0dC6OT-*kzLm~Fa*3q8Yiad|Tq7hJjUF;F$%;Bt
zCwsM=<2WjEk(GnP6*OpIrR8G0=T3knmbmV2t<84JeHLhfhJLe8@Kud$`$gT1&RVh7
zN$bwe&N$gH^$f#05Vg%rO{vdvN5{m#N1sANHPRVake{az{B%Hm0@3jDcgsWpt1%gI
zadB;J?P|*6s&C)E<ynoVXy&EMY~Ks!IDF_(Pk~*kehpq1mX~fj+Z78RYvz8p)(fc4
zeDvc*GjSe>dqCrr4XlOBwryfbaNMyXqK1-&@$hw+YtZ#00Jihr);WIbOWTxkG}lc%
zPxpF-6h)unK|-aSZ(ZHpy$!qJ_vVd|^~5PL$z1JJP96tsd;5)_9wc>!R*4Ui!3T4U
z8p6Q=OBO3HVgf&Zo|&IF=MKS50M;82Fk2j|z>JKHlv_|&S&T9+oaW-<x_R?vUS6JM
zo-<Tip?s!Yg$~QLAv~j&c}-6~gIIHKciThR>?|3bC^hdhWo_+nAD=oPgHpqU?CwZP
zVnKHUVU8gh)Lv5qKVHUm8yOjqQ472yO8{+@8gMa)#0b0Z;^gGyJ4|_1UD=Rg6YyU}
zoE<T-Cy-Gdo}O6H%@h|Gt0&t+TJ`Yocz~5OI12k>p*b3=lFkLkj`MJ_*P+RKnRx-7
zE^xi&mF&o;jyGBqC~+;jq4Hy4vg=7jP%}Dgjs|;Bi;0NrwyNs*czLB|WDMt=pb@+-
zARxfXIt5!ZIXMX=785#5w#vxT+<YD)X>M-rf=}H2(CjBo(O?L|H*Ppo`O<*8Cgs@y
z!wiSLolRuFD9)TwvOH|}JCFsgke)bETUWO`@RE#(i0C)_N7d@z$)j-*u2AKnqoKkj
zyKo)Xe-3^wT$q}jHNAE&Iy(9_8J%{sE5rr|2M5LY>)hPw`n{Qrjg7DaC(m<V0nZ4K
z6FtvwMlEJ?>C&ag!<9amk<n2bh^4+XLQAvb4H05S^`Fg4cH6woN7P<vyN{PtZ|tu3
zvzb-$KWR@1BY4Ny_jR*GTXTo^eW5p=R?6OSBu0IE3o0fVY&J;ANQ6ae(ji`GNgWxh
z`^fbY`|i`H-(nkk+w+@ms{38HO{E;iT_9nTl9FPqf!%&a@g0u#%a<$Ytp@C#lHpEP
zYU(_MDsc=rSAU+B(JE^WrE5~LCdc~nGFwp*=>7nwk&uwE?YjH`mv2kax`zR+u55@(
zLvK${@&29@y7^g_*xttFl0|U))C%28(F+R;?^k3or@izc4S-E$&pELKH=@MgO>uM=
zh@uXk-<#>o*x4aw&~XP#5ZAg~6q3-D5yo{6_p2v8%djW(b8@eh4uF@eNbq>M@v`>?
zo%iktE(iG9fD%o{nE@TIyj4af#;%c_<QVlf;y}vNmai>e?>jk~SL^D_$x$H37pnp<
z0_a~m*OscIW7z(l;U4%wxu5*NuG8N55bz-QzYDO^BDYiSYBg5tuq6+q;L5^6q@wv0
zc7L0W{3M8<fo^1N`S|$b`>a;uz(!QbqaQ@X#Kc9~bmz|H8rFT{9=>BO2szn>>eQ*o
z_Gts|PFUArTR<l$-kYC3CH3Tla)rQ}vcqg^^<`sE7cisT9Q8m~+LMv2o+Ul7C?X;f
z(Z}o`c;AZOtcO0DR>U#T=^d9|Wi2G4p>nTQX15aMzIY`j6$dPhiK*#kQs{>d4-8cq
z*m6EJ#YlE{bew7ezlOKzi$ISGjy<uuWqENqE)mYSzJ8Q5<0p3Y`D_<2nw6E+abw{U
zxyZB`4xC?Om`2#M(P^MN%Qy!Bi~nWGv5}G5aFK1;)0sc<0imH6$$N`kgdmcLiA9)$
z59)l_E`yAZvZy|t%8K=7eB*(uo$bl|p?4!hb0!*v8j#!Z81)93mn(19r(CNLvIXZx
zw&2jvZb-ioqzgguJ>J5?!fW&W`+nG+%b?5>MSj9@6vr#rQVUO0QwzK9Y%t#c6nK5C
zU-{0RI~Dg@mNVvp->zZX?r$5+seQZjU}NkuGxL-Ey<Ldan81h#Ix4Ch;Bw(F3+#fq
zJ3Fo~Eg{<H3Z)BBueveo2Xiu$&5pMe#J`NQU9taS2VwZ@(5q^mb0>CAEFbrXUaNTr
zZ{Mw~$hgAn@{gRn5cuvL2vYjKf4{ajeXvLyJJXQ{8LkEbbh+0VhO0b0JZx6t@aGY@
zL!|4cGWz@#<CPOzU({epqf`eRF5h{34lqGmvWA|Xo|2N%CMT01C`$pUAt~?Eb+3I3
zn3i}LdVBcu(ndqM1xA17j|Bg9+@7G*H5BU4r{?KI)tBnYW-VXqAl__FFSND7%>^(a
z$S!Ip&H4(ZFgxN~>dQ$yU*(za_*~$9_6HQ$aC{I!D9@g?*;p9dUZ3}T{hE=10r2Qs
zTu*N=gqVKFlN}u$<7=(OE>5o>3-~%Y1|HxP64HoiI%>}!q?@H#mu~V9`T3YddK9r-
zY1g&4Lw{0t;B6Hu8}mboKD~kPd2Eo7gNCJLdTE)XqhntQHloC6`za(t5M5$xK3uIy
z^3XmHf_q_$A&jnWv}_zm9}U)?WpxDxQaD!9%s)`5=BdOwJT@{KpP2Y%z6dd5Vd0~w
z%ho4=6Aj^E0RdK1f8xOsPm_yz3yX+^4d+^>CWh7-qIJ*RLHjcY{f4atrRzR;*yw{_
za&9^;3w9R(JuD6iR8+?>O!jsZ1=~&>Mb25hjC1Y5ryq}SINT}whpz59P}hmMNOkI_
z?Q9JDEiNv$UL32Vy8))Hqm%R&^7mOv%F|6PEg2g37#cpNrlx}32C^uHi{7eU*=A_T
z+}zkWrC?}iC?iwbGHYdNNli`tMR5|uq2=c1uRTJM(}2jdC(lYQN2l1?VYFX1Yfz3C
z&iZnhh4-*nO@o-)e(S>fRI>&7gjFYs1E>p8khYd<lEF!RN_4`iEP942-fSvN+$w~6
z3yNum=p2aL(87$hyQ-BRSR%N)HJuvla26YuryIa{e<)QI3n<rM$XHXe2f`Ze7tFk8
zgdL;O@DQ-4*8~`y9NF!oWMt!XfijmNRCRzt68%ZgW(q9jL4MkgM;`@ko+&7hmt8Y2
z-efFU6x-h<t4YUDP*Q#f57*A$T^g-{cPAJpk{`&nzHSV5?&Wsfv3K2dvn+9o7tgCX
zf*A7Ew1<IWbnmnZYQ=aqNE_EL(wj-3P(Gd*G;B#})NM~dN!Okal){o4T3dM`k_Zd$
z{PMqi+N)eQ?dXl-n3!RNse;ZZ0)nclj36;UMDU{%>jNiNR;D1|+}iq3uCTQqGQPCD
zygu7K4w-&pq656a(ht~HKz@9{JI&0@z`GkV5u#xwjC2<-7P#&@x`t(gpj*RbE+Zj4
z4c<+m6?iTl*8-{NjgC}`!}8eq^XDOAia2jvBR@$ioD100S?@LSKEUksG^noO51I^s
zS0Sx2h%FG89~Rh}Dk`2Pzp9@34H~`9PMn;n-@ku{9DIe5ac#222qLx1)=G7K{T}FL
z0a{Xd+-d@^FE7VThr4qp*t)_SG4)~)9t7wH?qw@0@)8xw#z7X)(A3m?{P?jaDNVlJ
zJniYzKOdNRhe;Q=dDq#3I2lr}<(p05^SZK4jf2)98_LrdW-L7lWM}Zl;U2G~lJc#v
zV!1R>sBf3Vb{1ax`N`SZ!gSzaqFRpa=>|1mW=snkR^#>1=!A~V9K6vZy1UZSTmX+N
z2J36~dRd}fXF)C2-`%c*)%wx(7;qy1PNY+2BiIX`*_NcHlwQ-+WKs6|Bt*DV51sQ8
ztSbTdh+_A4V3Vg;x4@>dYooMb+0btbEbc9WP7)NZVcZ7NckWa|YZLn7is|>z{)Iqb
z8q^QMsN6g}P%&&wG{t~6J=jE*H3+`s<?Wp?iPCBJY#fJN6d@+Y$jHdXb}vf)%9Sf7
z&{#y$Ju7Q^n{jgY%wU-(?`|=~sswkgP!%qJx#j{)^fH|<;A;8pt}Nr=z`zx-EZga}
zy2{Ge{ZGuz>1b(1ZKjkHtryq2%_BsdY~jo}I5>`b{H&`p{q^n=0->CpokKi&4iXW4
z;Lw71I}+rXVdtkuMwA!*$7@5Zpl$$U=iunr1>v-#!`{JRcR6Ce&~j8-UjChmH&$Jx
zp#wG@vHQnAUqLDt5ESg{>VlfVX5^PY9P$=myV=><noNLJ1&*sz0Lt^>>KCaqLP7-~
z)_(2bp_OMj8fsq5((*7~8O-((_%m3XX;ZX^CWm=<_UuS?!0_-eY_HZC^O6%^dpdW*
zM*#@z9F&xl+;e&}G&IDzs%lxuhP=d+>$v(Xm_w@%R>s5>2dRNmD<9rXDgc-RHGr>*
zwsEf^2^ELT-MbI-EDZqF|Navr&n#U$L%vij?X)tX5ajwog(0AN13M%bHn%uj#oMk>
z29+O^|J~!qkC$_NDOOBu-7#U4kdW9xUHx_hrVu8pN|G3QU3qP7jT@AgmR44Wea$Hj
z>s?P+n>RF%Jwq;aMSUODLel#z@5l!O8fxm}BqS$~+`ekp`{+7ktjFgvIzI;oGud8U
z4N{EH%*slhl#@UCQJHnrJgsedRaeVF_uOlpgGrBbAuGcBU4nLVwfjNt<IhHnlAfs!
zgzlESr+=m-p)$q6!ZJD4nh2%w8_KIgB`2RjQbodb`i$2Zru2*qkCL|hx{3YNQUDOL
zn}P2G7)M+Vpis(ZV_M?ZO`P8MsXe%ON^^S>xX<6CGc!E^d@DmF665?MxT0=PfHp(R
zabiCMNRmeoRT}bd?5J&2kim%>7#XRirvWF>*Vji~RZ&rK44Z5ddj7=go}M0{NkxmU
zM`!f`ttuXL?UQcn+;gc)E%eYA?z&%TjB@5_ZxGxvb?U+ZSesJFrGBX30GO(Me{?g5
zH2lMdJNsf8x1R1$x~7)4tLLa08ZuT{0E$e=!-ob3nMFOD@&|lu0XTsW&5OcqGkrG^
zV1|nPlq6iUpK*nW>5PI3u_vU^2wZr$w0r-1fB#E6S#743ei6vaFF?Y`g$sv-giJzh
zG&e^}P2B^4;nMuQn5Kmqz7Oz55lJFvtGs$Ob<l~jKTjl2UM#yN;C}1w6}jSP`f8MM
z3P-&#FU~wPWyrZH72CXJNhYlHF16!){fGz}EgRqLDXZHh_-2FCZC|UBGyVBSDEiR;
zygX~r5befPJP94?J-JJyjUCFHIdf3=-hO?8B_j<&_1VI56Tb2B@iR>slxLkOU0)YA
z57#=txnh(Tm1TmQVRsh~h=L<?aLBR-@jY!Gfn@+k^Tx-=Wx0<3;K755yT$JV0*q=u
zF0QQUz-uLw4iv^O;H4U7imXP3gOv>%M7IKK4T)RJ8mcbYo?X?31Y6D#rI<UzKJ0s6
z)0LK-E8BKy(wt2rhrEC}Izi5eL=HqEFn#%1XXj@fBbIrZ98|H!&YMI&YC#7JtMz|Z
zSF>a+PF@}Tbi>LpXp8%T52l<`K<C2#vErfXZ)}_D(|p4R3zL&)k%AlgldxIfwvcHg
zBqhyza?>DO1B{~BK*C%2n;PdQn)@`W55+MuO2nOSbI!+6>QX@}K;2TgQHqd9Q2aB<
zZQ9J<GiNEe7@r9|!GQw@RHka`>p8^4bP`)Xbk^&{xNaS{<wgAc<&l$1i;ET(7A)s!
z&GqznOuI4*3kx9wO2B)fklq~U6QPoVZ#g=GXePd?l+*w2#xdGD!;EVEggoC1e0$VO
zIz8gNfhTf#FZiq)Ojy!f39h+HN#g3Cc%Ly~@v=F%vsTH5)jqAq{$2Hx<O)i}b9LBr
zGc)m|&O)`<-fD7Gai*Wzc_QFD{GCE4YZ0q7^@Gz=t70D=&_PGa#Z7S`nU&ZcKq3ek
z0)<BpI!|7GFfuXmF(P7rWodYa5~{Dk)GRX|JLG3Q?#<%*x){WDfTUUd!371|5P-w`
z_8_xd&~nevr?HP|!r2TY`sfgACuJ#KL}jVh5!;8!dR}5}9h;c=);^s^>YUZt-MxHZ
z4+5Oc4Q%@Q+_z|3ZbuPvHR`bIQ2_$+Z>K8v#n@|pk6I=_c(b5pYMJ->@wqn@FG^Ti
zD^m{wQh9~a5dn^$Yyl)u<u(K415r(<1((Z#awkjtqrkDZmjd3;-MzfDg!={w<fjgt
zLql`A!M(jv>ME`imlvMEagOTF_b5ut>b^aK=FWK%dot`-{54Zx=*7z}S)b3txAf>-
zze}^oSy@<IiU!yn)akmpWPoN}SGQBqF|IJY;4=pAt3j4=+#=C(^+i!pQMuO3T$+bJ
zz!0g~oJpZF;>$Eyq;k=8;tD`yl-rRz6K6Lp+xZgR5)+L_FRlZOfzk@Fv13uO{%4uT
zj|U+)k6La54g9JE5Q#FY3I>BA-~&jM(o|N!(x8`?mQL^CEtT<}wESLXM6Dsr->TL3
zLY3Ebq3f`)Kh#hi^(K6iCdLkWP=T?*EybH-7c)9#Fpfp8pt`sdlZM^ji*1j(VLj0Z
z${a-{rNk|DHa@*`hCqg5RzTRa+}`YUH?GALU_h{rD{w&Y=BlPjKSa_}tLl`UDB*L!
zJt=MbcD*}xcOD*k^7Q5BL}acq_M<9U1;k{uwW0i}k&)ub4+?T~zr@8|Jn<U10B0y`
zV~vc-jveDVcS7l_%rR2Zlquunj#?8wbC?#qT8Gg$G6LltB#axr85tR&LUv}8HA_J=
zD|wLJm1C5?2g>LI8-2}7D{C>J<17UQPV26VO8SlyU~9&-L_T~*^pu)OsO#$s*HJ+8
z^XJIk*JUcO*WR2a9}+-w+pIJne*K)C%~oMlPp$38kErk8PX%<SXaIqE?lo6v-A>^R
z`I9?WY<YK&B^(Hlj@_}Abu7{@mzuful;XPjt%J_i)+-sdqhn)?OiYp(Oi!VM651bF
zbSl90hP<wwkbv!GIxL`b@ZtrLq+}Hkl0Gy-ANH^7ME9U{s@v6zI^jKBz+xXieR_8N
zf|jNxR9;nY&zDsVJflw5J-V<;L{un#bm4(Jic`M##KKaB5k;KqDBZ=Pf~nWO^j?i=
zHoU|Kv;_{?51tx0e9Mja6wo~TnsBZVme?L7(MJRPllgQ#{!W3h$*F<q!-wqMPYom!
z9ng*xJU1|EB+IHRx9I27>oj?!=%xxarE1No0gu~mRHO&A=?~eXELu0#SB`t=ZZ3`P
z?d@T%JFS_-G(Bt)fjoKrIdz=Co|Tj%|H`E5dJ8mIQAbrT9-KY*I)vNcI60gJVDq+H
zeuy!AsEFR#bldr<wihzUptI|C6K^9v?u`Z`tnm<TcMhIF-Y@(n`bNU$%AHToJrHz#
z@W^?`^|J+xD7VVHNkT`%AH?4H9#xzei^5K~T}7v-r9A}zKf3~jabxK<faL?)Po+<j
zlb1~plX9)hT(yN(IO_l7>n*^dTHm$tF)=_L5D5`<Boq)4kuG&W8bn%3KpGU0kY=MY
zbO}hKC?F{yor;uncStuV-QTlj*ysGtcmChsYhTyi?lo)XU2i;b-}mz@c?XlL<&n|}
zfF6?uCMFu*cnQc*^AbB_yovTv2NqwPIHqNjh*Eosk?`@9*T*-&eJOtp8_fqVW<F53
z3L3x57-3;yw*eR-=RF^-#NMLdhI}c|FBJZc_lX%Kc!L}nBUjkSU-Xff|E5O1ybhdk
zlrKqqTk`rsK!4L^jNemhw<`&LT7=JIl6=*s%+1X`NG{s^{&5VphWZqcW^vzjI4hH*
ze?vSioj^kC5Aigr*$D9L{iWX(lexx&#RXV}i$g$!qB!ZLpSbbqrqJIE!|{ApxNQ>k
z*_<CA!k}7CkSxKvf0IP0WBG_rm$h>oygyxz#qs3$+N@xuPVY2;2Qz9nF{a{$Pb3M{
z#?!3Eq)9(Sqb<2|BU;FAG(5%u5)2q|J>S(n8OAoqB7Xe%0o<Fi{Wgr`{{8zP<kR7b
zOlw8-z3$ZpLh_6KEA%CO+#Nn=?*l@LLS_9T-+=N?0uURHD=yj3N|u2f-qCRfLTxVK
zl+F9NpiSCu{KV?aRct5M%=;)yVJ}o0L^Ml8X_67*F}}M~<aQ-m+ChU5u7V+#TqHSl
zYUKX*{@!{SpcU$@7YIwEGdJ)!dEjx(C)>n{h|EU;AT2}1y#~n8Vt`Mm<R&mmEG(v=
zrue+>y!4&O*w~oPW#<-Jv)IlO__4!9fUOxNeVXQ0bg*GRegqx<IG2r<|4nu#IY5Rm
zMfYK6;BY4})O;_eT0cvDZhdilESq&33RHb*c!O|fXm~Dvg)`uKTq4v_Ge`KJTah@(
zj6Ytw9j<6Xc#c9*BUd?TY5I@D!^2*Y$BrE%FcYnxx-yv0iUoo-HlW}(ud$Q;aE|bk
zR`8S6{&Zx400LJwK$?x40!V@|QXT!U5hdYyCO`qDFA3ya89hJ&<DLKq!d1aeTydU)
z;`B3RB>jUsTie=>g`I4o=PU;iXasI#bQBM9_hfy>L)_G)n+3Oj#S5dW(SezdDCTi3
zG^THk>B9V_-;SKNM8~&zX?omA(=J1NG)=Xqrucovl}G=?#tyxO9Q@g!0HmpqM}_oF
z0JI5g2L|cpaAFR>p95kA<9SwD_PaN9<pyRea8G{T0JhwOI@mHyaQR|z%&+%8SnQfi
zgQnKEmHDPGin?LSPC!@0I{vMNOuCZo({D2SW6o=HJ*;(r?llh$?L(&QRCw3SZ0_rm
z3Q&y4DKbwsMzi2&|E=rjc_!!0+a>E$zHoG!DZd&v)%@s^P#}%{WQ$?0G1QZ*b>0cB
zZ9Jdz&7>DZ1Q{96K)41i2d>-P@cpNmWeN7e<1GDJP~(!4kpZ394s;Xvns1P%e2|BD
z97%40H<*0vyxO4xA12cP>`+9o+VU3wO?y1m!ncdZQWh7P5G+RiH2rnYxy%a1g%is^
z4o^2eZ+pByp`WFmAr%1f@`O*Hk~&Os)OSId;1io+teoFs0e%7kLbYPMKVXGO@qd1C
zK7amvW2xfokp1k9-$;_w{_KMH%;b?))38m$<3lQ|yIbCm;S{!?S=(qDPqf8gbWfe8
z|6@5(n$d0`@dFYRla6Giol&q$kk{iL%efmyhrdXW4(Bkaf4>Mae~8rpW65{g&aKrq
z>B~*?@OS_u9|#WwA=XQI2{Dkoe|ST(`@`0EAgzAeQnpt3eUc&56r8|^_kG;q51LM<
zL+-=KR5ZdBB;06uYTT+Q+s-afGnl!Zhy>S>P&od~a&qwncewO%_q%Dzk7tMBM6F)Z
z<6vGF6@T^_4M}NXm&e5-8wzCOe?7c5BU=0U^bh}vv2jV4-u-@qDv36pqZ?JpVx7r>
zl9@+gUzNvF#y=#_@h-6nhUz8j3Nh*uK7_l1X}GN{1t|2;-k)l^rYK$nH0bZw@UHw}
z8C9u^Xc`BhG#|9bswr3DxNf~^nQnKm6<-*-iWula-x>X7@djF1?~k*a)yw33lI4xe
zvHozczUMY;p@TPt%Y;1)LNZ9GDQAyv0JY@^?2~$0ZoQ4)D1a7QJ%+IWQcbnV3Fk;^
zBTsoE{<^ZLS+Kq#DVizR*!^CE#Rf#dad$IcE`2%^(`3$A6j(DhuKY48rljG0&v|D0
zmzV4?Bg?$8gMtDAhmRbQTFe2$O>YMwON(#9i0xlrcTOEF2^nuIy7z@7`Zco6jl#7r
zX|z~8=9h{s%~3ktt^$FHf<h~Rnw~Xvb+gbp18CQlmKFvFwNM#3xw9uuT>c2ql17=c
zCf-f0zWMZ3q(m>6p2-_ri6p=MKLx(o-J&2XG-B1%;w<9`piGEzGRZNn|MW}x?pfa`
zu&O2<%zmSD^Yi{RynlO5GXw|9A?*SN4pNy5-cO-D3f@p9QP3Cg&RmM5-+YDr`NjO(
zXu|u)d3ck0F8q~itg!~=<cL@h(_NoO*KP=IQySFg4mTZD{0Ep30P#Ji7G3s>01D3T
ztr`D|^tg%UUxyAMgm2#NPL)>rsVtUq1(WVs!uT?%^7}(1-;R_0`fbt3cqp)CHtDPD
zCyvHaV~O`fc5ELG?ZFYij*X5!vb-%PCx?-gkU)2XhZMO~EmWN0*MAqXCAGOolWOVQ
zZf^V-lOFTD35xLM)fw#Q2)X`@eIEd$L6`mAWG;90tDNO^<9{J>{O6y4ydnn*tUPeP
zc6-2!a8k~d^d%>0e(E9%{2U(4_>$DnlnEbRJOz|Gsehi@H-Wk#t`mGTEiEmWE`A_h
ze5h_S8(pBFcz`7*&Ia$9wD^hpQONdH%3x1i{f)<_59G!anel#PBRD06rP{L7L|M$n
z#wN$>ALeuRMWWB2v!h|BvoJDFsF^!MyB#3?NLwyGE53rai-i&qp&$F#_oqwD`RCtD
z;KMH+&3i|7`ks}|&&^3=zkmM@rob6^pXm~sYDk3rsqg$U;^gD!Z;IrW!*3Gn0M<Xr
zCN4*z#am!ObR?Jl;n2fi0#GSr)WhaxX1cn%fXYiVwt);MDmoe>*$vIztyNR7k@E8L
z78Yz3>`*ph^ZfZayu}>A6zzEYZFbI5#nrSA-siU$U<xA~U``Qb)yz0R*d!z*vJIO;
z>&CG!*B3OMfurA#2@jXR0@Ca0>$|$VOom5t2!zhm6(pRunfXX^YFzchavcl|^{$SO
zjzj&M(VqtHp&h6*0{^iDHBFG-0FyK@Fi=ul42cvRvRnJ0)Z`TSH@J@ED@$^?dd_qc
z9#5npb3*AbWV(<zs{L_=Z?!&OechR#QFxz!zaAJ5i{^{3pQRwN2II*R`LBRmOXjwl
z<ea|1dJfrKt{XhEmOGO{D;9ROD%^J0T9H7xo%6#XXMo!QSuC+#)T(R%N!TDL!$47V
z4?owKY}I!U&eZJx>reb8wBWWlF4f=4CD2|8>DvQtmf7~1me%0PbldLE4m1pZjlfWs
z8MD>UWY>$Jk{m&(OAtgBSX?n9*P*PZ-oe3-?%w_0{^e0@>3KRTs_FUpk|!0%F)u7F
zd7lrv;$s1<9tTyP`8!5!=-x{S4x6Mz>jDJf5FKG59+3!UWMG6k6`sI7`|Cniuj>88
zp#cYMtgqKsvsvgb01lf@$T6Q>5=0kCPRHFXm(}Z5Q?S59+la^gsif8I0(XM)^(KGY
z%+Je<#MdBgv$3_Eyji)vI8+9?0Pqypc5sit7-eV_v{qG#*&&8B$G>GdzrpkdcaSFt
z!Y-aOv;Po@SSXZ8yk5?@2?8tu6)E$c-3<rw7EM*vYk}e*o=5>D0<GY4Us%Z*7O@m1
zQH#liehen4*82OXbj%=zFr1){!^Pknz+=E5wC(Ev!U_%!PV0dA6uF`2MVDgpCi^T0
z4mWnHC-Qc~!lg>k#-LEt*TDtANI?x_+Ze?QU?ZTEem*`s;H*C@OoP1w{rev%Z|l-w
zSN)858}*9wV=1;~23A=(oT3SUNeq_+4!-N=heKM4Z8x-vyQ`}wfy%;jK>-2hXlQnz
z@lzDPZ8|*OarfU)bF|Qz)(4?c+CwDrFb^0L%IYC!t8HSy$eLdbUkm+NDMNrAAHu<e
z+MwK*(+cq|QzIk5)dT{$#mmF9R0JbK)6tcIaOaC+#JhK#Q0eBfGfMZ*X=L3jgQCn<
z7j8&DIfPFKZUrYPT_nV?Rk9GnN=Q7RGyq=W<jIqe6h2-1HU1Z{q9{R!To@uvb(&_8
zGJX@^@ojL78_WrRrGdqUGOk7Zd8QtvPDm?Uhf#~ae_Q??t6ek?ZFBio3sAb<*x9+J
zW^TVWM@2`s52cCXpB3=Yefu@8(R7pb3t}k@81MLCgB?YwM@0BBp)O-cBa)#1QL4h1
zm_BK?Fqf_AM3A7I$D8(sC;to8X(uFLOOP69hp%Y;sIGoM7%moUq>rC|JtF`pCh;e!
z<nU%vK1@d%IkUAvr0*c$&JM@bH?s8(|DiuHSLND@^RycP)c};Z1(3JWyaDJnm_w2!
z!)9T7ns{*j_WIi_BvcaF&u;=|oRF6+d{K9e1&0O!imsks>|hQY!?#Z;-(FvTW00)|
zkjBfxnRZBR<@NL_no`a@2(G+`h1{_)P>)Bt0NH%jq(bqq{G$xQ4q}!wDtnnNMJX0j
zCxT9B#=@>e#l5`@qGge*48qHim^JRb%*;rCpg--acsSsyYa!|oEo@*qzeiCUqRzir
z!IEYBTf_+ytdr%5CCEB!R9Sy%pQ%mP8jGdU`rEO-PL_v3?)_CB?F^UStFk6vC4y`V
z0zy7Y1gNL>@5_6({Ky}GuhY+}ihz~@MjI+A6~4?hf4HxsGYlspRfS{c*kQ!lQX6E?
zh<xJw&4EwZw=NQLeU#BBX&NS*lgj7N=oXk$pr}D6`OTzb1~LnxGc<M}M%x3@2dAlC
z@frnccHhH#9LekRK?(HuF!GAq+ZZQAx`v{T){ows?^_qhpy%7O?D*rK;!+gzSH>W>
zQ{iTXqq4Fx46en9hTp~vNHRFM(4t5=U89!09td49$80ukB<Ju0b@XY8gOtA{TntJ1
zU3ErJ4;=i!y#L?5P&++S*@gS@fjDUzThWxqj*H(}Jg?`G9M4Qi$%5p_C`VmedkDTi
z*SPI14oGV_+rTbVSoQ<O%<^A9^4v!@#jpF<V1X!>rq1NZ{eN)<-^SV>A6*7Z6Z2GK
z217o!5e?<5Eu<ID0Ys1GeDdSymzA5r@gA>VpL^)&Sj_YEjuC$80&W4hk^a1Pml!jm
z&oQ55`7i9?+u}iWwxOwXQBX8-Xy;l6*DSgb@8umF!gkd)KFFU7>@m9#pL9H(udXIq
z&;goe<<?h$(k$BLE3l!7+6q|!`Negzzd1I8OA9L2z>K_;Y)G;Ug=%g5q(^vD&)+C1
z9pO@AY<udPJHj=a{X$*5XVPZfD>^Osn=C64?WIea-`60eYPaC^y=U#b1da?`VO#bZ
zc$J4Dg0RIpuUxNDnIFVluVDh47Jo^wrS;=y#Mp}*`6jg8(ix@kyIP`iI`PxcD~s&=
zG4tA)EDnM>3p}9qpwM=_i$zMVx^p;1D3Njpk^p+{2PIZ*!7CPeDJP@#5&0G>NrKwf
z0Fo`BIa+2{kzCU>qlD2$ltjKG9Z|a%82o~9e5K}^{lKhyF}~v*+HgpbjIX7&oe*Mv
zr|$o`P@vbF?UOL?A7d3#TA;|+GQH{YwYPR$=~{X&R!j_uRe|dRrbHWhZ$W(bGd<}^
zGMsv#Wl50IP95_933;@T6)>*hZ4-%FfV)#bh1Fi?b1aj$7sra2ZcGnjYQd<7xw=|G
zenePs@NLMrf$cr_(8y>C!~&X{nw4zH-;>FL>0sQd#~jvknN67V*v|!4ekm|m!8Ufv
z;(Y?{O2km%c$vkJgR*-9>$dXg#9r1~W{aUxgm@1OY=LAK#2ARsc+QKOr~e2tf3G<O
zmB<UC<rXJG)9&b1AoeS6;r+-MPsyw77q&g(^nLvKoq+}8EI`RadM*q>0q965*fd1!
zGmhc6<2mt1!6DnWw;9RM;nAAk^cby}L-4+P$Mee8ug~+xZ7FVk{-_`S?ui&r_kKq9
z1I-xKJvGpBzmJL%097j-qb1X_`!XqpLx14$1Z3=YlV_fDs<C4AZ7kdTsOxHHMve-@
zmH11Mel}+IT{^|_+}G%R@+6I~e#uZ#f}lhW3!%lG$cAw)ou0{?re~G@L5#<0<eWnB
z-|i=PBzURa_r!129c!rd;7g0v=#*t6%R~V__4c}<Pzf+$B~ZT?V$20L8xik;B7!B)
z8)Sq~iclfB`h#o(2eJR^`<;HO$}gji_S_JPUZlouWWj<Aze3RJ1sh+nN3{k>E6vU~
zwn@Cm)W~bsHpM)Q+6r+obIeR!Sbd^6sD#AS!v%$fFK7(Y3_^^LbiTn4^<4FJS=x~5
z>OW0Bg7&jJZ!bf+9*`4n@fS&|ulvyj?pwyV7(kdgRJK#J2;YLDCIt)^m88OYp`(fD
zQy1HE6LD$A%=Rh;!IJkr$w9@&#Kc5IZ1opi-r3zv>$nP*nGdgV;5^Vclvpgil9-D?
zzRtvx{IDb7E+EE&Golt=^?nlmZ?eZND#%nmakt@c^rR3m`f3&tB6*Q{H1#li5@Jh{
z60K(;Ch+NBm6X28PDR~)+@A31`2dkeVHAWAC{Fn#$r2pJld*#jKwG6(MGTYgiPiP}
z0k_5IyyUZPm&Mbys><8~-D5ox_#KThiEKu>tj(!mfD-Qosqmc{I9nU1#U7=4bu-pB
z(qm+q+x&>{6j>8cH5B^9sU@1~&!0b|Ti{TpD#A7>k9|K<JtNph-vfmK*WdLHTTUF<
zGn5F;KZhMHEkUt!8N<ZH#L@wizH}6LRljcL+NP@ruX@x!@0&3Y2rx?2NA%0GLJhXO
zoE(Oa(4bHK3wT)+1|zX>H8MI9ASi%e=guSS56Wl^qG`|>o@;@a0SZFQJ_mte%?uvX
z|6=>*w&)w|&pVl2J}zzj#c%LO1%;EI^7#YOkQoS0A=lE;(E*W{lF4C!$9<gah77tc
zBy8Nm=dV?=nLIpRcre6u<8|Xb7dVa}bp~0)6098Xobz27u>gj{mqEahw+jyM=o-Wt
zB$N(|U^XbGSF!rW6Q8IAJ+rgP5Jbi`Yi?=s<j>2T<sdsL9?R@81JxL$9f>SP{>b)g
z!jyz3^p_EomRUJ~FcXxPNT6}g$aRt_6K3t4`2Ps6NWxw5nTdP^gkg$``XSJqA?{W%
zgVrP9uvjnr%VE`y6QVWwJV=*e+78#U?SBxk$MN{#q~`@+UKO)a*m;GVm}@DaLRZMi
z$z@^$dOA8*XEVyuqiHXC8p>QyC9BSuE~RGQYyW-pR5d%XZ2URv<)gpYVpM4Ocj!xO
z;hb^>spd8+sYwn9_^#foeN}Pt{E7V&Zz@iv<`ypfJ|`?>R8Q$QYVsix!pdS0fScqL
zLRxX5&{TlOuL7zh<z2$%Xm4Ng`%NchzY_FDmfo{@RR*l&lL{goqx#h6#|F)~T!0K`
zl8cd+lXFpa9~;xhC|o=LqsYD0Wa~6K^r;dvIhx8>3{dWPr#m{5pM#!IrYW=7Tv-j#
zU<-o;_*2`oG-Gi0c)JQ07nfLkiw-+ZvnH0F$v-pEf7$<r&`qkL6YZv)BcY0iptV94
zE1H~wqN~w%h{PX@d6?3np4Mr`<*g~@R4GSmmZ{2Vy%F}=FSu6!)SJU)H62y^7_va<
zA2Iz>H^j~J8<3~e!#6HSiHMZ{uJB-KvjfchaFIL5ioKKX-X?s|(Um*00kcP^IRs4y
z36cX+&(~*{HZT$=a@21uc%+pL^Hh3jcb_)gG<+*mx^>7|G0!Fc)SG|KF4>n1>Sp3J
zWlMf$rK+c;n`+Z{+=NFWu6RzPqT(Dj%k<{nhqmc+!zmA#L;fDp`gzuaxZ-m8{dfk>
za^Uiorw1Au=0S(v(AX#hVtuqsG@lY%7!W)g8yi5$_Vo5z^nSa}!_$3=0ixd$gUo9#
zyw{5CJqc!UNUq-twhC(I7^L5zr^1d+Pa|4%P`#de2q>$fVmmY@h1QqWm=PWefSeCB
zN#f$TB`;V{+S`#K9&5Eh8D!{NK6@SC-)i0T)+B>36xqG}GCi)nT@e!@<ir;{=vgx~
z6pMr4zC!pZr2$llfRar+Q@0XQ{G*6Ad6hzsE9K1G4T;4<w>^B8feK;bEFUVe^~Zro
zS2EYm!GY|dq@-l+h0h9`(3N?~YTzUSr_WrkGEx+s4;mDQ99I0>{lmV3+k}it#0kS$
z4szsoJtGSXvRD9gua#s%K8Afc*L@2~p+ua1PFW}8(&o}Qq1SoGv7?b%2do!r)u$OX
z1R7_Iq?8m(PiunA#m@?_Kv&ahRnN!AN7@3aHNvpZ0GqXDX1EAoDPmQrO;=Vf;JFId
zt!lnQNSzT#k>vcY1%fmSG&cYYgmOxWi(mc-B?@>tV1^=LBh$o?XZx}{h-9QeBs11Y
z5Xqos7+_JLN)P)kD5w<_bf9Vr9oon%+x5j=VAFUX5+aHPX-urs8WkGU{)E{;Cje||
zbvrUx6dR@R1%f*pOFV=OxUQs;D;=j%GgO1&u0hEO5STkvpe6Qx+5=fdVL?F&KqwX#
z7CYn{E|5<kh@$J(J%xabK}e<RkW@PU5`SfDl^Vgx%-s5LC<gbVq5?FJ6Eicv*on)K
zG8FiS0h6X284wWHHjOiaFxJh@?FaH*g>rwdJpe=%Pr6-v-0)svV&cYupK}gACHz{N
zF;W;5e4ERw_D;1`zyYt%bg+Ox6RbOkPiUZ?6NkQvM|7;|A~!{H3?T|74gBm`0y_5p
zN_~^oQ_l@cT|4j9DhCh{{7JQQ1b@HX?NgLo!cSG=hhz1VjcE4#mrFw#ok*pEg7vsS
zy~RO=`GHDG60E+Z$%m8CH9g$~k0Elz4KeARS7gdQ^p|-cG**AIFQdM|mxH{y`MKha
z@@L&&-CWo~lNutaWG}@4s6v|LJbbTK00YA{mtHx8+xSQ?zN$rgF$FQtD7WMb!~au+
zNebDONX69>XVF(YZxM@MVB3D|%?kyeCFF*$9FFDi@4LWrg;bv*17ZqP<QCWy)g%7M
z8!cQ{mF90N%gUbFFK=lHbXnT?qsO8G(9){M&Kv|_+MCs4ixe;KyNhGcNM~=9>)T|L
zL#2S>J<SE>plSw`87Il@1q~Lhwv*6`5nr{CfDeHO6yrUN66vsv8X0@|%8>@r;`qGA
zXD9G!v4}53@B4u599zrNuO)SR05=4xvHptp&{tvm+eCbGb7p(n6JcUdB6{*UsC|&4
zo|-!giFTZGwyNTTGvZ`yh~aQ9zkGkOlmLV^UxUd6AS|S)1cGNB_IHCHl~e9e%hW!C
zIvS{FQi>OXf!?n-==grkSQ7JZs=S8ABXX`)A5E-|8HO1G@(UIi2Wq?>z=uGJV4Bkl
z$aHFID%4q3HZ}R<fB<xNcZb+h?dmg_Rufu$)@&a%$Ur&}fWk*4uD$dxGh;z|c9M*7
z>SbY1wxKr2Zo$t(ga{r97s35Z2!y$M)qYM;o&*X5KyM(j&J$~ZIJS>6{%(#fg~M%M
zgpN7%y^5mnAO;)-yOg1tc`vaIX|=HpLh5kCdf{TI+`8+2+&HHfD)kf){6&77GFtgk
zrZ2+i@Pu|8KYCHH<lw-xKp5#yD=3Kt=yUQxi*Oyl33!n;{@AKl8F?uc{a{#ML?aZ-
z1K-=PULtiKu;^9dQ+!Jhv(SG8>AFgPs;Kt`?7NT<1_TpNlEKsGk@RqzrQ~NWyW#`R
z10rCBdl}{2#;vb$ki@B2W&;XM8W<lRkKm(mo#LlXw-@CJNGyWfP5&@{Yq;WGAGf2U
zqr>!O>OC+qnaS?`^!YPrWlBEX0<hO9sGnxl&o^jC0AF3Fm-sIQf^roD)c};PUO<nJ
zk3*^3QdmzNkL`j6l*0jFj`wc(sX5)9>H#DQzCI5KiYkxr=mQ{4M2~5OcEi=x6$)mC
zAfN-EVGpVrATC$_*4+deEau7kZ{NN_xDw<!3rIIa)(rVN@bqf`k$idp-|neF=0L#H
zP~XASh2GTGQdP}2Ze#SWd;vuiiHQ-0YFw<WW>9GPV;h1_>dL{AG_T%TN@B!<q*Dn7
zX6N98MZoe%g<i)XPzRJy0)z{tCH+v|9W+l|0cpMglt2M+2pyw9bd3L|2&DGNtG_YP
z)~c>EBJ&BsA6k2mr<X577kE-CDhVvOl`mhuK*<Pz5GUs0n7`q?qeewm`@R9IZ_y`v
zQ6T2gH9P=;Lhb42ptOH9Hl_oE0D3UyoW1X0m>6sRyK08bqW9syRWp!k-ArYF9b*e!
zm!MFl4EjdH3lR*}lo^B3ft9+z#9FGWN95Q;PLUF<SsEwsEmm$Z;Y>_#z@LM023Q~7
z0StQqpmeAJf<iVZ<WXh4;LKlb3GQKaX-T!%E>npQ4&7`}thW;Ft|!E<KGB6n4}2z6
zePR(?m*fp*TzGpf8}_GhjymS=($WcHV%Czb#zsH?KTzxCw^RyQir1K7(=})QDiB&h
zSxAK#X&u32qu$8@Dk~{Dl9BH4>eVIar^LX(z{gjpf3q$N6#Jk?#D0TPDVXxpNDPtc
z4jj2Zv+V9K;oECdX_xr^p;s=-0K^O~$xa#OK+%>Zjp4IrE&vyIX*tYKAD5Mt4Gav7
z=CjUHWkq^qA;_xgA$-ai3&;?Xa&k|R=u%oD`dO5#7vyo7nVHxXs6s{JH8u0G7n@Kd
z<vH~)clUwy!gwI%Cfy`LU?1Ara~@GfXaQ8nm6r)0fh8gh1Sx%G14yAfuQ4!)B4^+-
zt|wK1l0ixWI-pYSnr2*d)FQ<jK~&Ot(6^1h;6)@yiv4qNWU)VW96>gOlV((s9t&P!
z3!K{VxQe99sP?P(jud-%5TRj~ibo7UhKW`D&hCJmhvV-0lLp2n9Oyvo$JMj!HuG0(
zWRNk*9|JP=|DRq<Ixd!Y``M10gd793XEhhWO~0`qq%9~Vpb6on3w@1^jo9;m<wKp6
zp}zjR!8%I~P>v-%jQ0_X&(2;3UJ)N*DODo2tl~!AGoXt@jK%!!ys{zKGE@@BheLx^
zRiMeQ0<un@BTY5)2UOcuR=yd6-c4m-;E0YL10fm*arUca17PmIAA=B>oW0V&1O2!s
zRT_gSxOY*Y@n2CgDvl3q76xAZ@Bo-%DCyZeIllm}%zOrw2SY%Qc_u*-1FWL6vueT#
zRGjjyW1C=s7$8H&GUvQ%eVOeYS#t+Y1xm#Fq^6i(7YHUm@-_i%$2w#UAfpY0_Zotf
zd0}AzY}@E486_od6PhKNgwwAF^69cXQWVEV^@?%rnrFLTHRjaqLQrc|hki7w$;#Fi
zY+@++S;$E{uGZEnFZNUkuwe)+uR>d=xp*R35gYRHBq7t|2*7c=yPgR0cL|_^y`3J-
zzpuTpop7)K_mplRnZxP1XTVe)_J^CubruI6iq6xQ#1Nt*31BM;DYh#)cw?BwlXL!~
zJcxgHHT-|l2dGZBD=T<(?1m`SrP}v0V2C=zE^@d%`f^~1QWGK$X+f3b_BK%Dt*}&u
z#~=#7Q}f?E!n{UKe3j*kf`ebb149J?I4>+Q2!|8ffQ7C8`EzByj~hyDA*bo+$ayOX
z%~re+!R5~QIq3Qx-fIh})%Yh$9c22No5hpc`5=K{VVQ+OpW6oYMgYE4Tf#Cz@ku&V
zU_(($*~W->dwV-IGl(UAF%;SDHLVP`NKtSeM<9F<CP0wGgbA0PSX>0*R3S(=qo9)q
z^zShQwVmfRAtC4Q{~QC}8Y*A4v-BkZi6BvgfXw9z@DQ)&*kcEMql-)s)22*_oa4k4
zdCS9e)Yc$tgLCi<Mo_2i0n%Y6c$v>lmz9<Wz*GZqxD3?+FF{W`tAu=8P%Q5kyl4m^
zSdGp}B=462J^<&}Qh6h(nq3;Cp(?4WfiW@80OEqxgp2_FP*-;ZpbV(2S@``s6XJ`F
z4LiJE28{+&wV#R;tQ5Yz@~4Bu-knmc|0D8sabjwl>M~H`0aY5ng1v+|3gmtpl@!|a
zA7PGwj{OLA4v;2v&YuBvA`4$|rOi`^7x~Z)d*Bg_=HZTZojRzHUmBf+eSgcak;W5y
z4-39G{R0FH)Ti;HMw?Z<Hc|UhDu{y)EXzfc=LsV)!{FZLd$K11QMus#c>-L85j|zL
z+AE!m6|w(Y(1?<kN~IgV&B3wJ?+lgYLH!nnhTK4F15=n{ON43`|9?pvK?<3AVHjo~
zsb{RIsevHaZ*;>~CW7-MF){JUlOW>;huk@H8bGKgD|{V;(PmH@0f{0B-P3=wJXDer
zNCsfNFjtX3qa!1dFC3ug7exNxYz3hh<ITM*`OrdJ%(ul@DUiRLhzk2t;%Q-=e6Yg-
zS?AiT+<+Hw3gtl!P_8~iRilvTh{5ef&6mTa4L+ZO^1M5M-u0G*G}J=j0%MyWjj4?_
zA+JN7yW4Tt(cYdfwhsy`wX<44b8_w4HG2A=O-*vlY2VcVAEv$tS>dHjrJyh=BrBx4
z)7YB(?*ZpY4$b3#xnb380A(p+el%31q=<MWlht(o2i(aoakmsmMv1#ZXiJle^HZLo
z7Y>p(6!uZW=?Ovr0^tk%0rjBexV9a{$1|%ZP|Zo=wBt!vb2<FIak%Wv4xbn!<H37`
zBOoH(K@7kL6iGA|euiD=5431+wr`7xCocP0^2ul;<C$v&`0#R8@-d|UR+l`S#d1Bm
zK^5Su+lneP!x0rp7xv)$9F<NlQQXu@{Qzge71v#qr}(gl(%lWmD%)@e1oIak69PF`
zzC*!PM^NqLtt%IQ?K;4lL~-?Ly+-${f+Y#+Sd_d9!V<Qh%o>~hb$`3Yj1iNa?QPS}
zqwsGqHFFLDkpD<zXg{R&yMl-f7cRZLtH*PF&jpBLcwuun5f-wbTDD3S|4WR1S22%>
z<OXo({3=}<k@F>gLFnpX6i(vba@P3u(}mn(=jyy3L$@e6%`ylE{&7>vezEfrw;kmz
zpL_<qONmAx@5{%5ofKg9_aBX=a#-oyB)N;1mAan7kD1T!(cTMrn{mv3Jydp<mc{0i
z<8K}CfLrB@{sZxLaZnn{D?7Mc;)-1M{?CL;+hJgMIjEc9%y#kDr6_|R7TmmNPY?)~
z2=#a86cLQHNC}c2%U^_ahdd|pf2+?>?M%os-SPW>$jTseB}Vez23?T(;>?5Qq!EVB
zTt2BM&HdmPcHNO*a7Q3%_&^jZX5_pi$U?0y8XhdG{YfOJOn^K@u_#ac?=lYeDEZr!
z(T23XgLtrA1wV#+L6Px(-BstwNzsOSDJ0QGHYQgH`%K>d3aq;-U1Z1?ukK$)cK~eO
z6kb~p6!QAJu)jYU(PNdxTX#j|=#TFwm@y_P<Yt1yYUhuBPRhx3UW_T;ZXPm!Ot;%B
zG-G~Ncs6ZyVbo$ZF-Pg^xnmE@vs>-GkBOcZJ%63)&Fe=syhYg_;hVd+BC6<L>u1-_
zS!gwt*%)T@?9NT}))uc98YHlD?Axd0|C~qcaloLnf%3mvfB|@h0D~>J-sUzrNr0@B
zpFDi|okaObU>~CTxIBv<K6E*H#fgq6Y+r4}5}heohgr_ZTduG`igR2wL|lnnzx|mT
zM60T$1xcW9dHDNiW!IcJK7f~Q@FMij^zWWO4~Gj9LyWy}ye85w7p!xIhw&3sa|yP+
z_>o1A$A_DQSwa~w6Yn!y3c7l=VhKN<cy9PmTv>7C5J~Z0c$FrOzFLlRLPKxXOcRC{
zU@)h9SftEu$bo-pOG?&WE{eS}U*B)4kZ>;%GH~lslG&YS#S{IqF?Ly&f5<-?FN8t_
z?5YuR?9d>)4`d<`(v?E_Syt8yK$SpH(B{Bh-ce`W)@KIp3WD%{C|?1I9LShOMJs_*
zhF9e9<*GrYC*lIrHlg3^07RGe%L}Od+T2|ir;hc;p(qDW<J&&VH!pndzk$U2ysT|U
z95poupnn3$O)b#ZSy}s`xEDf6c>CB6^e4SWBUJS{#G$~#KC%RPFWi7_tZ@W}11Pzz
ztu3fxMBW$&LMPSy=T986;qRZumk$k}>02w?3tBA6i+1>PyUDLXplJX>T?3Xm1j~U*
z-USB~!}0VNyo5&!Sop_}9hwB!k=~g8@Twf7Z_T&V$SMP9RtSBGT#X|pqpTW1zNMj{
zpc^p(X(X+~98%r~!0#%&Ny<i@@6aC9)n0^-w24`}&My1H+^8cpS%+_?t(BJ57Cb;q
zM)`2fl-?aE)yjn%0VD${Wp-++H1=0r-D2S^n`RfZFmQm{{k@FHL4%Cqzmfv98So09
z`P@Fprm@(rRbHzJjaTC#x#l48C@c|RD)*<l&Di`#_Y_+|t@Q1$CYy=VnqRuZZqg$;
zhR$>Sm#!|*<q4|~?Vc`8CLx?ja`La-d7xF-T?SUT`j9uYML}QZ=rcaTv#Hs=bmW0{
z0$SSINYV9)qgyL(sOMoE4Z~J)4tXxuFdvPp-h@>eI)2BW5q3rRdT0}ph=YpjlC~Fy
zp36qUT{6$I^*Pj(mAOFIBim4{m4V|Ss`9P@xwv^B?JZsG+0`R8oXmkI(l@dVs~=!6
z5f`GJUX6@BBAkZ%;$n11v>!ia!8E>G^^0PF-c-BV+$9appa`;kTn`#=?5C`()`Hpk
z*qhAE>ZOjGNZ%+xg+oI^Ku>1@;oE4n|Kb`I^+otwf4B7}gfdP-+IcCTM7I?WYj*MS
z2tSQTFpj7qdY`rCJhgLS;?z^hn8dIor&yk23>oTivFr>*>1*llM!fs!dJQQ~tZX{w
znioBm4t*hXKclPeyY6)>A->P&hsNK%5}-v>H4h~AckaoBJ6$X%r@Dl+c*B00?U`6!
zUKXV%^;|(FdA1Y8o?$n&*)S@a)*;zHPcA|J3$08_sz)JWfTqY0LT(S*&!$CM6i$1w
zq)%<p!^Yf$9%(Rq5ChoMXa7lj(=}^-i+}v>_f4sBu1NtjTk&&xQtd6KK8Z!G*!8#1
zHkhJ^?@{eetZ(=9%m^FS`M*2nem765#y%q9kMQT%4b*m1W%PY#(MtKymP0~;;^MaZ
z)Av6F;Gh5>zuBVUKVVNHsa#en^hi!&ihdcC-G6dvb8{2G>RBKt1!$qeTpv^%0P@{~
z^l)Q}u^V}PlFZ)D6m>j!pf$>F%w_Hfyi`P}Y~6IIotdcsPyD_8=yPW2_w)SB%v;pH
zHtGvLcI!KB#y63T;s@t@9dyv09UaFGyFsn<D_}b2&qhPjp~Pq#b%0v7qjsQ746YP>
z`0yKg=_aM8m%>Ts7wm)5k7vMurDy0y7<47KCON%O<OqN1Tq$zOQ7Bd+c``Pt`3Q8d
z-KnDUukLGNxFt?~@mn=r;1(Y`^T=I?mM*<<J^jmNFOM*tJ3$Zp6UVg8m7ZUV>-@LN
zNh)-fnC?h^5xIQMyOOo;MNz2PxDP{jt~uq~z8rlP%`PXQA=d?=@!YlO`)!<~fASwc
zWe+2|uPjEi5fl_uRaFI271_FI22kPQ_bv_eJq8=N2oKAI(cWqeD_zUU03kuDo;yf1
zVb`XcHUO^Y44wX<a-n1O160K=IxRYAhSBl9_!&MZEK;oX%)ynenc|mu<E<q}*XyU>
z+>>?nuhezl<i{zy(66-X8e5Q}`QK4QyOgMDFsp6bu59mmVn0sacg9b`(G79>dwbHp
z>9ew~ww8&)eY|0jIjr9M*RP*GdRQp-CaLF=l!l1_t^X{)hvfCc0&i1c$zb*|3LqFV
zes%x8JMLX*=o+$_$pS$sx(n_0d0vc(gS|(rJDKcMg<BRNqPAL<x#qG<NAjgo_-X7-
zGEL0UX#ShR94>)MTyyVDk*MehQ~b@VDi0rC!GPFi=9?q<6HM#;WgBf|KZw)+4UXLb
zu;(h$We~FeA#;164FODqHeNDaLr$|ZGf`cbk|PVPXBW=i*o_Y!O#A0Y&5uYt0QOuH
zR^WCc&wVWDHM%WZ&8)1Jq2|O<Xed=Jd#eob9H7Dkivrnb{%YrAe;f5ikV9%}?m`QF
z=xpc^O{-pHlZKOy5hzGJd#oJQw(dl#v6k;8Ci;{4x;N`ip;CL>Aw+<Om~j-8nzq*l
zGjVfr3P4}!#_$x~%x>h}meBDJDz#zPu7x5k6QJY)q#0X<$j?LbatsF~WwY0?*z4Bt
zGEc7>Xh%FuJnW5oLMau>iZr;Y_`L+pB)Q{anO$k8V&_f@?SAsA#Qvn=!elL(a)lxN
zY(xy?shkh{LuZ&F=oSe6>4SXI$B(+;JO0?g@9sdo#Jt_YItWGJ?R+4-wgju_q{*$>
zAl(M)O^dUJT-3ZT#_pdL9Q)=7%|l{eO;DjvdQ^PZS%O2AYwl6;yU(I%{#%>u?Czu$
ztj3|;(?FK~_;C+?i#UFkcc)qE_jA>@ZwU#Ed8ccYKgib<=<7*I)w#y}Y|OTD816|7
z2|tgv!oJcUym#{L@rCi@Y7!EjPbi~)vOR@zn#T6ztu1?5-7sp+E^lvdXtKfUsrd`|
zz7T~3V?M**cTXL56LEIl6Ir}F&JHIyiiY`uH@xpKU%?%Yb?}ozysYtZx=a{gz;_y+
zIWL3n1-DzoZ!-t%8ZS7p^pZ7o!)HP_W)o6+0043*kV>50lHnfUgard}<YISbd_lo0
z==lKU-RfU;+=4?75eqHmrnyb3cp>rE#Ku%dmuJ%?KK?2%)89HFU|)5@QCa6`Y3%VQ
zM+dW4>Aq9MlGTw0j^&@MirUO&YI7NyV-XwP_C#;&=^ZWIr*vBs#{bo>T(cn8;}pti
ze0Q7QtxM~C--W=j*R@sT%VwIkcw!*#_F)0nD-C&1qW68fqWV0OgMFmZ&)<k|T7c3d
z*DKzrvpQ3M)3#Ig)5`er$P%LrG@g528^?1*<t-5V5liIGYj0;Q4v;jKY)~0i8pPlO
z4H3qx<wq#(Sy`6;QZI&<@vn~<#$1Yg6;p&yO{%f3MC?CRm6s|f1s?BTf!Cj#b#DG?
zE1SZj0p*zx7ZNihP-&F(XFEkgd-Kc;jq|b2g?;$Mqy$Pk*%g!YG5J~QLnV)}*fyV@
zFs6i<5&V3KJVS0i$!u^Gg5iuFcp>p@)l(HFMkRtXXeNSiwm^=mrTH&YPA@e&(|RCZ
zSL?+O{X9Hiy9FAe%hg}RAAj9CIS(zWGD`-hqK-{;|G|gSs1>S1v?6Se8e~4qFnxP#
z50>1mrlU(OzA7K@X#!5cTt<DqbLV)NVEUaqUbsuYydl!2=IY1CE3W5ZXk(1?;+j)m
zm=vYFaow*r15GceRg+lZm*TQDjEz@ZIA3_9os=BdBTd!w;bk?<%$9_e(uOqPg|BlQ
z*TxE5_QEMCP=~veTw;4pxLk%@_9|T;9rhAVvD3h&W{qOHShEh&0Mw^LF!qI|xn8tg
zt~x_7M)wRIRl!6GDKTMU0%(yR|FPXd<aVbChit<_jQy(h$a)ds(YTO#D_{N|T7J68
z>!~MB?G~5)YEEt!VV8>V!K3L5E++W8sc4^rO{PCiKl<xcZetY*n5%-fP8z75hV?bR
zeQj+k3ntn3x*8l0UJeX^&Ije{2Kh-qrQ^lU&7lp}l30O({3V5lzX;b3!CD7IoAvF7
zsW`%0tky{rV=SU<(Rh50*9X?>bdSyOYFP1N$$Y<e>?<3yiB}7F{G6B*mcmR=?R%K=
ztHGf;xaedtml}R>@i1IW)s1iinz>K-Jaj)^8$Ugo7(Gqcemam<*HANupAgD!&vr<}
z;S#7Qv_g4|Bk)-Z${obEm!*D=#ypivYHD>@`N$IVNY(}q!0Rl*iO_d9;{4OS*il_1
z`m@t|^lw3}CsRIN8^N9gOT?k|*wnFBZ*31YpWxt>(sDy)hy`AIPs|0w@=54b&q)mJ
z_BiW>n?H-4)H3v=9>wo$*VD+|VV(Ww!6%rQokO2|8`L#u6ncrU1g`wZ<#*tY6?b2o
z7+*k#(5*Qy^ZzOS`cu~e4=Ly0w<>~$&~KG(uYFsQleG`~fmzHe%@BJ>SmI$uF&I3}
zu88^6G!p|g8lCdBru5H+%6e!Oj3Ryo>mM#Uv~KylQo%5}SV{dtxQo-*gKQPGjx7JV
zriDvxAsx(!@!hDIy5l{k(@fa-KFAVZ7vRq$ig8j8hZOX|y9bj_A$ZL28yJe36N6`m
z&I*(%uu5U;Z|TLWXq#?35{{fcqC8%I#a%{W_tf_wzf3Q#TKj4ZjtC{>p{b8zTi)A^
zE;qf&H!XN;6Fb_Pg6$#%^EFTlj<Wb`t~%*5dS}w+@6TXg?~HRYR(Klx@@*J%e%1Pf
z_Ku4~MM3m?t_q%g-G4WpkEkor@bSL245yy;h2xW2JN4Omx0|f+V!_K5a3?We-KpYl
zz1w??leGBlI7I@h_x))E93MO3EfFmCOLqaqPb61C1cR=uFa_*(?~IQt-&o(VLW~-u
zG7Pdp9fTR0LoSOeV$d3DX^TDAA=7CAqn7xuQR{>)Nl6SwE!J5fV}J>aT1#EJtZecN
zg5iin3^5P6@9{9<FN+yybl>Qm^oUrR$I}Fp7zz*vr7FA<O0`5agP$Ig+eJ}g@1}OE
z@!+@b!*9DPT0JuAAyd~Y!F9Wd=r7z$ar{Qu?`odl1LBNie7`^SH<j_l=z9G9xJ&_7
zi{L;mKSpNb1X#7Ct&>R4Y#S|S{XI;I+53arkz=~M;=b)JcSE@)38#AOP0KNERnf|W
z_2q_X<7_isL&mOq3&4wCm}QEd--ihXIg1vo7T>hP`q8kPN}l<+_Z4p+Olm(Px=*-!
z3^~bwZS>RHtr<UM6#Yr_kTyI|9v_a0M8K?k^04jeEMI1+<b-RQ=;$JOM<K#DzaWBd
zrnVE>crg5C@@E#7p4Z}^TZX0cPnMC5^@+@(8?{weWUM#bLGcsb7_G)zoBx;k@xMFk
z4(zPmk-o2u`&Fim^VklFDh3s=gaSO67Z405QDO4&y2}1z7i%zg;T9UtzZ^JCk#tP?
z5phrR?ft)A&qnPhwRE?rs#FYukrHiJH&}^g+fZ`5SH8A&L;n*raE*EZ7axR@J6eVq
z&KjW6pLMev{bTn;^GuNezo3K1(SC36eDze*+F5wLhnLe+8^<lG1JiO6##{0^$aDCY
ziPO3)8ZC3%Ks)q3UjtzWd;kn6PDK$ztC1<auMe;8NWU1S8U0>yoDhPX11tR8>=*8B
zsPLDLP8=?676OPMGDd>kVE+d5OylnL?N~}|^BFo)bl<FRqneK2rA5Ns0mws<b@ZQ4
z)=IrY0|EItT%)E@sJ{(<@9JEG`QTwrE4ZFNXPK6H7dxlJ&bOE{fqOw%rnlE%g%^xh
zt-<9U_{^3~@A|AKgbhHf2@f{VeD=}_<(tYa@XnDpqJf*<sUJxX?nc}|<I0ho?~q{|
zDPmKDT5G^A{d4c&G9O%SYFT%t(fDIX4tTYajmB7nsEu<seqK=UU@wPza;`3!<wzo%
zONhh10mD!E5<hYj27Y>8fFIs%u>Orh28@~tHlwt0ZJS_x$`fH1V6nw?7AFPvQ&mH8
z@5%9o&B2K<@?pfC|NNgD>_tpkwk0ekisSV5RJr`5!}g8+iy6Grf|ftdj|TC6oF&|f
z#BA)JHn~!l%l<@I@$-)BkA7sqw)G>`<S3E66HDdtPy6=DN@pA<pEZ{J{E~QaQj=b?
z;4xAY>>3Zo;C_(#wzf;l`XE09ZQ+L11~HRJkv0ltFXl@0mKL#Wzqa=b!0gSbWo8=`
z;FUbCdazRWeZYccELrT!BL*()rcbO*0wFBp0q@2B`dS+?%mx8iG0?Cx9{F?ttcYZs
z8+Q9}kAd{NVdxCq;stcew<%E-`oyR?{4PP+L!?Q3@)!F(mc7)DIdXK%>eN%K;9yxo
zaD#FJ`}iUj_E@ZX>LtEwnB3}%(YJ?aR0tLhg~V-RJRP0Xko4JX1mL>0v{z<K8@w_P
zCamei62xsXz8_{P2^LNVZ{gk%OqBSsL$oz&>brsRt7OTa)v$B&S}*rjJ1r~v@d&Ai
z7u;>pI&<btGDS+RGCK40sjGmmdPyBzo`K6}kc3b$2m29?&OGJ)@wCO)Q{D%c%izH^
z;up8+^GBLUy*+W@ItwQ3`DqCIAGHgf=7rZ@ZOpLOXJ#}7+Nv8jwIgc7K1P_AR##Lk
zyd{q=YEnh=mB32qdE*E!9=f>F(W{GIPk%{!;qJUp)csCk&(70)lkWtljFrVyp{(%S
zS(&yC)T4xVFD&c?XzQ~2Z!k*n4m~Zc*{v2H-+R9Gp?Wmayl-ATOM!8YCihu@+ZFN5
zKfg?J&9hIsSM=^^>GqK6Mqobr#t!fH?xV|w@W-Lm=aLTb)1w=6o&Eg+aV~fLtAn9G
z8s?9k0JZO#{?p^R^4C7SGch&2m><^6ZN5^v6b1fTm5h-gy|l6M!*{B(A-WSsv4Bd^
zlb+10t5t@+4}a|X*@=-P4p_@Z)kjiNr>`!3Y2my<a|Y3k2TSCc)+$5F22uiLDJgFR
z{fKR%AU;lHf0o%}x-cd-7I`%~hSU?Eo5jVIhlCy12;(o>xDTyoD5G42L!Y9f6b#ft
z6O50nAF|)y^IOlMh+c_#@A%PjT1mGr=)TL%jIP;!c9~%3_Z)q>o2c!0C%s5<`V&iE
zEDZ)*&u&*x*?lvQY+`>ZD@^lEFsZ+7ub?2`s%DA*EyrPjfB}5eYS&N@&GUzTbcAI*
z`)U;eGK_(s4?^16y%CpLl1UrgUgFUm?>9rA5F1Ye>zx&BzTH(i=V0q@b<?@3CsS?m
z;D{YUE(Sb3rlmDMkX2hiA-p`-EsfVz1&qQj%e~c59${Ea=X4oTrn&ypBezS32?XkK
z8rZ^&zc`PiggWdM$RLMPh0RM&cz|HYh>yd7?kIAg9TU`tvXPwWWA;rsS;5MK%gA^y
zDb}B0+t1d@Rso>b_dmi5lsgbf`iGuk-R1r(yqKt$^Gi9fgYI5%nUCD~G@HXcLU?hp
zWJY~?!;*0LbiSg8-Fy-vBJXv`8Ii1FbcqfJretJ``4Z9^6dS}g;Zmk1#B2^4rY7g{
zFj83!pG7|5a6Sh=T_fKcScn|X98v6C@eY{q)X}$uyam+-$4mMXT|b?pNhX4nu(5j8
zmklyA9~>_WFj`a(GI}m*>=}~Z#sZMy3zyGO5HdDY7>up{<Kh6BMy6urC`LDg#JgTw
ze{!7Q+K{-`jd-MIwW<79;=BI<6%LNJ7&7!9Mdqf%n;~#sbp6tCT29d$yMzb7{0N5T
zGrT!W=SC4jNY^Fx8V~nXbRk0N^0I()NMLJDT)g!U64<gZQK>X$TbD*6hFHiW0F__=
z-&y&WDh8|nvhc^@nJl(6?1i5eT7Lih@m&#~Dy)${YFEyXJHKDYQtCS!?cn)Hj=Ql4
zhYzxcp%~8fq8b0vUz0`Qy@mgoD<Sc$+g-!|&XruI`@1O&3kg=g9>R{}VaCUy0MYD!
zTm72DN9}Z$AQ@kh&M|Dl2NrC_td^~u1P2>%37pa8hn{xND>-(92jGP&78>?Sx_><n
zX2=v~=q}p#buxu%&NlY{N|#*CAnrJ>^*CiUabJ#Ko(1AoywQiS7B5H2B0fZmgtbaB
z&I)HPokRE0;Tj+RS73qafn7^{nGjeQL%PII=>u_x9}OX>L1mG`-PhEe@L?;wL6=$M
zTzFnH>%|Fz-OVD0%jdQ}9Qi&|$qdQRbyfxK{m|(@g@j@f)`S90RDe4~79W~gi<DI9
z;o`ec!j^QMt2!Y7d|j!(d)+?kpM0F^=cj?2U6T}HgiYs~3RBuzo9*yG=js1fTu}hT
z>nC6Ep>C5g$_dvo6G^vP3Qn6JSYg!I2{^2@gJ<)O#<(aSBurKrIVA^iZ2;tf5Z7{-
zU9=m2m1&Na@QXF7FR1F=e1TXdaVC!A&Dw+OgJ+8Of`SLhn51v9g<maPAUyO7l0&pp
z6hm*V_qeqnPnQ$u$=^8DlFxS)?sQ#&MD0tKIi&EbCCl6pxZ<sv=yh8>auSdNKPw5D
z`j%Ab`k>81CA`^)YgxdS1qn_A`rzV_n)2}Hj=^<qUI2rdyrS>a;mI)6n80Cy=d7Wh
zM{f1eZM?KE{?7n|kU<T=8(JX+g@#?j*Ub6={wi%)oFOu)%))jx{JrIAocKz}aVUHA
zDiYSR6?0m)ezBlHNIe~KIG+RZwfX=F3KZ>aW{4(ySsaL899W*#l<{sX72sVx&z+2j
z;n)G1akDt8rM6tKGU%z$Qa8!Sq(q{NkBQ#$v8j^0Ot>U8*0bdwqkiqF-!;0_7jP52
z8y<D`<@oL-SLS?-x@xH5<l1*;AlXnTEIh7?y54SPUppPuYf0pP#a*f{KXR!%*ZFxF
z-`D;3BuY*9K{EwYV{z0@<YyMJw_vv$iu8(1EM_{W--sST_L<0pc=uXs)x@~WjmN(4
zpQyz<m0I0*b75iO9h|f-;?y~DrCe`H!9byJ+tYB;1|US{*3PgyN?9*PT#<tP0JSp=
z!QMjYn-1+p+F2FsHk4ICRSDa559)6)KhNaS5r^C1-Gi_9YAqHY&`t3RDP*c9K1j<N
zB@LEcam<n$%3C*T3P|OvWxjrKm;=^;<6dhng|kL>fnZ4=W~MFjVcni=gWGSdrm(;F
zEJBEguOGD|CTFJZu(epX*l*4@Ong5vN!!M0HI_6sMn)Da`>o;$T0&a*YW|$u*6;h8
zvDGwps`8hDzJH+tduT1konyAZzBU*$cqzere`wdEQ<joHU-Z!Z^M`18Wlb&qLf&lH
zCA=!P2D)m;nl-!n(P}0ZCI%+i-21O$9j;OOux-7yt%xj@S<G!p&#O50=aHO$)5bqj
zTf-&D22v4h>+ZL5U-#|yQ+51jh?{2>bsqq|0*Ms<v7Sx2rp9^u`BGU5>%1f1$Nr24
zjWR_9r<g51+;8iqmD`!K8Z~Taji6R!H6Z#YDj&q7`j;wlF9t)KmiW*PeYLkwb8g-;
z+iojLpvtcN8g=oKy1Gq$?nQnX&AG-kRmg#fAywsw=#<Z(>%aLY|I(Sr@pyBWxWvxf
zG&;Vx#qNcHHRrC`Z++hbc%AQofvn98aiYAZ@{5^S;)_aO9mBs`02?@o?bgJDvfX=}
znvwgze&2fhF|<eDrvA6hwpUtc2u<qgp{jy%Huh^LmTKg|e(kBmbeXQ_+{_e=`FTCD
zvT4(6es`xsl2vL*d$cFF0|39|w4AnO)i<KGza(nO65fx;i(ZH6q7;u!Fsif2O@03~
zM@>2MX{EU_S3{C{HET+3mR=}%&isWopT1TTHFO;ZYszLedXcfM{xuIxD`#24Db9JF
zR!$)o8eNt6;-9B<*q3DPGq$eJ5vQvr^VN4{i7IkTL+n$!7(DgQMYA$(2C}W{#@eyG
zl=m&uR8hgTkz|bF6%Wo>fV%ne<Ih}u#iMby*~YY2r_Y=!Q@AU$%%U{bazt`7gt>Lq
zRpF2fOS_VM+peTgNs94ZP19#f(<CzE#u4k;f&SXGsYQ#=CkuQph1jh;au<{hJ{rJy
z)J~t~DfWI!?DWfz8*3k|c8B-MZ%fU~$H3lF!u%<?6CGTuA}cAIt~&@^%l+!a>E0Q3
zkDY7T4Ua{oOw@y)<n#0u6KT4yC)!#I#$7K9TBF%B?p~XMwTPHdN$!r{ZWA0|f(i3)
z=jOV!E56}!ljRS46Poh;QM*qe=Ce85E4@y-ScaQseqY%AFAjE1E?M-@w}_u55pWRR
z>o=XDHI){9vGeoi$wv_D2z9}0YBgH#*x6FA*t{*`r=1v>K5t5rK-J_rd;>Fot4J?u
zfpcm%<Do^<q*Z=85vNkzw7OWru!5$GetpfXaQdyn?W7E5;{C_hk1&;AzEXbG{98oH
z_b?SxYY%=l&T5}KY=!;I%nQ5AQ*?_nGPnEa#KB?6@?GIg&+-Vah58-0=6SPaS@%I+
z;l6&g%=UN(E2o{!{+;457XSTew+hq8eZBV`3%ZsUpE7WVT$tR5B;o*7&X;EDiz|Zs
zIiUtEf)ihVPjpL~4^@94m-<}S&+N1q(>(G3bGpnT<Q?sN&pWiz>Z-a^G?aLoCUpr5
zmk*}FPNkaE{JGkF2sM>5*u*8=ThP$Q$`W|UeQ<uWpe@d}DZAnHVYk1}c{=;&$f$5V
z6TGR+!`fUnFXL;N3iBE`9xy9Ci3sO?imG{X)NaMsOKdkoXmNMS-H$>g&;4#@YWj4E
zQ^>G)Q;z2PorjXrk4()UlB{k8R`do|s6UD~N$QHA-d2Ch`!Nc_CrSn4J_~V1k~$$$
ze>yK}!Fm|Zv65&8i?Xw56~joP!)`mp&FHHphE)#&t$zu`oD_Y7A@#0QS6A<6Bcgn9
zVrl9K?6<nTPnU$+U%le&UG`FM7;FxzR{W%7Y8<Mk`F8BKjmM)dYlBdd*@0k?;g^13
z?<;PLTbGY9KZ82rf$|qx+F$I2A&0H(ZWn4=I5;U=dMYWHkcX)=e72GJ0%>vBeu2k|
z1$mh2)w)M4uxNv`O=ebxmG*7*gFO>RoGh$RBHHNTmdDKKb+exKfvbWfAufIiYR5#C
zCE%MnX?y3N-|c$qnfwKSSmEAa%1Le3x%=?S%XC3uy7_+w)%f~~>lbZDzQst}@b?w>
zowoP5BQv?rh#EV3SioMYPdmO|-`0P{B=)jpZ+KPevcs!k`?(R8pSdM{xi;!B;7o5e
z?rP<=38*dVfz_I437sljT&{i<78=U@S-Q>4$msd3(;<`w*7d<N<G`5o24`uofF;87
zQE3i7;EiR&7aUx&ZQ_&}NNt>XEO+vMextH+&KG`)LLC=Bo81sy)R23Fq(MgPn@~*s
ze9y!o8FI@6B~&@;a(R57nakx>>(i$iMypq?Z)EFgeEZl0T<{h>EFSW3^;|?K{hRO{
zbu>cv-UXevY2j=D4k9x11WG(lsDW#7?VrILp-&A&)@WhqkloQDpFK0qP%XDI*FX5^
zs%CH#ot+Vpd(~WB@F*j(nI$Sf$&a_M*r|EjXp-yM*ZTaByWh8svK#o%*b`Yhy?pq=
zoU+iEqmKsVdj8yS3sGi9eW&R<?R@fL?e#>;Nyo}O>ulvBxk_UGcZPmck?&t9xJ(Ql
z5fSrLSB^IpD<rmGcg}qU&PAqee*MZwm6_GQMCRz9jq;M400vSXqIJ?CCx1ZEf6mUL
zKv{defasm1bmSAq&3i4Y-4vx`3f8FRV884Jf1A6Dv<8vYq7gE;r3@o&`6{Wi8xEmr
z6p&N%s(&drW0!7GIB&Yh*5rmv?!qk(5;<j=oL`W9QM>lPyPe%IzU)3INI0OUt)s_C
zP~`!lt`CN$?MGf;_asZm*CcZFv8lJhPjooU$<JAm8Fi7i;?R&EX3LH;%g<qJqMC&P
zN)s{MjWUm^oy4Cmf4;u{`0aP3fx!A^bg^LIg<a62eKrIfQ!7$vT@dflGZCZuk@o_>
z86~oS_#va7YpWYXa)%o*(l74C_C+D9g&KftNu+GWCHGazQwA&3-2c<smxoiiy?;xc
z=5jQk3GIp~L((8)G9@ZgGHjZNjF~cXnvjqZCmAZU*h<)J!=~YAk|}oDrVJT&l1$sU
zf1k%W=lebH_kFM5?|R?sef~HHv7hHz>t1W!>t3Hh4nJGSJx{Rw*SpV)s^nLApJ&()
z|8)LzHdZ|H6!EVr(fEtkN}Cpyx}u%a4h}}0zYh_Af$O{>Y6~a9X68B-_-lLQfp>fk
zi*GjV*;-}&PP}oHo9tQ~ofY%he)y{XuE^_ZG8ba!o@=f>5*>D*;TRax3nW~GBS*yD
z&y)w~>Q#hoQ=gZz)2uOHy){h3Y-h0!gZ?{z9N+Shp8U@{S@XB>J<W==7*wM>Np~Kt
zD-g<Xnl|w33_sayqTfC4mz3wJcd_<3yXny#3L<NTw~$Xkk?kM5g*}gC_Us+p-%Ebb
zcjyWDi^#0dnN=OvQ-!`MfAVj3dS0+kGptJQ?BPT899Q!`#YHTSSDl-fiGoWN_Fw2)
zK+nmMGQ6WT{Y|AM^K10W^BGQ88N>0px1FNb^vzdxY&v7g@Glu0(8}w4&U1E%X~#pc
zb@ZEN>&<>!Ctr21=_^OOR?zRk`TIm(y)GD&muG4Iz*y}36PI}WY+jZ<r54z|_Ypl~
zo;!8N=xn9VO12M2)$Hb{W<{S3x2-F$E$Vo~DdyBznlWc(t)rX*7pXX9E7pjWQho3-
zA7+BS?+{XY@Qc=<^;}5Fc{mR1eVOi<_T>fsFXYu3NBU;sm4R9usW`^7@%!FV`S9p9
z8*YEi&R=A)F~C=9H}y1gpRazsSZQeRcHT&1v(K|_FEsrXO0q5;i@t$oaW^=^vx1MY
z&p#*YTvj!6Ac=hbzFqXD)fu)IK7=)W)hvE6US73#+%C=!HzMX2MnPqV(0V_i={)tQ
z68>GSVQS~EUM@8`YkR1^%=1yuLVC_)&Uo%^=eA>F3~Q4QSEmadG$oiBlsD5OF_*`N
z`nRp9QdExE=29=3ZzZT`ZN~e~F+Z!&f%^N2m$@>VJ$>%Jt<O_H*0Z)T|AD?g(jBB&
zmt*-FW$F4}v2W|~-P+#7uLG*&aXVA3j3<<dsJEiK=UV?dS48XQb)iDVdd7)iW&S>G
zzuj1QsF9|{2>v}yEGISF!GSd)cDBH8pmGZ9)?QZql6hf?*M5vGj(;-n`uw7Ps&cHx
z;0BG)i3Vy*-CJ@Dj~krU9kw$qOT8xB?OK<A`#~zd&D)Ts3EJ1yc(_}sQw?c5T>N1-
z!zCO<tTu0Ev&-ZK+cq8R6Ak>nae&L6x?s=Rnmle@SCL!%y|KsQPCMh<x>M50wjK&6
zl37YAsx-bvH~Q^km2dV)WchiYEMyK6Z=&**gn3-UD>s$Oj#_FP8*HQfJTYvTn)q9@
zTnN596SSwrOE$~y!<&Km+736?S5E)d-q@+_v|Z9(XyIVd#r+!_WwSw>3vePBv*ov<
z_e3tI$ZzXa{*WZ}-P^IKb>fivL|?_JtaqC`$URif^r;qBWvn`<J)QS__cefJ#CliN
zPT9JC+#k?WsVG~c=D1x_VRrkRn#0@)wx&~`c8iC3U&NS@_UV>g7S-RTryX-<JWAZc
zD=eiX`sK<aet1*F#03hMc_*$~Zf<dlo>??%v%+z^7~n*BCV_KtHtYSIU2TVqLzfl%
zr3ZCVOSNYh>Aa<Mm#J%CrcEZiIJCCzyzj~zcG<Vr6?azDZmCvyD>q!t)6=rs<x^nU
z94o{PldsVB$VD1q?16ONyZ)9_suB9eYp%A%?f=fdCFmDgSHC`)b5?z#Xw!TzDU0sf
zU0dii35oIwDViCHVFDgTr}uYLYmQ9B7PvJ3?xV5tKD$ZYh$Omjn&;;Fr^#pXB8b%i
zPwS@hP%}|tyQKMXbM|4<Q>la>Vn%C!^q^;alk(U%o;$mr9WIWv3AKvx8j-qwdHBZC
zpOgOTL#kv;Imh<~x)R6s$~uPsL5eo|J{or?aXh=OLu?+0t0c|QGm4gy$BwS+(5SbU
z$v#7t>Ychv7|U}BlXHd3H(Y<}In)94=)QgXj8B|63Jh0k3GAQKF1F}6Mn4rVX<h2n
z(^($mrO+m^<M6v-mNwbU(Ah!nplL$3@(s7r?LM<}Y$=z!xy5m76_P$SG_?4QgTOP$
zN31kGs^-w_oT-iQU$au^tf0FTqpHig((OMXNcp4bqV9*P3vZe$L!;sN_N^p%h&?^|
ze!wNyXbx!<sr7O|HP`6$>4yx~+DM>{P=S{e-O)$0fJ;(y^TvqE7RolWyZ_F80P$P9
zcmafT<|^A>3JLHW=f!M>&!v2P5G5`l;ohAxk6|?#)eh~)0H`TJBYxtA(Cm+wtB*}X
z{aFZ@GC~y+V8&ECv;{#);0oN5G=G{fi3JooF);vk>p-c7XnA=}z>YYDH3|J*Aaa{I
z?z@Yy0mn5UbD*3KWEx2Z-iqPR-Uh)`(8$P&IR^Ub6x~r|9}%fs4+xwas4q8O1KTPu
zaVdI##F*>f_f#ncbT2<YpVXlvGx*vB0+aRs{QOB77bty`>PEA^0oX~Z8!n0hrdnhl
zs~1FOsgfV6jBaD|i`S}qSTqIlXDPchmbbLP#zG(uX_Or)IMVn!<V#EWIpG@{U8^i_
zEt3+(V5JD9W|a>9!aeV(Mg01n-GCmNxK(}BNs3y<i&GHEwD(1EYSIE-p>eTeVVmWH
z0(amoMOQ81?W5T`OKxu%Zb<f?dxUg&!qPcY^kPZK(H(`c8>8E{XVkltOqmQ<S{Fw*
zbR3?V@kbd>JXgT7E6=&0L2I35*Q|l|9Ke+{o><vw%em%vYp8SC_1v3+?_B;!PpY*^
z>;53%Ud=c%*iF0FjJ+JX#bcc!w<V~Cpx?uj$F}HMGDyiBmbJ^XaCqZ=2b7%hPPhKs
zq=M~7B{}g(tr3Opd5Vh{aBF8!l$##J0AK2w4!|CCN{EQVgOVbHD?1(eZ)abwc(8k@
zI6FJ6BJrb5EZ@>=Y|?m;YhJvSiK38JupqR<>21~ga#kPsP1J6`Nj@#$c=wAhf8gfr
zN%MX6^df^lG8mUkTWe~BNl*m>c=XPFcSBQCZ|FN;BKs4=pvA2~XqR1VYACbU9&NKn
zw{yPEy;R$yfjvRVvx~2(e*bQ7RXnzZdiLq>Rwj-ycka58d9JArdBzFd){l;fNsG#L
zxIgF;z@G7cA&o;8oE;H}(4OOB>VcKF?$#Rg!q8Uj9Eeo$(S)v&8sMpnf5y*&^2CdO
ztRv+DxEg-e5x`cMH4RPp!lR&{^N;r3)DEB3171J7u3x_nL&+LhU1BuRr@N(Ahr9&;
zRz4xX9rSGgI|-V)B{9s2p5e+fSm!@o4Sl`A!p`v2RCwDN>gf^MApoUYSolLt%|pR#
z3KZ3jAvVy!AgDK&QSQH~3hx7Ebp9m&h<EASah1Ryfe8{))N3zJ>(+z(*(|x$41BO2
z=i=ySzVP3U{e?$li(BEhKd7_&SuDAQN_%J&=mlbCb6xKHFFayT)&GV^{2=xpctjme
z-?4yxj}?jlQT8PGIBs1f2Ob>W0`Nwu!uHEhwk@p>*^&A9v2J}FB<4ay6FxC8=$m$}
z7zwFzC-W@eCf(K%X=>BH*EVRZ9jRc@=s)_?Q{lUg>A|I!D^AUs857~f{ac{xs$v`2
zxBdYaWObJ<yz=zqO(~bRst<n^eaaFAR&scvP*&$HP9Z&3>ejp2p<lbFb9t5@yr;w+
zk+6$9aV?OEq8jb>mwDO#XZ{UTjF|gY(AgN^dm>}y;@XG}0deKdsWW2C5cnD52g1v6
zC{KJroIDW!|Nr$Xft3T?HBzyuCeeGGtDQ_v7#Q4fJtVfrSt@GSp80jYjtSuBTUU|J
z#EJ-=eQVF;<5en;!aOIJC}`O;`#@;Sz}59x&624wo+rxoOb@@FTgpP$WxA(#{6ZTA
z*E3*>*~S+MZ4&}9>lkxob3eS){9yvF-j(3<{T}##%<faclVcEh!EcAY9<Ekaw*Mqe
zeOK|Td!xyD;AjELM&EuIFqKyGgJ}Q0X6Gxxgr~RiR8#d_o#A&v;t#13ABx_@7q{jV
z=kUe3d4zZ)E)#;$h3g-`Qh0NtcU^Nc;XlB;4oWMq>uZr*bjT2(UR~X=V8at9qNAf}
z<dxUcv5d&Yv?uI!h()2Pc;j+Cf{gFLR3iMEY#kYwH)m#NJAg1l(nsOL#H7zduAD%A
z5cd;aCVh=i|N3uxk!b&0May46BVY*24Pd!DcI<#}E}^MUX0%Y26%htx{}bJZJo6Xb
z=ks8lapdK^OVX2@CojM+>O;zk@UQe)7F|T=cVT;;UDD7t8YL*&JWA|#&@O38v8}p7
zimSEwxfN(oTe}2?4=AE$YH$UEQ2@aOf*Jy+S5tXu&<jW7pl@UFIB$j9YO3vx*HGWb
z5QZ!94+s?PJo)4lsJH`FD>v@1xqm(>hqR|};MB;W<qINu>StsNf&><WS##sGK#Nk;
zpSRqCTV4X$9QX5q12EJueN0SD92^D|$D4;ilUJVXO(Gt(g|gBlD<h*1UiZ?v!(amy
zfr)fPTU)2z94POz5sFyob2ALm5+LGu^vL<3(ZA_HqC-<N1Ju69TDsoy0yDpgd3Hr=
z(#W$Am7N|*Q&xlxA1sMkJ5T!rkK9lrL94-CvZpnB#Bs9sp33@*%N1w<3lzXbqpPQ<
z&8sKg%F2qQkLi#>zSKu617`rx`(m<i?kB=MHKG#yE5Nr4Zr@(TTkGxz=_g|guM`I+
z#D*N5`o290pJNQ^zqLJNss6U^Q$=r(mM)`=fAIo0asZwSNf3QFelU-E&L`N-3o8#X
z6%!zG=%{Pj-TAY{P_3a2HJUkvyaq4izz4haO1_>jM|WU?*>WjI_FO51gMwefdY#$#
zn)>X+fyXm?ydjmHs3L$>@SDnmpnrEuvYxy9C<riR6ID(JlrJu29!hS2DF<*2;84M0
zXeviJKKW9;X7z%)P_78aZ_PypYN^K(Td{1v^jf2(D|2t>jvX5mz1`BfEpm+2;^ud%
zcfqH+z~PdQX?%F^-)-La6OzixXlYm?a(>3po6BwuY_99w(8m6wqk7{2d-%`R_9j|e
zZ;pQ?oAxLFNb=)V^Px^5P9d{<!(RJeBj3K&?xF0q%u7$Vfs_*f|CTES6;6Wi1mgk-
zszR`}%uixcT>nn%N)2T-ngTSKqpeyzJHs~d=PJGwJ~EgZk+3A0f1Y5Ajh)@<NDBSk
z*PfnGt*xsrJ{0N7Ly$v2*j$Z5>lZ&C^6Ui-Ha*C<eH0QP?heTj$af89Q(I|$srTUl
zzcg)~-`b4BPK%O+ND_p2DJVRyALPzA7hc>H^Xz}U8}2|_wS1wx1QG(GK5Cx6L=MP$
zgq1yH!J@7FMju-$_9fqm>;ACP4)}ZA<p7iqBP#2myb3*$^Pv6k1h8LV_3Aa>aIfsf
z$7Jf2TAoNg@YD-aZ4r#*v~G;-*LB5xN$0uyuoK$%{EIV~fwJod@|q{^M(yw*k^g7L
zPjd19iScu-?1o_qalhIC#8}(Yvz72SXc=9z`5$+Db@*G&ik|n>?Ck9LX!#>ILPN>v
zONvs8iYAQdlMMu^iAJMI`Sl&4&kQ)pr(WWPA9piy=wd;c9$6-wB3)zteyiF57%G$m
z$6admA`6}I2|gJ8SKw>3*M<?BgA7<@=aoEscu)<@1>8oi3kkF`yMiZtqny5;-cZY+
z|M*o9V`gX=oczQdgjsM`f5a%+_`;@}{=xq6Zm9t+3>iXkLPqf-yoJhN?e=OhBJe*5
zGJRbKR1(!lks!y2YT^!@>0!by!?E6H>neg_0v}C#=J%1~WO974p`qb^<D8Tn(l54y
znD$2MK_Rndj)4Osn>`%9j(KQ#*<Z1a5<%F%_%cK9N&igeT!>L@Z0VPunraR5AShsu
zT?fV~$VM<+K^++Z$;92;1~LUC8Lyw`dL;eUifQ>E4j(1L)k2q7ZutG~Vx^a3zh03l
zy|3gga?4_YryHTh3RxOQ8yin7p}O^JB2VrdduKT-6RGt+PHwl9RP_LN<SW>RTJb`l
zIoy2>=}{DIr0$4%7p7ci|A+i=sg2%g@)LSOAgPQ!ldb>P8q<jc&}aO6gS#Jy9b_RZ
zpWup^zq+i!U4u`U1kX!)XSh7FL2Ma8T!L40#}LHfCcyl8H=!CSQ!fhx1Xl8hBV2TT
zJ`56cF;$vncUCJ5-weL`;>#&%Pxg<~%mUDJ9H=cGpKa6fb5t$Wm)5ls6KE4e9%swv
z^T6J!k3pYxr>^)UcqWiA(L?Yd(;$eCX+eK>ux&C2lfHZL!gG(D_xpY?>Vcy%Vg!=&
z^uj{+<z<qENI}3KY>`}HLa0@PlWNYh;`x^!Fy59V#iqu4_h+mY(Xp|$MGQu0B!Tb9
z>ENfcuLw;)s2_4chzSo6Ar_TwUgUx$o1m>`q$PZIn2)7T7)D&dug<_Y&5I#;`>*8>
zxN{;qc+I`>&+P9X`3W$R#P#2$F#ngoBCHN#T3()^n9=d$rvx;r!(dl?C?!h2A8#%Y
z_tX4zZ0hjd!Qw$Bs@-Ar{Tokcx42d-I`RX?Ks$(ZCiyjMl#s$wLzZI!ce8{I%80ZN
zVT5&=+i7BcL^4o3SSDX16;;X(##?C+we5Zg_w_b|J@~ySWp%rvV6~Akc~6az;z-RQ
zOZIbqNm}ot-~1nbd!@O6OJy(0&s_TZK;ruO(}fqq%Sd*;qUke&m)u;ar-l@xBsVv=
z;xTeL;UFR#&Zw6ifONy!ND%+{Ej+*2R4sI!ManmaHRhV^rm-lljw8~ctxJAb<PiG&
zR}34=kwKtyuW)E{0J={Fifk!xHDrLc;;NBCHR1RD7as*@S(F}F72@V_+}Id=<S9DI
zrQ#R<D9D5Oro%K6LvRK?f6~-+{mP(Ya@|o*ek?N~zmeKn3ziUvT`56r);BR(w|pU-
zz4n5O);2pv1w*W~f?75zk@7KMwkO~~4lC~0*?sg0-Ad6WFj2?L#!E9ZGeJ#u-fwPX
zG+H|7=Y&QjTYg}Til<n3_if`f0qGX%Ss-am*<W5WGCOnN{1r>k^X%+c_?#-ZKVbe=
z5tg=k8$~cW5rHjA91wRw&OUBoA-H^@sBY{CN+(b9^GA~+lw6d8K;Iqvxy7XfaxgJS
zsX;=!Qqd02ZO~y;Q5#B|ZiQOS`cGV3Bh@IJbWb1i>d#1{fuo%iaUf!LC?eon;WX@7
zrr;h_JbPAOduF;vd2mvJ&VD83Mjrf3sKfb;eY^O1nn|BAV=M%lTV?7_mU&TbeZ=CG
zISl60doMbNf?tP1WQEx_TTt3fe3+op4Uj@*r$%!ETKXO;m9|Zz#%)qyv0obO_@z${
zs~t47Z$dlJC>`TdFht5e`ncI=ur#)D;?l&OqX#l(YOaHZzHxYqi^VwXhv(?L1FTsH
z&#}G?;DnHX8gh*=unXy3P+~_ZN@XR*kUj1Nvwh33X&$=<_eOC^NsmS_)G9FF<{`D@
zup>CzckXoKn?<kpvbPd83Gv;qVn&80pMYsWQ_!ocBUH+R?<ll;BDM1N5skBxgnThx
z+-t1qeEgVF;$XCyqt~~mm9y+h<yMz>5=x2HCbRE%SG(B{E?^Vu3yl&J6T?9h=1?dU
zMA?_5{icC~tSR@)BXI9gPtMHjCnBd26lO?yA?2*IRmQ*wAAogL-%cULNsiOt(X(eK
zTe-rOvkza=UoBM=kZ~$6^YZ7+RY!Q0Yg5(Fw3(J1S5*yGj1~#gO4ol_BD{9VqsCfc
z)yvy0PKt<s&P)m3rk~oEr+a?dGOn<Qey^`L@9aIxvP5HQPh8Qs(zxz$v+D;}4i!}h
zq;s&68i7o>nyRYm$dZyC&14F4T`As>hzMn<J!6_|vTqzyg4;3k5SxpuJ%;q#A})40
z3^LWX?%bJGP;jEnG2hgP`(A8prV~uti-HA~Uk4wzpNT{onkrjJ4<A1KTtcg|HgIJ?
zrVGsbx(G|EW4!iGNX2CCp;aBd9~%qn1f$~mkx|I&f6Vg*qZ>cV^SE0Mdr6E}tUA#O
zL0?yS=5)-=Zi(cJgw|ES)R->kj+jAeIt3|ZLx=NzLy90jzcHDd9hPUB4Q6ot*J`tb
z^3c~%g3UVdn91sw!aVISI)>@VSLJRl{0xfS`fiuC*zaX981Lw;YP#>lPvpL&+%vD1
zI%u1OgoJ=#{wweODmV<JuV1!wDM}FPTa}gRFvFW1f{K#CZYHSc<Gw*i%P~+_M<N^C
zx@}uuF>G?-swYf>@|NPoj;r-Nn^tOCSS0K<YF*m;$75Rtr3K{;cr4^NnL|_VKze%m
z@kP+oEI7H7lnZ(D^z`ix=l-+^RZ$6~?%OCJ0N2)>ZNqO-yZLy~$|{8_ieaR5kei3=
z$8YO)Tc@klX7H7YPw;Kr7#AI#x+k{E+Q`chTMkOvdU=nm%o|X}b7*iG?KdL&6}}%A
z*V{`AV25|>{{6>^7d(!{OUTH`?AY-x{}NoV#4Q^nGY=m<8Xgfb?(0%r5@x*n%*$YG
zG7jv4nL2rsFGnxR;%-xDczA-W?d|$@?E8w9@)E&{O}2ae`SG2>H7^!%wexHy0!0Pl
zXvi(p;XTY~Y|I3`TjN>NP7*S(V;G`&6_6Aoty;UbyCD63aC(+emAGAJgSekD;u4yb
z12EN4XnPo&6CM_}V#Nyg0k8^>o8+-Zaz6*R@}VVn-P565A@69&sDVhPd9hmZS|=e>
zPcoFf?+;ZAaJ6qhWo;EY5Z1ox4KB#GAQte3&ZvGDadjA5fq7NO8@^&bCXrAsKwz$l
z?CtF>XilKn=;-LU&Nqy)<8J$dbt7h|-yIy_?jEP_11hcqf_aMPaEBeYh(J1v@<C?*
z{el}7*@-+WR^W3QA`FGLa>RmO)Ixab)2DRt7r!i8M4b^)v|ntzFUR8>%hssbtm?7n
zsDwmwnd7r2h2<wMdc7LxnZ(JCkS5WiVJQB=|K^~Yq-B|XzUiiwl~|tD&($R#KH6Oa
zU5L#j7%C}C<X?~$fR!VB&mrw1Sk~|{t=6K<x2ZWWGgF*bZ&{z;yT_hp7yZ}9W)AoC
zV`Jn{<b}r`7bd#pW~REOrDXs%`iN!X_|v?xIy89F`7^Z6V|N5uQ<(!E#V@`b56F~g
zqL{tB8y6S1`Ox+BoGPCOxy`w`G7LEnUZ{sdx+%uGAb=W49r8X>>IPp%SD#s|?v3$$
zTwK!*T3Fqc?j$5ov|q+6c<G~smMwGD&0f8FwR#tFwhK2}-@t(n)MFcI0TfEIOg|d8
zeQ%=&z_vN9Vr5X$lP5nQd~y2p>4ZVu_+-?#5lNI%#Em|46pQlM@cz;+hmzLy3Z74b
zOZ;bO$;mG>FzfU~oiJNo0^;$^xjqshkyITnNrB$%-XBHq)0_6>A3btpgUq?$;B(g2
zID#=~Yxwl(_j~uC*$B^iBs=Nr;R3U1-8wN6<lc~5G9s$qywN+tYUuY<EN-E2ToDf!
zM0`;&!eK`JrIu13LU)pMM&{nv>cqCp8pWZ#7ETf;pQ!ky`lC`iIWy+&?oL!DyjOY)
z($LeE>3e(t5VQG!jRlsQrka``V*_Rvss0vf+}zx#mSGCPd?W)$G34?h&`#9U#KIy3
zqjc!Gl5(-H#Wp{4NF(VY%FU<*dn3Pwh8u)f@LwEKT)a4hKLjsK&LnXrGrkMNeJCo3
z+<9Xo>(N*D>XdZX*RR&+&iPJ`*nUjcgNT;C>rd2!QF?VI1Pf3oc;;SQqd1KBP}k7l
zTeIeUf+F+G)8#@+5T$z@z?ntgLqi1NSc{YqyEyf&+qY{?g)lX{LQl@)D$g0Izl<}z
zJac?ntOS2#aBwiTk6$$`iajL6#ovw!8Js%RP8eQP4l=3L4x1-oG-+sL)TenM+pz7~
z`H04RB#cxsTCL4atmCvt>x-aQ8y%E$H?l3?&e*KO$clrKL9h3cyFWs;aBNjJgW@0M
zmtp8S6P5aK7K;@y8T`?`<@)rGFNgN9QHqxc5Jt-fokXSaN6Lc-4^V5$?1a{L{<hX^
ztTGUFM`ws^-uw_64VWDW)#=N>EE9ylB&@v{Lx=<%D<H4!!!8^m<2pL;p~62t*v4tE
zn4gwYoQ44H>T(-wRfNW$xOgVc;!GI`MG3xlQ2o#qG4Pzb5|#WQt1yOSU}VItO@UkJ
z6)PKskJd6jc?pRs8`<kYK|Grdpgyu)S($@*kOcF{M*%ZmzVO1ukA9+j+*-T?vaOsz
zST(KT;~Qf!2BD)6Flm8|`Mxx^Ab|nU;WNi_uB!SRM}u*+Zyv?)f{BDm?@WjpimPR6
zm}LS3py&Mr`lg}Xc$A}LEMb|k4+?UyMzW=%YvyyckBb~j@a?N3S_<o$PW*ue8`%?v
zhFGz7?c2xr;=Ei?p)fB`R{9oo41cq473$g3tymACOgjoEOors0H-<PSf_8XYfH4}L
zN=yfAsVB?<l<Q!X=ZS43wv`zEpXdRcn>TO1f3HJLY{LWk2Q8Q@xN<3%d+eXvK}~Zl
z`LhV@ANcn_so*7W1qu-p8m@94VzA?CUqsvp*N^#I|J;AE=MfKw>;Lg%IEzA`CzC|k
SYu^(ea#;PS8b$Tg<^KW!yQv5O

literal 53440
zcmcG$bzD?i+de*^SfGeVsFb6Kk_spt>L5x>N(&+(CEX0@K?x}-k%j|^lz?<9C?x{Y
zjdXX{eD6JT&ikC_eb1l2AD?p+XU|@H#l7yhu4`={1v$x+C(fThp-?9u+{Y-QP$c3g
z)S;?l#PEsBVN3x0b^Q5#bsH3l{x$MHQQ-LUQxu8`^#F5Q*)e)<z$x_Xdimz^V)n;~
znb>oNdWQ`t58u{8qovNo4!<b%u6t8G!W0;|Y{9VjHhNaJY_LB%Dr7vmzosSx{`uzK
z?QlH`O#kiblgF}{(9+$Z65)EUdP>qGJ~|&<t!9ot#52HCxe&WKo1K;T%$?CWrF5oE
zMLSuznG!mNLIw4a4G`gftBQO$jQ_3f&{;?PCo3ot2ILnHVR6r+$S+Lf3jg1Jg=l~%
zDELWjfKzOjotPLcS$KH3ueW($W@e@~pMoCSwQD!XlG4&1I0U&;`QJ-w{owui^XJQF
zjt^L^s7Oe7nfK*9l7VX~8XD)xj!68OknqJ$8?L=Ic|Sfr-qh4oZ=mQ9?%Gl6V3`~`
z%J1**Uy?V*)|l(-=U3`X{?UVk*fTemo8rOcGaMWo8r)Ztoi`UUpBjso3SV6+FmH|#
za@gNlhi0l@oxC98Y-?wiZ}MJUt1#(qhEDm;axEivE~j>9eYVT|C9>8i=UgqWrS<i7
zv8^xU8*@FE(8<ZkngwP(xlbEYWTPr}2NuIaLk*q|$dN7gnr8PD3^e`EeYjJ5Nr9pz
zM$NH)ToqgOEOF61Mn6Xb#YBx;;sZr@rW`7FwF^4uTTbUZnuDwTxlg4XP9Y|T5|^Xd
zGVd!eA1o^_D%$$}nlURQ<81K3{w{XWWr#<1)t_&W-+9e=Vm5aFbav&z&Rud5UYCuz
zr;Xuueep;Gs4eS~s%*_dIn4I}dY2XTakt$K`kT)}C!J=yvYTB8@)-3O2g{F=GmyQm
zE_Ys6l(K97&wY!%`O=v0Z_e2?xMBlv+2^ucHtxEvMh!*p8tHD_T+blK_tAqZm2~gR
z%cBxCV)c6l2hoR)o-(MgxN>)_4&RbTEK_RsouSUoE9g|l1x`**>fnt<L)Y+GLvD=2
zsS?Yf3IUsmXi=OcZo~3Y@cq|!?7j6|4=CiX)2@vsP!fB3DEhK|Y9sb+9!g_xT(PY2
zms61Px|2Z3^~|>2r_Ys|ippwt>gRH$hoQRa)w921n02?C6ZB}!lmwfw95hr^)2H5M
z%b7_Md!n$f#Wx$LiQ}Y_F=J~l&imh!xEy>R-&NbmcvxBK2u=~VgG1!PkJVM78v!Qo
z`;$cP4y;D8ntgd3L>%WM&h&hw?X;~1KV2vN#md$}p43qNsJ9nmtA3dD3ydi#uNerq
zUHvY0k3O(gK5~&U$pYs-ZB+c<Q$hYsSy`D*%)Kl>e?4^jAbMqG<wsYOf%gKP?O0u~
zuHy+e!5C5ZJxAz3oli*88K0WzIR0UFiKK_s*X3~jqwMP8<BY66-}Djdk9O@ySIaiw
zHt8!^VA}pzRMahoO(-tzA?y=9T3FF%rlzaSn7b^Y;o+>wT3zNA7M(CfFoDLrz3uHa
z5Bq=KkZlv|4VAefv}4|8_E0J;Jp9?Y^DUgIq^|1fk>0$#ywTj1IXMq8uzg~-OCrfy
zV_w2$eVBAFMikeb^JLn#<nBeGv6_>s!p*b4JWoVTIthD5@;?lxtNm^A<B!=AVb2(Q
zeO<8_Ii+EtTCu)x8taMf6oaq0%bdtZJbx}PE;TMpk*ysTa67R-{N<&D!RUAY)E`5i
zO+viM=mmLK?Rd_iC6ACG)(l_L9?mYAVWn`|9B`1Y$kMd2S)FK#x|`6_p{9%PUht*A
z_T7tU&ZP(~>-xIjOBXI&V04+gQEP>P72g|U5qprVNO?tufBS%uO)X0+NB`T;7$KpO
zg&y+YZ&f|?XOTy>P=27p9W)!oxox!ECBJ#|rbJRJSUKz#p-7pH#UWg(*#30AnrU`c
zmfV$)Jfr5Uj~{2IN{ouT>tW8LqN1>{Q`TUY*?0=wn4%H1pL-N>aOCBec&z{FzJlT-
znyF!-p|r1B+uQ#Xx?kaYFX=#*T2n(q(Ah>ZTH)bCy}p7h(o<9(zkVs=IA5JSdD8W0
zg^f%bI~SLwg~i0P(3sA@{N90`P0R7{r&KgF4(klcM5Kp_55}X<_+X@^{ldwl(gJkS
zPF$rGa67Dn`6;s5uY0f(!8hpm<no!GVjClM^`6jcO6~`%adEPZB8~r;=(A;7V#I+P
zR)<Boo*x#yOXt~qBB091`_fY6=rPv`e&RR*!aqH9iro+6!wBlwU*V+e|F3ZJcia*e
zcR&^hwOwWBFTW|sNKaE6oT%TC8b`zNE9Ur=`qd@m>QAOmHZG1GjrVMncA9N`WqItT
z$9+t*HeXzfsrQKegP0t?6EE_`e^Dd5@^b7ZjSW3Z(X#ev%a^S+m#HQ3&0!&YGZmq&
z-H$Wf$J;j!j3yFZCWuw^l>2zZ`r+>%mL?H%l%z{7C%ILT`YX+%@z9z9p_jT1d$#hs
zq#tY>_#NY2zM@3v@Uv4D!QI>YQ$I4?;y$s*UrjhAEJa2f*Bl5sObEzT5!O3vBGqT4
z1SZ#J!`a2<CGp{TDLI;yOSGDJGG;L>)K;E0{&iB-AsEA!enY|CMRQ{#A}+du?DCwx
z6_kk9Uo%vE|J!Krx90P&Px*RZy(_#KN>ZkioYR-y-(bW0$06s-CxoE^52dt%&ieye
zc?aI!j$ag9XKcAnAG6%Q+ODve+@_PQ=rZgy?N>QMa`mkE=I`|*aK|v$hlv#90lK7|
z+ZbWCGwJVtZ!lg(r+vBW+t7gQus=15?C4qs2<vbV(P}H4yL2vTy2#tHHPKNv)8%I*
zCx$#;laOt={^VC>%#2FX(8ScRu?BRsmxQ_5z9wE0z;_NsL9tqwaDRY~D$vhcO@lf;
zay&e2_7ur5mXOYPJ54<{Sk7~IabR<<eP-yyT#npJgMYNRywSq$<y_kesVfpSnZhip
zJdJFuo%AQF(g>FWsk`&qG*nZ6nNV2m#9k<!weZ2%!QCW;%gt2X`PCW~_XPsH`41iW
zmToA;pCNSCgX<oCIh;QXcLrwAMEK15dh;0HFMC!(LpBZllE(MTBlc?1wA*Zc*oYJQ
zttgJzr9nIPfe_02Jl8|S>}rp@F9qb!JgqEGy{BU^WS{yjWkCV;lVA~R><K4Lt4&q6
z1C?mBpAA{RrhPSdANBJH-hifV-!UB`%hntflk;aV)y4W<P3Ak}k%uAl=}0qa<?^$s
z@{<S3D<7AA(phF?569mn42OKUq%)oEWt7-b>f6!pELU0vJ%#V$Z#xk)drwD)qC58i
z29s9P(Z!Oz_kKYJCHMw!pl5k&eab%ZetMGb?XBoDYata-Eah+o6?2<#Z@5%y#^emK
zi-V6h?JKvoKiip;U=CXz;I~2i^)zMHTwBlWX$A_4w$CiGvi`KmFo!=0rb}|a$KH0@
zb+k&9Vp*oGqMX(3i&x2AqB?>nxysAhNv+P?#c%xxQzm}h-N>KE;2lg8w*=wIzRyhk
zIp3SoiJ;Ls-M(r~&ySG(qCX){jW;WguL<u1Bxfhi*IvNX<e_suMq1#AkhV|Z%}Rmk
z&G#p*CB+|$A7ILiAC?)0yT~yPB%lmV;%E8l;qN&+VBj6S(02B(N3xlkgPIOkQ9Xot
zUWs+u%BxE(W@VtEC{#0X?G>?5FNU7w5@u|SZ?&qT?(H_Ko}aho!*gJ=VWCr}NSJmB
z3&Fs%>2^k4P?tFbJ)*kd)6woM@eO)5bp}6WOu8iYi=V^0(rh&_(eC?CI(V4RbilCG
z67aj->Dnio()B(4aenj&8691m;N7o!&~Mv|_+bTMUug1aa&gjhQBfEz1#PuY>s<d6
z<~xfpWh*kz+gv(LxqK&m?mKrM+YNZuY*5Q^)wS#=R0bZdXIydSrt56(F7n!rIc~FO
zZ^$AoA0@QRcjrRqtFDX{##F8yU$;hs8)W6dDBBB!i;Q=$t~`64=W$lg)*kKdXkxA*
z7g-1wSB1IuzNaT_-r7>Cw;H9Syn-0zE@7MWPk>Q!9p<xKOEq2;4<vNc`W@J#yXdF!
zyA%}3XS(`>=yp{GB2iNWi?a?J#ppab)14!WSgRc$ORZL#5GBf-Fu9zH)5-?wF~vp^
z-rjoMd;_s1W85%`DZ;{82S_nrlBRhdw?IL0L)PV2d%O2TnEIB#){XjUZIblFg`=B(
z-bU{?#%9)*f|09%_<b;Tn#$C#z3FBE12qK~?Hl>X2{Hj)un7TA!sQbko#!*7OxqbL
zD7ehNr5g$EADw|kS0k8XbUfZ1X=^V?fH^MDME)#31fD90usJ>4?^Wj@_V$Y%t@HV+
zsCl?jk0i8R?1gXJ*sz_^zq9F~c_w;foz=hNhjk+xa<dJ7%pP(Rznjs16CWM5F#W%B
zw?4b{|3bz*hQ`l-yuZ_9U4wezu>0QsWsQ;q2P*Qz&E=9b^#^4|Otk3!$jyA6%OAmF
z`Uy+Hdu;9?B;PF9`WJd+ZI&@T_S$C$)O;e|6bCqp_Me!J+l&xQG5h_sgdo@i*7O8N
zrRo_7rpN)N7`)c<dn5EbSCxf;2hV5>QcX>X{vCK((9?RC=7c_qgt%FwjJ)_r5&szV
z$Dj_4PF{oMVj3w|fn^LjB@OyiMlgVqyT;YMOYc<<M%&fCck>Nik(%~D%v4F3XU++y
z-(qD9&XXKiR=e%6jhZNvMU<c~ej06=n@O|Xnb!{b4wS9?w`%_Iai%1yQzCe(#-gnC
z2GTEqw|123m(^G*-17%9s1+K*Sk4DL$#ms};r^FFj@=*_xLbo&29-21w)YA;G1P7J
z&vrG=F4(c|1ShAS@++;*#%^Lz8;yQNQ8~S_#vB2Gf@zVk1I!eU3*{PAI6aQ@_BQDa
zNlB4>gLtuv@%TAbPnvVItrs30CPF-9tX2$zs3O<}$qW2|3|{-@OUz8rN(Op+(~x~%
zj9!T5Q-;f4FA0}D!9#X7-IxjV^)^z^N#p4!dI@Hupg`CvDQ_lH>b@Gi8TChxNPtO}
z4!G}w>sBy^;;@7#e)ZS%XT^`R?iGp+*U2cBg`4dLvMzl1wB3AB{&8x|mXNJ>L}7*;
zk8B8y^%b(}r6EiD+SVB6z{r$(QUS^olO6Icp*db`)Z2BI79r<uw-u{wNB};()tSKU
zUYK^Vuzy`gQT)kf%1MW*O7H%f!rt^`p#gVKGRffeH_!Rm(E+1>DyAV1^ty8~S(!Vs
zo&K^e2{92?_hO7(UURQW_|xS(KQa7t8$*^#X=nHIY(f=NOjh8d%V#JknpeA1Y~P!_
zPf)m8DjzTC{77V9)5M&D;u?pI;m~5}W;pRaeN4B2t+v|e&_xmk5o+wtHU~qX!?e2r
zl$}FKZPT`znwniFmAlERuamum`ZKZB_&V*`U<^9={$<<RdbQur`6Fe%>)#l-z0%=B
z{#HMSmWA6ED#q}qJq5DcbG(hYp^90vxw6yn+nodjcIw7XhERwaQ;9~*43rdwpV>v{
z8TjaezwVR3sOE)UOI^cNv&SDLY^@l*1spFVE|<@sM>ewFbo^NHl}1*sj<9mCBjXnQ
z*|p;pAK(+0%Jk0BPuD#-35ki|l~1Ox^IdcP+OpXdQ5&b?FA#Resbdy>`sGD3bds3p
z+mqi?e=gm*2%ci?7=8~7n~{hfv^Y;YS!q)|Ag8yGPg^cR3wkVk?K=sZ^114Z3q$!j
z*ayP$m|xYBy&>r$ZS7#G<ahAl_$T{kJ#)t<RtN#@%o~|XHP_ef5x2Avp3Af4x8dGH
zyZfpS9~suf3D0YE(%EY2y0e(InW`9}Ya(A3xp7LI6u+sKn1#8@cE($F7ylVGSO{B6
zx5h40P4%!?@0dJut!~KH&f#(&)Y@}Gqr3r6%0KZI5z-Y?OBtOTa*(cw5WLbBDeTor
znxpm>G!!?;cE9&2M(AV-okbD48S(+L6|;n5he8M*HI^kJZuL(g0C*7c5&qlEb9Ez5
z6JPex=#+DDyf;PkL&4wum8deI6XzTamW5aI4xvX#UTnnNoW58MYvzF?cv8%_UNq_C
zyLCxS4e60lrBtDpuOU33u=wcV5i56-Phxh0*8e1WL|rxGSxO%^9@>7+ik}Q;-lXDd
zxx*&^NTKC)VcmvF@%?VGId^iswM5`!vIM3qaim*2e?b6Aq5n!%#mS#C2%JreN*}pF
zu`Jc7e>2}g-3#e>GTxe|e16<Ln&db6K==yULShl_hMXT7j~Btu=NkXSfjnAzLYn&;
z+G4TcQ4@Q15e9q={~<!xsBJdoOndHx$@zJ=ZT4@$-Io(#LZi>&J*S9w>H4MFVy}h=
ze%?Hf70RByqA5UnmWMYQad|zn?d$oj!PayXR!2_y$j2;r-GK?O>cMY=c*$e#TNT?g
zQp>^=58}l7E0VsGe&Qixid%{WFu>z0&E7D*X-8vR;U+0pz>uJXj1u%~iWc9m6Iy=-
zi6>9~laa(z63|c&&a)c3uPNsT=xtP<@37zKK6)f5f*<jj9>n8Lzxi}Y%S#92r2LDe
zEXrR#S^PT;c-5_DbYveM!uG{U1zd=GcfB>S{7{_{ewxnGb@`X&qL*5)U|F}ZSr1&z
zUqJi_A`~$v{6-&fv7emlW<@6|kMv#$QG3%Ca~ze6&-WoyrK@#zw|YEjPeD=r$uc^$
z#P%~RPY^w!;bUP^65$-Yn+wzwH{NVDg|yLNC19L&=LzHV%$=Y5wf)`G4R4gnVGLFY
z$j!3&o5w_`0wt-%Oz8x#qIH;P;}l29=u=>I3<#^UEt{WzZ)V~>-Y8#<D5VMzjIsw`
zaf&l2HOYcm-Fx!V+fnth>doqTF$H9X35n_$Thg?n!Ec^>ZB`V^i4x22H8!IwVDbLS
zRGGNW)y^c@*(jU(c{@sc%XzO+m>UQ^Yw^NcU7grO@ZI1N0VIXa{>%=g83!8#O;iar
z-fo<}3)^1L-BPbCFQqDfax<^&tq#(31b+WB#l71V^<j_6ehdDOt=R{0kG>GOJQncC
zgZSXFxgHaabfxLf-u!OO{sVS}m_+1mK70zzBzD+-{!=)YV!$QzPmkNnA0yA4f`Sq?
z@EUIb!l(Opg4aj5!3QEHsU{160kRu3@!>jX_C?fSp^oOYSjbyexjv=#k4Mhc5>Ht<
zjzTRiE=T%rbzM9WeoVz|e|yN8MCp0Wh11n77mlNB37wMk>Z~}YQ}`VleO{!q;(+?0
zl;veqi#NVY{i9%$Iw#8uzr;!D+!VE1$AG&N7s9W<^_y9Z>?|^igDQeein|;|5ia=t
zYf%?ONtpg~0hCU9CXZ`X@fpoPD4k6hlzc&KgsaC{V{&8DN#_Qb(fYI-vLT8QZ=h~Q
zSrZ)L&c7CQs4;5%gL#z-=(Poh_&>>Ggxfw_W=rWl$6F*JS#5a$e$a2?yyPiAZ<=G@
z7c;D0k+mUBQ{d;Q_d`MFRATY>)=TISuS~}dGNURcn0+QfvKs&TnIHq?*mRbsDVlw2
zJ{p$nABDmSRZKu*PX2pM$CQd+x|V@APw-wcAG{=>AYhPXg~(Q!CAdM=e`L`*$;&32
zMNh{Ot6{)rV)480j&4YV|4=)wiRt%kfQnG<mo%~s$?+S_meOX3B{+Fi1@V$k<B-eB
z02ZLePU7dJ<nCkel1?#FsS-8QU1F*tO6Z5ku;K{*dz@IPP_vm!6|u;wFUx5>mjPft
zfm$KM&xtl$kzL;Uh&A3K$q^?>au?~?0p4=rNlEz1jmkF?9b>)!eC_{f@xz9U{cWOn
z9>>kYV3BIaD{uw*J5+!)aF%sf*!kj-hM;W1n9ux;G_=vUeXDqyi$@xQx(G&4(ZV=H
zR+<0bCRyizAFn~!q}Pz+&9%WJSXKcGSN*SuNycBt4<|?@%d~vw&hyoKSl^9PD0O`4
zB_3X6F*ZJVNK^DI#Y0xBrjzwKx*gyHPaMUMv1gb+m?r$Ny%{BPb)c#KhT6<ez{BwM
zkB3Z}Eo*MZ&;C4VOwIMVC<}RQ>quBR1!F=-z5lhS6DJ}Bk=0Oh$%r33rxs`^ntA8z
zJEnhMLVU$nLbq7b9%=q*k!7{^39zrnt_{3Kb=%0~ej(h<qpWHA*&^#97K17KM3o&o
zy~g+fmh~(*epv-&Zqf%rf*rsI3AV&Y2TzO*-X2K;@cTC4#`ypU>L0=l@ea}?FS<b#
zY5O<ci^U&$vy;>+VWWaL$Z{!ga{VhO5KkkCH@IQ5$k$?i?C;Y@tSGFc8%Np};7=rU
z#^Q5-k34;bZW?uNd1govRh7RZ&=)h(I3XRYij3UdxEIc@koG6|z@2ZV&&uy3mBC-&
zDF4f<1u^wT>T4_<Xt~ORoSDcwE=N5q2yWlyMW0xKswm4})(HOb1k@`i5yB4DWnEe}
zoJ}4dDM7zw5bTdt93|=YJd6@q8Q$+Im@l@O%+jr_C@yyD{-l>A8JLxobxW4VZ`RN>
zr?<CvVq(I6Wp8g%j8W9J$eUfOXsO32ZvX4kgW1Xh(<%=lqt#0AqEm|hr#9pv-(Vn$
zR~X;XeD3D9Pwu|-Qp9D$`@V_EbT|i|gEMJMS#;klWi~3AnO4t=8u->rv$e|7`T7+7
zOjRBvuPyU;EVD_o)yE4r+r4P|3gv?HgkBJ%rqIPY!;Efgt<ap7>+-jugN;HqHa2nw
z;jL=MgC!vCb_Sr`K-^ZKx;meqpU83zrS7{ipzaP1HY>5?VQQz&ao5C+(rm@;&l$Zu
za#HXq6bAh{lgEHf?fW0Zq=Nf<#quq@OZP|+5_c&8O3!I^Vq|3GHKTh`ZmuF`XLAu(
zzUbD>+XUeJ=u~S`WHt;UgG>MY1f{(2LoKbnszc<_-jg(2w_hHKsVLK*g(vW?lr2SN
z?_0W5?n(6up~k#{@R;q)qzuk^QXA_U;5<~}Ch32E+-VS4OdegnQa`tZl9H1B-OV8^
zZl8*Z>L3~lu9g-BRaHav&K_X|5Fe;n{hF?OynHoWER2qC5CYNP4VT)_p9#M4<a;#t
zP~0fa^wq4PLr$C9N<E7o4HpBC;g9?-9T)wH-_@^0nt}7s71{<!sU&JvgDd-3Ij#U&
z!`czN1d63`da;U8*iiwqr_?Dw(Jb(MSbPHC-2Mb#rIoe=u&XT1Yt3<7Y;2mj2K7;v
z6;4}AzZ)7F67IfMRZ)q-9&FF=r9y8@d`BO##gSUz9wAWBO}@*u?kbS$SLxPG6B7tW
z-O=)*qDL70oJaU4D4F#aSpi=(wDq0u)hT-C71zqDY~4zCAc8%`<JGctb~hJ?DzUf{
zyV-^E&B6K*mbinYQw+jI2K8^-CWqWM2U?BSNF|$3RB!Fk`HM3tC@Z(y9il1_XNnIU
zIX?H9ve5F_>uMqk(SCKQw8z)$<_Z-u!4mLVfFZrqm?9Hn-t+6i@|N#}$92b;=}sMe
zd3!*8B@9P*{#EdPm$hIfb+Z!IVsUU@<;x8<>aoRoEQiDNf|A~o$<r-tsSaLBX`$Xw
zgDOqzE*AS>(5rTNrQO$JohHszUpM^m&Z+^%LqkJ@+aJR112uQZQ(RNC?*$2IIG66h
zSctriZL7pV`G~wdOlNAG`_9_Mh2qKBHYGbRaVBxA28GSNloOi3p#r%{^76K?(nOK#
zgI7g8QWK$y>VqkNzD+ZVv&Mav1t(10!PCT+)iBZAEMgYQWAr{HD>YdDVQa{^Ei=&i
z0>EDiGl)H{z}A%RmuAO}m-J}Q8Gu;~fq&Rq9zA-B&apvE8@s=*re*aFC_nk=5M5<u
zTbSURw{B&r=cQz2EdbeVF<A+8L(olo;q`WGsf&Z3_dCPq-_1sUwU+P@p(-8$IqvK0
zJ6ao9SWplPcB!PJ6T6Ln7SQa8-ZIf!BoXfC1Z}6Tv2^TOluW1GH0_)lEZ-$n+pd>)
zx88BBwbIbgkc*4s0KCHJ+@Ffq`U*-d;=dZIhwIVKW2X<zAM?6%a8anQV82bT<@mR6
z-|7vxBV}fQQBG|AfSoWmHDx=B6|5Co7GelYZ8JfZ68oddP8-+g7O7+}d>ywrQ{_$(
zEY2ii=WJbfeY!!LbpFMc_^0aHCA-Sq)&`TG_Afb!69Fl$tEzeh4J=>k4@)z%v%!Pq
zE=Cm=_B2AjfxV2nWzNdQCAR-{eSWI1Fk8%b(kZq7WJN~C+|F#am|GYqEb?(GFUVr}
z`#P<nIq3nUVR2tQY~Sm%$dIadE%v({8!PLGSM>45+&!^x2HevnSquD5^}J1qiHXXr
z-;O?rQPtAQ2wf58V#|Jt2RR@97ov1xU;FFOH>oQju4lRgJjJWHma=ANdQ+}0n0hm?
zr&?a(b6k2%(NknKdTo`@y!SF%*YR{|60)HwRWmif{QxuTHX_K#Qlp<k#ip8}RlKs+
zbkEJLT#R~A3cx;Tpr59`8p%|aYpTv=X-t-FY-FHN#Y~_oP*KxnMlV+EF4QwF-sI!6
z94r$!dqUf7y#wza<+er{aaYm677K|yx_l-rJ$-i(cd&@Kw@|F}s6QXZ04VkOy-IKu
z+y=aS5|biN+Zm}SxX$<tsmz|D1!NpG`~&n6y4Ll~mm~ws%*<Rt^Fdcj0XWZcNZj7#
zFe%x0*ME;)P=iiefAggha#)y~0t5TuFxQ;}N{Yx7r!OQl(FbvgQUmsV=I9ka-Mz13
z9$e@GbFtmIyzGjdXAd6KPpf5uzNU^kDM3_l@!F_k5>gN?Pv^zp@itU+SoFcEGH=&e
z%^~Nhgx3d?*n>%MJ{N=?mlg&}L+TB12m6cgK?se@Oj_#O`mwp5JoyTuK75=TYo6>N
zzi?}=(Zb2DOWWbw=<;N&%fisX{E(EC6gs%BHAzyW8MfqhXJN%Sb_keSrr9?;mk{bB
zQw5&~o8<N9B6$bOsBsU1TDH(#7q~U6c;fvdcKfxd)@IS&jIy%5R~Ia{HVP}XwX|GU
z^zH2I0!H63i0mZ#aRTSvqb-9$0<pv5prz~Rg$P~uZJL8rvg)F}mB!cPjDx>^{c34B
z9a!5ehTF?_n>WR+aN&L((Co@P?8MCHHuB2i0&1si-<zJY18Ie-l-2SlIU%df6|mGe
z;+JyZ@Ze(OmP4<PU-!3Bt1Pz;fmeFq1u^I^q{V>DeZW$b{?y*@6W&vQIG{ykN`Tkg
z3N$+hMchs(GM$E9tX+Oor3zq5hf@Gk=G%M-UE%uk=$g21c~F@>tR?6ENucI|Yp2LD
z-(4%6`py2o$$9&d<Ycer+k%;iiC+uMEsVNNK>u@a^a1QyEw6tt^OV2kW(P_O6&tMR
zaH9P5`UD_P>N2KgUK^o;s5WaZSgD7rXleC#xG0dYpFXyg>UZVLaczfDC8>O@5No{0
z_|CO8Fxk4G?did~UnHzyXDLz_i<e6wheMDT@z?lz=7jp=u2ZJl`s07%YYH7VzIl4o
z%2_0xj(<#2Xr7~^bp=V`;#WtMj2v~XgSAoO3;4|QY)VxvqXw4<R~8$3I-z?0+D#n~
zH!)P*lQJJjzs|-Fe|O02(mm5m84Lu-#@MrFUPzcx26)O`!59*$lQ_LF9RJOkGrOJF
z^l6<h5uv#8spHkF_<G`?e~|0KlcDEP2sephBGi;#Usu0cR!}=Tl#7Lx>`A$dGy#)v
zl@_TcJYEbt{qEp;J&3LS3s`w*iAIUr<A=Et2L*1%G562)aINyn^7?TA?NPb-3_EBN
zkP|(V=YLhPgYU}pqoIoRn8Ocq?8Z2M=c?Z!p+Y}|njAGxljcGoh8AXg*|05@tQh>1
zw5hyQ0z-Dmy={J4niHu+TU79uogVxv+ULQEuN&&b8UiG#n|Z{9m;hKY9#Ris;Fdww
zrVC#;jGY5F${zis6Cs0uD~eelV*pkK72il0laE8$4R8f`{=CswrO9@e9H3NG3q9e{
z)uv|8<F?i(=S4KmW~bRTPp2dIM&YZgm6r}{&v$%uU1Vj^BUDti3m@Tn5^{Z)aNWac
zOu>0sI2+mCzj6`kQZ)g&OaL&fV}LNXT^8m75L%@tHUHVGu5_d@5O*NV8LthFC75}Y
zIr1z;M{4#m?x52~3vmwT@r_%nJ#Oaw3++39{i@^8P;odj=<aNYP`uY|5fNb(4e4C3
zp2((?i^CDJ6N5MpR#u=hQ1K@v5ow|I!{>d}v)`WLDI-BHQM-FJzDNPz;)4`SK{hWK
zD=f=P6cL1ZlDu&7!!q$)0g<?TZ8)^dRCrj-u~uU}cW6-Q5?8KesS+OV^Ki$T5Z#&H
zPq)ep@n)&G+bL8toG5`pQ6OcS_`<Qw{kx6>jC-|djai>8i&R2?0q_zegr97Is{h#K
zd7Ch|0a>uis(Spj5~tYwov`6u%iaGlm#Dhi_zE~vi*KdDw@NZ<FKrB0d}TQwZ<p4T
z$o>;&tj*DRbiO-B1<6bE`L1NsrUFIz7mBf_5b#8#k{@_nJVhxdr7fs|tiS@^bd2K_
z)9P})CI$!abdi(w&PX;gMRg|laW15o36<DZSmEiS?<^|Gl3GYX%G8B7tdcO_+Dm?M
zH&4-@rQkaKMn28z)hWcLgO1|IGa&izcpm}8@UTdHAC+il^XB^zisg*^8P8r3K<K}C
zx2aS2+LjT%C}kA*B0pdX0cA!U!x$xgmLqrqI)HHh&`C|P?CbjkQ0AuyqmFWVg{*B$
z{*Ozq(RMZ}fHLctsAm|4YpNo^I};9XSS3LO9S5FKPjrCG1b9VU2R|vcRR4fi#szZT
ztLr?>0R+Iq6%VdYo$(YA%6w|a8bghE%AC@LaD25Z&VV;+16{nQMB_Pg+Ot4Z{{DpA
zyoV=D>T>^8$bqVJ!B4o^2@B^TXY*tPUTLnZinWd~%B_XvAil){MyXCoz@ULM_b;of
zn3uzI=6~^XLG*vaEB_R7c-+Bb-*qoqdiknnJGTOrl4^UqhR_I$iMo0n|Ii<fI$Qo~
zpy~mwhMK>;mI&S<-k$kL94D80h)9$k9_{rLND#FneAr<iLHy-q;>!=AN-&)j5$hl!
z6<(>k1O?f=z-083_lCe+QFPfcI*kQum)buy1$mnX-AGArgqrK%V3?Ga%^`>!Eq1v|
z!`Qu1#=!G8XI_i#{f4qjT~~LpBui{)wG4{k*ECwszg!9wejDZqPq+3O#i+6$H|x2K
zK-wiyZ`Isoq4W~J*m%bi*Ba=)wp2}CJ8DHyJp6+6ihQi=N+qacw{9LV9{gtHW(1O#
ziRJ@<I<~j*5G26f6(Rx?tcbmkaJCUwn)ltpP3=JL3pH6e<hSFE5pi2;ZM=|Sxb4mt
z`qgE-uct#5&R_i-I`dg6P1&ISMHND^rkKdTe_vvNAm|=nBTPK8YpqBI#KGaVJsy!=
zzR}x8^C2TctIToPi$-UvWTDx8BaiGg#Jv`25Tmqet+t7vM<NaPHa@o3`2pSn<X9y2
zmfdWpPn|AqU6=eE_gG{2aj!erbu}zAn$dkr?^QJs3T6DKzIm{h{Dq?%J_xRvDko2X
zJw0O4Z9?VqJ$aIttfCR$4Vnu#^#AaNjN=l%=eEG<0|w-ugwR5o%OB4HA`K`G$~j0T
zu<G@lixei$o;}0n$cybOV?q_rodOpd?*$-e%;s)$Un!N3%8)DozP5QXq<bVZT1;qA
zgIZv7K(y?4UnsQ)Mm5HswEU>`MXLWOFiWs&+l)#HnCX-iH^-8SiV8aS@s}5qaoB^#
z@NK|6u44~eDT>F#HM!|d!Ly<e5T7*mVG{%!P#!exRsO_NOQ<yr%*s&)$H&7}o@hlC
zmGx%aUNh8n{M))B&6*Xi+wEyeN@?v?o`)DAsl`w56rxi|T#ZxA<N#Ka)nB%>mSZs!
z2~DpXK39QKR|L1W3d-(j+Z{37su<E36c)I+ii7p+IG2TDr4$(xV`BxWeaKR|xVW16
zuY;%MyFoq&kv0iI$=Fz*@GROjc1IGSj6+O3X@VQMDqTT5O)k0>kG)+A`TF+ikn?P2
z^=op!Iw&pjEe1+_C|L|esiC3G>xe36FGH#uuga0FtYw=9sS?0(jcd28D@5IPgg3gM
z;MU}EYrmwq_NV2sy->^o-T@esp!HZCTUL?&%2>S?7X1HMaMeOg=ZYYn6wAhDIH%wV
z2$XZl+*!w=mV~>wg~bC-Ke5v=!@DH*7KO3883-lo`Epdr=suz{1JA;N$Pc$U{}ua1
zF}=+s9_sA{oT9VbWwRu!@8E4)ifm(pH{7F6)4vwG-s^`*&lqlftw`$S5$GjC)lsQ;
zU)i5gtK3;|sO;<Qb-qQa1Tk6M;>5op#HhV&u&IVHHb&Q_FBurH@D}F3>5HAj?CwGt
z>Pw`2vqUH+Kd>WE!pck3Tz^x!9aR|#Qw7U@vcMiTdG;R%TZUViH$kg0m9w#4c#N-w
z2sIW9O#=po8T)dSaqk<Kd$2#ELma4sNL+T_+43cVJ&E4XO9TcD<r*nN>Z+s^;;pQv
zW^{=RS#oRb*$$c)QG7c}5URxk8rN($0TuJPFU-(<j~0B}0^-}^aAoCeVMQDF0Kj6Z
zeX22>Di_0w_M_%#z<<Z$H-9jd-`{XF0L}zB+JmR=bCuZMQuW<eWZUzW*xhv9{f5=D
z3<D6YObN2a_=*-XeR>jw58U!{0mX<I1ND==ZLw-|ro(i7rUSqT?9!K`ajq-%vstAJ
zWvf3;C-1D03onVkx&&?5zW-OO8pw5+Mf6G^0FYoF=oOe4nD?XeTrvo`UUIcBfHTsF
zuAd7X3mTF1wrWX)JFe=1eIvHst|WG_9GG_oIMMjo5B~~hqgseyyXxY0y3l9Hj#O@z
zFRG}ik<(s}k6E3BrTwe`UZ|w_-aZAz@>kU|=ae=)`;4-cNg;9H-IzzO#4Nf_21_#3
z-vjIRU{{i@1!fN~98nK;T$h>bN2GPA7QJ&+TaVZ~dwW^Yh5gpj;VZDJ1|hA_*){ki
z^Lc^r;qaA@8du(Eg_OkOXWfS?z)X@sZ30I(dQJda5yWwCzZK}8kAG7%>K0B2Q;o7!
zyf>t_*pc1^)~iAh$!DoUX!|vysCY57J3qj|;U^o1_`<P#87}_Kt<gZh!H^nUY^ODl
zuC`w43Ur(-5;z=c(f@H43wC%&9mRAhQm4iO;L@S(pAH8Ic!s$8IH!ro<CIs{=KBg`
z#<5E;84dW+V1B#*Dwsl{B4IJ)-}6q_jKU4OG|85DX2Uk^Uyydx*+0Ojt*oq6t&tf*
zghl^XM};zwOd+XAPG)8kfG=^M-Ez!Z|Aml1Ak8oY^%)8GKnH9;hfgZt=DnCeyF9xd
zQL~D<EMoSDn`FLGZrmZ%)vIRR(B(nW@^Vf{jv;fV(J}j*DM#hXIK`$49TMb<lwnOS
zS(s!?hSL__MOlsJ#6nHHvdPMVF`b~gIrmEMeTp}Kz$gM6ZL`vnAu1cD)1dfio92!B
z`E$AOn)dQxXH!*|?5sW4&>USA2W4qB3%Z*pj=V&VI5G5v%B>b&OH-DDvpiv>La$>d
zy^0D*oIeK8d*T3HpA>s1U}JdsjDXWm^%B5(1V0P+PCDsCEJ&VzWu?#LtCR|oBFc9@
zlyQp1S&ePoCI@{apg?kpoy1)$$&&V5q{AKmu`-k}S)b1Kbe>T(u54y@&|FElIphwG
zepzGTGbNV+UZvyD-FH^p51uNv>?>kB6@;za3}85Tn#xidKrhspEN^n1mYsuxilVOo
zv_A+8sH&)_PkRr151g%Fh2tVg4=GGcOyE3G$>><RukVSzf+soekaHKGKevl*0g_%N
zYC8EYMO{Z{u)jZA=1Sfwr3i>v!dm`QKp0N4OnwA#k1d(5*2K)L9gbrB7Zwm27Upvw
z9o%Af(==HbjvC~Xoiwg>K-@F~c)c*17mVg>Am7cFbKQRij2mj|89f_vDCyuO^an>I
z`4qnCU_%Gi^ktsW&--dv(Zs8<?relh6OWjE<SDjq5C*8<oEPkR{zFh7`!aiqnFHz8
zP+_Gw!xn)M;o=TcKP2Y92Qp%Rd(qg-B0HWd`Cm0`;ESgpdEx-IzlKJVF{Jjf<q7+A
zNqQm*Nrc{|h?qQcuDOb&byK2RHIPw^5#cqK=Z=zl|5Ia$YRN<@6s9gb9T#A=hDgyL
z@BN(q>2w#VG2%;+`bJz%=|7H&o$Z$0E1}1T<Pc?yC;p2YjV*lHUBB}Wg4*Hone2+b
z`7T7EiCRM#H4nO{yzNk+d_?FtK#gza%Ml8cmJ}Y6gUrIgT=sOE(WY3DQX4j6ln2AN
z4`OFBqtbgdBx+_=&PUy9<VbG;zlDksR2l~Cd>R1s5}Q$^TUF-}s*clH6$Cc_r0P)O
zJaP%(zKg&0<4g>uT_5}h1d2dPIuG}lYfGDhE{iojlz9x`zN_|ZEe)oL!=!xwOG|?i
zNZ=uH2j;?I$jzZM3D$#w^Z#nRP*umH??9zxedmAG*so~t{GIqIJYT#|%!oBEUn?uh
z0=oEAVQRZ0(FUAq+#)qQPlWO?{0H^+`x3CFu_j2Q5&wz5H|AflpP(pY>BOU2UgiJ3
z3FJkDe~x95EWXC}i0;TC#??^Dd)EQ%UwQ??_tXuL15cPHICSkQr8Q=MW*L+LuN_Yh
zb_^$abZN%H*@<{hdZ|^?IpgU6!7iif-0<ToiTF1_C<rh4kG~)gkgxyXe*;3OF}#R*
zigVib`8090<>D*7AxF)bUyXJ~#3&|9qyiOpP)Jjr*~FRenIL8Pf5cy?AbDhX@r`MJ
z(CcsyiGZx3hIjODohBTf#B1oarF)h^8}{AkDCF^n=Y>pv-F=0SrUa7SgA-pJ*!<YJ
zghnSQl%(8pTM$P!MV&NK?zN~W+bDgu2x#qQLdQP!TG%bcsC!)wK~R;Th+NfSD0<3m
zCgqw}dv)hhqAVIZA<JWmIM*Z_Od@|lwpOCXkD57U;K@k_bW;=lrtDmW;jT<gHE?5a
z<}gov>&;0<0QOJ-KqHa(v$waJGF@r9>iT>tl4@>qK*a@LgoK3?4#Y8o+V3g~FV6vm
zJ0)J8qcj_?@~%V)I<yFh3T~MZ_q%X2O(}H{n8e8#hgdz@o?}4Oth^<lOFp%j8jeN!
z^t5&7FueU-gtW@C`_pYqicBO>dT-6fzyUe^=*K-UsCUJ2+x=5nhB|?{M>4ot2DPeB
z-TvlKTry;bAdBCa%MIsH{!7#Y0KNnoNjenxxmlOY&CTIB9EO#REiV){+*oo|7JcW+
zxBsO&L&e7%thuc#TvgW6Vn;)QbsNbdJoYI23z&0VTPNq;TAV-z3xZ*kfi`45y`N3c
zD~-Abx%v4wrGvr5MUR6XZT+jF6&<2S6V`Dn{A+6wHLUqABPTh5xh=F95Oi7@%hW71
zWQIeybu?ed2Xl0^ui@g#g#!IP_Tx|oA~uFc4JaH89uisAljOBak)D(mKTAT>AK}tA
z%azy8J3EMOl;LTcNj9-4x`>WXNiNo@BWaA05P$eESVG+>ZgqFmu~-Xp_-B>gb{X!y
zz+~jAtI;DvQJdIRVW=aHG;_YMIxWX)>#GHu=|fOUVYgDM9EZkd<JLrp+CWAyCl}xp
zM1+Mk3N4zh%XrOKfBkxR;~0E-{f|Af=#lotJ@c1p4)cB0$J6T}Yi&QDKs4CgoV`|1
zZy@Nlvo_t9%4QOXLSP;Kx=}gS5&4zElOkpLcL!69T;1Sf6!k^ks@0HgSY&a^uU5X4
zl4Hk>wp?Bfy5(DLp#i8swcko0s`&J&1#Ji47O$?dYIsuFa3EYe)K<wWzWF||hzjoI
zr6^KBq^BQ$n5ohS>{~ixpPv3DgyMY)oWI`3d&!DE+GZ-_6B8>pE&Gce&S{)~N6n#e
zoop2j?{?|Xykmj74)yW7fg*$V+Z2!m-*~gI&bL0u<)aPj(%wH%>cGRpldPClSXkJd
zFCO-Yy(&s31&#%O|Mm^AefTlS*KlxfASVw5M#E{O#z!&ZDs;Ui=*E>0?puoQ-^;*Z
zC*z?t9^1uh_HeFe{Tm#n({WDAUF1~{&&<>R2=%2MRMy2wNl)zU3-Hglq9!RR$)!_P
z)GxTSxiBCEmIB578c<{$x)rX#%TiAx3iuh?C)YnDI^-4p^6|cWrl|$>q>HA86L3_9
z<>lpbaC)>`<<YB`FRNcd9Q~l4XQ<yrJg&}Eg#~N`s3Ha|)OWoD0|Ol$Dy(6HWllWI
z%*pZbOw7#8*RMZ^JlE6H^J^&##iOLgIDh6t%-bJA7z}&*GAXySEp;hG%nux7)t{er
zNX@av>)$!#s;KyDZ+q3J?#q|opow@7`C5<HIPdu;5Eg*xSlig7%Et{BS`I-`cVdnL
z=|349=SCMwGxT3V%dxf{J`&Y0=&OAeCEoV*IxX3emr}|4=X*zDP8O~>OH8q^nRaH}
zIPY&=EPU&hJ#=?G+)FJ@8R7llr1QA7lZC|soU%S_4_g~$_v#v_;(YJdm1*rOU5EW|
zJ0C@zMzgW`#SOcGUCS@}`}q9cG&C>>wfLNqqenY|94M8L0D*!roS_a23sX#+>&>72
zY|;jcqoOAn!KE7u!>J9RS7B9Y4CesUp~!w-qg+R~cR0pj5E@u*7Gp__j;5;^g0r@i
z4<T!3&TAPecX9X`Euf>L)7ja1>((v!#b)Big9i_sN}e{c(j53wJal(=fApw3{`Sl0
z=;(}$j1uQB(t_Z}@LB--`SWMbo~5DL%+P_;>Tqs*79<EaEeHF*e@~GNWLPX)m9w^9
z$?Ik0fBqPRG~i2AS;H(WEU>$ML#(bO&tA6hELGwTgeYWV1nodL)BLOrWDKw^aR9qX
z2GCJ-BM4#p$rL7C`W)GntAXD9$saEpXB20KbV~qM{}8BbASY+O`O$2bI+q{7I)Y{c
z3}bhBw03uWR;^$eCOn*7U7tI0t5hTNmXOdc06L~!S^Mi<y1)TG)4C@k^8-FwU0IPT
zybOlL%nZF;n9Z(qhcHf}YC!=Lb#QPH$RNTx@O6`xiVB8T7RII)Zi-zVk-%bcr4EbX
z7R9dHD}e1muqw2j{w3i@9cFIEdmbskbB`7SxB(q21hI_UuDzdFMCx&oL(O8%lNAe~
zVc{}|WCFDweHoYI+!f9;t!<usj)!8J9wm-}BEQ6OIWZ!li(G8)`NWS%*d;4Af6UsJ
zScgoS!-0KpgI7Y*pm|bi_HH=23oif|be`ovOUcP?tgqiZ?~hpniH|j1p+Wr_w6(46
z7!*H6Cnz1$y1Tops;bJ$gp0LAVZCL6nFn))Cs-HvKfeAWMu<;PP~-kM^)gsp@Fhu6
z=e4?qh8f_barO)S=O`&x$0KwLOuGWSE4C-1;GBG@d0b4){`U)(OSf-czH9*Q0%j#v
z3|o<z$x&+s${J2S-#swH-)*Jk<@*`xdGNl0m2Wh<WVF}ClUm;}idDqNSB*4(pi3|s
z76?dp&SSlWoX@0qU~SV*(f2O#4tgXbL;A(trT~s_i1*MDa^EXbO?T@Y%+fBc0Cx6H
zKwNAr@*0Bf?niJ)+P$&QvXUN5lZwg?WHM`OYXEMY4pvPc=P8Ei1hgwACT9CPKuwwe
zpn_M7jE*h?cotAJ)k0KA{paVu?;sQQ#^0Yq<fV|wuRr0+k;8|_#>YWqB?<O0PW>ZY
ze>{8zpgCdJtsw8jq$GIxzz<8ZW5<r2I<>K~@@sbe;X`EeBqLFYLBttI_)C{ANq5PT
zo;no^0uI1OLPA22(jH_^E7jC6k`36Sl)<T~lb(l;3fj%o6zUc||J`3~)0LtA<O|CR
z`<>>h)ggmD2n%6+qZd9~4(U8bP7o`kcfTfY7vd9puvlQvJetA;fl0XQyZ?n$u|8nl
zNf_du_AFN7DtHgAg1F|((0y6iaZ4~w^1b>o=tyXa!yudvH?*{r$AJGxzfJV}_iu0k
zn6+l?L0<pXEYYDOt}tqhEy#-?taN5rOaHE&X&kp^WQ@!06SAH91kfvJj3V|chC4Gg
zLArG*5mNlZ{*RNOn}bboh{A;TJ=7XLLtEL{{YJA}l&wIsOSK8XOD*1lH*%Q%^)0tK
z`Ocj~dqEfPdK<&Kgc)psL9eVbhPsnL<VLNZ-W`r*)xVH*?IJqw?&?TRNR$1BJ`EHb
z?Vxi?UDccJm`lDCv;Cm91l%5H#hGAb)_s_$2o6ovJcaMgC?g{y5OsV`-3;fvx3Pw?
zQpxC7gtS2x<6Q0zZ_XIE_ww?B>pqMLRl8u_TR!^}KVx>+5<tdw5`rh|>Yt!qz*4rt
zj?i_UPPX<x_v)IqX1VI|lS=@eCzO|$%cYVYJNBs5-n`iAl1Apn?qcQU=4RKlEqA0D
zxL9I*oYMF@Sg$ZY*kH_yF|ap#$ZdGWs7+=r5qQa0OH0oedO&ExytKu@z#wlKdcPsH
z_yV8B>4!iaunOP5f4}al7wO%*cTE*g*pFp4lRsI*W~R%*Z@YHNN=vg9ru&9zHbCN*
znUUdb40{>0LnFVErAJ3bYz4Kw{I?_0ArqC8qiSCLid}!cKBIzWWoLI?f+JZXv(LPN
zWobIoJS^~s&LPBqLb!LT@um<EfR|eQ*ajF1k&MjDNMX*MJLlu$6UZnwq3I4zl<EMA
z3Y56*uc)+!sbk-bFQb*xZ@q6#(2`(mh0o9K`HVN5^S|eQGrzaUI+A?JwIw|$J$+Ue
zG*h-7*;3=wV+#um^z{3il{gW2y~#!7$J6`liEruI6%bo^E&7WLn+|pdcyWJn^YF0g
zzK@NwtF--$%j4|ja%j54kyFLT2w6aDYin$5EM^U=Gk7HlL`HD&+StA2qj7^GA|jjf
zeQMjGub`t$)Fv9f)<X*{)8*POvUQk09Z(+5$t!=<x6Q8ak*%KaN?d3Rg7<2yt;x8n
zr1j?>A!l%%@688nS}s;N61O9s+D0$pyaujpd1XZq<Y6X_5EDPrwV2(y;Q#%X+PZr4
z{WRr|9nZdui@k>6RtBzScY7OLKZmHO=*^p9IO{~nVIkVhfQsyo<CI&BEYPiXzTBGh
z2HnJZvnyyN7d6=yTDdDUkiU4Oe3;vrxf!pT4)DLr;-JWZaM@G4nf7UT%>(4;&Z;k?
z_$<#*hy_*r6rQD0x_TDWKXd}tmnjB7#WYqQ0v-rp{St>oo#)S=D=I32FZ8KvYMO^6
z2==mHU?A2)mtN5JG3~3-qEyLqOSyS@(o#}~g`-$=9%UJ-+XE30!XjVLP6SD8d_g_u
zewwg#5PyL88~Xly&m;lrq2fcR_L37UmeO)^)Q*oJ!*tnPSne_tGoSvI3~Q39k<VI4
z?W|%8U52Fr!_ml8O;Zl<OK&xX?o6FiE7QbK>E1YKBn7X1^ypD{zf$C97gBRrKp~@_
zkaR@Dg!$9nc;UVEaBO;dnyyyGQD?w_8xEOVhu1@-DHoWuO&~h6=Ge?ncif5hdQ~+;
zkPJ&)gk^Wu)x??4(Z2QYkxSqd+fTaZ6y~luyJ0YYR8_B#mc@u+52lqG4D+@D1(CXc
z|3lAp%Y!<^xVvcBj9`jLNJzjI*5<+$zp0r)f&%_5<ch5G&avdS#R$2!iTQb1jJmpd
zPEL+|VRL<bPGMn$R5F0($19%#p@czRg#sH@WWXKL0~M^`%~$wh<7|EN_iKR+&Tj`x
zZM$~-FNaehYke;Z@`gQYQ}Dif>odXuqmZ|J4ZK4$@{(NiQ(oSs#GX7O5Or40WhF~T
ztQe&Zxvn-@2aYuJs9Ajd<M`h83?$&6wOmDPCS)ExqNQ+hbX0y9?e$@S4SB-`TF`lI
zs;&Ao1m3ShS7YvpGBFK90KS|E#c!;zQ?A*Qavd?Stgm11ywZc>_Nyhxn{oBI>=d%G
z!U7^9<z~B(-!O_eE4L_RzMpYx)!DIY1S8v8Kg7C6oN|VW^8!+L**#!zxI=;Utu&wN
zkrdkE__+E2w%vOs9}M^N;VQ^qbReR^%YL?oUy^HSX`P{@EHvw}-dfW0!RX(L@}e7p
z%p6h{cijFa6c<zT^CITGyq1=Wfb{|G1qm=ks|V2`snM(ZMia$I3D{TITwPuL<x2wO
zFjNfctYMr`Q-R~^>FI&IBwEx>5Gw~e4{`B(g6548T!mZxMjdY741Y!!V{z`8s(q>Q
zjPA_EP;eO-8bY+(gt(01HK+@MEw&0yULD>&1CNB)+q@z>#|;`Q$Z+#5hYldTLZE})
zf=-0&6LfUJmW$KV0#FC}U*NlP<;uo<A0IC-#OMm>N+qNymX-S{3RgkI8T9U*agSPj
z^h|k0TdMq|<<|E0GEs%CG}T4qsI0fo=-FCqh_0jcer$y$cA)CZi0WZf%b$DTg9ir(
zp)sgYfSR)H(S|f%^V4I`s?p{sKKTTNGTZ?o`vvl`xp83zjK$HBU(>LR3S04hl;6Fg
z5IRusHouzq&>^)<jhn!aW~zc18gZ533)at{cf)Ef{jMgV)=hX;t`CU|DGjGqg=?`~
zs%D;{Z1LT47z4bL>6%Ni3kZ$D&2U3n^y9}5NO_?I$+wNbpd&?G?2EgeLz}QCpaKC`
zqh0Q7H*KG+h$O)uK78mswM2`6do2d<ni_P;_xQ>yc~Ow;#s|Qhie9@m4LHeSYtrkm
zFsjPd&Q5z6BJBSB`!tXYh`MZ;85@7d%geiy@Z8Q0{MHmmB;$gD6f7<}Kq3yiqNJ$k
z>RDeHlz^b1s{0ran>z6P&J1;ksH*rMh!VK1S}{)D3OZU^<KU4v)d4l+-B&PHS}}K5
z2(@%{bQzhMkiUxR*LZ`)9zYgRP*5=5ySudo>dB{HUXVb=ZP}R->F+NKr5X#U0$_JT
zm6xUU1O|%59e@hIY=5H<l!T#;<1iah{8svR?tF#VY&tp}QLW4$HIz37<vt%gYip4M
zN~iP=-D$Q{)WK0vnwfEr?LeM;pr)1H0WXE>(2?|y0%8e+u5WIpDGhohm8rU#mwA?&
zdgajP_#@E5XAN`u42xfndU|^s47kw^jg6H26%Tn0^JbRZr{Tp{7_y`b{Eu+@l_hg=
zPt{#qc3-?8hPp6f|JIeJC_W?F?*`lu((VK7z?!URVs5V87Z-p2Mw)Viu6}0Q^a)Z@
zi8N0=TKAKmzW;{(QCwWCU1Ixt=;?6r`z<!r@{7PEr!fVA<?^Dggv^MC@-hbl@Mvqf
zHRG~LReA+tE(`uAC*Aly+;PP=fXKZc%d94~v@lc&y0YI>Q~VG}Jw+hR6VJbX@1?cw
zA8V@TLA#o`zRqJii-#mo3g(a;LMohgf=Coz9kkG2EGH*-49Pw0d~VPxKP>I;<MZ);
zq$*_g$Co@mq&P&0%RX`p#~D44le>~QH#b)@4X{1R+q?By$3r3JNC$84C+eBlpw{v{
z!naSV2vtG8tvA(@Fn+55Af~sk-^rwakD+YMqox8@59Rkn%2&nZD>HeXw|7Vb@1+;A
zS@cLbf<isZ>LnU9=A9TD3+>xl3qR2mEs$4&ys%FE<n?b7Ga|p=&b`LeTnl|4pOa!g
zPq^oBn!Sf*SJuE=W@)L#mD%2i0Yxi5MH8^7{r&y)KBVwfrU}74qNm_=iUv|$QRNKp
z&;EiKd~ZDzIy8?~yr|_NqtLr3oAa1{>j=?o73m*#!yLr$ce_WYXM}KrisT<WB-@yp
zv`pSFlrkI|fLu^?dKMneIK)NQ=}B{Jw(5|#^wed0EN*v*LlKFY$5`r{9!i=$@jc<=
zZEC1_hVEHGZ7ra09{27Td*EOv{PndO!vVGV<3_ya(cFA_9e>F1_VxGyEP_Hkdeef6
z3l4smxdCrTBX)sl^GMB!bWnD2;1=Ydh@_{3Do!BE5TCiD!Y}hym6nvKri*a$!RmkF
z-;jI7`iv#1i!!(;=jnszSB;)>Ab=F=vEH3S2(|7l{XX{N8=uE-?xDH!Ei}2G(WSNj
z)f5YF6(CY#rfL9TSX*0TFg0M@%xCIBvwibv!&y)KYN-EeH+X7x`3W~gaDBZxk2U+X
zvxM98VR&$u$8r3m=>A$8vvhdIqa6K%y=_Qf-e1>yQN;jj>A@mhmbl0K>W3kkTcGsW
zy@1~a);WIAZ;xJd+WaZVSpfoYb93`ChIIeP%Y*`C^u{L)A~>&--&>s?=x)8s^NbE~
zKa}{W>MT(#h&dy9P0mn^PfoI2xzc$%5C-TUHP>v@aH;Y%Xtxt=)S8xB>HM6`;llZ1
zLFc^1U&*A{Bsg(n*LDe7dBQAqA(ek!2;0{^PBO1abUDq>67cAFWj(!wZf0S<Cr>Wf
zA6Iagxmq<;V&~@#i7GgIH9lmc@k*^=;}rI+{wGlD(^^R*Ln(PkgIIEwR`FYJVPWB!
zc<8Rj_rGEif8&3_n&R4L&JP3lr&+HPFuE{UUJ7Zh7;Z1b+tqbR031U6y&s0-mPZZL
zI9E1<24M!@GbIqYw|{u3V%C!=;Ro5y@i|1CbB#Mn<@J-~E>22-HZ59CyTwI(%Q_B&
zp3%_$;q=7ZT*R#V6GS6^e*X5`NWtsxTmNS-<Mz<n!FL77;2}+ZFm-MV>TlsfSpZEg
zzoVytW_M_lZd1{J8I-w%etZ9O#lb5J5d?Zfp=tosEqvC|K)`GT-rUai?QI&Ycz~(N
z)u;?ULe7O>Ra9$xE4TF><NV&Gr6njT08Ow3y%VIFN%#Eq)jMAV=0DCuBEe8a`B!~+
zsLFHGr;a=6KyaJ7p^@plc&fg<6jPIvaqDqtPDm<Y+rDF`9QMCA3PdgZcgt~UxTU4#
z*E|H<XZgKdT@H|M-}Fm?qDxOt4^9bOM#Hfeq>_O+{r@<73#h8rwQYFWh2lb`q+FD=
zlpw7lN-Nz+w+hlAVBw;rI|S(x5RgVuQUs)=5m36j|9h^*e$RQ|_dDbN#<#~AXOFQb
zbFMj`xZ}F6`+gvkgHOwcNVDF6tuKqY`{GGg{BO~J%fLR7v?oSeb44;-`#RQp6G<ph
zVur*g7r-@>3)q_4*l?kpoOWAUq1Ynp)vH(Fpe&&VK}e_{AmY*!x`pPQuv_3)w)VE?
z1qB2K;j<uu2hkdmNPyX8TT*MfK6(TZ()1NS*3F@MeM>KJ9I|h}%Zgg>{ZEFE3DIHX
z-gWqro0w12;r1+z$h)Ua&{Xf|$|DHirlvIPA3uCZL*2U%X><T7=NHTCs?);&Ga!BI
zii&i~9rKcsXwijMeQUw;B6{j;kS{>6^M%@?$9N?k1v#n9A4O76^j<kkt+l}tb*6(Q
z1kj<(%@d3F=HYv*FOUxd_}7xU4)K_%>&7)Yy7x1KKxSNJW1DT47o|@Ge9{79`c45y
zS63nQD!`00X-klCJ2^R7Q#kznPWC&X(2~1CCq6tJ(1KJYW{XKDVAN<C8k!1wOVpP(
z&}eIOmgZlQDc5J?wgFv6nPOfY-@sx|Vw?f64rkY94pq5E189r9$fh9#q2eDQ7%-<4
zVq^2eLf1j<M}k$ahgcT!!mPqVL%&&TK>%qnkNkuIeM5uF{9xln;`8Y4??s0F7lRF?
z@wUZTe1dlY5+`w3e@adT0NX(zyy%w+`^`oCD<Kz$&rncgB-0K&v^F5VxS*g9LKi@*
z^7Hd4C@BZ}`(M0xAz-^PKX&_89PA1nDa)>BopDbjk^o1^j%6@R?CFxjt(OEhH2JWP
zw>P%FtE*_qct>p!qDhz{fLN0Q*qVBKqp(m<@k+ESzj*`Y4)_A>iF?UEjhmweAU%f2
z01$nUww*e8GHr3WvAJ0oLgDtl6KBbl>>mmFuxJZ<81*#fp7D_Sz}j?;K&P6Vg>ry4
zxIt<>$YToR3Cy7*>mO?Af*1|DE}lMCXB{TY|CI6NKt*WVBo=Ei_~oL2>|j=;QCS+{
zM)!U8@bJor``SDEV&$nPuLL(>A?eoGAuRE_y1V`DP0ev;TH2TKMOkTS09#5uEU+m8
zE(>B;Xp9*u>~t!O9`-*Zjeu31I&~^E{+0Z_do+o#5R|8fkH375Rbo~ynKdtr!rBVN
zF4Sohkx>srtJi&~$;pM#TOs}9r%#TsDLFYg!P-5AX@_iHsbJg=6h;W<GC2zghwDtP
z6<4IMd(BJo%;<QfQBT6tha3LblxVTrUplMPDO#r#cw^U7ug>`AH1x}vri&MmHtUSo
z*B&NR=l2qSv3~J6>)xCGqtM?m&yDbMLpTS+1v4qq^bo}`!eeK<0qBK-G4ck&v`R3+
z&s<%v15N^d0T>kFiYMd{L%0B>i%A3=QDu4<aD7N=yG(ih6fKXZvFLJCc*8<3fF_VG
zE-r$Cg5l=^iu3cMu3Pm&r7K_)m(b`u$3^|;Ex_QAUwHbHx27n*!ITD5+n|1ZmQun`
z3nWqzoRJQ{J_XA-GaK-nNB8tbmR3HTTPI)dn5;PdJ|SVaphZOR+1AHjuX)@caErO|
z^!nq$o#D?%bajUSa@^S12(dU%O)UzO0;`NAv=Lq&M*rNob4c=icQX9jW5}gR_Q2{q
z#r@+_N(#3^E|8p>+P&d)Lr`$}cNIl&!^(;^E7nNe?Y+n6hiR_$N0eUZiZ4v&S|)f)
zwOqC+)JST(YJcM_@Fk(2AGS`f>XZBgew=wPBXMLzUpiLvtya|+iMwwb#KmI@GOcF}
zD<YG6cXHX;y~Gn$G8f;l9(DiH4u;C@$`z$s48cqnPoLSl!pFNq&4mU~D_ey{h3u@u
z`O_}f{dae-g=%XH?sHyt_pWemxMok(o#=cdZ2Bbvq(NmD35U+t{p3>cJnIu}w5+U_
zizDA)S3`a=2TmE%j^5(Ox%aPfadG89%CfiPRQZQ*$h93N#GJDK#}9ujB%qB}?kf{$
zG!PJ48{h+G)Hf_nz<=iVHy}+pe%E5Kd=rGm@q=-YL}cy@7;(Y6m1PLV?k8Oqh?HRn
zyti<;D?%Le`-o8GJ)&FLDn8qKnePBIa`ga^@^3zMxw(|{uJ_b^f_<_d6I~B3lYWV8
z?nrYNV{HOFt3oG$Bgp)FW23hossHFgG3%>a?^?|ZPcHD%hDvRsI7Z&w_S7Rc^$34Y
zmw%V=!RsoQW1Bx?HGSvH>v%tAs^mgE5flVt+G%e0=n?x~zIpU9<3M#_a-r#IY)lMx
z0!9IV52(2MQw2I%$mSO(2L=cCkfK>2<}+Lj!6ajV4$&`}g&l`UJl$fax}HaD3F4-F
zu(B|aBD<Q=!NE1uui{-K>X$+KA|Ynad2>~IC3t19?Y1E1Ri-JE3fOF!Uj|hwF@s)M
zEK_|rT}*nDGpl}QhH}sTV*hd!O^lHUyG#@h6CK?c6gBgMA{O#_m=<3N1MrXi0|T&L
z_d(XEB+|dDzO^=cnUXU0?c0R*NvUxSj;mKc+5GX=V$a?2-eMN%deID~L|j}P{5zO>
zfQXxjpYCi}W0qD{F5>*yyWn^q)tIf=eFBq-e&ua@nq89y$c|015x&tfkA6Juy-31&
zqbIaDaL37CQOG?-zMzb;hv&;TsRU-$wP&L4UV`qSWo@P%0A5azUjY^E-^od!GIj<W
zhQOZ(7^%m~0lvcZ^7AzaHS*ivPzgB#Qt9I4wAfy*x(lOMd+qxNy&6C@7H5lx+(4<h
zvwBz~+a3%^)$SUkoy|~vo4Jj++`zziKSg-eDl5l##cR!aufCxVp~(5y8g+wwNM2FD
zaSCDFrQa%PCb*DdeR4roIh){Du*M^b;c};CVpg>$K(-?hoS<N8YU=dr77(m*kzC1^
z1u)T*t6P%6457z2GDKm-Bm$_i+e`sHS%+++@7J$1rHq*wOaD<QYJ{ayr@N(-EeA2~
z;xPZWhNPus_l0$W3Z0HEf;&K<qC7GR)PDY`uipSw6I7+cR*C{&em(kzKX-I9qGbhQ
z8);x$Py?W$G00p6?Pmaxx@B&j@$%(u&=S=7k|~C^Z!5cI9gEIm6*OuL0c?Yk{|OB*
zZy``rKt<Qo(9+R;1=L*uXCA5i6``x&-uR8ZxV_{<rQMCWeGo>U4e80eJU*=EbU7vM
zo(+4>()Ad>?9FfC@k8;#?7WXlNqxRw*Z`Kn^Y!acO?sbE{@@0nhX8B>HVQQC?B%pq
zQ;STTLmCWsR0%b*i&VNZE&5>u=!hiU+$zDSD(#e~h%2e7Vbv!rzJLCFGqY3QE1bNb
zurRd2Q2eXAB$Nq8BLGW%j!0yglIX*P9CyW-xmW+B|KD%v8vK*{FS2xtoxK_=Wnp3Q
zJyhF3Aw7gzIpe?b{)nw>>KbR`DrdGszb7r7c@Szu&i`v=YPwT63*e8=%O-|~pGr%K
z0BC+dA3mp&r+x$U8TAbflCrYdi<6p;>}S5;+6SPKRi`{cetvFl?$Dt_M(e%5em$W;
zm{OpLR2_98k~-_#@LuTrDqRIPB5sH_MrN};;Y#RiQ4#0*tg33E*lqCIjP&$u>iMs*
zLc+oUl!9SFK>#2smWCVktgP6&ySrmFV2c6;d<<dOTRpBZ1e@>cs4v+;1yWn(Wa_-)
z>%2g?KpI(A`OtaQ&)Y=wL8jl83mII;gn6vNO=T!&^83Re3WI=QI#>1DU`<;aCl^;f
zK)A*QPJbFhaU_oERV1+}ly;`|!rsHQ5uCkN-YSiRP+~GE&qZqUf^V3p1__<gkGW+w
zH=rtN;9nvuXl?QG_)W;PAx08kDX!Y}tCC2(WmDn`VH9BUWv-j~)pIZk<VPh^m1hSU
zj0dk^^wqP6?j^kmM-m5*jqj8Kk%G4Rwi?X!jOo4wg)C>6Q7tecL*-7v*z$@BmdAg8
z|Gp{C#KeSq$FzOYY>5hoH)A>sXlvHYv!q5dV>lq?e!!E{^o8f2R+szuoKb9hxOeOf
z@%MPqs?z3!A1BW)*p!q*fA*4g3y8O)vCKP2=>-pijAS0Oel*?o6(q$l{z@9`6OBt}
zcBms+i2l(61oZd!pDqs9{E*^}e-=#kIDn{NTztv6na%7Wz{X@4MhL?|(N<q1NvHin
ze}m8qtH>-Z;m=!a!GX&f<Uf7-q-1pV8}oG*MnS<ci90uWPge9}u3p7r0oJ>8`SNzw
zbwJ!8C1FHYtafSQzqXj}*ya>vbliJ~P$_PKivTF1P^|Y%J>rF3ih_eLpaI5jju#c>
z<}R3lR8?PJU&5aPWU|05fNi4rfaJJal0o4~gL#s;C|{*3iZfUyyAP3izyL7cI#M1Q
zs%&YQ1vb3R6#8tx2I{t;fV(OaTo15@rw9nXH#HfM8pC9+t*yN{1MGF01Kkb6&axt|
z*T=-a@)od>@%4=TQox7Wd3n{|#{gJ{fI5oX#9xb@F%kH+g}!|Nd9$)uF;kFaxw@7I
z1OzNp!V64YzCK;qnUgJJjYdaW%}UkEaP{55;@|DoEyldjLZH*j<||!5GXq4oEyNog
z9Ubr>K0ZEqd3i{`JUmd}MZvT95xJ}v0mL$CD{lB`PK`+Dc|j2x$OrH_F_4;qLgi6`
zadZAKLikK^udT5ucd*wcFk%#&x}t_p#YoZPCaKl*6y>dbAgfjLk|mNhfl0>gxcl<=
z+7*-n1>@eYcUc7@34cNn(4)ZSx*&R<!3s^M0wCG#<_C9y-6KM@9b(UDq)Su0duk$l
z#SP8p6Hi5AR}h%4u=#NCFZhx)0GA<>&3G~okx+_!{M_hha99{aIS2ern`Ex83RVAI
zh6`x20Rb}!zwxmHJf>FO)B_-oOwcR2x$S|vBVObZH5u9DpFf4xqY@Y!d;3A)QE)r%
zEB)?t`BXS5SF~3>05lLK1Z&vbB7?_!m_R<nC=&s2Jt;Z4)V>R|2sigrP&UDv{Ag^{
zS4R{+kZ`UqFBgb4zzrDASfPxKSsGB)k(HO49e#NO$Lqk*GP7QLHQ3f>4J01qpqbIp
zm))87pwY-QB=we-tVk+44wM|UaQ~Q}Pc#T=nunSUqd&R3*Pq9iomaZfUA{?lrrZx4
z3rZ>Qn}}06s4gHkrxbM)LdS|cD@{lc!vq2w#0PxYWM^i0vNMeR`9pQqZ}k1%>;(_H
zRHRXI`I1WXBe+09dY+mGUvx95wG?e_ZF|@td6SisD^h}=MPb0L=GAEROYX(}{-gTw
z<<KphTP-z-M7e|g1MZ_4m`B*7;I{(<1F7A2@|2kUe0-*%rUBwMjtZT}f&TEEsgRy5
zAqtlLWg&NYfibIHJd1%s$%eI}ay!k#S=C2oXP?dW-@rr(IV}MN0a>aDNFl(|!t&70
z?RE!YGN97X^XDV|X=FFCFa+D|>-2OYcsA`Sb;CI-W_wxqrB+*5V(^!0rMBsxA3m|S
z7Xjl92U*O_&TazvunMf6TE3x|60@w76gmHs;i3IKhtJ2rtaTg%Mcp@vMg<~7n#S;i
zXS<Om&;rKTBSqHKLtau+kJK2L14#6iS6A7JRoTPeynY=E1_j28q7GOOIh^>y&I5s;
z1(VYuhamE*?T%k`lf-ZGbO0nEV33dDUj$YIwD_W#2w!l4hzJChw2+11>`rg(#K#P*
z)l9Z61{2n~ae}OD^*nAvqKKl>IJ8TlduUvr40|{<iy5bt@I8;)HQD+f$(6^>t+|19
zSBSJ1|Ik*LgtN$~^QQ<GlqKhr!6o4Lq)SAQe&?K(<&WE#5ks!#dQJutK0LnVc-R2S
zsQ?j=c;RaI^?E~+5N0H#F(|?MZ;>1x6<yHnEIaN7VG@+%RoeWKvMcK;cPfxd&ghzS
zhH(<0WvW-5?_Hv+$js)s5{!fR5-QVmJmSHafrTC&9gQDEcATdksb~7abB16^i2n<F
zqdI^pydO>HbYqHARC<Z}0@}n#n@H$$M}8>&BSPL>S%H~-pGQcYhWSD!dkSq0!j{kP
zj0I2NUp)<V7~o(Y?U|P@Q}vYZ5lzUm<)GpFIg#1;Cnymd0u6uE)wM?eD3kneYv*Bd
z%i{#h^gU;8S+a^~PI9mMjtoCz+pBLPRS>)7mN`fVbzdky4<5EVCG(<qxxi5bY&1O$
z*}z76osW;tYrawKN>{)+8UXB;O3nx42H_0|#==<0_D<klkuCqdMMi|MZ^J$Dlr{FK
z2ctJ$<9t9u1E)>QFM2gGNDqL{16tMw-~&J;h5&klKon86iSBR8=Sf?{oF9gO_f(+v
zo}v?tw+sV@%YNcL8E;&06OKrTdTW^d$i7xPpvmi;yN>n7awAK(Vr5ffSHxw*2zRho
zz~P@gUK7D-00N4~AQn_pgCs@DQ}4@{F91R^*gy9>k9*Zi`Bgty+y(FbOL^;E@({*i
z&a&m%iqwdo)eR>?g5wx2n|>od`-Xw-T!s|GiB)}7RVz@bbeQrSIZp7a$VwB8oYy_(
z&>x^ofJFd1MZG{`=J4e!M?oQON;GCN8giFVSaM!xpwNxh%jn<}E*yKkU;inSJ34+a
zG_mv8z$f+JIa@QJcM<0SZfJ7f?TUzb$5jk$=JTmp5@(UgB^Pz-m;9DKwAtrLHQ1~7
zobIzA4eaXl0B-7txMu?{-YUg6)*onh(Z+yT02SiW5_7TkyZh$@8w`n((j;;iZl7q0
z6Se@p>(MCKvCl)lK=#s3$TR?`$Nf}(IqMOu&~F0wme#V|wX?c_j|0^2Q9G7P)XWwO
z0X?B#tu%d9W1ppCM7zS)PMcnCubN<2fOIuP7tB3_uwzQuQYF(G2;IQ{feUl)8iW>A
zhgM-xshz813fN`dUZ!xD-~Wjkun<8gUX)*p=S)8g@|S?%tWH^}s@;C$6T$-J=8Ai+
z=DXI=!35TXH&$e0_(-0G*{f?F=V1((3e@fR*QzFWLvP|h(8ARB?+rl~c>B${&PiK1
z@}mcojO_Mz{O+&*s0QI;iG3ryz=x~Bl1?;IQ9<{h1yX7EP=`wu9b!yd`OlgeFZXlK
z5}vJ{Eor$SJ#>rttevgnBZt}PKZn!6;3L86({X<|^99feZi8BaJQnkq43c3+*(fDx
zL;|gL+JKA6fcC%~uE~ntUXQ~W6F-%N3M=^EA1nUE3$I^C3LFu3ArEU{qY!!2*ZbvL
zXC(w<0AE3c@f+-mmoGujIyW+cv47yFQW3EO53W`qeR=azMRY}|9HLhCJWg6xNrOZq
ztsR`=XZk*FRr!{+m_Mw`pZ{o^)fB{vp`|qd!A4|cB%tToRc_B<Q+>-x3#{P<(y-O>
z8X)xY8^J3-^2zrfAVYUwUdF~YVldI^by*f&&@83)R73xgvg-Z&!_(8zk&!n*8vzL{
zO-1)1+(M=!^^+)M)CzKXgXK@pGW<%Kbk_uDn;c(U*{UrWkl-_sPfoN=3eofI>)R{y
zad{S}wx{j}Mtp2+Os~e%s{d1<?lz^l=8<iGNLCVV$yf(6V`7?}?up09<dBi++t^<~
z+<?cDgy1hf`wwMFeEnUMmxyYmlRpOWbQEM<zHUjA2&h@4Ov>rYA7+-r3*VUEL~Ppe
z0I<q;ErW#`L9(3Ae2U!S(E%dg(xJm{!4dAI<^i#PjncLFL1?M<w<TUT)EN9O_(u$e
zI^J8=Y_=o49Y7COB@UtIh+gGvG>B8p*Ht9<3@{@dDpAAtpZciaCiQ+UsMb|JRlI-y
z-n$tJ4|lUJ%-?sx*{egrV}H|Vi#YGR7XPZQ9)9#q6s0CEoE8)QGcxkUIwm<vIr*#_
zG0yZT&D5L#5<^1qmUv9Iw&cRmg4hbYA@3l@4foq$C)Sk$`^fw}vER=%OTS=za=jT(
z<|Gg!vI()88W7gqnKfK-#&8K1T|E_7t<GEC3FaD<^WXFjiGT`>mv^;9_2$ObmPW>1
zFhx=C`4mIj(7tV8nN_TKl5XD!mBKl0lzHs2!>;g;sp$kH$(cV%mnmQ(&j0*)(dau>
ztsw@ZShg0GU>$So3N9K(+1)htsDi1u{J8vG`y{IZNd3j=4ZT!DtHgtQWWes{L?v*>
z$gm&$wKy=TGX*UhD<S|ck#QSCG<A=TNcti~ISZnO;d@F{HxL_Kdv30`8tA`BE%=6n
zQ|PU>acGz%evy>)6X?05J0OI)f2c=yJhY1XZ+jV#-uAyv>Z>34N5vP1h3c%K%1@jJ
zHtCs8<d5V2DT%lpKG$39c|pPjJe^oO?Ny}J+VrY3B6$6HAJQ|_{_X#+;yEA(QRiPL
zaFc>W7~ujy>&=0C?gBMMD*u{=nREC0Y%b-}b%fwV@u-8^{@%Tl=xm*eQh?!a(IXLQ
zBo30`i1{-=sY{*!qJ(~L_*>Lh`W5mo%238L)58s*It>jCCubXm7kCjxlk1u1=EJo&
zeGo~(OV0_NWi%owK%oLp#lA)&d*H;7dJvF%1MLA(y*p^oz>9LXkdBZN6El23W_nD9
zq4W7wGbs#6#wG?AI@jk|aG~RVO>M2j3{e6TVCcI$J5rCKYyuQH;Eqd!)(~yM{ZqB3
z_vd`x4ocxEL^q%i@#KAi&Uy0TP01N}lUD`=$2%*vEo)_w0Pfsny@eStTgW@EzHUY7
zs;QX<f?hts%iyDiU5A|HUrNk~n#we_q3t~D!JlDUkzGbZp{S76dx704;*NNXQVJQ`
z(q{JR!C&~as!wF5efaPMNF~^++0g(NBplN7_5pRYnn(pp2<%BDHUYA|^MOYIgeLy}
zdw_vWrNCsEUX9qPgY1~T2g$ZGq$K?K3J<bv)N0@{&sO+sP_N8E^&ZIUTFl?Z#K?%B
zetpXk9@uJnkLphb?U%?GuK2Bg>Mt=)f(^eP2gBBETu@cD5B&@?e)7}Ni6ap)-10Bg
zc2rLo?EKkiyf{E?7Z8iOuU{7?p`ydCHQ^=@e8Ae`L}-nFY?9g{-oAYTs(K5HX>gg4
zw5ul=!uxOh%G%Bl{_QJqTl}waQPf*6V?mdLb>0p98<;Ahz&CH|HkZevc`YQwZ{EBK
zXcXv3A6ITdd`y94MIe6`xpGAhxaTh{$59@h{>|k{y=B2|W?uC(!)innjXgX#a|<|t
z9KbZ`>FMG;ps^CExDc3|%Yg<CY|#PWxjg+lpr=&HQnLp6EFvioyIqIaok#9LgOr+K
zz6aUs{YwBQ0X6JZKQK^X>k}SMf=+(_KIG8@=1>@DcG2!wB==0X8Jv=ufhp#87Dh*E
z6thur2NvYxs#f3y!K45u!(9BWx!Dg3<jw<o1K`-akiskk^6>DKj*80i9c(7`6F0Q6
z={hP;6RLr?UgQK&kpzoG98OA8DNP1WUMhJBcw6U+O53EDFOQ%Hs@!#P6D8I_l$)l%
zb`28f$QW(jq*`k=O$6^q5CA9uGFw=?8)H}^FMw=yaz$;%?wJ(;8I69>6s9&n0<?XQ
zc4>kTsjM+KnoQ8yRKjocKo5a3eF)P69osHE0DuFKB+#$dJa&aHqgbSJi;!A`E)jTW
z;L2VgNFFXvIqUzwgbysXXOXw@U;rQo+H5WW6zz4DiOCGaRy(y0gHCUZdLUy4^wEC0
ztGTl?RP@MxfcwsE+^2o02Zg1(==W3ygK(0MH4^8W@KBD}OOTx4)aRg`gT|#_t`Srv
z!$$!#NRRQ8cskq5o2?=(4j~(8xz7&*LcwzpQA*%|Z;&)DuRRG;8-4~J8<k*|Uri$s
zDO2?1H^iwVQ^0ilL4+{Vp4tM>270y+q?O?5&r*wMArNQlwI?wn8;_UHm~6Uig&#*u
zSuqCrKF=RPs#loz97Ob}k$+sZj-X7P|A%q{#d^5?B;bH|BAYX6@_t%`!zo1)e5TmS
zmL~mfh#djcq(N$f|3t`S9C1lzf)kJkl3WbZD%X7uuHRGQsD|pYz$(s1{rsU)%J$Ni
zV2@>M%tCJQ?xF8-W!s}J+<pk4xwUn<^dJZIs7-P{1pPH9cg~86ii%W+KT5}dKlYID
z;+#-^P}YOjTut-+9R7_*hERT|JzL>D?)$1_4wl`vnP>m+@FPUIva5$(<>bz}gJ|=4
z)dM9Z!{6Wp5^m~&wh9e8DOMy+m3@e9D13>J0C;W@)LH9yqj*!>C(TzkK=R8F4DuaA
zE^@!ZURB!KD$nCDZ_eBzXAUz;R$xMt5gae*VMRDUEp|XT!uD^oGrw=1p8S0TgGu&g
zkV#r&C!R}mdka~B*DLIbv+$sR1>~nCTK=MjS2pNfZuo-~T)+G0{l$5v!rfCD=+XVR
zk~4&F{)FWoHx;<{s#4E@)Kf1)L)dNd>|QWS2Z4^*6)AVZMe@_1_sc#kSZr(rZjMtk
zafD;<C5OpG-IV(gCgk=^VQu~Vp-SV8?(_SEY=?98{1&U;I3BXd5^?4KDynDN2qCoS
z-iE>RU8q7hC3H9hk~Fo<{V&j^6DnxXldH~J><<ip$0hQj6BX4(zP1pQ)R|ss@82IC
zmodjv0MMC8ZOS94Tnn=Kln)+Q{=!fO!xs&;VdV4kCGZ^4sFZ{R6ysY9PaF>b=y{BA
zP9Cr-+yn;KqZi{845X5OLNgZlqbnbb0eFawrG)YH1WoV*^M|A<5aJ}-o~0?BI<^5F
z5Van<BR<m4gN{+Nf-#1PnGTZ^X@$gY75~hfP3M^fe}Df=kAN7vx^7jfk<IQBSJ%{(
zd6zKjI03BL59;e6sKZ5dMfQkc*A&DXcGH~<hu>26cfgg`>7v>}+6m<&OgC<*C$&Mj
z8K^rJfUa6zT)dJ9>g<Gs1f(pbF&H*e=@;X{2eX4)bQOa9VZO01aA@LvzE?kl0%Kx?
zAeYQmK~&|Cp2@|F0GV?;U5V%c1Q8(awSg3iqiRPXwOtk<8>rX{O9LG6>*v9e<lcf<
zkRjA}<l8lTYKZakJ6M^BnfJcL@=;@!CAWMD7&H+Jffb}yYhm~^x!+$%y@(OG274#U
z?RKHb34_)Pf$4UAfK$jNAJ};Y2nNBjo<whMZYo#$euc6nS#hYGyM(*%R+y_cD3}mz
z6m0w}89Ka=FQvDoMAS~_A3$Eo{J0B_S;aVSEWE=xl{r8~A5eK;DTu`SKB6pqekDd}
zq7SiGD5Y>HNNA4YrA-9ypgcH(M3ZB~9(Oz;k0kB+cC?eDP5!6LUBcOuxSv5;10OIr
zI4J%RU=4tiO$sHYrTajJV`hNF6l3Efp?3+<|E5#J4K>X<kaz)XCJuv13zW<rkIM~U
z0hZU-Tbi0^5w-bgMDsP}iv*)%ZH$w<uLnVN^)(-lI02d`95^yRzYpC6km3PQ1OrV5
zwB-U6TJ^uXeZo@@ns9=?PEo*GTTHAP2=8MgP(W80FnW<Ops{8D^APun^Mh&bkhnYq
zWdcCp>>1xzpksErdGj+Q;@^#z!7;_hna3IRKy5>=c9{xdobOLV!at+B886Sk*Y<Cf
zyKpEn^(}dEg>+jm<dBn|JAK+5s@o>*J@tBvtOUU^gY&S0g79>u)AIlvn1=)IS-xL2
z`K($DKUvOS^q->bz^`y|1z|x<tEi}W=`<2WoColYoCp%}C-JPC0!V0j{A}C0lln{)
z^4i0vn&cTQ4Gh{dRXISz@J--0<Y6Zuw_cwQ9lVEu;|yk_-8@O0y>Ki5Y9}1xxMcvQ
zpk`nRy6G01w!JV?kCc%R2jZ$Bh#oS5uqlvhnIAFWNlUZ`{DsKN*c63})y19}M56X#
zn4O)R*tAPmAPxitnsGto&=2c=K&S!31iV%s!F8)gNMltlp?@F&G4NCFZ}T(>@f+4-
ziS_(&)y9Yqh_5U_7HR|a#wSl+E$gnW^$b{qs3!+uGOF`|mZB_)Z7#npPSIq3Sb|Kb
z9G}Lam}zkI-l9o2q-y`a<R0<Ykc*l2R)PIZAUk7d_oc8n;J08ZIbj6?pHEQ-f@ms0
zgQ3#Xz4SS70fvT#uoRn(mmwO$1s!2ufQE8-Y*0W=gicio^F7B~Vt)X>Ix@UF1TvmD
zEOb(@Dk&`$$@J4=kH7Jh0S$<sIuc_%L<hZaUG<j@iUDbFx)Rhp{ryMUi(;m=O)f@C
za{`Nt9sV?fkP>^9p8gJU8%+!y$6ZSF4@Bx^Vw8RA9Pf>yi+I4-@!UI;;XgJv5Jjl!
z;0$o!0MGa$yIPD!^2hDfoNU;i+<ifL!8mdS*g`009~g+m0*t5PQ~-Lc^AG52X27AJ
z1H+naZ)N1|gRQr;P~|cX>KVkV0#ON45St|=&|nZPsHNphL2rzZlMRfE_)3@NW1Jw<
zoP9I}(*2(y=L1Vh3>rQ$A!Zpt#(`glm>(37vtwi8NSwVq-qP~@J8N0^=%<K?2&fc=
z1FjhvQ-M=FiR^N7Pic802TNmH0g&rjYIE72HnF0`r!@D^{y%VP9_GO*$)tSQv=#nX
zVCT#M24FsbjKx;LT8VdnT?Z@zYStDm^bV9feKWKN=U*Ed8KECQ7z%haNTpt_!#?Pw
z$I(u=C61sYd&^93G2n{%Q9R<e!UO-W*)*EdldDaQxAP3IUqE*^D2`Hpm1J9vhYl5B
z-y-NmYe6ax=C<j@2?)@x7?NB7;1ld6y1gWm$&@v<8=n)QI^M$81q4HwPLw27Xz5J+
z;8~r4_ZL#oKal<cC?3Pk?Q0|#F3^6cf?BdOLNE<N;s2G%2MqRJsp%kcH9(5(TR$js
zRG&D0{Paw~DF1WFd_5W=<ot?u`a-rB_paMVBmUhhuY1Vrk&6(d9z~goBS!DTPRsI+
z@UHX`+g!b4fGI+Bm*{y&CtYc4Ys(*WnhgyN`NtsBIg4cP>rFX2BlD9d2!5`*%i^>5
z>K6$9Cl^Bs-0a4pLAJ`}3l}b2zT5|e+~AmDrIC<?YcQixsJIqf2ZQAQ*}(unLxt79
zJiSn<4IS+uI}kFc^@X(l2?Yr?HPp1sgG3x;bw0Y!R+XWPAloI-@V0z`K=)TYluIM=
z>J|J*iFC$=s4)a@Zf(KY4SP^>590m(I?=s0s3b$6;|(Ax!I**OjEtB#EFwbfOy^;g
zn3M141n*uZSy={<3G;wVc&_5WB(diH%{&b%5GX4K%^DCIZ$t^_|NfN_2LaL+w4pBr
z0Ru!PAod)Ce}`p4n})p;N$nY!qCBMEftt!Fwc$+HZG2jmprZCr{h_BGQVFjA%^SiN
zNESd9@vFT(7z;86C=zyFo0*)O+k=Mj40LoS5qBcRso`hdV!s9rAxGXL<c-8X;$)9r
z{pToM(2Q2V%S45Q*aAy~G+=;ckTi+lt#MWHB)Z6H@Rne8WQh@Qq2zT%yd>a@DW}K{
zZ2til?)$J(3`>KD3Z)ix2j&=xW~AV}w#NGUv}7<nQ5T{3zQW)_^zvIMzR#y~e9_P&
zd+<s2olht?GCn~a6`UWym~HdwA1y$funUA&R@b8~a%mxfyQA<nx3}<4(0&9GlN#Hm
zl^C%cxD5@HO;mhjWW)Fxz+gZ79~l^oj*s&J*6-tR0vMosOEyRW_!oQuxWt<%&5sAh
zGVKiUnFXMkdVnth!w!nxI_sTUP@^6@deoPkx3Rk$S}$m1Z~)2U^=v~7oR+B+77M}&
zu(<z_=co?!yF+_mX93xUe;_VoYM!;Xw+9jjNM0%~L+q`0=e6hnxq{+j0h<$MQeaMp
z%IWw+ER0zW?3jZ&=`gS=-^SOVL@Df%?UN^@;BzMSP3C`$j;76(5ADk-b981uyQxEO
zdGz}6+Y|;5kH2{SaOCJoQbR+6>oT>$<CP4-zyC7iN;8x%(M66mJPV2@Ia1SHp&s{E
z=EWh+hX(rJ^{@Gy;5O#IUi6t?C-0B4h4fU8PR7*U1Bt6atkT(G8D*<Z`<=?qGPYB@
z9;8=lE06cPZG-S?$Iac7`6vqOw(-z(^|Tjs*vU!r?c%UI?Ng2u!Y7%V9&!W22n`uP
zV^^vQ6;kYKA09$J3oY1VTliiijU1}}HP%<vtyZ9rtboz?i#}iW%<IBwCtTDa(bu|U
zZ#8QYOrWZ)JOB+TVMUj(^;+0zx7g}I^*(xNaG;i3o{5DX)AfEzZ9t!~{w<R68a#+%
z{QmOuFf?^V2w#ZZk%LpFhxvAp=9?>nXjCoDeok!dQ;V<p;$JgF1nv9u8P6}20vwKV
zq-{n~2h@Q$KBfoSJqd4${?gCVMb3ChfBJ*>ak|4NS*RR%NN~9~Zy5RvNTi)ZiOKJ+
z4{=^EA5K{xTRHRn^5aX7RKSXo_IVNyLyP@gbjA@>E89X>%5d%3xzRCSpYN9+p=Fng
zVBS%V{+XPIXv&UWub^^Wwp+JedKw<lJwzkrqzSqgRQ@3#qVhdQkLtQGEzG5(C4ve#
zxU2Z%agi_ya_!|PX>R$%&{9!Z$fupgjsEHKY$PgGe+`JAdUerlj-1umUw_%@E1$^j
zJRWz}1T%@sN9e6`WA)mC%x7hyL~xLh+iW;dxYnE<!gtpTKmxuHl+QZaBEPxj%8E%e
z`y2j9O6TjVShzZI0`3(`3TkML3f)4^Qi~$qUTTKJN7rzpXUGI_yW{OhW5?AC8lzXx
zXzhRjrSK^G%I-UW&(gS{hYwXBVJ1E!yc%IYgT?ZTxLe+=;4SQ$PK0N_?Sy>qTCb9-
zNt#~CpzSSj3U?a&K1`-@2LA3oxci|}`aPFVzaL~n=R*qGi`kl%@-Z`Z2pU?C@Ft|f
z8ZMfqf8sx`T}NAgIhMCYzotHlUyCIO)sQ4^@#r+4P=<gYR7+ijrJBc*iNAc~C35+u
zs5NWH2d!_3z*L7wOo#U-8|ffD06esS&h<d2QVS9}PjO!I@xp5BptE(SE?#oMtyCL?
z4weW*_Ce<b=D_plvZXB3U4_(yR{WQ_AYb;vb$gxEf?SCimg}ced41vh@806Sj1l>=
z_Zw?-*W;WN)Wfi9!5Id24g#MO@RwDQ%i<fNy?R2$5|*0cSyN1TrGgah)%b_kz{B4<
z?GYA{PIr5aV((4GEPp>%EGV$83By8g=0phUt=|7!q1x-X`5F^~`7%@(&X)b`ce%f=
z;S4)hm5q;SR53j=U7|p=&=?$!);UvI()KJShPN(e{nCTRz93|>_>f;c<$uA|?%8lf
zaewkxBh|0DapP8Zkh$PS=Hhza^{(9I$L>SgQd(|Cu5)&S2n*@4a~p>8ciwF48H;Cv
z#a`H}m#Um~Mt)YUmLkCW*cEsqf|o|G<Fse{cA?TwVUgp9{P)W5(@5I#HXiv^hEOST
zdA^NvGnde9JWuyz8zKwvlj!6FlQ?<5!Ej>o(iU?3Wa*<pM+=*+WB5sQm4IKqqL@Oa
zv-_&c@t!z^HeZ!SxWK$?E>N#1u{hf5Bh{^Grm7PSe|o(}F(Vs0d79JNOojNnckUv0
z-`9@)%@}UMD38Tn;L*49$(HQIU*<&C*URMIzAtB+3X7mv#`pfmIXRaRI^4sn)qp$m
zxY?!=U30cc`MtJy%#)j0Zt2fdLUB|4kN`-g>PWL@+25Xbl}&*2`$pfkMQ^YE8h_am
zxlA@u7vLGEm7~vz&hwGh_n9k_Zo+@J!8urd#}oOePG>vc`X-CcYhp=Sm5xc&Klp8N
z`0e(egp>r?ZnxkZEPYj#JJaF($6g=2xi`G|?(%G(flzw_AY6I1ve-el@K;~(m-CQ8
z-Cda7{I#*H*a!wQO6x+IRo>B;2Y0ibI9zTP1(nYr6?_V(i)3fVLNo)AC79{qqDU)y
zC{&04U<qYRP~`xH)+s4)Y|W!uUozo7I4)!<ua0WE_^&Q>+zn>nEZ`ZY-@n`EHy(%X
zBSynf@-s#Mwa~A18M$~oHaFjbGigAQ?S=+1Vh=<UNUs8@>VadSa?{eT()Jk_^#D`0
z2nRu_h0$Z6bu;vRfW9Lx;DR9PvxR@z^MPtmO+thkMK(UP7Pt5lIh#2sBi48@zqPI4
znJQR#k35>b04b!oEcDRPb^QGrX?Y5L(*h`NEVak)*}?+@pm}(4<!ZLCW%Os`+1Xh_
z;gz>W>Z;myoe*h4l`LBmA{RwEf<rqWfE1QTd^qeiOAqZmKS7lS2lpu3ziqNTG`~??
zZdJaN7(Ey~u4_8@LF~9g1+X=!Yd?8%&ydzbZB`NVVNp|agpze|px*V6J|j(5CrbCG
zGIQe~x7t9ySem0E<Q^TgUs;51yk+I(TH?0ay3jX;t+;=L{|8h{^l8Uk9?s0n^b-kD
zh}@$&L?8vbzSfgOF4m=LSbw=zQxZsOR6UhC<uDZf%c7zDMy|!8qYl^)VEF2+p}s<B
z$BMhp5=0Fcn`Ykbl~T?<Z<d@1Hx<w&iAzgMo0+BSk>1`CL;1#3U(P+o_vi^Vqe-*Z
zz!M)+^@=yJ^{dr_JKv;&yy;RPRFAJ~%;#9gQ~re|5+;=lLyO2RGb4xQNzm)Hj%YX=
z>C-4bv<aq8a6={4S-;3FC*8^Qn^PEBVria!d_Lzjm?*KZhAEd}m=g?Uj(%FW#De_t
z<u_GU#?jB9;&i?^qIl3*THM^iV&KmD)+PWuKmtN%a|?KAZdO)|fStLv_5ef)?ei=j
z3kxf@=gOXS!{-T}C;j|6uZ)Af)h;%Axjn@!D#gsz!)$u)&76ZCnQ>p`c$cZ>(9`fN
zmcNZ8<KusFrI@}^FFi4h*9k<QJW5fwSQJ6=$Ia8NDn9z#&%bWAQcQbc?SGdy#SO&?
z<CiqoMUDKeQ1XU$9#FML6j+(mOhQcTeUFEnau3F$D;F3QfTpCxA62ZXIQU&2Mvn7w
zS~iYvQPt8yI-fxjQw0J&-R<7)N6;Usk^`wvaNi7fpDaV#5SUQ-iPG-4?PCp7^9*g>
z6gQhG88N}RrhVy*)CK)3IU)14$3AD~G>=W2M8eTqpSu=HT-@HXU4)?P){k}`zkQ~f
zuP69jsi-KH*qCecv(7C*%fPK|dFpd-?$A*M5W4q$zdlV*6#yj{Hjoq)Sq;H~Iwab*
zfn|ed7XV&H8g)WFj;n~Ss%kf&mvHJ<B#7eHk+%47ik4t?z;POGR+h~T>KRIEEcWW3
zZSz>SKU%ps06>l<^N1_3YoKOhC7v!E6dn~`P)&W=f4!jD8QKiC(*_8^Vf2QiwXnrN
zSunKQ0Yk%HG8PmS6*XtEbmsJF;6|Xaa;f!bt*56a^vJ2|&V(gA2Z#MkZnK9Ot!6X7
zEamWrGfn1-N$=gJIe%a3>`v%~<HO6F{qq|ayu{blh-yM*Oj)Qyh2g*xp5{Gs?UCiD
zhIIQ;LMBKR8QiHu5|jz2Q@I@bWEK^(BN+e(fBQNLJ?bm!E*xWC*LpF^pJL{$EuHhz
zPWb#u--+LfZqp+CA6Z!f?>Q<T?_PTNy>SYqtD`drB7Yz#Eh@@Vva&3ZT?}exuN~+-
z4qpmIuD{RdZj@DRmt|yR#GOsS^>pc|<ZX$^Wl<pJn%?dJTd=<wzh5%H_4lvw`qCbH
zWPQ8r$PTvhf!ovh=i^6YH2Ep)kGMj^@A`Eb=E#%TI!y61B<MD~<&?glcH?`M`!8O6
ze#jL`u@Od1P(8j}a!7>SFG#dKX}a|Cu&~fXi`|@UL6Oz6D7}@Z-qFL)O?evmtS1*Y
zUE`=Jn3GQ~kQU?%RELL!dEbNmpSue79i#Bz0ViT7WW?nF<%Yh+#Q;;Jr2LH@+WEUV
z9xuAk@~a)G`E;<Rcyq|j1Dz<tT|Q+!Td#+<wjC&U(wpj^#5opJjJk?Et*W9TEe15Y
zvxRP;`@;O3mz;U`D7wcOj+cY87xbP!U55Fm0xRv-?!rTk)UiU5%9h)FUq{DSCCMZu
z=@sVQOB#!HijxEL0Ru%5NaXCH71()bFTaWXLLkybYWz+CH1mY<d@eQ&7L^Lwglo`u
zi|_jNACcVSu$qMjKE%AcpZ4zEZ@#L{W>{d(!mIF?-t{Y!Ur#+0Ps{nS(0F$>7}B3p
z<at}kT_JmnkHFla^6#sh*g))PyhsHonjr7CznkM-H!8Z_(*nm+LBbE~wNx_)`M%yl
z1U8t0-!5|7bw;a0-;HPFn8c9M#oEhv#@@Z5vXLM5!J0({2(SHu6d&p+i8*wH662Y#
zT~A*tS{QY2jgo_o1F!Uphm2$oLgMQ4X{^-M$SH|P$5^Pv<EO|;Pw#>HT1;RBzx4=*
z+oDgLK^2GAr)z=t`k%H4!*Nx&2d*nNLq%3*=H-WmNzm4N2RUm{a}WCXJA-8Q&U<jN
z7f;6uIsLSb0bl+YI_-sP*)$A`#>1hN=-snhyL-U<pgCm==1JX1-zO$wWZQfD`YPDz
zRA1NVIW*P+U$b&NuU#Xm=4?QQKjZ+vU;Ii;Rx#=%D{kb5Qw>tgxUky2!0Yx)XKH9@
zkbY$sF3kxK4ZVXwAJ3E4ymRNZLSsIw!$qq1pRf6X#4u3gMWca8d<!K7GaO8BYwM`+
zQo(%q^9K*1u+Epiyy~F`60TD@RQtGtd>zhAgwyZbzFku7x2~g{Yjc$-YE~+MCPe3!
z-pX~aBByQv&gr_=W3oQe1Loj|;Cwk8nu!#h$Tp$4?pX+sx!IIV&74Q4exlQ;>R@NV
zN74`L^LGh^j@OcH#8i`Q=#l>*bKKo%YYlEvW@W(GOPX1>4cJRgVwECS`HzUo#5|`K
z`B6<sZ8H2OfP10lE16@pW{=x(D%8&uTo9-AZ4{#)t_m55fbg6TI69QgnL|`!ZV<zr
z%+`1pbPAo9QCl|!83gx`GlJq7vK<!k5E|=SCoyOaZj|!E^1A8U{*J||tHt~wu&w9Y
z3lQb$5@v&tsB0`rZ6KEDq$4hOxuyldy3@Dy-}a-MCSQy0&_O<?^`U+-F9{wjCNlhq
zSZr_M@w0BnO{ii<OLod}KUSZZnE3<0`j(OZ<FU7lhaXpw^?&*-JKwO(!Sh&+rgRRM
zk%`qp{xJ5kS~L2^Wxh`V!6Yr$t8A05{;`sTTg8kasTt$1J5{-7GaS2b6CM;_)lojz
zgd;V^sNrk0{_=lT)giES>ici`1IicFq#iLweYHL<TMm|X;Y6xBlvN|<k69pwM@c{=
zEcPg$)nK3<z85({*R6Tg>xTO%F1M{diGh(2Zp`;B%yf0{p@;po`E9eICmfGAT+4^-
z!p2vM{<b{d#ECU;tf_|Oo~k0Z=s50ss<Fs8(lbBuR1tp1M@57;qYCZD2jfVN-0jI_
z@H>^N-Ji!Bn>78m`HbSY+`$3~K}O?vYC+BV#C*phDBU)8^N#ssF^wPG?u^{-(T<kf
z%iUjBa^~}$u=1Hb$SzR6%<$1!-Ca>yd)W4V;3TeI)N~9Nc1!FA850VX<cA`p$uwh=
z-3ku45onJN{F3-<)<Hc~8E;A*J>as7nJgpZCdrwK;!0-fBR_K04-x>BBjmm`(vy%~
z#JkGqKR`eDb7?QvoqLY(p3t0~Hay;g4`NYh!#(jv^i=jvaP(koW5Le;2Ai_ZZ`{au
zg!3OEq?w+GrvMLgusWNB_hm1I<G*c~6W)Giq_3>c@h_86viMhWQO=@;ocsLv)ZJqp
zK0P1n-Yqv;!mF>2(N~VAgbd@t!2*4I3Ay}wzJ}0ue4n+54U?We9(87ll6o5fY=$qM
z^FL&GY`@FFFFc+E=t8Agp5?GU%7YA-#s`Mokz-*kWq2CNaLKrvFB4;HDUb?`YF$XH
z7SwRrZ+yynOY`;Iss|xUIADh646IK_B<!rX=;%;T7P7OG{MSyG0fz+d!ZKRG0xaWn
z<-;FJ2PW&y(8ZE&Cmg!+wi({G{2?q)i(SE@5@|1%TrXYD?mk3`=D`X%<h3c*CP({1
z_w~CNjMTT>U4@aLrV3m;ih6t4iAhrGVT<Fbt}Y_Pklijz^D%I2mE*EN)D4)%hbw7@
zTpx{--H?N=Qoj9l=jB~~il61N<1oq(5=V?D((6`f-`o+m6}E4;N;l)iCyDiB$kT5|
z=CvvYOy9kH=j-BTv*xs-qIm@ltE;Dn%d~QL%5JexcSeIR8C|b?R92G_IfdWM{xDXg
z>dZf>9yuymSfSB%*Ak1_iWrsg0LWVe;gEPsY(|*9k<>NFfRXz|W4}#QW*&3!>R#~b
z?@ifo`R!fEZ;!oh>kI#7qKw~pZ!?kGU%8E_0rca2=gwCqCO-gYq?-=jO%L8J5<y?w
zrmVf-GJ7Vri^JMm`ryl~;4)bXwFs$3#Vt7CCXa;~(%;xG7+m^`vY`T-z_7VC&)b!y
z1n0u4jWT?Fq&xEJ*1@nHfnoDqoE@+dS`Ntv5K=b7zmv`Wg(v>aonFA^;NB^-CvV9{
zHxZ#Tw`P7>`NWFh!55Dm$m`!8`gic<X|pD*%`y_0Z<=8KFUPNG;lY<D%oXv15aGN_
znm+j9%kaZ`r^*YNK3Tuq=D#tDS@zTvZ!c$q^b<Os!#7Qyv2+&R_&W`#;W#^IZq?0y
z7N;&O&iCK`wK!v*MS>y2+0KV!u;2+||IfH!y$d|`wqf5plI|^g%ctQ)x}O;Kil0{C
zKts|qFbSSt@_kKIx9#1L^Qv}wIq2C-`f<>U2Lf<B{19S9=I+*5JZ^wS%W_xQDlR3e
z<G;rD5<L24;(tO0aR>)Lw^7vZPI*(mH{!_RRMa-_-8{IP4emBc(9dhls4GnJ!(lJS
zR=YYh@Kabz0Ymj10<HTsHWibvu>5;sGevh)nw1VNW8iYTLg3nynj{T4CY)d5sz&jz
zIQ||SK<2>-07ruRe?$gJ%iz1W-tqFij(1hEv&CW+?~`Wh0!VV;6;fcZS5o5niOtn=
zz&ct>Nx|xx{mFIk+XC?0Rf+!z8H7R-52}@#6Sp(t?t>oaSEva<F9QEqUa?p3X3>xL
zsSISH)ic;dzALb67%wj2&^c5pOeGfkpKw9c2B3}}{|OdE?OZx6bgk>Z;n&<G{c{sD
zxZ<;{8a;t)DVsy?b-xx~0QS(%aqV%rvh4tF#84~X5q!0u7hlI`@f@G(cN*Ce%?87e
zuy)w?<U%#+rC%!=3(bD8G_!8}EziX&;4eNz9d&#-V;wV`Ielcl;txALdl^P#T>vKp
zc>4#r(V(w(%WiLWzD(MyDc859;s?$&q6m&3q9T>H6kPeDG4#U<XBy+eKdn5*o5t#d
z^TW?MYw~Zk<gCr^-Gk!-H%P`AjdlOx{5tA5U{t=Rm_vEu9xYJ*VnHzLo#-HL6Z{N%
zTmkLcraXP{yHwSQ6YD<MiBhN0?1o7aym#_=2d2$Q?!Q25$U}C_wWrFL@y4h6EqeI5
zYf7T_I|TRh_rZ=X*FDNEPU&#Qg-;%~@Mh)7r2;kb?A>y4=h2L&U#EyQgER1Vi$$GW
z5OY(QwfgP(M?(|8G#yfft%LB^<sS7Rs`}d+7EeEc-TUZ+y}*v`<S1;(I9LER06Q=F
zb@g8aqibh>urke6<Nn}mGRhM^d+gG`#hKQUNStXFiGO%KEWWp*E48=ZDa)sQV#3%v
z8GUr~QdGiwT@)8g^4O`}*3Yd|j7pd*7<(gS<nsLq{KL7Rm*g1qY89^KKFb_Rgtq8^
zH8JZTdG(*W!J>}|4aEiciHat(N{eST@aFXqOJDovZeO^3{Xao@C_}14BE_$7T}ke!
zuc%Bhn>zyN#{K)(Y#xUUxr)RqnA3@ftqy9M50FF1X`Rx1f7RjjvpwG`pK;epMVE|+
z*M9Ai-cAlVee^JGX<hx}(ws8FFTX#G@(&URC-u*nka`Zqzj4WE`|ai#m9i**!)k8G
zhX1>tvDwJ*`Gv5Nt8}T*%^odGp(<5UW>#ly*+*5v*Z6qOBw~@Ub#TYC!oDziu=87d
z_v0#Qk+Y;uDP`2XMa}FiR;4-1Z-gkKQcAWpoAS$Z=-*71{s7>|);&;MR3>^`^flo%
ztDYxMCiu_kP8fVooE|TNVqLT_!P53F^!>&V1=K+|l)H0&OPX*%L5dk*hGeeI|HQ|N
zBw7?@dlJyea$`#!jyx|*m4Z{~M;1SI{~60zTC!>9fmZR|ug5YVzgjQ1hR!NOFW=wo
zUWG<HKYsjxz8iLIB^il{x0sC7RV*wr5iFwS8VG`*#r+0`NmwL4_v1$;1gg7x_YEWO
z)nsO7W+5kw>ZeB?Y1WSpI<jr(ULL4xP=ET}Nf({t1H}TUB}!PFO#cS)|52?S*TF;l
zC<$PK>M4t?vfR6>o@JJaBXyjp+KaH_Xpv1E|4dNy{Qn5QQ4)l3&#|ye&i0{?*V)nN
z<PqH+8~wFp9h}7Up%QE~%Txv6mX1H$*FhZ2xI6ESf5MxGAK`LVN|0CUROlAtHiS0=
z<&#BYAIb0@r1}VahznCYL9Vlwpp6;=?myOv5O65P?}Y_0FZBul27nQd6=KKu4^eA=
zsE@MoKe!C0v|b`3le_<emW99-j9e?0t-L+zz=NP1VX+%hb`BCF!H>lyblu5s#DiwC
z5o7qRA_T-jzE9Ur3S^r?XSh=&Uy0cYnGdKXB)k<PZi|xhjMvJ+F;DDXT^xl?jRzJ&
z1*}ugEm1d~l`$I}wWLK<HcD0Yz5{QI4bQ-sUc&9-fJ{d%@tLJYgj!0gKe&uOEHo^<
z+xomU;}Ub^d32_^YnB^OsQ9?dV+JgU(BJ=KUWjUiDO?EJA0_m&llL)#oUw#K#Ub_R
zVf=v7Tn4|_vLVv{NNC^pR}uDoN>|hw;u|7+bV$ar67Uh_SW~sCJ^E+-o3%KdvS4$$
z(YvJOb%cH#{&<qW<HUbR3sL#xVCk*?<y_*d+$JRsXeE@PD0nSz3dW7CrsocOP1;g!
zdkV{?9KlGnH{M6E!Gbg$ISfD!{)~V>->Sok2a>=3`{J}Y2|sbE$g2E9SCv5~aHC68
z8<$jFZ~?kUKMaWk$n!Ge7Uq93AYo3_^o6H;wYV?`HAV_AkRM_sS!1(l`Ud!?zu;(0
zz|kNiBgzI=FzHR^Py*orn*W_4qHKuZG7}DHd*^NgwU^z^(T}8Mqkmf?)GEq`7%rn5
zeP62z=TMqmL@#cB6r7Wji#RZ;HW7dA4vA4IwB@vVi<V9fEN=hFsS01_SiwgFC6MG9
zModi+<hm+}IsrXegB`3CH*Z<SU%n9_J@H)TCua6tsQXXkG^SIp_0P=b*U2B;z6sfb
zq3^#IDe#}29C`mNQn5H#g^}-gV^8w2s%pn#MlObn1OI9C=U_3ogO?*{4WK?Nx*72`
z5x|L%TH*n#@Q?#1SPo<ADJ{AqX}WrWD8L7+{eTRiM~M#{uq$wWo_F@g#6TtxDucx;
z^NOfcb)0&QkKe_pAfK9C{#OL<7f-6`2<ROQS@lV9&Sp#Vy=K6DB5r1?z@V7T{_r7u
z^!2tF_LhJvwcA6XeUm&Zw4|(Xx7PjnjSU={eC-96qWbM-aivB1PC2xdes7){Sqvf2
zfla6f+c*4C=`P&|gUl{RwQq@XH{bE53plm0?)ztd?&kY+Hi+9eijVa?ko9uN{22fr
zKcV}usqcBWjzU;xMQyQz!;^N4rOBwVapUOjp{r6(N;L3y9(lmOuhdlinH}~d*>Xx0
ztZ@IgRqRX7zI)7Bu`Oq~R`s~)@Wu}0j(EYHFT-J>*68_BLS-&au_K{UTWh;U9aG54
zN5LpOgA6@3&(D5m;;IsYb)W`5ouJxaVGeAKlJ}<N8a}qfOhuiI<eB+*zT2<a+16UR
z#3&@|kR0*7dDIaWqtC}_7m>C3ZJ)h{LwQ-x+sm-OjvY%<fJ{Y9g+JonUce}0{QQJ>
zUs0KHDSAi6X!FZY{l{mHAV$6RT3wqwMf*C41_!d^`5FAVH)OM;m}pf%lO$&EBuK95
zy71&{zDv%|FW>#q-${?{?@&kZ#Jzj=yzQn(T||-s)9eCcWkuO;nW#c6WksBw?^|W=
zJAyl2#IpheERd0@1-DTB=7LYnzZGr7Cj9FcONE2W$HLuPw4bsPEkiO7*TUG;p1w5u
zbA5JkcH8IiP+aB9?|t;i>Ahy~Kb6&<#OdC^+9x&fN?bkbb}{$s%k>UDt%s5Z&XILC
zE4DCRv6m<0uJ3C*rT=I{Ut2o4Q2$h;{nXH46@=Ga0Tgr30?Sj>P5h)g<qCep8v8}J
zE|a;8y#J-$^nxR&GvNA~*5ghY&ha6`@UVbe2=<l4q2D8EEx;yd+-F_qrM8w)R9_t(
zBctA@zu2Q^V9R{8mg}(4QmY9`!@g1Y)Wj}F-Qsq3R66py%PE4t+x_pD#42CX&X*B&
zQ?d|x|4p{<q<U~mQA-B-Z=`Der=EbEW}~;D-1nkBtG<s`?bajy7Ydx&rM?&SvW*v*
zlwIzV>$k>qnX!k62H$QNLl|OOe^kIsGB4kzgIhv8e+JR1%!Jk`8@Z_$K9p7awzJBt
z8S}d^aJryFNE46u8S|0ON-soSh^a7f`eoK<a=v%n4NkCpWhNs_NBs>1<f4sA(#z@+
zzgn`)Va?pPEFDHeE;+=U>nrl)BA&muV7)1HjTuH#s)(}x)0Ks}zjHo=yy*S8fEd}_
zx<{p*8IipOvtlF-EJn(H^XnMo(LA<2_FwEVMYG2z+56=9<-Qh;7F{TqmFtreko#&s
zQbhSQMy^SY-~R4;q7|cMS&jXOKV^Zif4}f+UbX}!ubg8cr!6$p6b~hbnretC>dCq!
zCrv+bKXPPM>GDZmx%6t%yB>G1pRU}}f7m4WtUEL3M{5RSqR*UltzY}OX9xmSHEwXp
zY`*jR;%0V1YKnPk@{icR7ccrtHGn_KEE&(dLm%Qz6%fhUCpW6)kZP4$F48@qct2f1
zn~%rHH0oVP`kiC~S#F+7N=rS7+gbCuBz6O>O7BuOk5jnMiE8xjwb0g`Fule`%0G0{
zc<arPR>H$VT$0~LD+5G30;s|qwZ0sKwc7ABm2l75F5GR$ba>Z6ew#R5$+2^E<QFs5
z{A!3IoS0-Imth~po7_b<5)D=1tRaCc-<P@UNKB*LKT15SD)=}S7*?chJb#-boM9<<
zl#K2qDZn>|zVkJ+wVvalX7;&@Rr_)uKGE6N9L{t;S&*`AZ#nynen(f)IIHeOKBJ6G
zr<^>jbW*)@@btHV9Ro&vk_ry?Crzgoqa+<Dgvtd6U3{-pDeQN@%5b`qN_mMC0c-=$
z?Y7<=dS0PHH?m<non@UqNwTpv&#9x<$LE-N&t;;aPJdMz5&;v(2TcljX<eO@f*<C6
zkMWm2QjL!l7%vBTRLqyekM5uX9d7LIp#1r9j-OH~qk5cWVY?>mPs-fe6bF;}1cfWw
z({g_Y(gm|VdW5;83l?M?*$cNw75e#eOUb3~4QD$#ePOdwjdX9kfZ6zH$u=da@KHws
zKVmb!IPGjcswtgO5^Ehz4k^I_v!_PMz9ilD&t|Fbw2O<=U&yGC_4$~2uZ-9$4gSxp
z9b=VI@O1dXyfC7W8p&sQvp)*3cDqcSH6!Zj=t}xG`Oy^<AC*U`bBaEtA`u<4*V(&Q
z-4u)UNP+2WZf=&lzFU9e%KP-kDq-#xuF4N2CHw7Hl=733YNiuCINzWGuH28M{LQ$R
zG@oGIn1APZ6pxaH**Ve0yOQ)D{juKPj+@@NC-<OXK^GEhc>-QL2M&!Bmko-ndhJ!Y
zI?Xk`EXiwK#TEJTy>pb*R2M_K?N9~~V%$FOI%{;v%t8F;Mt27F4W8-({~W<P^m3A3
z+DeIcdROGn5v*uPC41T^3Zqap;r3H|GwOW}EgiG%M{YRk@}b56FF7t9$+<sAnEcq8
zS}MVTpoX2<-dj5M|EulG!>L@`_BHHeH%N0bwJI`85*aH~3OhqWsD#LrF>^a*D#OZD
z#&$A?ovB!c+6rY#hE?XGVqr;U%kZ6#-s$%qzvF%X`Mz~@Xq7cQ&wXF_bzj$YU*~z=
z)25_<;O8$44#rcy^E^q5qlgB6sbHk2PjKx|**%T==NkS)86A0>KROq?<X(KQ*2N^|
zx~cczx%Q^LmkbtU4?bU74Eh*@@yy;LJI?Wk=CO-ji~1p!`qQ4LN{tP<D(JO-9;YCu
z{I<3wf$Y>(sAqZGxhwBUTie-OUmm6#%s5pP61Gb$ZW>HUH5I!*L03=o{ex5DZcI{h
zy9dX^15xpkdwmu*XdaM_S7&0{`{{0m%pTGRXLWMZmA6NYX|6lU7SG5xC&YKXsZ^H`
z4rwv|+U&RMDAo3gp^6DJQ+P7*`5j{KyW5UljX#{>aV73__K4w>mPa4o+|%THYEsI|
zZ6CjV*q>rWMZ25e-ftyN`&}pzjxhsoHM-KaAFkKvN)q-dvCYWwTu26@TA%nl&-r~#
zlZ&~JxWl)seO2L@|M=REW6fyOIy)J;$9^r7d$x=;W&HQTj-t4%E`Exq&_BKSH+z~$
zlZ)N(8m4|hOiJy+yDbyzyt#cG+PAB7?0s^nDRF2xKeH~k6TOjQpC?x+y4I@ELS-~N
z-c_h^N}o{gGM6_szecu=m9HhatYQjB4cPxhsfEeR_hZ?Ovfp!FrRejPJA~Me+KpUE
z4vuqu{v!6gS%SCb(Qn-=cx0T@=-Uq^p5AAqlM#_%e5RJ&nr8Rx$*}atk=9~6V`}Z&
zw<NOK=ZW#V@Z2jf$*VD&&SO2d6Ma*uvLm65NzWbaKED_2y!Q2S`}#0Q6O-!_h8k*H
zjGqj$n`W(K3Xj9+u;ZkxWWX+aEPV8ZiQIeo%&Im6J(Q()?&5kOW-j2ODpWf)XE~@s
zL(aKN>4xgj;ghXFdqM?Rc|^aM)3%f8?tiV<aQe1NrdI5)61yw0(duhnUHir|<kOb$
zk)lr%c`uRR8Hh0CE2?D|glLI;LKYo#uM4&(Dsm~6McG2Tt4j50i$WGxGd=U@<r$3p
zsx+-G<l{aSrb;+rw2{dwx5b8T_6wS*9IKd?H@smT9oHm}wxYh!h)&=1{bUJS8BrZK
zxOpim(Dy`Q%%sxhpzStY^w<vX#Wz3X-gUAop(x>PYRgFX9~#8X)SN+4b9OJ@sL}x6
z-TplI*Plr|A!yF@9$i@tJk}j-wIWTEn<At_?jA~|=d`(=ntpAQwKs7<J#|i_%eW|^
zuDWI9+xa7ShrIHQ>hO_M`+T}uN>D{s6WFFpJHGe2r`1?O%KjA^oa+1Z3zWO>RFR5|
z2b*&btQ8gD7a1S4s?d+I^}SM+TqO5$R6%s-&iVsp(hWb_rk1W)by!t#vKePI-o9D;
z_LRM-@SZa#{To~?FVb9>-Jj*15_+ng+grOMp3G5>X~T;)XPR%SM-6%081=yQh^@rz
z#`+gcjY@DG;Z)^d+s|K(P|y>95V@87b<<R`aH7tvQT3?rwMT<5Pxjf1h_KUkALflv
zkZ&uHeBZQivu~l?H&bZI!+r2TT^2{-$o?dWMayrNJ9Zm|=I^(*3*s``F*s)$!PkG~
z_)ubAM@Vzpc7>4UBw@o<DfDzRJ{xUfT*TUO9XCS~jHe~J6b^5lG7U&zz4Vp&VE!mC
zIdY+ABj<*;^jYQGe!j^g7NztTf3!umI(>PnM62MI8}qQFa%b^{IJeE6?R%OySeEvU
z#Hk=lXC!UOR4KTT=pS3+DRi`}qp1BXJ(Yf`@&L;&|I}Z$u*gNt3Ar#PnDp=Ckn}<w
z&kM7)J`ThE;e2`8m!uoKRYOf>vM+=i)H=sg6s(4$y1QaFlVfB`7DprMd${$b3&i~|
z1?=)IDKopV#`lU9L&e;^(D$K2QeuXYzTx@D#raoHr_h@dhqydw8v`moIh<2Edi3b$
zv6-5A2i&h>(cTwke@?yH0`=+qX7Xj)WW&Iu@-Kc?rH=|197xiNex^qX=SQQyD3?U5
z?C&~aY(z?k9?2Qza*-XBGA`<Rw|&=)vQYJGfEGI+V*w_%*((3ZEn8L2wAvz_&;kSR
za*yw!S{cVR)>#P<F&BffLpf@|P_g+}3E{`OiYJ3|m?g3mb@rqr80uy!Hvbj-RbTtj
zQ2ZcKGb)9RUKk1D^Up_Z`TZ5I*nP@MJ6aQ7P|~8N1X%<}My}ZO#steWa5A%oP0zNE
z=&*E_oitM7AWvzHJJq>vMx%9+6j>|ZBh@D8fzceroCi>+V9gM{oZ!Rtxf!I9mXpJm
zjMrT;{FL$ZZOS?7D)nu&*tilcVV^na9aoP&gAasYsvlF>OZA#RbG}G&Ru?=eTAvUv
zZ&t(Y9jo><hdD}ILhrHF3XN@69>4LQ$Z*`dv!&pn`7cpB)wd0LC}xlrT5erbj^%pi
z!RxwgT{nD)-7Uhak|w-I<CiF261~2AmjJDxq>;vm+<GNVb8?4OtjtYs#f<Nkf>FHc
zN}Vhv%KZ!Xix*B?QkR|u|4=r6{W`WS;REx|-4*HSYRv^G3Z9<7jO%2oIsl(P<g_RG
zI5n=h>?Pwt#^EH^U2@ck(oQ*RnWXMmy4TXco0y|VnSBbG`9dl(d4}a(?cYaNlnePv
z6)DxvGB$2}r?_R75q!^S<?o*=kjkM-f(XIyiw<omJ#%KUX^WMOr@NHIP%hHF17vMu
zH|`i(Qg%gJ>E&J~h3-*Ga>0iqm&OC?H|{nS5%JpN*v?KrKxi4Ef!%hOlyT70zM(JX
z>rUNacnhTSFIjDNNzq#J<<;8h)xM~G=2Po!xvH#Dr{aaMYW<M&9&QVc?`L$V>n7Z%
zvwp2qNRqNs>LIdtra2N;h{XP-o_-eA(;WJo-+ha;`%fv~&TY|jceSp+t@0<8m%4TP
zliURHLRH2gZBm%7)=ZqkK>io4*~q!EnM|Wo!S5H@)?_GAlM)Qad#d%$GAm@w$1C>w
zYI02Xe~buWTbv`lh-vQgW{>qDn~N!>&Q|V&rk{hVF2DVaHh<w^og3}f8U4nDA0`r0
zCUrK?o~RpF<nhRsX+7q?yV=<EP~qI0snBZBOTGSlrXz7++F0-0_poi|-W7Xy?pdMH
z<$3mXnWY|wMryka<v2Cd|H$2CAl7=-jjJ~|O8~lA4*0U#K5Zi-8K`s;fc+Amufoh_
zwvtC`HPtU0iirt-V8}b{7w6-MZT9}*wbMC;en7aqPeOk<ES1HlXLat?<?H`)cm9@1
zWm8MbL`2g3WsnMyAY}Df^VMPKq>XxydMYbhJ`eQ>@33&nKV)rZ$JNyHuxC`1pC7m{
z2^pD2F>zVV0IPm~ehxT}i)@1f1A*0jCNU9NXh_v)zN?Z<G_Rq%X5ObFu%MveL(zzf
zwDig4Dze(Xdusbo)z;V3)jg0RRBLT(J6RHa-h8LZ#fzWRxQ~4~h$6kAp#W*@dMN_j
z2=++rZQHgbmLBdcwy9uV1ZQz4r1Ag|nqi>duSu1AVKUd(*x0xX_+C{m_kB9J=0nT(
zcpgorZfJP|(>ywOh$g+fJZ&Xj&G;EV?s-M(Bs4W9!75hSBN-RBT>W?_oV98mRL%S(
zjKZM1-Yh!E(Chk1ssZS7G<-@PAq<x3p%EIcKo%cd1MIP9wj1?%<3^_r8#}@=F)2QK
z!gYHQfL_vPlgr%^l+>qBuc7JADL?U1(*U^289BL`nLk4MJ1x4BKMSU)OoaT1(+*~J
zkdhc_(GNlC|KP@e<vvgy^<q{pd2YWCDb))`Us>H}W|G7?>=Y(uz1ClfNwkrY8t&e+
z%IvqZqYD6*DLo!dA4aY~690bgE&3Sa;wC4ER-}a?)6wO2P5Obcy~2dlYqG=&&vM5A
zo7WD`tg2xXAOYCvPu1%${d{RO?OB}_*h)-d!p9{v`h4Gtg*2e4a2*=*6i0X6R%JFV
zzaUggJ2epT=5gSy<7Ir?+`@X96E&;}EBQI%CFYa6X3(z%p`mj^ZCA@YLp^$D-!m6u
z<c2cx@_rO`*bPy-i)@=E7&(nwHJUp|&kEN%R=6p$!%(z?-NT6f)y_K;_uf1<Hz3Rj
z{g37b(C`^L?x@GJ$sxBiq`Ggp7gAv7dfv?}^kZsqo@^m~QeIt2lE%~pw4-v#e|aV(
zE!BTh{H_7!zqYm(Clg0yWQci+jEdUei-~H}adDXhnPHEcH(1$wsBd^GdPeEV5pVj5
zmPSDVf%g(2IAi(b@L|LER4d22*dj%qaJ7AF%4gTE0(Hl=RbKk~J7y1|V~pAFShK|J
z@k6#RFZ{-D-XXc9^WFl-LZfK8{T%mvV#Z5;x>qbp-My7HN_+KnT#+|RnWwM*zqK*u
z7ZZo2sI;NYk=oJ%>4Iz{&+MKe+ql5f(AXo)=kMd|a-(86uU4ra)Yv2LO<+>~2q-(x
zrss3Ctba4m|JV`e*>EDCkh{7{rK3kW{hwcu@!wndk_-R6l`k$X;S72t0~gmU_*BT8
z$+U{S8xtYvwuv$|<(j+hjb2xC1zP6B&~Ufx9xiX96huWv&Mf$_0nmMM6J=tc#N_PR
z?LkUt!?VR=SLd(I>%8U^zGnGkNp)_mK-jF8yqi?oby@I_emc29oqtWpU-wg%22>S(
zl=%M+eN<zo`orkf#Bv7WO;}Kn0%E6%@q|$bOikIey?b}T0BHVvk>|ZP(b!pE-;h3f
z-uXewP>D>9B_tcJ3)<2jzTDSXFuUM$L~8$LmQ?a7qXS#fgj>h_K(bQI*?0%}oKV#@
zUk?e5b+?a?U5{7jFF>PVN@Sl@-OXs+>f~~RAkOTV1ES5{T^!OQ9V<RES3R^*SQYmB
zwKej54r_ewORY*`Lr)&>zx3o)ql@qJdfDFWC*{ms%SP}VZ34ujf0-N-Poz;%C;mfm
zBWmZwlkipl%P&cy{&L}*ghsxtXTM2L(FkU3`gd*X{_X>#(xH{i_luNB<kP&$ukwWC
zs|utMIuTv!G@7G=++uuypO4gOvYOJst;#B9DUQ&->pl)OxvXXn9G9Y2E)aSm6=Nax
zfok5~3*OUR-&~}3Ci_4&nSi5jBPT6Rqyc+9UBYqqOwUZ!k!~M`Et@;N_#1kWOGTK?
zTDIw*C#&rvJT_GPJ`Nd*sd&$P3Lx5P13MimHz+KQg_Vgg?{s>8YkBN$a46nb=7`{7
zMyf;%)iPX*c;d)}TndkWd5KsE#~Pedf{%F_z5&sXG2%iXQicZ!J1mY*KM@y<SA5ZY
zDTn=5k*AmVk8byGoYmJ>{{8|cRhsjQnJ!w;0S{3|A1Yj5+mItsllj}6^=>9|nE&qu
z{NozsbJr<OiEB845(sGfP$g1fVIla74WB#wkuzjMz3m0j!T$<waU1^$ZqcBbJkBL;
z*fn}#;>7w^$Z~aNY|#AHvpCYzAUA#fqHiF1?5$w#{2aBy2V)70LeKQaI{Mte1I5%$
zy-gK>%_PnD^Fbb92N_xiKs6E^sOXCBVRTPJt)nz&WAO;253l$B&MZ{BnT)B5j*iCO
zTQ=Sx0|t^3{6&f5lyS8Y%T+N|_7LxQIS{auMZPDaPhtvBM9U`bS;a2MM}0KrmfKRp
zvr=|$8Y+qqQCs?Jo#=dnTe*&bfja~z3F82M=6XL_73ddxcVkY+b5MOd!76vzpiNKT
z7-Z3TIIphFYs)ca5MA0J_C-%^DInHe(exEVt5{`!1MXr-8Lj8jW^)4XBR+0aQBY#{
znWpqiQWh&gaMBd!<2;xW0}B7w#+8ek9&8Iy(SLI8ljgVX+@B+|<{GQ)+*5F4jC4E$
zdZHUJOGt2##IJpR#XaB4T#{1(zY9RgM2TYmpD`vL{A9Jd`v?1A->&ZN#b^L2horEP
zUGeK{@sK7iqNI4fFf=x{o%kctvE!XSxoEws*xa7?&Cf=6`TsFAH;PL`pyE51=1a4C
zgX{T${_q}H`!u?yV-H`|r1Iud<UM%94OU;D=&L`{vy}{rfQix^tIp@wAgS)aVF_Z(
z?kNBGXO@jzY{g$=uX=RNx}pi$SwWBlEs&Iyl!Ag5vAZiwLdt_DE*JSVv67E%*svjh
zm3tBPK=*mgKg>!#1Ia@OMyQGH6cQ1kFHWV!{2UBaW}CwP->_%pAe3D&B4});7j}=L
z=f%^kG>}8Vr}J98PeAKn&_BM0A4D%+w2U;1#zgOtLaJ--W#7Q{a{<0H0bi1ib}f8+
z&^6g~==ZwMT)4BJ!PD24<>0BwFE(7X9BNC`l*R04-J8kn?S^hmWhRI!ok5S03!n{H
z^8^J2AxCSdukY3%{mt24`R|5T6G^xl7%$q+<@ECuULB|%&IwCoxr`&yg@I*UOi%6h
zpSYOGhrIpJZTeSKjOU9Igxg?GWO$WBhyjoosH@Fj<mcO|<*s0=rqmB)scBir>|EHi
z>nXG$VJD_8t$Gl687WR&*rQ@#;pRPYnkRql_W@P$2V2R%9ca1gEyb~&d|j4)Oru6;
z?7A1s7IY6qwu~GKy=36goz6-6imM2P%ci?Q@xzhSNNsH`1k~OV2p7l;FZ{COd~ZX@
z>3`f|pu)nSR&1)UN$GQ{2UeK*--eR(BAFXXqqerTPtQG}dQ2N>TMR3u+O!u8l2y5^
ztgXe@n?W!V?swG38pt2C*F)?;V_Mk_At3ZB!6*ySEVC0QDiJ7&PUt-r%;&u86ZokE
zNC@EKb4q`_EkAMV&wm+FzYl+K(`%kVlDw>qa`o-ox3cLhv-<%xAtYF58-2TxY}^+0
z`V><!Z{9c|Lc$<{huXEr=xe71a1l;B2LC>km4v|u)d28Ao#y|STf#;;cZNs}0JSS?
zdsb8wtcFH?=EHl!;(;@u^eosRoYT;#C-4)Xb@%<=5xV<`CQ*Iks6M0Kq)#>&biso2
z9|WKU9t}n_B%?je^nv@*t;?=d)yCE0cMf5qG&Dj2Z4ew$=U@#%YPm06ZtMvfvsxX3
z3Y@@6rDM7($qMtISmWa2zSYMO&TA^JJGqIFexYU?eUsA6O#@6w>2YdmRYF;Gd9cLg
zQY^HCr$Ke<!0`=;j<$ksW{Y9ggLC4Pp=8UI50r1HDu_^qp=|~Lg=eS`HYI@ZxYn-D
zDW9_*RX@?-Ir}9B!ouI`9ykG8P~ucEz3tcA?Ck75<8eLkf+<uT@FZjgo(2_^@jrck
zGvJAPNKl1$?@7ZgPMH7g7Ma3)>VTXA9U6c%@PdDu8xTE1zEk;0`y<`}>9~FC*6YSR
zjsyTi`7(4ur>xMQK&#qqzm*)o<x#WXZ=!U%*=zV|bsNa_K$#$?e#m>9Rn2wgWbR8+
zv2k&%oJSuI%|Y*mI&Fa2^ZuJbYJ2C_tW@g%PdJfvRqK@7mti4JIvy2^OH*{Y18->?
zdS~*Vce-hW^ZznNCy`Pg@n5uJ3psizHY%n-_uiXz5fLe8Q==Y*w(rZ>X~OH|z}~c4
zwD)YNPDE^^hROZ!?Dx}ILLY28^6|@b^#j+bXX~;kLNv*qMpMymvW!HhZg<NEmW`eb
zFo=%3ch_$tBwiua!qzl2xwyD!Zf-s~Iq6Zhh(&)lDCnuzEzfNt4vY;|-fLqxWv@ej
zymgJ=ML41jYrcC2S`a$}a5kV)B9we3_2>(<zJ}GE>93i&y&NhSH<-yLx!mHH)$p+f
z1|LC4?sxO%=FOX-pOM@=NOz<5zEnST3XqUK9>rWL<P?JgV`B6PCQqor15W~83+%TD
zHL9zsz)am}QN}SXaK3kH_g%&&k=i$J_(eo~J_qq(YMU=G^#oku1yU(9Bje=h(*+eL
zIvK6i2`taq4*iTTuQRp%3@3Y6sQnC<zBBFn`>!^G<r)uJCKlP{CtNpH|BOyq6<00?
zHaD1geqRo?UaSiLj~{d64hVI@HFY&ar5R{C8qK=;B@$Kk5S8Snef#!x#?iZWfKh$J
zIP{Xsd%UmRHp!)4kpOe$G-WSR?G?l&?Qr+>4BK@`MG5Hx-q+WQ`EmLF{*>rpw`vp_
zevFU%VugIQt8uy(gtHPQ;yqN2`(np9!I>i+s>@P(HVb;^&Q8-%R5L>?1zu@ey1(p>
z7_<>-DdCPBx}es#i=AD71l(wLW~Q~!Ft|{FzTHBG$X9rHxF=Ns!Q;{<49tz8($Z4s
zCi9Vysvu6X7aBH^CsZlEn=0d@uH3_Zl(mXkt0`-BcSnaO$U3Lfjp{2ei$_IAcQafe
zv}g=nVN+Az(Ku8LSU2J$6(c5wsJSp4QXYN{u{XvI{Cf#RFQj|n;hQ)(Y>X$tRR<ii
zxTIte3={^5$_GRf=8)#GUmZf;1A-eU+Kx?6`y#BvZd;156?^5W7chpy?DYr)bt%>-
zW(o=<h9V*(Bf&4Eq@qG|K3Zl1O^FBh?m12k8!*0>mX+bfpqdgU5kxg0W&x$Fkk*#x
zz4YoVSHH&k`t0=d`;xYXP=Z>uY88Hom=|#(#D90o`a-4x^p+=1oPhQ#$l3`p2mt|L
zl9O{PiB$8)W`33AYrvKQ(;Qe);S1jZB_jlt=ea=e>fnb+Io1NS9W>v!;DQ>y3P|b`
zYbZZmGF}7;UC~u)!y<QtO0oeo5*FME1m+{<bqoj>20{gG+c@~bI+&k8g3R$=d^|@S
zH``Wwd;1|V<*e4=K&YKiT(kH807BWxfuBaB>3)Dpj!kAfd#+~M7BaSN(2{m6?kz7b
zhxGi@*&1+bm6h7~#)O52775wTU^f}P9;8dTvqLmd!Pm!cWDyc48~riqvD>gj9%i5e
zQt#$8px5nGuniqo0`D?GEqv-CGTh&O3!iJjxEvA}hhJZu>abUscy}Vx0o!jIAAZ~s
zuy0PSN0bfu?WaJ2fo(J6FWeQ>Q;crzfU*k-EU=PtAIm(S1y7HSK?!&f;@B7$+~;s#
zU-DaMNoV)zt*ihoDWK=K{QX6YOC+$l;U+eUD4VgA=J)9ZIRnA2ybs)Ja&ims!GKFP
z%1y@ykG5n)xPZwrRDe+N1(UWbz4JkAY<s??7TXv!K{R_gO-ZeG(2r2wCm>)A;Yo1(
zL25F(kQJ-iNz4m`O-~31V)qUb<ZOg)VtV?YBBG+A`Ye|(U3%o=uC5M<Q(-&iWatNs
z1v-;#u+nFBS)g0VC?2Y*sllikR#zZ#5O_L|Ar!j3!6FSHK~T@?f01maf@My-`3J-?
z(zCMiBePbUWVKdRSAz#&+%D$??oOvKd+7*yJ9*Cu|IQMZ+PS@0Dy5kv4xerc9E__M
z&=0$NSBRhgsZw-IjKX-`q3GFhidL_3e@0rOfT*bbpT<MHXaFmF#g3)DJ3V_C7;%IV
z*|p<8egL2NWobG|R73=7T${+qdMd?Jo<KkKpq!ks5?nC^3)6pXZf=Hvy3%E^WWkW0
zg)R*whqcsAq1eYcEq3V8I2Ir&4|DV3!?~eM@B;z5tfl0G)EG34@4xz4<Vy<+*Nf}X
zS6WtI1+nZMtZz_d4*dmF$nZmemgR>m44ZOb4RFp#5QNA_6GU(U$xTun7ez&LL3?oS
zo;!GHP0lbw0Ni2f7VbxQc}~O#med37!^*iuUeN#Gly-caA|@)TH6nWi+Nlg3ImiTC
z>z5+1&AJC+^|MNtpwE4Mwl@n6N3i{)-fSn=+R5Wm1X)R(Wqzdc^6_PPwZ2bRhU~qr
zZe(AC%-7-T!d$-dV_b3`AGW#<ygSC(vP9u8Yqt=Ul_hZGk}qK=`4v~(B(A*UVeB#T
zIhtX42v$SiLip0%w*mrK*(KDJ2w?*O0o{v;S4~V31K01Cd}3Z39o-A!g&;N1i2B8q
z1O>h|Y<-fq-$X9O-X2SZh|Hy~J?i7ioTWjylfhtgP~p&`lsmLUvu+P)e8QEX;_3b8
zf~Jf06)+=B>5)GFmCNe(QG|)<dG(CtdM1Z3U{3?p^z>SxnxOjzLX)V9?O$4&FP)Eb
zFabqg^V-6WP9VFL9)n8Z^XogL&0JjFk@O4|LJ;cQjm$i)-nb7rQqm?@p`TRD7(X&K
zq-geKql9-2HZN&nYwYYpt@<}gxk2J1{l-RIB(`-!)yy6DddMGbazK@kovkNR3AQiE
zvWSh_Z)G)PZDX_vQJz!kGR6#JI=}pw%*+&EerbJP)9Sm6H(FZC_hRRLuBxV118*is
z!VZMR298)Dd)df<?RVG&v}Ne<u?2;Ml=Yp>GR&3)6}g0ju2PF^X>ChZ6XB}Y9S{)M
z%r?nW<|%#HWJg1;f9lk1z8iSJQk}8S%StU9Px92G+?*VU=#GLJ8*#~N`m8(K8Bt9J
zGJ@S58|y*qdYU)?<C8_*Q+XpXfr8ky!D69rALpiMUW`3{%4wLSt*7ULjm7HntlJi8
z857G4ZceyLY!wi9zM2Nk8&-D03_8GdrEbdx0B%ZR5*Qc%)XFxybV;cnF|~DYcNN6Y
z5GaA56nr0gK^{XLSm9p%HEeMg@;{aWgOBn9__CzvaYx@ES;MwrV@kPLxu)>EFSHZf
zxY8oxIdk)2&wL~pYCzMKf(+Q&+}Ak!^D@F<M|!tBPbz868DHqwps?+e#4o*C%V_aH
z9RjzsgABq?A24II>7g=%yhT`46hR6qMrUr@gFYeaY_`&6#BdNZDh$=q(9jEO%SxNh
z#^?+wKvLqd#a{~Z-z!1=`lf^i*9&*Ioz3s%cccO(63(i`wee~tJ~7czaHF3enw&yH
zjcoqU;*D(_y67xq4i~&S0<O|JV2sg)5AHY-({iB=atfj(_7GmALden)jz9wzG!|hY
zAsbj(i4Rgyse&}H@^Yp4eaf9+){Ps9TOg8%`I#~B93le1Pwc)>l?S9fNbUUjc$cZH
zv-jXx56Q@MTo7B$%nZsCs9oX<y}*Qus1*X0KFHr&;^#q=2&q+F0y!^u_KAb-wi2_3
zP^tmJDWRoB#A866ui40PKQfY_GX$%cg@r|;)U`{P5$qr&cp0-<HNTh|PBU0R{b1;B
z8bW|+++B+eDksh*NFb|7tQ=CCwr{ss3VTyqE4Y9EYk41>=WM`nAB+;9?;*7~zE+I7
zZ3aPP$9}rW&(9B=p{=1V`Bbz}G2@d_5gDq`dOB5EMGHm**nNw@ryXqQ;V~|E89K|@
zFm72Ni?A#;6zgz#gWs@mc4n+kU<NW|6vjIAzjg+y4y<6J_xJT-PIkJ)-@l(8{p!d8
zd3l1iAI>QxG}I0$m`Uzv$Fos{VOoi@v!JYRuWpQ&KBS=F`}tK65nW7zAnR%0yFX4K
zMZ`9LFzy)zegMTbc+8hn>JcF!A?Pt`AI2hvh7{x!cCPn_NHQJ>1Ry8^D7+&gNqX^W
zJ9e0hMyxYjE2dx#Gc%|X<)=QFK_UbdN`67XEo>mU9!gT+I8Q=M`r>`dk-WWdcr&bO
znws56=|MfBg;RwJ2JSBQ)-FW)vK?@r$;%JWZCuhZ7f0#ohtgxjqSMJZFMN?e_=E2@
zO-)TG4&Z@YDL><FU7aq4#jx!#GK9w0dm(jny_9XQO8?idb2BqSkTXCj?B&as-@u>o
z%)SSr^7R%@6+R1y*2_v~TH$6IRS+)UsAk|~j;IcOe#OEN@Oybdf?dXi<~-^Nv*^5o
zwByFo%7`}w*c6eCCn)$XLdOZ5ozTQ$M@WE4*zL7|5Bo0lkK`q~a=G^Vf1B6*xAbU+
Z`})gmx9?^0780*KsjR7#bNs^1{{b-xZPow)

diff --git a/Function-operators.md b/Function-operators.md
index 1b54d124..b03d045e 100644
--- a/Function-operators.md
+++ b/Function-operators.md
@@ -94,7 +94,7 @@ possibly
 #>         })
 #>     }
 #> }
-#> <bytecode: 0x55d5181c6328>
+#> <bytecode: 0x559ef73f2028>
 #> <environment: namespace:purrr>
 ```
 
@@ -120,7 +120,7 @@ safely
 #>     check_bool(quiet)
 #>     function(...) capture_error(.f(...), otherwise, quiet)
 #> }
-#> <bytecode: 0x55d518363bb8>
+#> <bytecode: 0x559ef758cf08>
 #> <environment: namespace:purrr>
 
 purrr:::capture_error
@@ -132,7 +132,7 @@ purrr:::capture_error
 #>         list(result = otherwise, error = e)
 #>     })
 #> }
-#> <bytecode: 0x55d5183be3f0>
+#> <bytecode: 0x559ef75e9110>
 #> <environment: namespace:purrr>
 ```
 
@@ -281,10 +281,10 @@ withr::with_tempfile("logfile", code = {
 
   cat(readLines(logfile), sep = "\n")
 })
-#> Function created at: 2024-01-07 00:44:00.426587
-#> Function called at:  2024-01-07 00:44:05.433612
-#> Function called at:  2024-01-07 00:44:10.439013
-#> Function called at:  2024-01-07 00:44:18.447574
+#> Function created at: 2024-01-14 00:44:29.239652
+#> Function called at:  2024-01-14 00:44:34.246656
+#> Function called at:  2024-01-14 00:44:39.251978
+#> Function called at:  2024-01-14 00:44:47.260402
 ```
 
 ---
@@ -333,7 +333,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -345,7 +345,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr         1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -353,7 +353,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -368,7 +368,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Functionals.md b/Functionals.md
index 263cc0f3..7b3df01e 100644
--- a/Functionals.md
+++ b/Functionals.md
@@ -36,7 +36,7 @@ map(x, 1)
 as_mapper(1)
 #> function (x, ...) 
 #> pluck_raw(x, list(1), .default = NULL)
-#> <environment: 0x55d958cd1430>
+#> <environment: 0x55c80533e1d0>
 
 map(x, list(2, 1))
 #> [[1]]
@@ -47,7 +47,7 @@ map(x, list(2, 1))
 as_mapper(list(2, 1))
 #> function (x, ...) 
 #> pluck_raw(x, list(2, 1), .default = NULL)
-#> <environment: 0x55d958db8158>
+#> <environment: 0x55c805424e18>
 
 # mapping by name -----------------------
 
@@ -65,7 +65,7 @@ map(y, "m")
 as_mapper("m")
 #> function (x, ...) 
 #> pluck_raw(x, list("m"), .default = NULL)
-#> <environment: 0x55d958f06330>
+#> <environment: 0x55c805572ff0>
 
 # mixing position and name
 map(y, list(2, "m"))
@@ -77,7 +77,7 @@ map(y, list(2, "m"))
 as_mapper(list(2, "m"))
 #> function (x, ...) 
 #> pluck_raw(x, list(2, "m"), .default = NULL)
-#> <environment: 0x55d958fec178>
+#> <environment: 0x55c805658e38>
 
 # compact functions ----------------------------
 
@@ -139,7 +139,7 @@ map(1:3, runif(2))
 as_mapper(runif(2))
 #> function (x, ...) 
 #> pluck_raw(x, list(0.597890264587477, 0.587997315218672), .default = NULL)
-#> <environment: 0x55d959f7d6f8>
+#> <environment: 0x55c8065ea348>
 ```
 
 ---
@@ -880,7 +880,7 @@ library(rlang)
 
 e <- env("x" = 1, "y" = 2)
 rlang::env_print(e)
-#> <environment: 0x55d9572060a8>
+#> <environment: 0x55c8037a7ee0>
 #> Parent: <environment: global>
 #> Bindings:
 #> • x: <dbl>
@@ -1015,7 +1015,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -1027,7 +1027,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr         1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -1035,7 +1035,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  highr         0.10    2022-12-22 [1] RSPM
@@ -1051,7 +1051,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Functions.md b/Functions.md
index 6556d48b..0034f757 100644
--- a/Functions.md
+++ b/Functions.md
@@ -20,7 +20,7 @@ library(tidyverse, warn.conflicts = FALSE)
 match.fun("mean")
 #> function (x, ...) 
 #> UseMethod("mean")
-#> <bytecode: 0x55734d1505a8>
+#> <bytecode: 0x55b231834a20>
 #> <environment: namespace:base>
 ```
 
@@ -347,7 +347,7 @@ names(primitives)
 mean
 #> function (x, ...) 
 #> UseMethod("mean")
-#> <bytecode: 0x55734d1505a8>
+#> <bytecode: 0x55b231834a20>
 #> <environment: namespace:base>
 
 # other package function
@@ -356,7 +356,7 @@ purrr::map
 #> {
 #>     map_("list", .x, .f, ..., .progress = .progress)
 #> }
-#> <bytecode: 0x55734f135980>
+#> <bytecode: 0x55b23381da98>
 #> <environment: namespace:purrr>
 ```
 
@@ -559,7 +559,7 @@ f2 <- function(x = z) {
 }
 
 f2()
-#> [1] "0x55734d8a0d10" "0x55734d8a0d10"
+#> [1] "0x55b231f71660" "0x55b231f71660"
 #> [1] 100
 ```
 
@@ -654,7 +654,7 @@ show_time <- function(x = stop("Error!")) {
 }
 
 show_time()
-#> [1] "2024-01-07 00:43:46 UTC"
+#> [1] "2024-01-14 00:44:16 UTC"
 ```
 
 **A5.** Let's take this step-by-step.
@@ -874,7 +874,7 @@ withr::with_dir
 #>     on.exit(setwd(old))
 #>     force(code)
 #> }
-#> <bytecode: 0x55735689cc20>
+#> <bytecode: 0x55b23af92cc8>
 #> <environment: namespace:withr>
 ```
 
@@ -958,7 +958,7 @@ capture.output
 #>         invisible(NULL)
 #>     else rval
 #> }
-#> <bytecode: 0x557356d2cc20>
+#> <bytecode: 0x55b23b421318>
 #> <environment: namespace:utils>
 ```
 
@@ -1298,7 +1298,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -1311,7 +1311,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  colorspace    2.1-0   2023-01-23 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr       * 1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -1321,7 +1321,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
 #>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  grid          4.3.2   2023-11-01 [3] local
@@ -1343,8 +1343,8 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  readr       * 2.1.4   2023-02-10 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  readr       * 2.1.5   2024-01-10 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  scales        1.3.0   2023-11-28 [1] RSPM
diff --git a/Names-values.md b/Names-values.md
index a9337778..17bdbaf9 100644
--- a/Names-values.md
+++ b/Names-values.md
@@ -29,7 +29,7 @@ d <- 1:10
 ```r
 obj_addrs <- obj_addrs(list(a, b, c))
 unique(obj_addrs)
-#> [1] "0x56426e6d12c8"
+#> [1] "0x55a3a4e030e8"
 ```
 
 Except `d`, which is a different object, even if it has the same value as `a`, `b`, and `c`:
@@ -37,7 +37,7 @@ Except `d`, which is a different object, even if it has the same value as `a`, `
 
 ```r
 obj_addr(d)
-#> [1] "0x56426e38afc8"
+#> [1] "0x55a3a4ab9088"
 ```
 
 ---
@@ -66,7 +66,7 @@ obj_addrs <- obj_addrs(list(
 ))
 
 unique(obj_addrs)
-#> [1] "0x56426c0b3500"
+#> [1] "0x55a3a27e2978"
 ```
 
 ---
@@ -124,7 +124,7 @@ And as the docs mention (emphasis mine):
 x <- 1:10
 
 tracemem(x)
-#> [1] "<0x5642701b6628>"
+#> [1] "<0x55a3a68f2660>"
 
 x <- x + 1
 
@@ -136,10 +136,10 @@ But since the object created in memory by `1:10` is not assigned a name, it can'
 
 ```r
 obj_addr(1:10)
-#> [1] "0x56426fc8b0f8"
+#> [1] "0x55a3a63c3300"
 
 tracemem(1:10)
-#> [1] "<0x56426fcf77a0>"
+#> [1] "<0x55a3a64337d8>"
 ```
 
 ---
@@ -163,11 +163,11 @@ x <- c(1L, 2L, 3L)
 typeof(x)
 #> [1] "integer"
 tracemem(x)
-#> [1] "<0x56427053bad8>"
+#> [1] "<0x55a3a6c72ec8>"
 
 x[[3]] <- 4
-#> tracemem[0x56427053bad8 -> 0x564270667558]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local 
-#> tracemem[0x564270667558 -> 0x564270675188]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local
+#> tracemem[0x55a3a6c72ec8 -> 0x55a3a6d9e948]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local 
+#> tracemem[0x55a3a6d9e948 -> 0x55a3a6dae488]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local
 untracemem(x)
 
 typeof(x)
@@ -182,10 +182,10 @@ x <- c(1L, 2L, 3L)
 typeof(x)
 #> [1] "integer"
 tracemem(x)
-#> [1] "<0x564270b34198>"
+#> [1] "<0x55a3a726f3c8>"
 
 x[[3]] <- 4L
-#> tracemem[0x564270b34198 -> 0x564270c5fe18]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local
+#> tracemem[0x55a3a726f3c8 -> 0x55a3a739b048]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local
 untracemem(x)
 
 typeof(x)
@@ -216,20 +216,20 @@ b <- list(a, a)
 c <- list(b, a, 1:10)
 
 ref(a)
-#> [1:0x56427131bcc8] <int>
+#> [1:0x55a3a7a51fb0] <int>
 
 ref(b)
-#> █ [1:0x5642718493e8] <list> 
-#> ├─[2:0x56427131bcc8] <int> 
-#> └─[2:0x56427131bcc8]
+#> █ [1:0x55a3a7f807d8] <list> 
+#> ├─[2:0x55a3a7a51fb0] <int> 
+#> └─[2:0x55a3a7a51fb0]
 
 ref(c)
-#> █ [1:0x5642718cfda8] <list> 
-#> ├─█ [2:0x5642718493e8] <list> 
-#> │ ├─[3:0x56427131bcc8] <int> 
-#> │ └─[3:0x56427131bcc8] 
-#> ├─[3:0x56427131bcc8] 
-#> └─[4:0x5642718d2178] <int>
+#> █ [1:0x55a3a80090f8] <list> 
+#> ├─█ [2:0x55a3a7f807d8] <list> 
+#> │ ├─[3:0x55a3a7a51fb0] <int> 
+#> │ └─[3:0x55a3a7a51fb0] 
+#> ├─[3:0x55a3a7a51fb0] 
+#> └─[4:0x55a3a800e1b0] <int>
 ```
 
 Here is what we learn:
@@ -259,7 +259,7 @@ x
 #> [[1]]
 #>  [1]  1  2  3  4  5  6  7  8  9 10
 obj_addr(x)
-#> [1] "0x56426f689e78"
+#> [1] "0x55a3a5c2f658"
 
 x[[2]] <- x
 x
@@ -270,13 +270,13 @@ x
 #> [[2]][[1]]
 #>  [1]  1  2  3  4  5  6  7  8  9 10
 obj_addr(x)
-#> [1] "0x56426fe84148"
+#> [1] "0x55a3a65bf378"
 
 ref(x)
-#> █ [1:0x56426fe84148] <list> 
-#> ├─[2:0x56426eee5b38] <int> 
-#> └─█ [3:0x56426f689e78] <list> 
-#>   └─[2:0x56426eee5b38]
+#> █ [1:0x55a3a65bf378] <list> 
+#> ├─[2:0x55a3a56843b0] <int> 
+#> └─█ [3:0x55a3a5c2f658] <list> 
+#>   └─[2:0x55a3a56843b0]
 ```
 
 I don't have access to OmniGraffle software, so I am including here the figure from the [official solution manual](https://advanced-r-solutions.rbind.io/names-and-values.html#copy-on-modify):
@@ -425,16 +425,16 @@ x[[1]] <- x
 x <- list()
 
 obj_addr(x)
-#> [1] "0x5642702ece68"
+#> [1] "0x55a3a6a23ce8"
 
 tracemem(x)
-#> [1] "<0x5642702ece68>"
+#> [1] "<0x55a3a6a23ce8>"
 
 x[[1]] <- x
-#> tracemem[0x5642702ece68 -> 0x56426fbe3420]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local
+#> tracemem[0x55a3a6a23ce8 -> 0x55a3a6319f90]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local
 
 obj_addr(x[[1]])
-#> [1] "0x5642702ece68"
+#> [1] "0x55a3a6a23ce8"
 ```
 
 ---
@@ -552,7 +552,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -567,7 +567,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  crayon        1.5.2   2022-09-29 [1] RSPM
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr       * 1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -578,7 +578,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
 #>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  grid          4.3.2   2023-11-01 [3] local
@@ -603,8 +603,8 @@ sessioninfo::session_info(include_base = TRUE)
 #>  profmem       0.6.0   2020-12-13 [1] RSPM
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  readr       * 2.1.4   2023-02-10 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  readr       * 2.1.5   2024-01-10 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  scales        1.3.0   2023-11-28 [1] RSPM
diff --git a/Names-values_files/figure-html/Names-values-31-1.png b/Names-values_files/figure-html/Names-values-31-1.png
index 8fe9b73c3b569742a8b29b11a77d7ade07469854..5133620e5798b034cd65228ff44615f7a6c21ee8 100644
GIT binary patch
literal 63010
zcmce;1yq!8yEi(DqS6Y8k|HP|t(4Lw4bsv|cXtgTEuGTcAq_)H!_eI+-Q95R;s5UU
z+k1cKJLfxVopWX_7qeuZXYRPJ>%M;R;P*vR2pt6<1p<MfiwFzIKp+o!AP}U+$M?bi
zI6V*u0zaOZ3oBVcAVfZhfA@ly_jMqUR}c{aUOD^ttr-VvoYh}zx0SiDs8K#tQY?L>
zVv$!oUmt6Fa#pMNCir2q?_27{@0-PUif@JgwSP-&8MI3Ni~r`^N=s)Co8(I3(%<PM
zy|D2=Cq%(Za~8UOM8>O{1i#<#yz*#y%|rdzgtmNGUQJEDf%{#VHf`0tfq<jytA|CR
z8$uZhIf;&Qs}67a4j+JFLLeQ+mN2BdcMy``2gHbXZZtgiF%fTgp1*Q`gn07`HKg(G
zLm>}^=kFo@r{g~P9^xlN``$DAyEi3}CmeTgl-&NG+{WGd5kte#>8Vp<beE!>JTnf;
z6H@V^p8~IQoY%K9D7%`xP@5Nin@p_-y<vag`Dc1sl~jQI8KcC9nFZ}fYGa3ohq6$K
z4)yc%b66oNDe|L7MC~GWY!jrctcpWrfByWjeiX)xf{Lo6biz^8(7-)YtR47;@-J+s
zqeB>m)QM3-gZKP73aRlFhEH=2W^#5m<uN_Vx95yV|GzE3|4ZxmKi!7s)yzHe<?YJ3
zo8uy=%g*#iwJ~aHY7)n_l#PuIk@lF(^Cnb!LN@bn_V)H8x$<$WX0CgG9^nd#h&A4A
zV|Ssr)I3r9`Rr+ZCG^&nRKV5Ml?k8IdaZw<+2{76==P$QeOH`tbZo5B>2#-5uMdTk
zFQtEfsXds4dv<vEDA3HAjGLR=WZ*7v7{uPYJh>L5uPcMz-n<cu;<!E<qOaX+g3~u#
zt)&G!CY~;l+*TD8(OZmTy6$;`+l>wnUmbGa9v=2_-y(ijTU%RQeO|qqD5mvK<aI~=
zl$@u9Uz|d3?F6N7Zgy{7k2glb$VI}e`#4Xx#*3Rv@=xcWbKLnE8O!6vS`H2lb5|>@
z0sj6!u-?3RQ)9a=gM(O~dh7MU;i4^vM1xqWYu&rKS7E%Y`*D+CH|r<xnsv_ka4<uR
zB8dB9E$wvHY1iW+>ecPVFJ~8*>z0v&*4Ea|(E=k=Q!exQM$XgeC1`n8lIz8Q5J^vG
z=lQx66d%I}1ZiGw?oR#X&c(&W?Cfl`y5sua&hWarI(QWA<(3||Q#+BJxbuKH+Z9~n
z=3sB3nUj<A&$r*{>3<WQcB+@7RLDhO3lxa*0%6$IvAz%8o988M>0zDYFsS{FcronH
zebDQDObWL4Es=tv;@I@`7L;jW#%_+&Vo^X+Qqso8#?H=;pPye#Ye_4ZvqG<r7+&&@
zn%c_JvNw_Qvin2d8mwNc9pkq2;_}iCL<<{Rw!!3LYXDiOuZHez2U#%3*}P}zP2fMf
zDe{?OFCig;&$l%IFNxjGbgtfoLMl-XM`yV!^7gvn_SDbnU}k29?=f`$O5jEq45;M~
zHiabElqElk#D1F@rXIB#+w!uqtG^W7IfaEcqm}izC|=J@4riSYdj#&^ULE#fVqnZV
zZWaV{-`Gn^24O80RL(lC{L*vX573x)+O3Ptoaq?4+btelioNFMW<KB1(a~rP*NGAu
z=w5#cf5XK{QT;(=(X{L3_D#pyS~ixZVdZ&kEeC1K`1p9s9}f?YBA0C=MA<-VKI_)w
z8X6o-rR?fWVCPQ>!QzvSctmXf?e^vx?1f*Sp@|7D-!%00+VzC)N7YggJ3c;s(}KB%
zhK7hpXL>Z3<Ix(n6bIum`$Z-6vJ%|d=+nzFI0M>k&F8RZ%=p6Urgtw`TE|;#JnV(8
zXUC%JFn?Vtk+A2q$`L!1CEm9zOX+I3x9N<(EXw8Nmrao8@wKh*?^0}Y-=6mw85-Vf
z_1)x`lvsZIHh(;(aT|Pl77V?}f-0BlN+>D)!fL88Ar)YF5r4GqT9VLl<+3?e#EM3?
zuW>u5q@ciJAqw4JY~_30Zt;xFRr26u%1lu~;q6Hj^q`YM&wtv2@OHhKyo4sJSU1t~
zI<ILRh8$m(*ZQ*NzyDx@jJ-<3w!ei{IG-Oh++H@E4y_Ch4$?!<;c01U4cFUdr&|+C
zS^c0KgIF8Tw;s&8wAu~VUAZ<mf1niA8gU+<Gd6U&Q?pw$cfGS&)Nljdj*g6s3=bPm
zR~1)P*=Kg(3jVUa8MRUCJLFoKN;L5^qd2Bds3R9yv<Ay#(k4>#uC}KTCA!3@d1@<n
zkEI4#^|naCaZZ<m8B(GK;?n!O!0XVO-FkM$_3g_v?u)d!o0G~csic!zm9Jmfn3!<<
z1m3#9xJ%3znl^*A+k=Sa&U@`ZMrN$6tki*0HdCYcxY%$cm)>~+6;#DU$E!?<I7B4o
zEM4Ed#z>?N<m8XVki>`L9sL<-1*M<Usj_i!Y|-yDwxb|>-n@$(7?5Vs7Y{4k1Pg(L
zgfxBpmWrEut_TT4O>7k(iegAyT%N(?{QNg?2H|^od6m$B^KX%RREZV`rMi&){rj*T
zo)S+Qxa)p|$<%^5+wnbd6a0s-YCuFZXm^GQlfO5>{0LQjY_UEFPI7XQgVnxA$jEPr
zR_02&6<nkxBznL!$U-{?(u5G@xWC_grTZ7ixb4}xnu-cr1@*gH;`Xa!9b;Zpp-7$f
zM-^C(^nI~tx+kQfqM}#wJh-^He7<BtLE@kCb8<u;ODickBz$jK+DFBsJ32W*Aw4)a
zs4$zm0mb{~tev}lyJG4GmRaq7n~kf>T~=}_fW1h%7|!~E)c}qlwXp=Yo4C2F&yS0B
zd+=`?rYcOZ`IwlP#J3b#IXIlR#u+7sxXwGJ)b(C~NDAgW8CL|!`;{i@MFe?HeZBhQ
zr@`$-hnsihXRrAECwGl<!x5Ox=H%q$&Fbw{lB=xURE37~ek<6*4cN_jA9R-6xY-+B
zUS8hQ)06vRAo!|D7+#X-xIr~laXXKBGk?Kaj^f1!W?XJ^IiZ&%VJtc}G<3L;SA;@p
zXlPh?_g&w5!@Zlk_S5z?Zb%q2j^9JbsnU$*y|AFiiqK<3rtj9B&R*^|XvoPiF)+-t
z1r=_BdUe+Fc8}d|#~CEo>Gssv`1n_8>4DMF=K-x?Y3t8g>3c<AXk2e7BJyQ-rsfnJ
zG*onSwuD)gm1Bpsfds6s7eh&jk<nls8wtsLeEtR<y6<2ttHu!$KjUNL>)2%Rl{XqB
z!gtG$SbyTIq%^^OJ;YsibpS_4M_(|nDl4-F2O%csQGa@`E#ib(z=T%m^(D5owGCxS
zfqn;+>+2LB;)6<$23N$nf3cpW;jkQ8QBhG}Uk}dN<IS--ht-72IoHc{jB_xGm<CnF
zYHR6r<LH`C!zWg+Ke6<XuJ(eSu!_YPGfoC%1r^tVF_|6umC4_x1%|1PH&n%es^rhU
z6I7F*PjzJ6#D>&8o9aNvz$gh+4IBTwV^|zG&HRnvBk2$AU!sax(<8)d#?el&H+nE+
zk&-PMI$L=3s$5a@JH=KTPm{k8RZsDxyH50dAQQecoi()@QCBrf#;HfljzK=&mzl*3
zNhL2?<(-Hqr_W!amTQ~%NPm0_gETUe-d)8tYtQSX=re6+Fsa3%W)~gVCf1cOXj$o8
zEmZKvO-b;s+ZEU2<8?~D&S&C3wWnvLS65hwielHn?G4M|3zH#y>vryW*VdkKc2+FU
zqKfJvK07@@+M1=ZNe4Gwc%4<op)RwdkZ+FnLx%XRn}h$|#}8wfSaOf7snm!>^=d3r
zRK%yKWToR%-$)u%t0+7z%0BY=6XEj&a@W1ZK)Gc4XXjX5@IFaciFMK8l_}bz*!4mN
zf5NfACal~Wi+pquQP|6)STks$j-Tj?$BHs}Py78{1Kus+=V6<X$G>hEEp9d0JpIKT
z+@HR{Tp{0@{~;B|Gf0>aVw!H%WH}zTO197OE+1~&wxT@k7IBDynA6_1^&vCq9m2_Z
z{3m*oPW0j${e_06>&qS|B`EZbCJb&{&5@{J7!$ghyiR&GIK;6hl=Q59O3I57QS8(T
zGW{6eFz(<2&-0MQ3TH;?{#nvr0|uA`^!oI)Rsm7zY{HPLlz+Y_g&ZE{1dAvP;<59Y
zwot#Q^02klf5cEJGHcDuSH-)yUllP~t`bJxSwiz;kE73KMy}pkK^CXgM$MHyEW$p{
zVlZqqiAisgU0PfyO6T^XbBe~{Mr6q(ibGKP3Ti$W7F~7Iw>Wm>-Mo0Ew0os=sv5Vp
z9$S&DrVlI27f>#iQ7%_dR;QA)d5%<-a#g7WGwpt6W(iU9e|Z++->OL^Ij^GxPN2sN
zY(XYd2q5xCBrKJ(!sM`nOvIh1vB5o{eF@Zb5osKWA>*mHcoJcm1~)Dg4RM{a^77IV
zplX5g?fw15O_G76@`1J5DaWp3U(BkAOI_-9?XastJU6vBauzoYYacZ&9xipQKW=K7
zD!HX}AGXo~+2JnZ53Ex2!9tOc<tIE*WbRTq`b@ElaW?Yu*AKXegM)*DG7mCJqf;rp
zzsF>Dk_D4L^yHP7_rfav+8zHrKutV#6P9TJiYWP>NSMw<!zK{{!O}<RFiR_|HzJFR
zNgQfpZ$u6_g2SU~d0x%KcFN-!+odlYBYSPD^T_&L75v{y_t)$1+vCBuuB^!5CEs5l
z`i8*+7BcroB}8{1PlngO_3utE{NeU?7<SUiD<xZ0ypI{n`(c(@nqHN!A`Tety|M~L
zK*sscBBnmJBWfkXRC(s2@Pt8>J_Z>Q3W)Z@f1>v7M-FnkcuZ?M%GJrgzijpUI&GpN
zKV>X~d@d~$=vPIDgx!Hrx6LJ3S4My<Z_T8uq(FNnXBWIDAX>i4b+BGLN7zJ90}_LD
z7hC2d<m_+lY#gtnTh1$L5A`zG9&SU-o9_nmifT|_pt`@n+J-V=yUWXTfz4I$vgMaG
zeKM@o&*Q|hFM0bTq#OUAk?Gea*X8l=)G%!`CKlGfMVH<zBa*g$IxU$9Vv2V6A#sM3
zWX^t9Nth;YO@(2gV)5&+N;eN%i0~aKb~~3WF{wWFSTs8sbx<$KU&jcW78C?iP$_Ow
z!+OTImJ+fG)6^y(d5Y9nD}cyO1`-jiG*PLs7LOAH3>lm(eLqmtqU2ks-_^YW(+H8g
zs}qN<LMW4$mp@h|INOGpD$}<td7Zqn%xfM)etA&82WQ6gGVFjSX>jD_nxW#SUa{r{
zgJ4Y`TSy1W-Q`wY;PRTuH$(9!46JhV;PztF@wn78UwHjJAAnLzBR1ccz<!EAjn@~)
zHFmp+N2Ehc8uklbNRKekFfogi%MA}#dN8@plAGw>LLlFWg>#eDq7qtL!PL}>`5st-
z`UjbZY0KUx32439C%GM{*v=u@*xZ}~XY)j<o)=cim$kDyq-bVnc+tjMADWbubRZ0f
z1yeSv_s`ZgLau+E%%TqAmF2~%I94au<u{>f57m)CzJ(dXd~X3@Vu#*bm62Th!E`l0
z*_w!rjV*#+Zwd+u0?cu{hk4sSJ$*H8)yKKtf=v~K4WiIH=4=1#1f7@9UEo+nMX_Zp
z_xeZTlp!^$hA}_6O5yi$J<ikc;!82Nw>*rDii*-|4_aPcb~%ijJ6fF*6BV`Ho;+R#
zeJ%iuu4fBAc=YNV>#`hur8IDcpE!bG@609At7tXEamwt3b*(3x+fXOP;M1vZ5T!Q+
ze<HLI6BF}x&xf0alG1)H#V66_WI}|*<@Wm23+wp!7+VpJhlf|BQdtNvZlgQW>9kca
z)*|Q&9KhL3;&L<)A0MA|bCd;IL2mAb+}sV&HWwBZ?QU<otY<_^CUQ(nP1P7rl=Qit
zl-f;Ow6`ce@o8?jTBgS&;hG*A!bU>|Q`iCES;e$ka50Ak9O?35I-Q(qqKZPvHT*kl
z^e(ErPPLj|LcHvdZX__=+oId!20*9SZBOC`v}U><b^rRn=L>_uM3w-S?CI&b5yGBz
zIh_Hh?(g5fa*B!oUb2FIj)jHmWL(SXWUH7aucYKX1;y&tL}?$#;m^WNcH6Bz?!1Nu
z=xT2Q=*eO;Y1M1lp81{WoCI?mba-NN*=yAsfFuYeSL`o@iA8<V!37y7TQNO!Jly^S
zBAiAeJP)>6gM`g|UN-4M&c&sUdxA^E&aM(GH9K2>u!?(dWQ5sbuLbaDwp;d#eiYVf
ztP)mZg=)04wA`S#%+1SdI4&^r;v;Rhs6VaS-JWZ>1t40Sd=GF8SM&4p0AgO8Ed{Us
z{ri{{(edjgI;`L|oV9``547v)(ZnxbezaI@8UCVJq)sGkav0MB?<~pBHGHS>$>}@}
zFa3-na^%?*C#8SW6phG@h^+ib+zv63Y-h>VEx-IoOM`_@35{4-i`g=>@PNo6NA+#k
z@Iaw;V)SHRk6b^U<>7SL`^x+#T8$k#YFz)<KSJKG5KD%U?=Xf%f35D^ed}fvPKtN?
z5+HeQ5Fi;D8PI(^DB}<#sP%llIWsGV2M0f}w6wIaAEBb4)Sr|Wt;6VkFrY1cNIDl6
z6AMVC1WhTL7a!kaL1|+9dH3tf)6=6Pa<07ca{0#=AQUerYOofA*mv~x^&k5*ySTUj
znj~EP;%I#c(XD2A!|Zm|Z{=mAhRSj<@y#DrS68oNkX`~-?i)i4fUuo_85tzvJJ~PV
z7FLJd>}b=AgqhBZSg93d!8x7UIH9AQGw-+@qu&$rFT8eW6*Xvm=OCC7fv&b@AE#Ep
z^Qut<$s8SY_I8BrbF4dNH!EgGzwrFd3E&bE1XtQqCHa1y0M#aq*O(5Z3iA1ul$2zM
zMZZP9&a~_O;rM|&+Uat;5>Q;&;ek?I=YN@9wLopU`At)K9q&}w!#=l?Xo9_Oz|w+S
zLPM+my67tvtp-(*G8rz7xI+ZsJVOSaTm{hA+iwi#^g(Y9jm8S=n!f)F$FBX&%)gnw
zO#gK*BFlR7sT<&XKTp}qLBOxL032(l0lhv3Zz~H63o|oym)ZgWEA+ujPEO7mtf~}|
zo!S^v54AIWsbrK6ba4itZIMS@QGnAaY}aHQvl${1vwi&FzH6(y$y9GyLKK6ShH1zm
zDxU&~AE>LL(sP?fA}9~;`=^RKh6GXr@}%KWjMrRG==YrKczy2G1a4}zwM0a76Z=(p
zQ9d6Fms&tD0}n0ecBC^gz%$bzan&L?l>C;M|M3EBr>r2sl<DN#{Svj6w|jcM@u2Tl
z94%D4Y=>U8D{__m{%x+WPx;JG9RF14IbFP$-Z)65vtGOU!$C26W>!`JSL}9Y>-c=-
z^AubbP&LMD9S(<=;Ba`ud5@VS(eCbU68<WBMs99W<5We$Vsx*%f9e{HIPh~dk%$b#
ziz94%cu9wFc={$RHy4EM-&B#VzP?lJv*KdLMC><IfVB-Hr@QGKVv-0W?>j8qPVZbG
ztzL2lHEMk$<dW{(GkoPiZM>?UQVycsmuC|bYgyKDX|fQoy-DXw3E70z_JoncOOhJd
zgTkZ2Ki|jHuIZMTuc@g~8{>31_zMaa>pH)Lgajb+im(>fvy#;79Lu?(Tnr2h>%af}
z;k9rGy*kdz$(g8gvLk=?5zso|oFc%-?~VUh3PJ+Rer$BKw@VCk(#DI3js&#z(<3Pr
zN!SDHsFQWmwf0J0n-tp<U-~g19bbRNH9qqEqXUnUz-N*enuGU9!LN4`0J8SMAo^ta
zx5K1zhGl;~GxIH}fR4_x&F5#q?Uxr9+Dhsr+9K-evnShAl>lOA(7UW(&fVVByIjuN
zFQFqkkCi8#L7i#|4Ra}VrE31|Ss#U?W|{;g4IFCIr>Qh{yihVfB17ErqN|?(ni9OO
z)BgY}^fo6eQMuA|25<w|o&bP5ZI_P$MuG+|dITdNCg!r;ipexc0+d|Qhp>Txfp%gi
zarqHE4QIxI4z;j!z+Jjrp0s9N!_mP2Pz;z-Ro4_?pCWo~m-#AV3VoYVvrYGxiNLYP
z=}G$$0x6}p!an<JGX6UyH#fJu{8$Kpa6qnIdvi*09s^p#ZpLQp*bMnOidPh!n&U!~
zmtK;~3E)kS<EB7as=e6A<MRb4yV4mDC3xQcsz`QuCN(yrlY!_m%cen*d;`!Aq>6Ec
z?>_yH@oKBpa4D{8v$=WzbN&7O0hs+tqaY)5&`R%Wp-_LL2<SjF=;ah3cwAN!?EC`)
zh}ze;w~sl@K)NE1R=wpn;Cnt*7mkfA#B*;Za>v=_%BO-}FT`O*_<jR8TuE;Be89nG
zU~J6ca$)`b`vTY>z^9W!E3Pg~W^2zuG`WIo0*nM$DnO5n7HL4iSIq+c5hZx)9;8Du
z%miMC2Nn$K;5>bC&4o`Q()FfOP3|vVSq(1r^urWu0ThTE7N79ew+PXHKy_}eHy<hK
z4})0a{V?)7qUi;O&%|dskw4%1i{t@4ZA=zT{$FGe*XVE%#}%PsGNz`50G1@u2#2(N
zj!Z11#w$Zb06+GOWm6@=+SEZ*nSL%ZC_!~-Xedxgh_sdHXlQWw#w&<0d}K*@q@|@d
zG;kVeV#z)r`1TLy!n{t<q?nyQzp@N0TTvWZ-x)Y8f5~o?trEHq(I&iMy9aUm*lx4z
z&Xtk(p?{>%IzHMvD`_KMu3x=MKa>WZxat6Cf*?GIn>IpBa;xU?pE_s-5JGKx5Dk~p
zG`o>D&o^3ujamV=g-D)vh-USbiUf^*G`+PLiDJL0Vm{WN2?KLf2+szhop&>SE%^Dq
z8c_-N(5%z<3lCd)D>1lh1HY4!7v8-0BM1ZD-YFUos4Dy(ZYONZ*y~TG)lPHh8Tc*X
zmC@5a-8w{p#8@FP15ewzKChFH_U9~4W6<=Mb<-+`Exx)35oScBTFBG?0#<LdP$!pg
zsW}j_clZQ>hJ@q(qD;!$b;@MrH)#;>u7BQGdH{KaeK*O7ux9?Q>I#6^rzhz8<oXlC
zH)*IdKv22)A-=g0edXUZ<f%S4wO}}<zDC(sVHy8saEm+8;x<9is%dGr3UIh>r=OHn
z2u+PwK>Xl=y-2leagz#`D1h$}ZEVCy8Q9YYgp*6J-=R#3QFC|#90Ccu<2DKt2#Lek
zdmq8rBMLF9cL&Sb5#^~d{|>Gzl2v=y{zG_Nh+KwcfSwp)etkE(_K>ZZX&caggBk+`
z{o%PKy<7;uc958*yWcaV5BLI3V}0Yxr>RKPnI?-&;-!ajm2A@e>N_w0AbPgOD_#Vy
zais^O!+#}SK%WW8;RC;H<TwfSII)tkHl9qQ)PMA^m1AfSuAn_t|8mtc`)TS8{2!>2
z|Mew3l^wN06(T@*kP*ZGwiEup3~ullT?7I2EeM~`yynwSSz1v*0?koym~D_IW>&w^
ziAJ5I=I|l_F!eniGz(0NT2+yFO&0bENo`xS-NAru3nfMJqd#IHOK=cdtt9^Mm<{`=
z1%TWg#UlD2eLkcc1+fn$-7Oxr=X{k+{Jb@awc<Id%nD^c5I0#tzWcQs&dVp(HXS$O
zPP<;<(2(z;tyAq+R|v&M>5SFI#K`1Q255o|5kDcJZ=aXhRfsL57z7_!9>!<93DW4V
zFB6~?MFa?hiXW^WPn$VmMv>yju}lDK)ri7gCY(^BOuEzHp4Kj<X&HI&Dhu7OVnHNR
zdbqZdrBw9b$kVl*5cXaWj$Ge;PH@#3D3-t9uX<jwnoz7MAzj+Z6qh>6IP?=X`v*1|
z=ivzBM+%7)o|k<`Pfy=kL<ujs#gvyv=&n~AN}^%pq(EK@+JqtWS<2|>Eqw2kTv^b>
zGF^p7T^RA5h}M<^;-PN6tD&^J<2M^rp)3h|dsRSctnA@7-%!iov*KDAxqK`*H7=Qb
zdB75qyBiH$^(uT-;}(z=>2IW@aRjB=w4O9uWPQZv#Cgg2lo`tUoRjI3u0(YL8=>Fu
z>azJDL>1}TSp-o2M7M2g{G!9jsY1J#x}LF`#}||D1AzcgL)L0YN>QcE?j(eJl1VtL
zQ-B$0oo_7j5q3CF&2Q=(&nWTVq|skBvF%|q=nN<CJghx;Zi8u^EC{C?SZ{T#jfZxO
ze}u!D{s`v6KGNIyWgg&RH<ptEZU$6OoH@JPTznL-AAo|PdFGe?4?6>hazY}aauar-
zIs1SPIWCU+hwtY!$}P-FP}uIg04r!tU$maxm2V#(pHgN#iR!B>XSFdeEHW~(-m-x1
z4<VcHqUqixY+C}HcAbwSk(%r>pc!i4>okM64YY8Hp{9jB8`p&MwBNt`rG!2jbfS9k
z6>bLo{F%-kGF<(wJx;uo%8*5{fK0lSmAIklPpdnRNq;uWQF*K~0n_O613cV2^;;4?
zmH!{wH=?#O7^Qy|-`S~E?VqLlI5aZ>FHx!LprQ?qj$j9L)x#9PS-w)T=wo-O_PtKm
zA^Fhbe)h8u3s>ZwERsA-onY9=vn}e|Z_2$;8>XW|B=ZDBxu~KW)F<zsxM5^3dn8wB
zpChZV0GPuJ+{EwcT#}H^7dA6P3i+*NR~1%5X_+4nWvJxC6gHF#zMs9k{LJ6?{X2&n
zfgj*h-SXc42O|#X&O3faU9zw=e|RosMooFKn4di)v?*w4v9DOD;O!8Hj<Vv~_c#jp
zCVCx9w&JE^WXc>4Q`v9@>wShk#7skefa?8E-=^|UM;V2(v*q3$PN`|etW{7vE;0n;
z`w(_tP$|!-oVRY2!O*i!SuOg!965vwkyPSRC0dqapgQ;38cZt4W1~*Oqn%Pbzyi&S
z683GDEzw3T_Z5@)f4<bE)5MFO>OB`*WPKF42(g1h-an2ehd|my(w>42YH%dQx`G-H
z)>=lii`z=2yqN!W9kD*kiBH8rjn~z7n*9YgS&dCqC^ZO_nDFByeI=4-T`<a!YhB*e
zU%B!CHOKZ|$RET?AF9bb+=c-V83^_Zoc8CIpdfTJE><;^=4WP47`7^lZwe3p?3uQe
z49^fXsohpJ>1Uv{xfjBDcXc1&hx$YYiVcE6`_m!LA2bweJyreCUv+zTQ};zVuU23o
z)fF95hccMIn*;B^Ij#vhrIj+D>XiF>tzF=F0#q3|={nH-Dy$@=^Qa8f<10v8bzGl1
zm8TSq3{NIY>#Y6VgsdQ#w8r>1fr0Nh)ktLf>EOMKnuz``&sR~-krxb{DZpvgfO-^%
zS*mU8`H-RS=SN|t?2343bQoV2?tklj4Jv#$m5erd|42%_87SU=Z@3uMsPeN6OhqQZ
zzMx1g6p@BVGL9Jq1Xd=n<1_dC3K*9cQO*g*D>h>~B2<#pDT9Q3o-P4}JAShZ$wgFA
zFF8+bosAydCyNsl|5sLM>^pw&OBnO76$9#(?)c)>&I3pOB9^0fYKN7!L+95I88i@~
zR1%C+xf}ov6+o_8wRzZ9=D$`~1~FbOC?-Ql?)IR;w{E0NnYN~rNh)^q=Q#}Pp?`_O
z*fW#W(G8e*69$CuF<1(oioMTdv(+reEf(O|tsW=KoEcY=j$hP~oUqKwpQfV9N+uGH
z_A^<<5KMCs!7EnWys(szP>P3ys3A7*mn67k_Dp_j{OJNrc6XB#G)44yWzq8X_ioDW
z<>)%izBH=!t(z!o%XDdZ`vdFsT@Z;5<)Rg^=o|MudH${}0m&`hJQ@koAs2+L|FMvn
zSdQ*Q{K7XnnuH!f;m#Z^_olXbJXhc`6jVK}GGG?$DRuE|7iz~RODhIT%dC_;+&0x~
z^8V*5qs4pkv50f*eGm@OP!LnD4|l|8vZb^?$t4zt<BJ*lgO-5ymoe_JP`>_nl0Bjw
zn<Z}4_R^O0Ii+QJ;icf#h<Cl@81s8uNDMk6*3e#Kp5*y($psTfE!t}K(|)Bis}r2t
z7kP^I$<uSEY^oY5Mjkt0JT7&m)&2_Q5#FQw;06kc*A-Us-jekg5Z3$P5PyYapJ;iL
zZ@cEnGnM1VUI`N9BuZ-BDEE+`G-cBO4J&49G0|?)AIvM9v8J^QzbzF>(OD)+pS`k9
ze;_J8KKZ4DQZ|Gk39;paB9@C?eoGfVyKtB2HX+<M>T1|iuo<Q9S+hp;r&e_p<Mvb4
zY0^XS)xI-k?9r5(bKlmgqY0#b@R5$$2xZQ7K7}yA5&O1I8u)pbEbw9hQ_z}*ac%kU
zBmrytMumgJxxr8L7$<L{(;qr-{KutK81+_ua!N&w5jd8oD6T7;^p6uVS^Ej@Lqc2;
zOC%>tccLHo2#L16^#?PoH%!y%aMZr%?TI^*u9rs3tf6v2)Qom4g@jR?vzl*6s@!_)
zoNXbCe*TCJtoI%d^5WYkkdSwYc>3%aM9xy{8!t#A$n_j_@=aBom+}ALkeCy_tw>-e
z3{>~0kZ(~ZV9K>|sm{!#kpxm3PzNB>=3zQHJwjz|o-+27jB5tU&NJR$uX{|tOXF)H
zl|*bi=;iOfKG7Y*x6+%QkO)m5fhlAd$a^agFl|_Q1mL`h9JmkBeF!#b9y!bhdAJR8
zSj*>)Q&WX`%KaMK05z4>mw%YrkhP<IH;Gvb6ow3oX`n`|Mk}vv!BHUzHmH-qBj4|l
z+ZICVsv-r=Zux$)W3Hfh46e0*bn8Y%>zEl%w8~ecn9h);vJ0y%={%5&zeaz4*y8(3
zeeg-`G+;ar-6f&WNP7#yu!@LW-SEF`U4FXT&DWwDyJy*{<9T_S$E-DPbk<SPJFG#l
zsnBjZch}z?tcbcM->|J3nG#-v)EJK#L=4g3c(!8|FZ)#rlZ6V~%x@!>){5Ch+Q%7;
zEU%DSId{u&*<S{f$0*1S8@>p@VC$?%sG-uQ`QCsGiGfxfAwdeG2c3912eI_I-hJF}
zNv<&ub&;(D3-NHx6#X%&K=<*a=90;3&@bKLgkoP#kj!+TB&<)qZT|Wqd7BW@ZKo8{
z2n;$q<zwoA$QkeN?@tvBc=zrdg8#GG9F_Rg&D4XZZodFHXJDbpQz)1Ogbtu$v-`i}
zLQDyvDpmX>K$>ZLH1Qmx%6QyD>Z^jL$kh|Le-9{wT?dA0c?X;0o^311DTf3PAZOXY
zGd2fE7C<IJtqFx57X!0`ySqDRg`5Ft4n3fN9%KR6ieEE8$hNz)E+<<`qym&UpIomH
zdO%!kZ2f+q+27UGELulMOj`O^8uL^oqj7r7BMM~BH}i5ul@%s-KuQFQ7f3h0uK+hJ
z*L0n#4$oxPs;3hWmd>^AF=JN*jm^d<wN(g2F>2t6GaI2Ra19Z*R|AK_%>n%_pt$-i
z;>Q4Gr*X5aq3(LVj84E}JXzMseej6;><`c<fZ3)VI2Q15aRJkM+su8%Z)J4|)P&O(
zY^n6q8US4dFfel@0u6^qJAb}K2F=6Q?WnIa3P4NMGUnNkFlM)7!>_}U%Jr?A>>o2!
zE>FoqWXLpvVT?1Ye;Lp^TA)&CwJHf^tWBj%x}07`Mn+Z#WDJ63b-h0~IA{rsQb30{
zb3Kf^adrX@qe8Wsdcfv4T%Sx~a$oHMUlxUnPTwI7{5=}k@f;3Bn`&7zc+{T3Jk=rA
zWMR|<D}v@b@!nJ~C>g<VquK0By{7);kvZ-yVP_Zd^RHbcAdoSNH0(3r2S6pgnSx%L
zg^NxgxTZ;?qH_{lzS`THOFmz)Nq%|D0RaJH1uDQ%<~-l%4(w<`kN1J|4`JX7=DN_A
zl<bv)UJRMD#U~|c$jjTD&e)BOjh&vH)E^Cs0Z-W0_O@Du@q`}t<pldqmDXZ_ck=@9
zxJCP5lI*OnKSA~c95W!Z`)DhtUrQ$;e>1frJhsjoHRsvcAtZ@NKkH&HhM54VW<3C{
zYT<RE({!1#L|$tNXoF;j%W7ZZwdRGD9av6PPbL@tll_qHT;K~_+P4P;hSJ1e2~T->
zTt2qwO68AMD?hPP3kyvLzyE)yV35_@L4?_<K4lVf<`dm~!G9@<<_I$#8*bY$JK=i>
zYIzl}_u{@*=zz<$r|Z*8s-aj5Z#7?MLG`Rn&|NBz<)K|?Ca3IwB>@N!82xVTpr>|2
zK_ndZUl5+8cef1)SDkNaYO09OIhmT88ulZpc(!67R#7C{^8qTE3FtK=gM$a*NmuDG
z*oDg6g#smxCE=>m+~w@e^(F8!{_nc$dR8jYA?t7d+li|`W>U&J;_z;&>HAL1*A~}{
z?(>Rl2QSY6BzHr8jl4XNjqms=G#)|HWq|!>2pDM)hB#Kz7ElycgMS7Ep^#?U#`VGB
z*nB?&10@K79CkK2R-d^E!)jvq+2_3S0cbV;saw<49}rGp96^V9_eUqYb8|yO;b-}y
zqY9)g*Qay4db@nSAe_=tQb-9gPLGcxBO=5d*LQYIxjRINfj-xwD2%QYbq#%R-+g*|
z8n_2e4&blRn&$_^!|uD!X^1dMXzjL<pHsYR#rqMw>X5o!X1&L`E*B6}C0V8Eb?Qf?
zIfE=8H56GxF{}IW<HwzD`SuuLd3mL%>NBao_Ol{GpPmLL`o{Xa)*|`*`Eqfeny^7m
z-mI%92M({MV$~Bfm1LAE%KU=kRjG9FEF;=K6#-H`jYWZ9)$x2eTEpd7e$0jh3>27s
zE|w}xP)R-h%%?A1vunXi-eMGLG`MQ+!UO}JKOybv>H_p=?2Dtg**8&ZsH9iaTT^BY
zYQXZ>A(aRmM!)##?DrQDx?j!`LPi^AlO@A?Ol}GdMZ2ZKEJO+BC{%#aJs$F%k{tTJ
zTG_Bqr~ZNj?LmYDD^*ghtn#OGMjib98i(@tYbH?`fC3;4U<neyCkt&09cT{ii21OD
zl<Y=c(DTH!6FwD|q!J!yC96LBI+8m<<kzZMsnIL=dkXYM=8jlyF@zNgR7sHidN0}#
zwe@C!<mUS#|9|oVp8eYk2=#y^&yz*Q|KErxW7j74cw!yMntR<(<4>W~Z}Szy4i1(t
zq$t_BsP0bDd3?0?1fV1Y-VJ#!Fp!9VD6slNMFLzlA~$~iB0iq>yjtbpu;TCPL;50B
zB+&oq@ZRU<;JDf<?W+ee0H3dlS>18p?Nwhijneylx2C41l#~?Uuv^Ez4)sFCQ-`Ac
z??@m(cuI2I$jMm>TKf6(rz(`A6Zlm${Ju?97^vqIVm`T%X)G=-_RC{1e;Av29-f+M
za6zrPSA5@{hv9|z{=@Ij0Ab|3$9Zno-twaoR%!i9_VkI}knYnjURbXSo=W1NAz$kV
zfO*oSNC8_RFrm;h#Wg!>+6EX@#EdQstcB{AF&p;A6rnzqiLl|-vI?@0mF!)K{}%aO
zd<%QGXlD<wUJ?&=7ZuCRffytbcGXGVZt*tKA+v2bRu(exW(fNXIFlQ$ry90*cZ;&K
z?XULR^YZeth?n}3FwxM&@ks~?aiZ}$H5vdX4`dLb*P*~$NX+e8o075sv|->aoCKPQ
ziOKeG$PR3?Fh?UDD7}MWHv|%Oss*cTlKu#dRL7vgBs}1)NR$q@dvN;_Fmj60JU`T(
z4cqv<U&}K^wLR}7s@Q%upKh{1sL1x~IBl4zM`~WH_yy)z7|!DdID)^N8X~c$dWrmE
z>lA4;=`kJ{dVV(f0<c(lEKAOIJke!Gr^qmQUtPHE(hKhe7@Z!Ch~J99`X>YOJ)R2q
z+5=Z(<E^Q=8(S#!R?TkaII_rDFd@ZCTu`tTSO9_uKUz+iR7wy6Tf#FwIRyn^M%=fr
zEh>_VS_Yo=zst)e!03E=vaNA37+rsRy}LVAxf{qj8xz}z#Dg40BWq$hh>s!MywH-I
zWw38Ufanyx!cPw%?|G*WB~^+6_6EH-?PazBMw_0qN1CwAFZ}F58z{vI?VoSbZoRPx
zdlopA5jJ&D+kr0tdOZep@oKIxnK}U{Gcyy@*QiK+Q>On@!(>cuE`9x(W~xv$xd^xv
z3^PDu{|`4r`@VxdkI5Aer|s9+--RvcxZ~w2Ta%yql0%=p@5tUvtk9&*1kmdaqbq-)
zmy>>DkWn~-@11l9kNwB*L97%(EeGCCZ>&Wt(5{Ft2i?3+2VIk#ynJ~@#m$-!_hhwI
zR)gvu(3eU~E(>dRU^ld%z|#Q0H&3rxwFfed3z+9!MI5B0`tpkE-~GtW$*Jxw!i2B}
z0osFwSWc?k_X(a%mc0@JX<UEi&GkgXvW<TZ4dOHesGAB<FyWs6{g9L};6#Nqszz2n
zsa;~bGov?L)-=SOxB<QG8raJBZ|kg9dnuBfEy1P*1_lDz&BVl{_-j6})dy%?E#^Ns
z94T@=2GMXbTjzu@JT5M3wp%zlIdS$)Raq=$abK@1IXr>H2!<_DQpA>Ho>IHiEv5Nu
z78UxB%xy(QWY9Bx16X?GXL*}u!Aj&icT^mmg2EBxW98;-bbKQlwYT2^HK7PZKn<8R
z)j3!5|CJY04_-94(h~<B9avXXcgQFxC;$&b(9@d%3l4CBtODCf;`no7$a{C-CnPrQ
z$AG?)7*`!aT^Wxv^`9vlfop`cjWck6OdK<4SD}F?X_*lQoM;rIe@{h_I{+j4BmHtJ
zx)0&;7ctOx;|M-JJ<U4%k@pX4nQ2f$B^ibzs8nVCosBRP)g{d1PqIedGe3cG5lWy^
zudc54?J)DM*Ci7hJZ2(^jNhLn+-VX#kvO(BNx+M#$JDRr04i=xJQ@bZpcj`2Fb04c
z=Twp&1`r=zWrC5va=ZA4Plu9Q_e7L4jLN;GGxFrU>zQBBh-*w$H#PAoMRE3R?(Rw{
zqA5`z4A6125{#w3G;rXI=6gI<(Y&zNPRzaO@4u#qqRpCUh{O|hSn0)n<ZfAL;`}8n
zemN5Ki2IR74{)2R{(L4pwTl|TVOA;l8ejnGMDedAaf1@M96<i$q2nW)Ndr{`!JAKr
z`nTQ(+v<IN(0FE?lJy{d<9M`!$aG+lsm;53+k?ogJYRu&1yDu?%8Fk_N_ax^u3cu(
z(g0W<VD|b6Bpf4zd@&*P4;GM3V@lEe159ZnrhX$PxIn17y+=+y*~@&#y`K83WMACz
z849vSo}cd!B7}h&Apci!ss<`mHUtk$m>CHG@o-`J^il-Qr5lU1uMJp~C&&SViY-8_
znFd-mWTMexc&I?R*|oaH2uysDdaQ-3xS5JpN<%va^|RV(8Lkl{ZNv8TK(;}zYD=N$
zpr}i&uS;6WYKP^!w1<#yvw$pf`}tO|eK^ghyqQFltl5uOYHT}pa(q+;u)1L4Te$xv
z?V8#O97<|u`;9yu%L^4>UP$orr}=`ZTLbOI4ebr)QJxPspku<`4inTo^s=2%aFR{P
z(mky(7cLff>Xi4=D6q9~+P08KdUQiMb$c2Rry`)9bRhh$A>TQqK0+1Pk9d=}BVvC4
zoS>qutaNTtm!<t$_%nFPUOkJ5ThAvrcGTTH1w2WhF(|kd=lR*fZ3-dRJcXv*dnGGu
zOS4y_Td?moJs17r2&Xlt(9dLQ2Zt8Gunu$3%T$A}rZQxX8;xOKN<9N@%wRc4&B2j(
z{ByC`H0jr*z|D$ySZz=WKQLPeAFPP*fWBrwyfe_GuyV7)(HPZ->VFQWsowt-PJ&xN
zeIo_DoiN3JAh2_?sU}(_L$ktQv+=)Fsu}xE|ARp-*gQr(sG$4$d(vifEtanhNK_|F
zqgar^KQ=SiJs-_(fEAjNYt0N*v9d?0_`ORgsq8;7l$q^d!AIYmbM^WJ(P!tB^QLw6
zzaa(E3bO<OA)&ZZH^SwH*xrb{b4Z2&W4w7m;KL`Wp~X#>mJKrtRJ@E2Z0S<}I*1(J
z>sH1n@H2f10n{$+o4JMCYlJ|>g_z0Hf1ej6+bzii?|vIqj+fg28d}R(xGrY1ycN)U
zM1ip@-GW=W<ORd+0pqOrju>%IfdY98IFm;7ENdJ6M{{vywDGl?%j21!D!k&j|5prF
zY(sgR<WnF99ufoIXPWY^)*geT%$VJm7A#g&^xKApDAsY!&e7{iE`)4@1pvfP`4*t|
zL0+DH$D{00R?9=*07V6X`|pTU2p7V9tvh!#)%4J6OM<o4baG>vzTbv3aA5)Y*SPJ@
z7pBQ*Yd}O7(vJ;Cv_AQlyx08}ILaN<N&B7UEZdyCYf$kfSVyMHZPeY!O?G~B?*3#}
zZ<#e#*4p{WUh|OLAhJ;2KshpH1Uaza;~ze+3h=n+{03tF#(Q_IO#dUG{O<FLSVk$f
z0qRMy@F@<1Uc<ksE5O9tkQ=t?7P|Fo=g1J4{Revmkhu>SePIAjKu$YG9{Qud3+9^r
zviBvA9gU_iD)lY!wVG}4E#npbeK_7hNI=gQZ2m*857`8Q@&xIA2R5_nv!%VTiJ@E^
z{+l6jG{<U(;z?TD85a7E3iAm)&8JSX!?iDhH5TR<d6EHFv5^bdz^?wzF@!XYkd754
zfVfM5nVY5D@*`I7U+41-GOvkMl<$9G<^M%q<)I?uJv!qB;(P=m7SlflIl|-tfn#SE
zh$$-Lyc|1DVGFF60L+W{RjaEQ*ZxPX+Nn$s!zngnI8wdi;~|i6#7edUad$*Zs0<_~
z85t;5tXr`X#RZl2sC)oPD>7_VQP5CJx42IFfBc}gbyukJ(Cb9UfJ6fbsUb%!kekmC
zi|}lDQ1E!q$9+jC<H>TrDQ}8e<;bkuYK}2#w9<bGs1GZfd_Qn9M8|*%1%!@*!XX<B
za1(^ZJ|<|DYPHYMhwE`!!ZYj@WAFfh6P#j;dBkI6_}6#Msp{r|wG8_bP~>6ts!Qj<
zD&O%Il)1g9VMM4`g-S*ouTD?jAae>@<Qi#CRj><+4Za{S?lWR6;187s$^c;Gr(fFH
z%90zD|2wV_RLuqIec*IJ6#oVa!Oz2){F4iq>H16vinxtstdv&O@tD2WY6kDd=G&US
z_HZH~nnTiKlZ*fKv%b7&OD>-6r_uz^@LD0P3XlI6CF<Q!^Knc4z`*LG=G%|Y{Hllk
zZUbq8G24vkC%Sk2K>yf3r3$h_w<CJ5TPr9n(NvxQgK{Qe$@8Yd+-3^6hllVcob4Ei
zp%x5RP2bL(yA#>ebBzeBT|5g-&^F>c{#ZsfXhMKhIJEZH*lW$vk3nQvwfm9Q4qX08
zHV5Q>8i9FB4Lv36>A$427LqS_*k}9a&yowN<0?BUXX$7q1yk6~N^?}DYMGgi8k`(8
zHaC;1<Yq&bou1=zDabgFHQfh3`;uL}4>M;04(JFw;Zc1Lc@)(>rJ(A7h!Ps=)-egC
zC>u3AzLq76sS55B`^Ti@B7i)59#H*(wY^EeorgzWp7e*wRFG8$@%+n_2C0jAm-RiL
z*Ut$^RKKp7od3vfm|#I8{lU;fK;)H58Jh{7W>YIFqR`!4-@Ju7UG}OJ`z^69uUr{O
zFEj_>(LO=O6@1FKSM!Sl@K1t_W>=REy$op0w;y^$#1acP6IWX`i-Wmwq7i2Q!cFC<
z$P0+ak=4Bt!Y9t6f@uRdbNP9>vBL90LPE0VgA-!XIL!>=Lw`es5Up8KW4mUtc>Sh4
z>{FTNu9|@gTl>?T3+4eEwV^WL+j2;3WKTTZSsU+r)O5@E%uk99_uSuEL;nxnb8nW1
z&|Bd*g}JWxxmj4E9`^aY=La?+auFc8XKlh7n7se>Q~&}vmC#%wT5E%kci;)|`wZ<O
zL22>&qXZ}LXvcOT+*Wlp+`NWXS}F+*{X^wSBB&1K6}{&|Z?Ho37;>P{b8ljruOZ<F
z9%R5RhX&~IZ@pok$u>gUa;BOlfV^>6m4&s84;8wPZ>XQ0pYxpEe*R2R$oZJ6OOO8?
zD*g3~)|vq-NWfR6Kx~QebZwwjg<CLwFDM6U^sK7cnCbp~)r-OTpSV*Wm}>RRv*~X_
zAMV{mT;5VXeyF2N4GiU~Pwa{zD_DJ~WeI~AF3Ism1pisl;60s*2ymE%28w@Ju4hYj
zri-}kX!0=3oCa4Sn#6B(Av9tpT&XOCAwGy!X=HJewWVTui|(B$81|?L^~pj19;zol
z5_aaa4yh>|?vl=Mlyk)qxk?2rQ;Oh;As*XsALNlVpW)2U27E})z-OaS(^@#SGGNNO
zOw$*<So;{v?#>Hvc`W>Q6=`AaGuPm^YBsF1aIX}wf>B0>Fip_$bQpqKQWE(;&{B;D
zdn;ViW(tf5#W5yJRd(3ff%2+|pNzkkNp{C>b@gG4CCK|K48(PTOW9c}BLKi~sx5hz
z5EiKt)toD2rPH{C_Q;Y2UBdVF`jDH2(pFmbbqwdBI6rQjzh}o&*@11F08d}MG7{EG
z+bAYORG!dKfNcqEdour{V`Sk5LRk`~x5i6+;<(?B`9jlGtgMKs&|E%oOMUMG$I!PE
zP{}*)1FPi50wz*>u;{)$knSkUHY+CMHaH@m%toNF_uk?WpRc;7EM+oVIA>&X)|&rW
z#d}VJLAmY^yoTQ}K<tJ5`A_ZQUfby_D^a*s()gbW^PE+w>f6mPY#TwhY)m2-X;-yE
zDE!cnXm}r3xA`{U01ELVXMcXCRyu0Wv$HFP=IFmDH}+MfvL+xpow34UO=kLB$Nud6
zk2zc@YkF*LlK&y<O;VEwpV!?A5Cnl;)D3-22I&6ny+<-ku`je$s>;kci_NT$z=qut
z`i)~N@T`R$`G{A8Z%ikA!r>;KqPjJJkBKbF1O*>{BevahypJBo;k7Bhq5893gBb1B
z_|>%O6m~n{dxJr!SN#4)D!&6_hN>N%(ariF4&46B4nlzY&m6e%tcZB^ZM!fz*Y_@<
z0`Ag(-D`h{$`#s-0^-Q63^7-hFrC~U3FYQ{25j*!j+lC8e^1Oh2EZ%KsfM-MZ*3^A
zhW?lfZIQ|Dl=CiydZj!<dH%P{@-D{Qz~6u1!SC=y+DO3!03qYd9=7I<vIQE3?dN?A
zgD<9P7wu<j(zLiq9^YOHxBOyQuICBm##7#FZSp|(PHY2i2nfSdF#8CZyTT+f^SpQV
z;E9t&`L|eB`AN-U4K$41mxLPu?AYzsRHu(npa0z}1=n;ifEbnGwIo~?D7{&5tuC^2
zmXqEZkuSbbnGPE~@?vRd;n;2X{2KASa~;{N-)niKchHxi1_Mntu&9c8a0_!ma0^o!
z;7KJm7{-KBrfT`|(o>AhR(-S`Vxi~e4lM4W&dMJb<8P)%Lqlg<lHDo6I{x^Fn+mKS
zD!+G2lsUM`%fJW3je!T3CJV|z0Z(40l~#?{8yMB<hU3j&grh{QUOU35PT#mU@}u%Y
zD;Uc7WQU#;g3Ah#S^FWnajOp}B@KMIzVw!ZRwt~q_Ps(SZM|jSw@lVI$`YHmKZFuV
z2=RYHwY#n>YNtVjCUy16p7Vn1wQ)grQTn-rreHsL)cy+!Cg>961B&LbrYuWqvMIsP
zNuG|m*yx`v-zL?uV;ZNbP9eKWy)_DFS{GgCgDX&?P`=9ZD5307u$_1sLiXr#fi6x+
z<LPpwl{yY@sG7F4KaD&VE-$a`N1E5{UV~8;WfI{mCZoU3Z(h(uX0S+1icD>uj&*Cl
z@0)oXNqyRV7=s!dHQq%W{H4Q(03F*SkP+o-1(Xs<cIaLo8)WYuDSh<ivEE4~nPqh8
z(JK;t^Kye-!{gt{O(o_d3lTl_6^#ew)xTp_#V||I4zpRlss3ItsFMte0!==IN5UI|
z37OTDB(&O@mLyb+#i-7Hp;!}C__pUajVd$c-!qe_rjfUYFKg1a_9?wIeHqO)f0K&3
zXCX>5#1QF$J!H@SprdH(rmph2jh>RCGpb?@hN?jNu+7L5O*rR-aq)iTYL;wQ%<QL`
zs&D*?3D40%9fP<{KDb8=c_)S?$9<c9wf(z_!f2*#|18}04R{LEQa4Df7^k3vo^91U
zigWgB2B8ibA(1iKccmOdkkJsgTu(6Q$fm;$l6v_oSD9(88tceYl0{0ow>4^$FhfT5
z<m=YfxNbqJD88C6najNlb;tUMS^yb#eY^*mXKdS+F`J{2suK`sVQ?NJ&dquxtR`n-
zJG6aM(s&@~z8pIwe_~%N`myN++uM#8G(vDtHzCO<{BDmReGIlWy712|9};|p-<F;_
zE6)}O3=57(YQkL#IuF!BN8~e?3pHc1j$jslyiGq9{8&aT6c01vT1<vk1&ISk7FHkM
z2T?XhM1KuO?>7iJ)4`V|SyV=2y4UIKCYB1AH!OI)|FrQCWuD&cveO=>86=zXS8M*n
zkyp1WkAMfCff!+1D{~YqTiFZyhem+dXe<qTK>p5qT02f^0`13yB-;8J(qdol{(6is
zDq^93^mGmy&o)NjV25HQm!lK(cnN_iZ-=g1x|q<Z>Xc~1ZVn=9#w|$<(a?DQnQku_
zvRgxYrpA!*wZ8?MuP-LkxOecfr$+`|E{pj=lbxWTkwlcssAfvH1ri*CX^r9`fl9V~
z7%pPe5LaaIwKv{ZgAT{6Dld8^1f2ElJNpMb)ah-cnP=bBXvr2D2<j?uwMTN&RZRQ5
zM8|&__2X`H8+gF?9#Hni%Rq0@_c@;KhYqxQCXq_Gfo1+C$vZBuU01VA{8kSe{lbE`
zZRMYhZFG4B@QDjmFyWW&OOa_?)}Ttv7owI|gW2f;7^{jaO*Rj8!!K>&YM+l{B-!c4
z`-O^R8UDGH$KeGp*3Avg-cw$z7gq#Ch7WkncgNed=cspzO^8D=i3Dk=O{AGa16Lb*
zSZQlQOKTccPwZVXEL8>0xL<EF%V}vkAZDD6_2A4<r(8MDK_E(p86W*=wJM!Yvvg0|
z*q8UeXkNW))Gf7uy0BGaEU?)+m23qMEfUYwe>m0FfZf_jiDt;;$UO^fUNFD5d3Frj
z60qpp;E=U+b&mvT+vN*;xRHd8N{oY_I;0P*^7~>{9>a#^s&o{oVPVheyM<7ezvRf#
zz@s7}gw=!tQ$`G1cPH|0Z^xLUKc_u?@W-@LOij3_k>RI8-kaA!OU5iJ$9Ty@>$%V`
zkUi3Abd>@^3?b%QEwz*{zV{NB*sl7@J-$YvKYncfDZ%DLz<auAM=;<Go!76uEjUJJ
zCQ?u%FSjw988qGOs#VXl6k7IGXuXWYSLU{%=l!p74^loi|9Hj!Q-)W-V@g86wub0l
zy$248*Nb@~45688%N~9jc$fD3tAhM0H#dm)cPt^!RGA$6#C8e=-uJ)6(e`9q^g)_3
z6Ws>{MBBJYY!Pb->w8~c?e|Va^@R$UVrp`M7G1g;D&HoI>1e2iNEEta+RG=O^18bm
ze|j#}kJt=1JgoV9^UvFq(?!(#R%XawyX$OUBiAfpr_<#k|2Cht6&nx@Ki|?&*$Is3
z8sK$L^Z1!!*^NkZ2!zWGR2Kn(_p<6d2acKjd;%WICIm-lcr!d3saFZ(mQpM###h@@
z^O0ynDn$f%#%sAlsSBVh23P(7SGMTR^@CI!7xfkH-!SGEvRXJ!r|W_)!>S9Sn&?qz
zR&OUQ&2nY9w9p8#jnUeyuMt;%c?ib4@#*A3zGt-PMOL`4z2^XnGnyG%6pRwuf?C#4
zW&f}8qPy}Dx0%E1u6je{I3L)%eUfn9kH46rMQeZh6c68&fJM1~J%g@mSG#69t~;tv
zB5D(=7L)u-nRz;ygg_guNfy!AK)xJ1KcAm5MLYmn3Lf1mMZB2tB?RtXs;a7<$o65+
z8%d}n31x4~0v@>gR>iPQB`<i0(%MM7rk5?(mv(H>4OxzrmhgHvF0?gb+{1qYze`|P
z+Y|)x=S>oT&jrEc*SmlxK~Fidq|-igf(LlO7bbDJ962)mA9Q_rJXP=4_9;c75M?TK
zgb>P{Sq@3&$V}!8nKI9%a!g4G5h8OEl6fdIAt9OPG4nio*FL`A=l49%`@ZKdA0PJF
z``-7xhHG8xTAQf7rz;J|x+)TC9=U{@Z5&9QxM|Z^Jn^EryvJHg??I#8LCVCSb}}8M
z36&9XXOoF)7d~?5PWPD(%Q;VdhvpST1Bl*dZ~0|Zgq*3YEVg>&dTfhG8@UP;x-Bhd
zS0<W4?Sn-zE;=HjGhKzzmWaStZp>|6sg#1nhkUc2<m*?_u7p>z0dZxY3yWOuNshck
zvumVI&^0ujJM*LspO#)N>&i7C%%f1VMNKERY%8`WBQ^Ak9cRvwojh^k3v{<YssEC&
zvo$C-X=+9*rjaX+xm6@4GVt)MPPZomsX`0{n&63nBvK9a<1^IUCeT>}REUZ_6;vWx
zP_f)NYxFx%cYEFkjpZ)XbgnmctG;VpKlz-N@Q0htr#buF39%m!e>TkS+{Ouny<WXm
zWo~M!kRT>{^QIPaI4Db40XxNyfaJGj!KMiO=J_+^^To2ua%H>`<G8&t0mLG&<yy+d
z#zv?Lx<d<Gn&LaaTuBm3u5+fDd2oBI6Oxft3zn=qiv7AXoAhCv;+dZG?*is#F{@nV
z$)Ye*0;;uesi)`E<QfB!H;me1Z#(XJ>(<j2vsnH|y-;mrZx^@y^`Q|e;lPNog@&|U
z=;QPpc}@vLnXeDN9aqZ1Lq%5ou|B55-(+J#O4ewyk+xGz=P5gzbmej5$lfpAqE-`r
z`$C-s?xcFhUPJtS3FE|))}ct`+fWB}`KW~G=q<Q(eQmAVP0O};QE2>$dHvd9qUk&r
z*Gbg*Z<;@j#dbH#Z)2`BoZom--5>H+Rxjej#ivVNVNP&zf(nY}mfan;u?*FJ7^LD<
zFRMSoU3vnRGe;}G&fl1X>Ux#G2A=P3*u(_BwSF7L`Ey~3zyIKiS4-D|t8@~!b-AJw
zSaJ0_WznK_aVQc0TKiv$BM;*1Q=O@TD!3RMnX&DTXPi$Kme|$vB4p(IcW{+E6!v@f
z?~e2yZ)S}xpIhD`+`gV{c<b{GnI{H*$So-IsEt(W0)HQ*NzD0U5ms24+hhCz4qwZ9
z{kvV(eKkdKm>OC?>*~6tI);p(Oy)G}je?VJa$26(iWs=RGL61naBS@98Ku8Y4tuJI
zj*Kr&t-!GZU^exXI9Vmjgn-lxBV7;l34)Lnw4~MyAT_v-R0Vv$Z!FcvB%~YK4nFln
z-nw`j1997<>8q0D3{EQQpI(g>Y7uJ0{xF|=nO9HCc3vvvNwOcY3ZcjZ&erk0CON(b
za$#k5Be&3RuNyvf{Q%91Kca7>%)G-QE!kpTI~PS<f9{UJK94vQP3_IcSrL5uuQg;(
z<(S|r?phbK#B%T-Y`nIUqwdg2`yaNH?`@&g=f$B)1NlX{6mB6QZIL4H{T*5X8`5^5
zTOl3sb+opm?NBC$O83Ns9cpRwgrwUrWtY-Wz|6p<p?-cxH4eo^vzIzn+%Dyw*;A2U
z3YZ^TxZ5VFR%mgpIp)`~(_);Z+>vO-_ibC>*|O+CsOKXBF`o^kmWSVP=wQ>~fWtyD
zCT*`yB?viLLhCa7{g2ZFrG-(9$0gic_4mgVYiAAvJwEx<=Wb3b6f7Is{`c6^uJkAt
z{3p=h7=Pp|?y_)^tbFM^QOeA~h~3;!Wdaue42_z5@2ksF@E}gxE2dojc)kwTFQ)A{
z2aS&2wC@JfkZeU_aW|9jrp>0t$v5!wdDF7ymR%zqp53sMe|1B%RZg82*-H{#%luV9
zR(Xd#ckY~A=tW`YA0u|8D$rsmM-u4LotB#Fe)A%#pJdFz@+(t*_a{=a8^L4C`mN5F
zz+XhwyxG+bpD0CVWyv?|wOm)4b%Jd*;HZ6M)=}w}gZQq=?V75pMukKA54NWge3+B4
zSS+)`+Xy;fDKe9>M#>@g?qMVs$k+I{C$<NJxn|`f)ZVpsEF)+o=3106*mYy>w9<al
z(8Ay8^(U$EY4M!6ZPQkfn@27A4B~Iqh0qQ`u^05hs{KhQL#_M1hG3!N`QFACu(V_<
z*47`Rs*hC-m|Vzbc6;}+3IoxwA-!P#z~|gf>1`CtsmcpcANioIPHVtad%^uae*>xD
z<v)K^^{mV%ai*&%w(wX5i0|xfE*eyLx`A`@SewoT^(+v|BX9RTh9}ns#IzsaIRetb
zVC$bHK)Jk{7$E*r7SGCtMoT8MQm+xypJ#MZ87!G~WQygWB_!n0^Kom^vo0p#!^clN
zIvq}-g~z<%zJY1U8{1OuzOKp^sR(YJM!@Ep^RNPQ2k<MQad+NMkm?1}^6RP0joJ%n
zk?pYF4z&LhAbW~8f|$02z+X;JZQ|xhLk+};<+W*Fi@0g?pyvtx{)Y#~L|<?@SmN1L
z{wiAH7vP)B8eUx%upOl6D7~MhSK^o<mx2anS`rxL`y#8ri$H`9$}XNo$u;Kas-;<*
z_1mCFrEcAQ@$$m)Gpdy8ccLz}hD?56XMX%|R8BzMSzylujaKjpb)_8+n1+5(QK#8X
zaJ@?LBGhDLH?04B205-b6*TA1cfk*=_fpsXcDL>3q9m?}KbBkF7pPgq)JS7`;Y)aF
zU>8J7kycb{G>htT`Y<<KXKwhZobl?TAnqH)$NW%A7&0<4&@d?5b+xv(mXUd(^aACp
z+B9}s&BKR5k^#;6^*x9EGv$squ0;=Atn(<c*{{d;|LZm&;}Ua!cbo%BFj2mhD+-WE
zSfWp5dU-_LCc%1qdiG{R3=eCX!jU;T_jF0>KaSzlbI+po>tcU?N<2A=tE$SknX7cN
ze*<9wRJuZ@wpZFN-Y|NmBy%D?2u^+V+1f>x8c~hdjg18*l`}JH33)x;7c{>{6J?uv
z-;Ma%pYZ$dINvw{lKP=u1%jajlLgJ)76sbu4&28@Bqrc^A2<i?{g2~~z4da)j8)f|
z`_RTELX<A!6$u|r{26Y{7=nAj0|mn2Ui_2G$jaKtl7gz*|DT!Y+?eIS{n@007k?av
zaAC27#(xisj}`@`1aFb@nx+JXJ7x|!!9c}LN=`QAj^QH2^VNwq%3^jCjg6JU)Z}ec
z`02K2%j$J{X$jhtraVk(^xVkd*sNolxN1C{&S0EgRwt5+3yp>~%FZlJwI#45efaPJ
z=&(O2*HKjl4cE+CQk}T-1F$Ea|Khi!>PAlJK;JU@@9V$Rw5#&YBZ%35F_YaLLd5Ub
zWzlYj%Nv(o6doHi$|Y?F3*e<fjM_UH8=lfr_Joy{8GTv8idHBvOT%C`X<<Yy;L$I7
z%GM}AM&y;V>hP)ksn_e?^4t-_t(7<&iu#%w-4e$}v;6)24Ak&x{{6RRe>H-uB{80f
z-ypW8r$9TYY%b}&cd|5dzTskZa}yPFtsM!GA5tcUeZ7vmj&@z&R2KmWojeAjr;4li
zD4Q^Yio`pEcI@T;FQS6oe~WkQvbd$5?&hgo8&pf)zRtfRpI=8WEzMAV6e-1l9r*oG
z%ii9;If~1m%oPHvZyKm{-rAUZZ|56{r<l=V+?iW3_D{u>;i<+iJfqeU7;0)gpBBA%
z-bAGLYuAU*q@qC<*Kk`Y^I2ixPY{+{=*dq5p|m@9?f^r47Gi8TD>up8m16l@n#qn?
z3QUCIW$t^(l42VM1P8?)oNC;+NpWOv6OZyXc2UVK625%RL@UUQ@I|hi&IRN#C9)?U
z`LZNUG)I}6o0GQ(zyXXCR5@sbENqkMRHlJ5d+4QeoBbTxJ?@(<hq1>vTV`k?-`Ka0
zTtUAvG<)t}*3O{)M0()p9;4xjAu3(0JgiWXJC@!7=ViYzkcXvK)I4_M<$_Y!Valj6
z(^va$p4I+~WEQ4*DedbX1hXGF5dmLRqT&*N6_-}tGb{yREh1D04qirDI`Z)$B!lE*
z&KZSF%{ltaXd|lIX`fm-2R?Al(tXtme9fI#V>-x4v9f+9N!y}RmGUHVF=Y+d?!b7G
z!0?#;h~_bW$u)Z{{V`RkLjJ_ve-Rw_-mc6L*qL`2wC#8nhXht@W7r_<|6MC1&APWR
z;)z_xSNlg6$^aZ+fp$Q;Qi7ORCPAW&VPN*#aVP5q1@t-1-|e=a*~KK0H%Re}k|#gB
z<@u<MxZgo|`VLLZ(7+(>oG6#NorjD|p!)h#1_}y_txN{r5-GDLB3TGFwXw3wS&#hU
zN0Mma$i0)lC?LkMY8Rl;@5NcOWrGoYc4Pu(r@B^Wfxr(b$CV^td~K!E`IbCwsUZ7o
z*pj{WsjEjOc(Z!VdvIaeZToHX-~@3#L*Agrde|WD)qEJ4fA$#mP1lSg2zU4ZK~(VN
z>Kz4C0iDNwrdbDNaP~9EJ9ACOPjHsS!;;LHTiFj~b$965pb1~+H`=!Y`1tS2y0{4k
z=()S^1XJ@M$}EuL<Uptok__v!kx^2Ut?&L$U{QSU_D0>-3y<(0O&tEC2>6eSwiS0<
zL&?m!6X?KuZ2UDc0_v<O|Gs`WxSMcyj=P{VJo;g6Lc-TyNYQ>YdM8cq$|+1uZA~wJ
z2&vjZ!8ux%Q;P#X3?gE=7QT}F{1_5KXsBh8g%eUl+2WNcrmfz&gmQZFzcS3?LLUOJ
ztmvu3u=sVaF!laR7Q}llCeO|({c~QA*;Y%bsDvraqS7Z$NEU1oOe`~w#_vA){dI8v
z&gA?Rii*eyhtT49w_Y<A^o!}PrB~h6QvcjM%4RudfnH+1#(wr)AH~!m>1N!cUf~jP
z>0qCNg0?@Gk~_F<iuy4hjH0F6$^6bd`DZOrg_o=F)Hv!URBijNR60M$Vhu0qc?kBo
z0Kg~grSov#yzUGw7paP9@m|oMbbr2sbrYPCL%BK=EGmibk5}h{nh+>hj8_vK-=eKE
zgB|6<Ufzu4Si6Sq25$_m&$y>X50a}jEz<Bw;38hsl2rW3EnFJagJi1uFJ~QvfN=W@
zVlR*qadTruRn|gIMSH)IyCXpM6}z=xynO+ZuN{1EB)UVbm7j03g2Ajk<9u*C`43gf
ztx@RLgU_(O2+>jk@SuSMFXTAAG#;)5?CFXRA8I<5IrU1`e(TusJ?dS1PO1O!XW}<d
zvJovmE)l}e+}7c}UHl_L39uGpTCuu;^ngz3ed#B$wDE72Q;L=QFHu_elhS6J?_24M
z;=btWL=Vr>y)?y3pqQ+x`U|3U@4e;Q?-Zk=qyGRA7Lsy)tKY%JZ69<&`vu8L!H%e^
zs@8Z+uDkC;&ke*X%&YlYMaMj!wlsBmmOshu!QnO4GLH=bubJigB&3)8i<?szk}vKb
zrDTSX0RLm6P)%dYSDc~G7?GKIf=7UGDWQSnlMck$B~BO<UK)DOrEj1D{OZ*!fCADw
zVn9v{K4D?@&|mX%tfufb1|$DYXdN6ds8DS#haMlM|6`T$c0TsMke_R|YdO}QUuyU{
zId~Gru(B-S96<qdDcy2<6u8IV3z2KRH3WJ)u&5u>(ztZKA~bXe%_4fN4?vH0(WOE^
zXR){7Z$lWP{~6j;H8yq~4&Tb~gnhky_UD2xu|@9dkECv&K6VfpB0!<3-`r%sa-57$
z`Rea_89t4yf1mUqUZc68wx;F>g5~rVgJd)4b%;8Q%ih0#-`Uw2I?ZL010V;0Pf(Bt
zP?Uuorx~J*8->y*C=Nw42UkT;A1AXvGin{ccp{SC)cDE6Z!Kjf!Nv|aAA4JHCh7b5
z$1mzQ+az&vn_12O#f!7h{PX9tp;$4Egu(|A2Z@5k-$FqPsV(#S1VkU{y(}h3pM41a
znEeKA?;?@teMjDF-D@%%w<IX>@!QAn5>vtAEW8W6cX)nNmqg6OCzF1=<3tE#PJh1q
zAm<k*yMei5csajX%JkGC?%((bkBj(fP`$i2|0lD^?tZ_M^Ykdx9D83c*tL#ajC>O|
z;z$<u+VFx*7p)Di>_5xzN_>niafK@CUOq=m`O%3D-E{c+_o|bMPj0=o$jyBjvU+lr
z&vAO><Xv~N!b+~<zAK#=;5s=ZJ&G0hd{gVcr$;+MrrReEn_4FTX`^9{q%}&W$@+|s
zgM1_uo});Vsq=0HnRN(hNs5u3CVcKSZ0Ay4r%LGrRxm&RvBo4NwsgR;H}b~%nQP2(
zxJWAf8$gO8%+00LpWQ_7sX?YBV@xaZIw%;-O5aBjai;ycQ0dyyg=mIqg0OXpXggfF
zAn^sj{!77gGO5nZGI^1tVTm1mFG417Ri|*ye*MeYo&Mzqkuw3TV$KWyGCDdoC*W_w
zXBZD+1-e%T#p#MY@-_lw%a`9XN!=!T;?0}9Ys>UC_sH3wY%sZ-{CD$o=beAnaSI=U
zVd=(0!R+k=+EGFDC>o9I%D1SDppr+WDbvq`uaz>8syw?@@kvt6DnxrW3HNPP=9z3&
zr2{s_7l+PD%)b}$#(<#)Z!&5`+k5WzDLJ2*c0Gn2L4m`8IFTn<ES+)|Y-?#&igQu8
zumB~-wA%F?bdmuXS%oIDXV0I5I-2rTEOu%el0V&Ihgyx~_KMe>|8fCPvJ#|fyWXnv
z+xqg0kVY^`$!sgRyAXc=68y2)Cv~&p$<888E&9lXbc$7+UV`Yy`_`@RkQRF%Y)_Sy
zi2%W5>?y;KSb-dij#Nl6mm4KeT_ICl;+|Qs%ljXT?qSPq(c3NV*31F|YufI4VD!NE
z7qKy`GFCr3N{|a)K_&rG+X7a<uf?{=U=(8cFI|5i(W9~MUQRUzlFAGFny9XT5y5o<
z19rs(QkQp^O8$6kT&~m#oi7_`|0~z~-iVg0k$Tdv!F{nS$A1Y2<S6U7(GIsIh;uo2
z$MRW$5_x<OB^OB2manP5F}-*19%RZ&82FW##|DyntI^ikbX)J-vR}SP7A9}Dxc&ve
z33y%e5G+(?&2;N=qPg?tQvXbw`~4d%pwt`sP?dlaNs<!dR|6y%4`OhoN~g}8833pY
zv<uzh4?*K=3_zSNsjF;i9}ODKbXm|wS{{|(KKb|F(d&F<K%ps<VyX>>YcwM8T?max
z>T2@#63%iYvO$nXLMI}NIRxS3(b3TbmzSy;aonbaWbeehdYea3na7Md?YwrvuCc^I
zGLmQVljoBe2iW)vilmd1<K=NN^RRc^uSk?<*<0U>to)IVJ3lD(`o74)Px|F@m`8nI
zIS#*UZMmXLT$huOMc~s~P*|T_e_DXWo(M@bS&|jwhRtciI=MZ?ljnS1yLLblf4{zc
zUEO<C{>WLYu|iOynsJSj6NHc^5}fyUoX|$Ec&jRNXDr@k8{9Z6Om-UI7)oTGc36nL
zUjP52jLcBT0t6oQMqoi}@!o+2pv=rk4mSA&uj2MrPPR<08@Zd$N(<JDPKnR#2M@Fh
z^C`$Lvc1^mEfM>L)O=AAdSj1#>A6i#k$FM$6Duq0rtlOZ)LvxINVY!HQI9MccJBvk
z%Z5qaJd&WuE$=x>(t~j;^t57i7vh_L(X4<Oad4BX#+M2{P{m<SC^cGJyuB|L9gt53
zJOm^nr+h=(%*?Du<D}#t=+YSe=BLN0;pn&qD&q_Arqw0g#(m8+2%*APOv~pK?EdET
zPdU9#j^-62=9Hn&%g4!>(j!V~_#TocLJb6W>|gm79@Ee2O8xNR#L1Jz0}DQfyF<XQ
zIzz)tYB1Yh{1~|T<mBWE%;eSAt$u$zO-Q&>@&J`^?nGCcc;?1F=BWf`;X<}`K=sMu
zTeEpsZ2!}x-jKK+Ede()+Wi*g(jz30G3dnA7*JhpeE>!v&7FY#g};6sA;(0Pl9m=!
zPjX2pB0O9Q16p9>u1gO>=|s!uiK?QIEJvWp*uMtJa=xY!oNJcTiAb+%IaB&3x6b5(
zOZ`b&ff^ZtJh3ezM70-%;)^KE{~7eXx|)(h8(K5Dpdrr%@#db}4lo}8l(OM4{)R@A
zV|e%v4&0Umg8Nbi<Dq6P4>jwTihA$#O5j{@bjN*Cv7nB+sE9VAo*dX23IETbJGZLf
zOUY;bXDQ)uFO7ujl(O{yJMnS&Pn5w9QAWn$2Yr@*tU80J0lup*%@fwIman^Wiv<E?
zA86f%Gr4sF4!mh{@lqFUkD@+9lI(L&FY7fw%g9b?+>!J(SW@sU)XoNBNvJr`w5?7g
z+%&2=l@NSN`6l<{CxG1jR~@^xmhW}RRW$nljtsn)C5}$c79RbHEf{Rj7Izbv#`nif
zPPo1zjrEescf&Jgzl=i#_}>zRzCteJ&#+e+Jje0omVKd5;zD?|ET7p++;aPJ14sej
zx~!bs${kjedSJP?LjF8^-3SAE@WGcewABPB@9I&Isl4nH<>y#^)}n|ZR#DY#m|Ie&
z{*F5|sJ%!?Y`;A{iMbNq81Hki4Punc082Ah%V`X|j7PO*RrY+h14OO*``s787uMV}
zg3xH8DZ7`7&9W{fSlPzwhm=~jm{*V_;%=yl{>bbqVIYl%*2DLZn=XmgHV$=`Rx%<;
zSILt{OFX!88wTT%%@qENCrB_J`*dP%HoBp;7d+%qsv|z}$hT1Q8iv<#TG@aCZ`h-W
zkpO(vxx#^vv3a}~gbtOOo`%_tdosTj3c-~!rZ`Ahs~JbC{(BofZXTr`^76!FJ=Xll
z|KEF>*t=Ujzjh#Dr88>hBfA*K@Z(3xc2mg38|5w?7CsOAQ8Pz%(xxe}A|kHW$(UGJ
zc9W=3L*RG{bs{P+T|n}lz8zu)@#w^FO{>N^=ARn4NL_9dQ1jQxP-|YJJhHDo)qNs7
za8QeiiU4`w(l65_J(19PVwmG4(Vv}^(LH($hIq_%^v><j!Eu7DJUy3U_cZ;(-1KNH
zRZ{nNDY4){<t<4=++q$NmX*H~ynfvdDno#L-jS07QCxMH9RTW^%`sT--Y*vVFHbEM
zMzHu8=jdNXzizZvT6Youqdgml#d@>nhLpy~{GG&Jm0;GP(W_KSRQzXk66=<}tyaO!
zwY9b~C*fcb`=q^avf=lcH{x{M))I>zEsED%N?>>-niTOp$zn#!S&|_M;6y#Y^xrg<
z(WmKgw`WNRrg63_3nc%%5+aTdlds%6H2o-zWV6M44CO=^`l-pb=EkuA?DVk$OD}7+
zh+CKKwQ&Ec+yUMV60=(v!snv~hdbSXizO!|H5L2NC1&1$B0>KC!gN2dxv&kar?^Zf
zt+{n-2IAf4SE6Mv9sINPr(o+-a_TZ9Q3DJT!&49VoU63=PNlrcWitD)c3nR~i=Z3D
z#iwUt`~z({^0sub%L7<<?jM>*?<sOr-It4%HCH<u)0w73Pv3<%eDdYJOTt%dgy_6(
z^=d=CQpF-h18mT1o*!k{&jFVuf4#v)t|-2@8pj6boq32EPu-G~e3C<W96`RqgKOn6
zo@&IDeaheEymK!o$+hL#T_mH{a#oigH!eY){(EFaw5zhr?V*5+99s<J1xqTTsK{D-
z*x)q^9xSX0-Ub>EsAJx+rfzDc7~M|BmpzK;hed5!I<x`*R!q~W^xlVnsop+L$?|ym
ziCX$J6Qf;G?zdKdG+)yQN=C<qZ>pMoy-SLn4nwVflF40WOSw{uTXzYLvH2^`Gcz-=
zWUha+3(eZ%%b`94!OQO~jhwhuFl`9Ju~}u`R9zVu`?7W53hVpmsWdYaFO7%iU4WcY
z3*Mi2@*@rgL=6F|^}k__%tXQ6(m&o)vt2Ire3=Iz0lILbn@6c<4pT!~PD8h%?Rquu
z$n<Qz0>_uuvHjt!Z_}9DM3~OJ%T#jcy#j&q!_UGpX{Kf+P`NXSmR2E?3VzZBO|{6U
z(;dnwNlEC0&ST0JEBTepgz{Iu4$<;wOtx1RQ0(*YG}jSfD1PKw87B*!c$isy<oD8v
zV6&jkjk&2??3Ujxw6v+@YUXm~`OB<?!JM}2+W9k0b@D(F_kJWICI0xnRq$R2MiO^j
zS5cSb)Gq!{I;3W%1G<m6gG!aA3)qtw@w9BCoN#x9DxyE(n%?ND@8nupG&85`HSfYx
zFY2*hms86$x={3B?C>{9l<{{Qn+BCG2LMGRyG9@_lrVoi<TVXd`}yHcxQGya;>AEB
zAMCt~*tPzF4_fQQ?nh{3BMyz6lzApjY4kDvJ?<70IibD_l?tu?X;7-A8onE<MtWRi
zE12PG=tWY2tn7X7|I7K&5#7Mutb|h)$C~mzR?fJ{iNPyqG2Z^JFK&FnMO~^95n&Ug
zC(xNWuW~{|Y%=bvR~H>U-nfM?(n&Ay)X%T>Ojg(ISRjh+7Ab|lT!QzacGtYie|+3m
zB>P2IPi!3=1p}F(=BKY*xibEeQ9Jv$OD#$*0xEy}i_AzK^=a!F+ok5qr#g7@EBPq{
zOZV}d?j|wvam#BR9nY>z?(jcOGrv;YR%eThsfPzoNZLP4DAMXus+=ksFz(=1`ZG7W
z@c43_3*+qNGTh#fSkL-##Tmc@X<vfVteo%6A0Jv*3RtN);k|n-cstGXgRmavL&S|k
zjmkkRgH+d<qc2iED^f$m7s7D$>>-<tkg(`|r}@nU!t6HvQvHTy48;}m?i!5qZ+x|O
z&7<Y;0p^({)%FCDwc-V`<+=wN`2?8{BTNPI(o#~3PePi@b{^8)*z^c>UK|RIl8|Po
zk~)*ThcjuBCfo@I3FOauVtSfa<VS5Z^s1VoWf_}yJQ<EI9}0i0fUa~1YpIaLl-+1}
zx0KkHV>_|!^TB*y+0n|rrd{&INl0wf%VduH74Gs1Ng`WQ<E!sHhrBCC96}YF1&v)u
z$)wg~_LnqnJ@phmvRe`<>daO2LXNW8_cd(FKng`;Aq2J3dAG245kEOg`tFeaUg5dE
zqQ5c4HZQTqP4d<`MiZ19^f;qzZzKCIeeC`xUDi+5>h@4Bj^?#cJ>SLn9!l3x9XAGY
z1ar7WT`)Bi>{4w(YZv<Qp}}3v<52j1K5$GB>1&v=mDBHfYDw8bz1v%f_1fDv@urjj
zmMS-N*Vj6doB>%ov5PqOpBT|RF$*J0Am8L%cq`956weg^{q8@0$QSDleto2qVU<x}
zM<m)wyppBy=c7FOoM*2$C04ApB_S%jo}5gD2;7Zdx~2k?Eyzd$(7gg1$rSdI%S92;
z!v&WW@DQY6-U&IC>~eIe>GJg!+9pKTL8CcR1%z7d?uO?b&y61Q#fn`Ukg0~=h0cOb
z?a0$hZDPCD@K>Jtgc3I+{A~(`E?uH$qHj69NbxMncHC3lE~{fuDou}$Jj2{eJRgVY
zVc$aW5;A7tvw%h3s1gUYc&G7~1K@pwXrYcuOhmN0y?wwaC@3f_9E&}UhnMmxg+E>1
zck$=@YJf1k^a-o>KWpTCj+wz+IYFaK@@1ouPr+uPXN{I1=x)ux)UDt}na*&-iX*n3
zyG@}^fBFNO%{9-%Z`b9aMEl`W(gt$o@zT#OQVMu>c`G>y-A*ypw-*eMZN0vV{?2TK
zvrWF*^_B&eyfnXWZ`%GA<BV#aaIoN|NloR5(|ydod2ZnXzE6Fso+-~K;95Sk6W@BZ
zNx4_6y*D2D*T}uQ(d4gD@+%x3zxNaHS1K4wF$q1`B~z#8dkc)IQlaQPy6~FmF4YT*
zo;)TpFMto0mzUkk^*N*bpFej3k)D>fd?IZ_t3m*55?#19-I;L@m{0mSwgV;W@H3P<
zhAqBPQ&U4&dHVEep?8Wo-7H{Rn3(jS`ZRYF(rsg^NdRC;U25r<Qlj)rhWMIqinFlX
z?%&_}o3rRW1~R&}8ZdlIj%0S-{e>YAQVa{U6F_O^)hp8M`&sw1=s~RLPB=4EM(5-C
z;>5h%n<7|2IOF$2-jR_JfIxNNi#lemi5h}-H*s|tjF-YhL`AW@+=c2fnToxAZc!-^
zcbdG62G#U;8LIp$?_JuH?zj80c+GWxex~GjbHf*TqIxowkE+XFV}Iy`vJ07z%`S0%
z`geA0(eWMtdl$Udp+sLFO3#vX!?>=0`4@tI8h(EUHZ7p^2&M!@e{&$c=xb`a);EIk
zjWtLDL+<IlwPYCHXi}gJb)0e-H3wWNkYcVJ?Lr_AU`ioKhtGj0++~-gD2z3L$}PaT
zk~f-mLIGO<4QA`w!1F+8!;Cu$L9|&4lc}Ij9Bjq(%Wx=y4gs(X(JW9cdgnJl>jdNp
zKv4%~BW2EM;6*A2DE&xovSK>nx@2X&QviNEyLDj2(3X>l)C;OlDL<^E7)aY0kG<6k
zF&a~s8=}C~#476Y=0FfC;2{JZ&ZYY=H7fU3?m`933^;A3p$5ec6QF8*ISIm(7NEr-
zqUpf)f*Ohv2L7=5Quz49<Rqv&i83<!VP%4;mSMV**Ls%*B<OFyJs>?{2=&R;skR*1
z41fXx0s@%B?_{Vc#&DY=+_K*v;fFxg498+!P%{{XgtUeSAR>-a-(g{D^(0A8NNU2Y
zs{K!MGu!8H0I(I#qQrdV3NmX6aEZZOWB;w2!WUl(GYjv6S%VsQqrEQBuHi+*$3Z)4
zZ6MHuNZUcz1DOQ1JhBJ%3^mecfWncgJbak0ISwU)=8X5F37QjZIoV6ZB3pc2Px`{!
zh*p{o?Kwsew55XmOJHdL4sGdjntMWxm@yjj>7Vb}H9mdO&W0_p(4Aw@6IFv60#Ry6
zHuCBp@zatiyydk3L+4N&hXrH23UUr-sICtKEdzwOh27U4f?h*yI4ro1vNA(dGgzi;
zGLmQ-G0!bz{u`8B4dAI^*{N?jm>|_xX@`qALK58dLzpTxBj<`tUKFtD2TF-Na|aAv
z032<RMQIFnhS<T@7%VlMX_1w+4kZ#G1%ea-%rF2U^hcfPWMn<_&Nss0(9ZQ1WJ&tr
zk2Zz_$p+v6m~7<(^g$^61=9+&b{uEh4^aQSqWvTP>|Wq`a5b9kP={d4#812i)lG#;
z8Kd2D^;kIrmc9u(J3c-6MdEg=k;~0S=%aezo&gx>U>U{%C(8X89&@-U5_F0APyu`+
z$R1>r$?vjob31?>w-JpeNcq?L0sUzgv?H(&f!LBVqenqWx!K5)KpNI!rUO)(ZE2{0
zEbMKsVvs7&K<-N~fHNR$R=~i187Q(he(pV)S)VrtwoQ)b^E3><AQzB}`nU@vq8bl!
zWKDjpak_&*H>mkzAHva!yqfqcLGvVgPA$}wkQLyy_%*;Ta9r(V*OP?WGv@xBkv5fw
zhAwN0<=#zDjbp0zJg0ZKzNBn|>oA~^e6PH=IFx{evX9_PcA%LLohPgX4&0)5H=L1l
z<*N&Ve*mvCtbRe(4qo@#spDkx{l)j<0_JNe4a#=WpsHfq`-PPZN=%7+=vwk%nK1}J
z7rdRo+zGw=gznDZhq4IgyX_pc89n?_e<=)%8e=3AU8=$Zo@>#VNwMw$Xppxih*!c2
z{O4(qUCgRwCKT%&i9M0s+Ewy;e)H0EX{9v%HpgP@)o9a78!Dbos_AAn#3d&No&m%O
zyMiMKYPc&CFTvE7v!_oN?{XmeLZVzu{2q_^b)22~$pZ3Wo{hBh?b}1Eo;TRzZ$3`l
zBdo2n1&hx|(=w0)UUfOh7fwZl&pS(UdU~Ht$(XrT>#N>kB;uZn0qKZo08U-MsNVx=
zwH@-T2NMOFmv&U%o2k&3trPY3ROB;Mt`c<yYC=JAc_-vtJWJAv0!x?hqL;@uw@%{X
z?Snbk5EQ$)PzpOAx(9qsqc5dHWu`77=M6H~j#(_v8$oFD!(_o2P8Y_6JEkc|xvX^`
zpTn!s=eQ@Bg`xN{=hE6clg36yp866g;<<rp`lXkv{KQ`mG(5=ByA1rR49u<`gF7pa
zhx2a*`}b`NLh~<QoH3$^&Vzn;RN|ycRu^J&li(l(ZpsGDyOisTKdAEcsCZu7W_>$l
zvnwhhf>Z?%Hfh3PH~l!Pa?efL2y9K-@?yNK0oz1`cGHYwpm>2?O6CFg!e)T_hn3zl
z$LRJ{W_lM}&xR5bhHAL?X+F@>ctBRj;(y{1Hsn|SRx*O4E8h!nX*V}90n(j3>9d@Q
zoj`=x=h#O3IbgcCz-m)OU#Kz0mBks5y?}HmTz(%4ixQ^42m88-Is%J>nMWUubWPgY
zUc71`At7O6a)r#T_|LBB_7ux~MuslmA;ZUc<K3zOSl(j*io5SPr!nja3mEhtBw#;p
z{`JpyItUWN*}iP>Y)1EoU>F}1Cu=g=o3%D~!LDtJc&|;Xpn-@s8aE3u1Y=TXXXmbh
zcb)ykdV7(!D1&&a+d!*yX`?G`F)MXlMh{GFKT0Sv-v{VmX(i9-+h*+X2N0hjyY7<J
zuKKI-1kDzxOnKkl{;LlFx`W8CjC1pwK(Z|9kj9W$b>5Tm^D@8zAZlFM_xs>9p?mX8
zgNnXrLa?<EPgCCMPw(xzsj!%lkumClR1OtA0P)m8H#Igw@KU^s21hO_Dd|wW2f&BM
z_C&zrv6z-g$O#AcXY)*(VT^FCeRHK^O2E*=hzUm_fW*fqOluSV!f;uj?39f$#ZLj}
z<^VziAZx4bG@bJ{;-iH0kCLC|t~YR=!<ehqm&(&fIQ;cUFH8)SXic}c8&2a=q|URW
zdTTILNH^c?3|Yv<o2t5<`|<FS-bO^IIrkL9_#YVMSgOm3MhsSsA09q2=~PyNp#3P!
z&sE(ZR7`t3S`z?gk+@m}Oy)#4zw?}CZp<Of&lNWcuk3`8z2I8zVj!{uH<7c|rbA|E
zXgIp&4YO<6cb`9JI0c@RZ1L7+9fXDuY6d(61WQXx%hUj3<ak%BeVDD_R$toWJ-5l&
z#d4qMfi~9?R})@kzh!0N->X+eA!~1AZ*V9MNH_MKyrE}WaTb@?h<D}~h)2pz*a_Bb
zPXUA!kL9Il0Z|~xkYl2wsVFI3AlL`*Vq#`?uDt_XF$~`cO1nY43V|CW2DK*KNJuc=
z5C#cBU_b!y;D13V;e4>?h6eX^A6!Lqjsj;C6q9^@CQ5?r3<QI*B5rwq48>fRhQUQ$
zJWD|41!IjT#AOXmbH{uHI|1O1p!c3DV0ECv)&-Mbfpdohy%1c!ZZz@nSoPV4d>RqT
z109|T7}E>In0Js;ft$|056h)fXx(!Q1E3%4?)-}_ytgfr@T<D|dIAChaQlbx8gFLF
zvrc+$1bj$M)vxf}_Erjw0Aa8+Pd;>~*j$UX+bq*LmIT|5!Hz=8)xFo^eT(_C&$o+k
zl*Ctx4<0-KPvkQ9M-q8g5TUbAjdSRH4Ze6284C;%4yT7FWOXnpL#u}oR%K_oo*w*u
zLQG6CgkuF(-ES%YE{2$J113b>|4>#_Qv<P11*k_kmwG{u1Vo#hUaW$Gt}v(<#(8~g
za1vPup8;VOzkq-XOuL1sfot~{cvT=9IC141t~7IHsb#`aFtM}$eHl6mb0cAdh+fYw
z1MCnf%u@zpI+19s7_=MAbfgU}HmQ0U@x6nx;Ws~m`e5pN--LM&_(!DlQbmfCtSd`<
z@2BopTxpAFv&VGa&6)pD`x*zK6*K`Gxdvt6z55PJ=P{QHe$Dt`ZyR1!!;c@(cmyjD
zC*rmO+3bQ?F(iYPAWsRmSP7B-moL1Mq;H`sAX6QPdS2^K2<XyX-4G!xX!?NJx?emt
zZF2kQFI^e{7!B}9jI^}dik~|JGxH=|0nx03X((I<70`hqkHPmdgwaA^&)3DO$lJkJ
z)4}L1r0N6iqq(s$1E|j6++c|gLw)wfUZzp)Y%YpJ4hf1=rsn3rCV<ZyAJaQxxo=-C
zbE_DXyYpSXELqn09zE;o+t${WGpQu;UYUv*AD!1Xe?O~0$bTc^+Ggs;YMU(SiO3Sy
zrbF^h%g{j^hsX1rDHrTTq}J|*7rmKn%F$@dvsPAqRcl0+@cL<GO8Z05ktWm1zJI7S
z+}W0)##XLxuwO}T$yu(?^+^gMNaZm9zrI+AMxg+B_3EpVS2U2uYBGnPe)=jQfy;@5
z@5Q$V!)_Jn>9Vu8Eb(LHFMxy$1~N;dTs5C#KD6n3{lJDY@ZL5>mpIP677W?G^yZq@
z3JeS<4ePQze`v4TZDL{qI<18d+mjq?J<?6f=Bp}KTZN6>0ia(36+lW_TK3lIQ^TxX
z-*lAVy*n-OmXo)Sdfr253WpNq0!NtsUbvu_9t^`-h#7o>g+d;DQa&Be1o-g)h$NT@
zXu<$;$!-!|da{X|z(iCld03*Vu&B?@erjJiy3!Y``NAz(zvaLZiNa9}&P&7JK+=@F
zUDVc(Af2&{aOo)nRM($lVT|@oz>%HQW;zyIzs{d503*otgRjT+3HAjw-k3U_xCo9i
zchG2*+hCFhTSf7mP$VqiJlqDbtt7bh2Nv{ob>|#~GA6|p@qWFYm|)|KXGBY;I26nb
z&-C%ceJWt)A!DVQ?D|YP)QtnM&S}9xfddUjqjtjsqC(kI2jv7#Q5u(Aq5H05=Hvap
zz<lg2+}!$VjtX1(nJ~Y}KYuc$etwhLE0W`1F2Kp+ZAHNN0bJ5#O8tvGX8Log7cqkN
zM%zIp5PQME<#6mm^rcIQzX9_NrMh7RM;jR#2M~pm(7T+brzKKv64Hw7-XO%-uHR!D
z9+@4*jk>ZJwij-v=W(HHuj#K3ci@oyXlQr{b}rwnrAgck)Lu13E?NrMvgGPO?g5Si
z%=S%)Z9obS^82k1*V2U}{5KAZH#|Hf$zcr+1z3hSPGNX&)KFzCZM5+q_quhyKzpFT
zN+Tl+wM03H9}j1%B@Q9H#{jYCQBR&JxTUeNF-A0+>P7L?HrV2I2TZzx$w}tg=i<Oo
zyc#zz<i4}<*twqn?q!6$c}N+!aRgF#ngQMnEgF#^84DBY5z`g*SnRk+M2gUtP}g{@
zE{R6!{=q?uNIVvMKz5FTtv*~4xh0fxEL6gl`-Ros{?KI*cX?5>vCBwTIHc4&S4x<T
zF?rCF@m{h5#OaVvRRWYlU}U_fDnX}YVc#N20r~MS@fBYBit!Q{4A(P!+8gah#o|t9
z{cJoEWecb`?#(S?u6$mR6WRCvP_vO=5RHAR<?MiM-(1H9t*9+(s3^WzSvn9;@U~@{
zUW>2TFOL(kADdVreMjsQjQgX+jn$q!os0F4`iqt!7uWa%`*<R7zy>k|3r|l^=mM(`
zp=F6O_TnlE$&EgrGQW9S$ZcmM;bSd;PuQ!sF4NNo|GQA9D;m4twIT&x$Vi*$%IwGL
zAa2NmE`-DVp~L-QKN9@27pKE>6E7%V8dQSD93<ew0e3}iS^Edtn%EsNq6<g$zfNwk
zQ%g`k9J$L?e#PdmV+lB$y4u>t2|)aE^Z|+a{29?FhP)n}t%AJ#nzvy3O!Tdw(a;W9
zl#i=nt+0IlDbtlq&gejuhJ+h5o<~6&%GY3pzY1LW0f<#ICc!v9AbBdqaHq_Dci@jj
z_6qEdmbSJ85jO|0$1owI{34m9P}hh-?M7*-laAz~*6usXhmtlGMWXro(W)>0ef;yV
zPhcwZpLu8Y$fk&h2q=2@FK5am#{iN97ee~^_V&OTOmS&{X=o;UFJnx|vBJX=fYtmx
zvOT_PphMW!dkNEtNx5jf<T{Jne6QXde!P{v`8oW=FiF|Fid~regieCPJos+#E&!Dl
zNGIIdSg1I(zjQigG7?ZN&uqRSA;NE)On6N6{cyj>J3)^txVGb{fTSD+n~aB>8w+uI
zWsGbYJZB1v)Vo>=or%gJ%SvJ4{!QA1-5%u!#dCJ&RM<mGY!er3+m1l;bOorNJY`VZ
z`$8B`To5_Cl!I`*yZuO(pTxI_Pf<KOY~~B-gAgNW8_61=n=z#Dm>3&dAQlLmY6ljh
zr*GW20bM72l=rM76ArjknEDo>wN^eV2-{2W(0%%g7}q~1p$$%r$NH=^2HrC#OEo<J
z5nyRBo$!*l{QchEbsI;GIg^L|eR99dU#T)`Y0tlqC4pq!%O3Z&C~qJ*h#S`h14Gfj
z`UaR0h(-G5H}Y}-w*rd-ne)(y-BpUf4<D|;<!Ay~zp^R9IxTKRr`ZCf^c9p#r|sWu
zs62w2$5Fuv`gb@PDapz60qg<{VPawekgxLX$=H@yfzY5J#-uM_zQ9t(w3sdbI7xJ&
zroP?-UWam1G68jA5LTB%8@4#t_?FTNQO&%-cPUQ;M9l$UKZRk0oDPu_M1JLvp+Y_a
zU7kp9rRSDi4>?4h{D9Nd)L<6tpT5QB_5j#yng@p+0vomANo=}H;wL@dx~Yky!`^uc
z&I^XuZnz3;719=oqzZ8I0JIB82UHVahMCTc4#*)U9EONb@P&c8L2&aOppI~CGqh<>
zGr!b%V<3ScZl@h_-8m{O%yK47SiUi3k&nJ^`2B=|9;qcko!PxO5k;U1+!PX-o#_*A
z;?r`A$DTX0L(s*R5cN+z<({i>z$J-oXigcltYi^sAn^F@-DY2^5le{0nnrj3^v3<2
zZwVxznXj`k_A6AtxSE`vw%^?s7g&8%CV^oLexjf*m!R>_1^rx|iOP%Ogvml^_~eq?
zBScjt;el4BJ=5FODleJEDWV<tJbXzuK0c3MaLg9a!OF54>wg<RVwWjTxm_3rob;Lv
zbnqw<FQwdOJ9VsL;lUh#txxDV=oIT%-Pk1n?+1hrXuQWKeE#o?PuGGHgWCD+f=-?J
z&8-t+yg!mR0W}whB?^$Oy?)5WTO>D&+al?5fSvh3$J1(y0D>KgL8$|P<2Ui2z4rlW
ze*OA2n|BM?GDGNSg-0Mfb?Oum5u|ftfNKN2e6p{p{M)K0bg$~W&oE^WZUGoY^@5CO
zSnv~|<`4;nXHq4se#A=vu-WDW!BCUh{j9F~^OBD)m&S0|6w%gu><n%?tn>pBsO|ZQ
zE{z9gZXp{iec3fW0U8+FAA;Vj3DY3N6(Z253<RH`Qo`qGQ2pfMT7<X*dM)0H`&2xO
zDgFql5i)=kKs;5-ThJ^6`q+<=q6kn|w_HQ-1<<d2#G_wfd0|+?s7<2&EfnP~_vSHs
z7126c#C`0h|7zcNH2PPQNypJE_I*2(dkC0fy|mth&&5N}sXA#+2X&35H-Q4YU#@ZR
ztiE}qf37*9=TV2v8`G#3UQ3>Q>kjSwTKR#G999~79UN9&owv?(aH~)(zp+4H)hDHn
zZr<G89Sa&eg{>mK-tc#OOO&n>RDo}rzq%dj)pm30vHSX40A2x`6!Bq);}6*x?0<rj
zCjl2==iq3uESQ{_NJ&k7NyFD<Qz#B8Y{jdXP<nAOnAw;X@6N`S=^$*E)dne0A3z&G
zq3qnilvQ^Wv}om<1vK1K5>@vu{P^)B5~>4F8u-{7c9_odb#cb%B<hgX&rOku9`k?f
z)iIbl=@-&(gS)Qt!Fx#Th3W=?TMPPbNb2AO$s^<on#B&L;1$;EzybaJgqt-A%``b>
zD@|a}A+3DSt!ia@^Ws^Bjvw*o6Ois^NZ51~-}6ENc5%^Q;?DgiNmr3BZE^2CsBDxv
z&ZruX-6vOSt5QOa>$B5Q^UmNNPLng2L02Z-S^tt-H=}YW;>gMPxV3{LPmT0_e4f=d
z86+!}yc~x8Jo^?wG?Wb?SyQ86x_PswYt&Il>eej^X+VNMc(j4xV+~xHjI|AH_^6ey
zYd*YKwyGH3cm)mg%=;8ff`Whc)!|2Pz{i1`0z(BM5ZL{}(-tS>)U<AGW3wQ<SjLD3
z(t%xyiwh7=hzSXi$&^rP8|Z_Y%mO4x5DL$z973Wg4g(@R{2|a{4}AUZ-9DTK84L!7
zokJ2$#wfG5=yUjZeS11N6z)yL)h<91I{X!w?*X=?uOB~XRM<E5Bc=nK2V`YMB{Nfd
z<}Gg{-@feyQh8OCL{RNHfOlaK0B|TvYCKX?QxP$7u)rZ$ER~?$Fzo(!isk`gQTxg%
zNX(MZWBt23{%;8ln^B>88y(qA$mv^%{k6?Sd{Fu!pZX8BGkWUz$jIEdxkbKkHzJFe
z&J2r45w`xfyHp#<xUKP`>}WVqpJdWHiY+>rHGEtkIz`X|=^CTl;7h_A2fK?dqD}y;
z(22TVfr1qV10DF@uxDV6TY(p&u0HgJ4Jtqolq~iaufpzZj*G9XJOqS8e0x0n^JgNW
z2T({X13hdQNE;4FWO{l!gxPQ{mziG^rHd8p%PY{hPyy`%06l>P0=0J_lFT4;L1Dz?
ze$Qp87tt+~U0E7YSAD*kG@eWAa06uA|Jk!?4!~7^G&O<JcBx$3by3lB$W4JWj~E8n
zdw^~TLy!&sUNp4|G2h0*z%Jk`Elo{?r%%I~X@RvBc=(fHGtOX{WP+2Md*zLe%{IJH
zLPEl(nfoki?nL`wa~y$)^5)^S!)JaSGo3y&;Hom_?9!8U35MCv5Bmt3D>Onv_%Ph!
zS~C*JXz)(_urNIwq@h&|viVTUo7HQz{&)^JNab0kfI^~;u2X^V1Bm(ibg63uG{E6l
zr_y!L+DL{u5<jI#_Q&WCPZ1Nx0pPTIFTv-)4e~;69v+<nOC~fjQv{;md#b8mZ3Z$I
zs}2F`l^%y(&uKp877)Hsd9d@BF;oQhm;rRRLLj!Yy9@dM4&X@p-IWJUa7xY1%(Smv
z(3nC3UpVs!f&vB>VD2GkCqj-tq(I2L^U1eXAOQ~*2PCY>feXX13&(`7*dqEc{Q}EK
zY`?29HKlAD5UXLgKn>*KKuN&?HDCe>uV3c@*BS=O2FOCA5;V3z9R||q#o{Tt<n|(H
z?FIlRN56ar!rRyz#xkbjYNtU~U~lN~AnNsN)t%DFl9XS^21o3QEZa*XY*;(0NyK$~
zMwD+;zcl|#64xHWc95CTQ|rMS|MKOj>z)1Is9?=IMVN$}zpMn&(6+h_oN3L(--6T1
zXYuO_=+QGWCPT>-on(7oNnT#J%ys$28QL{e4$B@;Jk@4{3t{#MlwINnr9VJtu+$4;
zE%*}vL)K9_L+7SumC5d<%IEf2L&&z>Y;cfN$P3g?5b|zrXh7(-5HCXlGBtbg!iBHy
z>y}=ZMXz3c2!#sh<daoYjOR9O0%L5jZ~O^}aS*zHLgm<Y+y41Hk|^n?y9gWbEdo~0
zcFw3Ks3<M&m|ui049FT_dPNGs7KDK6>IUF)y9b{E;09~G2$f<G(axY7W?z3VR|Icc
zdK_TZY?osdu;c*Vexf(<nCBz2w`KL93eSMHuoM!-VL8(ujTgvNDEQb)o^ok9@%!9;
zqK+}THo5!#R+g;|te%7^QiDVGAE0Gxs7ff!fGvZ{vpGOzNX2Zf6VKC>ag?uH_c0VO
zOABjYwk(K#{PgK;s|NV@%jhD&ZrWt5_PKFMSCOgH08zmmPsKX{_%+sxpW^|@Vt9Bs
zWJcMUncp5z!DAYSif(ji7y$jzD-s#&TbOFWC=<N2y4qpj0C_Q3325t~ZWh9ig?^q_
zuZ9PI<(b~?Hdj-3f^Zw(ZzQ*#?(t#=_$`<?t)Z^2&_N-c(do}7d8lm&AxYF;WEWZF
z*(HeT0rYp;PbYBQydYu!=S-SXAeN?Ad380X;Vy63Oi%5uV0=*E=gtRua>za+<lydg
zyW7IypXrm1L2<U6AEtL350mmgyAM_n7*RmYh)TM;bHi1k1CR^~>6xKQpOnGkwf%AY
zYUz}wwLlk$N3w@$FPuMr>83-C3HQtpUr|tKC}kKJ-6DZETRRdMz>?|6$iiY{p#{D@
zIy!oKdYTqw<)O-GQ0koR9j`qk?gOmkQvD<iXd4N>_E-*<n01PWPR#R<Sw8e}@uEkQ
z{$_!D5%>1&5>q?9Q^TpV(7Ng79?}mlaW>LzST1SYBq%cwoBy3)_%PPR`L<yg_Di0o
z3_o$PwGZ-~PTH=|@~0FEM1ul<5q<qz`)dtv2|Cq{H8nLMt=87ohBhPcieN%YfJuBw
zubm@ZXtU|DDZtO$&_4xo4H}9G;FhxWO8ME?W-CCe6ue?)Ch)>jD67{qO(0Kjwzcjr
z3O;P7BPS1!jopQf3N1}oStFxSr1B4wgkj=@695)EU#%@5od<`ax4&+!i+)lXkzQi(
z9XiLx9nN>K?Y@`$ta%Lz5*iY|n_md`k8qQ*$c*8@5jM#j^*L18y^cYV%001Mm1hAH
z2$HiE4ITy<1`q))^c5<JqjEH?N@r4IF(!bOtM`c;ka_K_ks&V7>aBBz7-UCY3&m5g
zV_DD;7xPmQ!|}c9MW6$XRuOV@Jv}`sL&|L>AvEU?7q`KBu?GTX;GnL4xSrz^(2%Z@
z+^^BT{&rivbXf1OiBUkHFitEI{4;fkOn1h!lI9MSPx|XJZi_9!vE_^Vk|#BWDHB?o
zujK{EdiYctUcOcdL3$PCOynQ}<U$z$ZhX2vb6tHJlJr@kC4dmj^4-9j1zq4^%l8|w
z0Re?#>>9iQ4CL#8`Oex2a&vRbt%1)=!xjZL&VW~!bA)1gx_65QoQ3r_u*s})%K3$b
zccJw26R&Ld!0l#20z%MxPVy&HojtkT6{-v81iAtmkQvYbS_8U}mq(v@!oS)c4kP=p
zHm?$%XOP@VUEIiDUG}Bc^yZwZKE6kF%cER<%+j}2J&-P@iaR7r2A<2(?(Xgo46d)6
zmt#xlhW(yCb>EnqS+|G43z-v5<_5-~@KN9Wl4^jKp=0m@9o<67l8(Wb!@i+|`$<y}
zz+n)l=4=}$?&BRWz6Y*L9pk<}Ys#%B`1oCP^i?!CBzM@PP^^%nNa?`y+|HVgGRoD2
z@3AQC6W<!f+uT5E#4vOLAPGVelAJljGMJ6zWvx}Tb)ZNhK3D`+9H%Euf38~*y~mQ)
zdNHp@`omq{!|cnFU7`rKk!WdCH1eXVstQVqa_Z28RwQX_4a5&!-F}2B28VUXp_#)h
zzj#lev8|2k>eckQpD;k>O~sQ+umFI*9>RQ^Ip@+;3pg0A5KX1Y$Dq+jcXrl`e)gO)
zxZ4ZYG?&1j_gV9kH8wZXLh%}|+z(8w+jMR<`z?<jKZXn5-zSD*+&6fANGU@uLv_O4
z7pNyGx}N)`FsS+?WMDu#+R@)>avuv3z+7QvodFtKw-O;z1_mpVu&Wulqs%lnSgwPC
zqpbbBc$-2AZ;vu+1F(Bz2<mp$QD9B83kNfYotD!(h|?U-mnyJ1<9UXq?$7V7>;|=m
zeXKxssJYg)H=u5#6&kg3%vBFg>w4YFW*cot-RIBO{j1xd=+b9Xnyo4Yjq>2_GQpWb
zArA6jIa%3L&=az{`WJ#j*nd={q}L&;>t>oqgGp~5A2$&fuSCYHU%B!DEDCU$V53`h
zrnlGA`^=T>DhL?WV3AV^-B<kl{JgwtK%P1mRta;!K5?-+YUnws1L0w<o@t})@6P()
zsHi9n_aG18HC3Mh%g@2aM#E>R265Ne=;)`C*-ZEbrYl#9DsHEPv$)L1r=DPVesc1j
zNcJspkc?UpmXG0PVr4~$f<6bU3AB8cj!+zN7essNE}vOCFN~^W*z8m(mBM@?BAzDi
zPjoj&_`9xVRldg{66KAN2lj#s-=JfM!p`7gGo5b&k9liN06FwYX)4|<xeFvgU1(QD
zE)4;g1H`AmlQ~OF40<b%JUtNt;t=fqbNk>nAGh#zm#zQSLAXR<3PD+>#AWdS>QJS#
zzls6!7=aQ`G@yh4=~00Q2slDm+oB&iR4>k6DuI{`f^`t1%3RBbXf7814pJGY^(yx$
zv7jMPfQU<8Q4tPeLg*#oH?Lk@_uN{7&I*}Iw+cA+&j1YgX2M+@)smAO!L~P}_9oTB
z5C6;#xM@ln8h5BxHZQOhKLvi%?<%hTcRki;&zw0Q2JzxAzRQ_@Lz`9{u>x4^`d7o3
zFW)uKxGAdVG>X`LAE5}F;4t>!KlSm+jQX>KiD_WJ%sG2JYD=*J!~q(UpJ1VuLV4lB
z?+wRUeApC_dcHlhy)|(D;>C|X`QAWl`!!*%k_sUcWLxlZyEZVh!Anbae%}%;w7XjE
zek%c^GcyzDeP6$_s0u)VY5!`@fQ|U$NqHEbqw3<=ePw9diuKSa-#y9a@Bm0wJ)k)h
zP`h!L8V(<HCj)I}AF}EQZxHpWtE<z8cK{X8kV5m>uzd42e#_2>P+4)`E*HvXZmnVu
zbbxp|r~#g0EuWz1DYZl18i96l^T(>T7SWWnO`WGSTZ*`@Z)I(L{Xy935D3Gx9d$E*
zUteE;I`@Z=^+R!)Po!{#Lo2VwvOsLT^Im}{8CUvywDTtg3Xo*s<3U>nRXo?{p?POG
zv9FV0FEkY=$b=4TsG06P<VGT2iI_OWG!O*iwRqiSd5QPoEAK}hG4QTI(+U7PO~3ro
zG64N_T?U-G>?I{yvfiT(fdm#P3$GJghc*vm(*3I^ry?G2qmyK0g4#6|+cp*BgytOs
z8|bC{O7WrbVGq6qrS=OV)?2r3y$%nDToyu~o1$ROp+U>6H7*8@oN)*H5X45%w+LaL
zl?QrIg&c|Df5hFqhv@}!0bcd{3)J~Rw!Rw8*$<-rI<~fnGNJLq#Bb-aA`n&jNeHpL
zMgv%YY^3U4SX3mK-*b_k9)bk!%~>x~ci5=#gxtn;#ES|YjKFn+`7miYzC`1W@%P_D
zL~L=h&GM}?_%P&TfqBkH{9||Z$nY2>Y0V@{wo~JiS(#X3TdH5*D$8~eXN6J==eBB(
z<OfAF0N6E_L|e=rTUus@Qt;nbUq=MCUbotN&<x)Wrc(J956W=}qGu<#C0PAjc%0KM
ztolaj*jRX)bWQrzw!A$AQ`Xg@;eD8BprZB{x-Cs@qqB4@jflLIm4DJhgCwLFcPjbu
zG(L~s9X>A|Qet8nRQPi0g5_Im|G@PR1ql<X1IRt07DV)(0KV|YbQdbL)Wm#h93%y@
z|1E4~FXbFCEFD|zFvrv+U2T)e$9*;G{Dg&X<#+xoRpfGtU(++Of?QsxgOIr~es%IN
zg738ae6dzG4#@SD>vON4&ABm2VO#%`(;g+3{CQg3yfsiZ@!Rz$M=-oH_2B8Hv;JcM
z^LWG1ISA&-H^G%u?!!DI?avRMbj++ZNi3PxjosYwyPI8A=_b;hVS!$;!)Qiil<AD(
z&|W6jlIQvu@BQ^|B*cSQ0R0ODpElD#?ht9#he>TvjYqH;fT%Y;1-Gts6PEF02A|)W
z|NT9uHST;EX|ka%Ml+<97`f+JF(nP8_@p}{dgSmH+Mr!so@5?+Q;No33ahEF!;9fm
zxVLtG%U6Qq%9pj(9P@;q7>tRoi7OQ@Cr2sYiO1g}5!;ebT7=!x+SrJ|M!We4w-SIH
zoNq=DAt(WfTs$k*Y{#aN+c$nrpz2WbfnKbSBIbKYoqx3!4jJ~9Tji|+gzfM`7&tr#
z%`KSkQPZx3$c(|R@vOh(f^9%@J`#VwHnxgm2j>WehZ@A*i@UP1iTshB!5~kR&a0H%
z3ASJQ%8eVjdp6*m9y|S??%q5a>-~KneKbmC3S~;PD-oJZ5hX(*B~#`mGK9#KxuQgB
zHy|=a<`9a^Qc6iGWGYk1JcSGye%I@HYJc{3o%3Di`#tOYby{n$T|Ccwcn$aKzOU=L
z@B1bD>o$hrc*fF<YWduDqYM5!w};KW_(A1aw67-8$;r!`Dk|)&lp5_91&OT)41xNn
ze{0R$NEH{#TQF~~kv`Yf*zHfbbR@2Zuv9+6eu;F&0M`Ywps@W>(8J3mF7(UotP$Oq
z$XNJ??iB^y7bh}Cf8=r;Rr>4GiM3ybx0{ZU=c9<0*HBt>?MzwpL3zUC6|3t4kBU>_
zzW><Zmu76Ndv`9Ldz0tEqPae<-1UB0Van@!(&dS*(KoI?eneZ7I#`o@XpHv3LKX`e
zumvdx@sSrAg|S!ibK8W4D_dLV!%jzyVDdJebjI=8Th88JTv4eewuSX(>dcn)3YV;p
zo0G>m8!s4V>k$v#iy009Od#+|7vvc2Ld*emG&gr&SC<Q<r||h~8?%&#rm$cEEtP*=
z_I!07V`;%s*TjS>Deq~|BaROa9G{}n2PyArC}ING)zi=U=Kj8O#}U?JjQWR_7bh8@
z?s%w<-;QRs-4neN<5I9_?$^0bMM@GZJ>5f+QohtUgEH*DdO@N8XYcvh^(xnKpaS(6
z$Fm_>_1jq~BF6wLh~r2Oh~DwzMr)ln2p2Ch(X36f(EBR(Nn!R`(ee8{G`fN5{HD@C
zf3FwD@|}ZcrBEvN*s+-07M^1De{KFzmnVtr97`uf>E_HzSjoT~K5nvncy&>7vOx<+
z@qyQ`Ids@rx-g0#85opatozu~n&E6tO)%19K9u^tfM=JZ;O5QA5URnTDaU;{BN6DI
zk^*-CxXr{T!Qs6xBRW{e!kg(PcW87SFECa#_@&Rartl}#$)SvgxZJ8kr1}B42jGS@
z(~>#3HYq8+1L1g0i8TC&OPO%e%T>6_s(7~*FDS`=w0{-LP1m2K20g_`(v`oIKvbB(
z9D_80kN6gW=H$`2=i#eK0Nigd+Lx%|#d6_c8HT{Ir6c{(RFcI`cIzRq2DBal!#hi%
z`0GyX10oHKqw4KjBZNeK`Uqpd)+2fetU&fzu64aA*@Pc<Dw$qjqOVm@Fs_n$h|1Xr
zf34w`X|r|0ll<siyK{g*A3*(#c;#ltw3IYo-rzI6oh`IGh*dYuzzP0e4tkDm-MSTl
zF8p=x{>)dzv~fjzHA_lqLX3$RBR^;3R+m8|CC#yAQjzb#DXL>Y%rE~$qB-;+;R$}1
zFMEM~LD;$Z3qRz&uWxODPDxA03DMPB#-*kwrGir%Y#gu&1hT$*ESuIibDzAoqPC7F
zj4;mguIw5q)B<^Q{5d%4Nyt4(k;nG45fDHi#3OYN5SakP)*8(gsX>VBJos4}tU(i4
zfBz2_fVr`8w07*+VSP*r?mtFe5nVLaT7HNvkDrD&1>f<gBH~7vl;VWRC6j?nrK>HQ
ziUscZzc~7~UHRm|TVjfnbg;gEGZ<Fx0_+`UrIyfWyqK66;HmNP@%m|>(6Sd2N0gmy
z9Qa9eY7p)}*?kbm^dw|tq&p;n^QI`ZOxP97(cslhQArmvWs8OekgG265i+tL1y2wj
zDq4M)SyubkCE?NnUY}N-qo?Y39!E7QoCldyx4ES#=d`9K!n0mTE)5=AWFol%U}|5`
zvuDrh;b+00L*@X)YrzO4Jm9zm#A@5nUwMAtGTiI9esB@QQ_u&aq*H(VuA^zXXoV<r
zD2oB83Vs6JCfWeE0F$@kt*l{p4J;QBfQWu`2{{Ni3W!gsDOPR$cB+TzvGQu&HkYG;
z6V<PNWqT99!l?zOj$P@1hKBPKECrY+B~9h)JUuPvpv?=2Ed((uupO~XJ?A8*tLD`9
zs}+!pu`4ZOWOVkf!(T}mpN58`cpk{n<VN4_AZ25>T>*<r7B$>nw<Ofuc?G}yd&_a0
zKI!+re8F!5Vm*M(b*ck@&}-!f#k@k#%|+6_;{~P$#tBeN=8^2)){>G~K>!*gPe@VG
zxBSFav<lsJ;>G;jguGrfw!wZ)wj#&yg8u$9w_md{GyfeLnwZ-#@Do~<vEI5$&xKD-
zRF5HX0oqY$|CX&-@%ZQ#>_T*f{)|UgD?E+zzxaC%9vur0LfCi69`A9~{i$c%L_`)4
zl46|%w^p6Qc?|pLUjemV<xog?xR5~SnQRr_c)R=c*OX5m^-aCWO3tFEw^r~-9aj95
zVLD`WKut{s)iC@~@9rsAq(-9Gi=#tB=|Gfmu*djg6@x@*fh|r?L>)B<MQ?oj_6<*g
zMKOe2Es`~`%Q30X!IpZeIn^5z89g+YsB;Ec1xTelkQjj2jpOAi;uA7)+5lfc$we^U
zg>P2_N*6;VB`83bEnl8m_VDF(-d{Lox;i_>t!f2@g{_g*ko(2C8JQE~r?0HwJRxxp
zaA#z6^w3-ih<z*ttexF|{iSH94{A+U_Y(;P+%6;46#-gv-nr9|0Ab}lMcj;tf{}Ck
zi`~)C1?S@5a2_pD`Dg$B3Xty5aOHvR%Ilg*nN5NE!!EBg1he@N(;Q(N1=nQL#*G0L
zs4-~r&fXvSVH#o%QlL0s2@h#9yxZLMLrF2{8b@yS;OYe)6cmf6P|PZ`8bc#@8K0cb
zjVm?iOz!P!D4Cyg*Q*3juK42E)>CF?11Jb<_qo`!AWBnhD9&r_g9-szSTO(KDO#}l
zy4-pZydvZZ3kxF=E9Rd}SyvY@eK;SwMb8O`P_h078#{Z^k2k{Ld6qKrNWnsZ;XUWz
zFbD&7uS$1>$syU2WIYHtz*>f8Te=~zCMX_s0qo}EfK*7kbYO;n!(?Dg;c-1o=|y_L
zSoIpjjbQjtcoTPOn$-bylIMSI?e3<!ELd-rJSZ5{4v|DRL|x5@=CCTfQHBGK5!U3L
zJ8ZMU>?{Wk9jaHG5CLq2S%g60GejK-%MsWRSiRc24q@|_En6Jt6%u#3x-FRl85oTp
z-CVE2x@r|ohu{m-njclS(*{<LEXyypH?CeKh}UlTmF0Jh3vVkrr5@|5eQfOKC%|gE
zU1Gf7gCwJ-ACq5wbVz>KFlgn3VqC>!sZUB#4mLZ;rq`guph&AvkM!@Bd5uyV5J(pS
zqfbrGSAF-J#^`@Ur7<kQ<&5!>Vo|3m{)VyyD2<`Kg1p%qwtH0)sKrN66Srv0s~57g
zfEzU<uMpgNSMb2NVTaMVB!AT^p)Fg^KyEy(;D*rU&SouarJE5EvSx4Yz($k^+`4=B
zDPRRiJ-?t;=(O6{z%(FBN7E%H+2#ikRN|n~c9WaV$i%=--vBDH_8&?E{GAvJY6Kk7
z8OOovFdzfYXdG}?I#vcO?Yq0%;t2MD@YF<+aDg9xi4|7Vuumf1e|R)gV9OR%)rIJH
z{l<+6up!f082K}(evKnhBT6<|@C`_&FS&+o3~jq8Lu=b6*c%_Fm^{0_aF|#Th3>%N
zbkABu4E{kuMO{(uFKkv9fkwI4nx6MP9BS{Tq74!fx{5rESLWipj^(|0(iIRZ3${`q
z3jvF&_uV67>n8@SGedQf^@BKfynM3KBvEV-%5($y&0EhjY`yes7-UACZXVj<dRvD}
zpzMZxNr!O}$-H{|_6+7O^I>2*Kpgz}Y-o^kW^<Q!P)Z8qY#)zpmHpXpa?q2&JAn8!
z?rz;%^Z1Qd66;t7yM$efkp^G&`TPZ90>~=Fi~$F10?=zC(TwAB{3l%Uz25IJ%ovd#
z)BSC#4)+%oHE$T^LEj4`_8N7bKA&&z7__o}N798&VtiYVm8w7#`NgGm_m7J8U>2v*
zMqDL`i%boC7fObufvRditRO^$8MQKflFoTM)`&jL{tufWJU`g+^{di1oN+o+va4%S
z8+m~<U7Qt`No8$4?7ttr2t<tN#|Tvh7nUk7uP0zhF90QQ)QSLSb<WI9f$?n~XDzyA
z1odo~*2mQBymRy7|6(@;%8G8p3KE5W6JXou2D8d9=PQ=enJ7XUODItITkyk5T7aFw
z6-7`927z<+>Uy{i@Fx#@&jo0EEGvvn(p)`PSxHA6K5fMU%KYYo+@{6RcJEV@`-F$5
z=_cXIZo_VtlaoWUbr~5MNy!QLv)~GYuBU&_W$hf&lKY3#2#o~(ARv&wSo;tZQ8Pg5
zAdV1DtR{9Y-I$x5-3bq-<E$IR9Xi6q`@bhV1pBFkhtatLHYV>nj=&87lx-Ke8Y4k%
zx4h?te1(670R@i?y;S&JDiCV7sjgyY4@SMaM59?sp^551!aZA6H8u3@JqhkY+iQNt
zOx*T!!?CUK6U%xWL+C@M{mslzy7+a?Pn?$~>@HFPf72l4^<c<x22B81e2RlZNG7$v
zzyG6M(&;bCK>?DZj1Yc7w}HH10&14bjf=5xid)_JC6r&>SZrned^%SMsRx~7BQtt7
zJGlm&-PsfL?4zPC%p=+Zgrb`|j_lWA1bd7dHW_N`C`Q;WZ4<v4>8B*XdhD=)e$p|l
zSRdgleQRc5p8z$D?Wmq+wMSB49b>6!NOZI*N`j-4g|f2p)kJu=n+4LdY<A6V$t}R@
zH*vlLAzF50ArvP-#Dg2rdxNOi6{mj=82ahMFAeT?MjFm+_yn>>`$Rws)|<H7I6MDD
zsi7EfgR`R!a`GTOeq`|_K8DxN8T1lP)19Zu8j2u9<X5hhCC)2Yoefev*YWyyN-Bn=
z;Yfq%v@ICOA)jrvfk%&Q1(INX<@qz0HRl2(uUOzEZ#3{G@@TO1d>gX+_L(Gvq_1=H
znePY``&d&0^eI`4v5)=TIE9amjfe;{ZZxCX2g?+d3-N@jMLi1p<a+~OZpb-r2g=RS
zRa8Vm;wMrNSa0H-_X2PcFN1hv0EZ;d^J%*AfNE7qX!BTKPi1(|ruq}l?Nt6FVWW}<
zGtiMAQd7fbG`<?^=;kBl%|3f%3x^songQnmufV8EtN;LqlaNXHUAdz7b6;?bclOyv
z9XF=)Ty09<u<ZsR(<9-+_iQ+(Txi08V&2BN>pR{YlZ}d#KWlp7P&P+vIwxQ09Le}L
z()^$BDBml;#6@6=A=yv1hjxKIusrM7vy1hn-o|1dqe4R^Aq*o2`uWlC$b<54IVe{2
z6Q#>)f*Zg@y1@IqV{%*U92enBQ2q_BAE?!B@DHHfFSpIL4$r~5Sjy*d7R<cB4=}j}
zRuwvDb@P!Z41h{!-r;^sOdIqF?jTH*P9ahn`~n)>p;I+)a@xfhoG2IxP;6sGW5MG{
z)$`wv(w7+d^mz?0_$pxSsy!d7dM2^LIS~<n0ZA+SEChIgh=s6TkrDX)*;2kOMQkOf
zUf+V>A$If;SYUDM1k;f#!k4TUw{UjqUTjfa=0?UVYzs#vx;Q*MEsq_Y4)4$H<kYXO
zAmuo(S!c|e9adYwjpqMn;>2tK>7YS3Zph=51n7nVBoqztg;AaoX}4(=JCVz;mu650
zGYYQ>FcF9mRQN(+1gF8zQ;=P(pr^kJ8B*V^pJYM(_cYAV-v4iC7+re=1#l)^z>7@J
zUKvyyfgkz{3L_#kLPQexVG@!pWast~ZmaB0`|_O!rICGLu*Zjkwb$x9qcj=7XJf`=
z8*eAW2}*x?&o=*n_u0mU!%zWPwiHeQ8xStoeI8x}0vPy}q;e=cYpfaQRC4TE2e}Ls
zXJ%*Xk(mvF0)*mcV1Ti|cHFB%A!_XMhiy9r)~_cg4W@GGTGuuxk47gZZut8@1;4x&
z8fuh*0Bf#$TsI%uHV=51K=-tC#D#>c08n8)c7psnGJTuKjupwIAYtcYb??YgF@d9t
z0iTeZ3w8Bt{{B)(UBh$Xkh&Qj-aDl0RnYNYh#5xJFm9ogW9Wc_sI40>rt|>u1{^w4
z3+1LY+?q>Fa)S15_gmgnRgHfVE4=vD{2X$-{n<D;LPQ%5n_a%WiEGP#4wlo|A&b`!
zIX!V{$(FAi+`9Qq25-}39m>2;=iY+*l03+DOYa&O3%Fta`@Oupl-@)r5at=_Vb*gc
z%bfJio_#d;WFlEBF+$_C&7nkF!sL{nkcJ~@bLhc4dL|}>1>p%g13qT6Y+PKxi-5O-
zB5=C&?AZJ2M(CblPitoui8@_yKKLWDB;<!3Z))Ee2~s-t1hjhAzs!?>(V|_5Ifilr
zN3)n2h7CJ191h^BL$aFF`l)qX+}!RU%sdb^v_vJVK-AU@ULK>;*Ex}LWA(ezz9lQx
zJUZ8<F+02mM+%g9&yKlb?}D&6Fr*jN!QG}5VawjHu`5#F`HKJJ@$A|!V+7Q%b>aw&
z2e9=dszq2BedwX#*?7ALP`FU`zCC+N_c85$3=t1Bmt0YXQ%DX%scM37^scS2rZds0
zgS{eJ=RpxfmS3_@-^jh}Gqm;Tf<ho{1B=VmG9r`7sYi(^`=66IOZP4VK#xcffb1*Z
zWvgJX>k$AU#4JQTJJdLV!~w1%l$rr1&zSU9?9&*LG%<)<KEX36RpJs(b%!ZJwg4me
z`T4P^H{OQACpjW2Gcyy*k4(jlGrumvAw<Uf#!Z{*OOIkx0uV*ejom_069s;hE@VRW
zTLhW_Us6eynukXrIH>Jrs-R*)4i#=YKDo$qd6D_fUC-AW1z}*1ULfze?!RYw7F_sm
zSf12h3#21oKd%R#yJ5!;En+u+!kRv<H&)-jzX8w>a4p1rQ8#aXfFZ-dGzph>0=m~-
z@of<fqNa+q6&BmLj0fC&^b~hxp@A^`;s<XH9OJ71%!2!2_c)Z@7=bOe{>g0}ommj9
za9~AS>$t(hRKI<z&1UxbsXe0fc)Np;p&%k7#WV4~36}7d2=TChie0A|E-pBi;`XRw
zqd=9&cjmZyD`DJ;vS%5}Bqn9PHIlpZ>^)i`-F{sYKN7&$)!x_q*fJYZ_!0yR(6)s3
z*1$T$tbmXR6#togIBkV=I;FLt?ykwv2Lbd;+X$}`<K`Nk1YBw@GxOO-TaLg^99ab*
zKnQ48dbaSI%(ssZ(^<zt=iSMzDcT{4!o%zbhD2fHM#+Q56)(sTOljtINM~@4Tu7S|
z%Fx$`+l5r@rB)<rKpDlFGG&}3QSx<$!DCa-dxF~T5l=GmiH0czF%2AFv++2Gs1Z2)
z!^xd)lN)KSoOUjEn@vhiB3?d7J;6eV3b50@NY(nT0@9;BoeUyU5W$6Nn3&_PNIyS6
zxg*_tQCru_n?8GIGw+d5WnQzB<?3lF#z)a+%6T8>a824w`_VaGpTtGGsc*E(Sq48`
zt@_^d=|0i4(iHg^>M!1~@bDNlYf*Z)>b7Zeh9^M$<j=tz<L8?nu1{TfKE295DjU{l
zL~8d-uxQ4KZYi-AC<q8p{Hwvj!hBnO(>HSUwgB=WwpMh}qMN)V(X5{+Brq~JXI8(J
zn#JpSjdDYE>r>DP!7;7J&3-?o%mP`VXMY<PF389;UQkU9HYiDSi(IuY(rDXumh_i9
z`=(gOF5HPBTfnDR!AC`D^S>z9ZmU-Pqkjo-C|Mp{Ol5nLB=Ge+sTU)Ab)OC1{bK(a
z#5v=fm$@GodeZ~*H&)kit%4g1VU6m}x#8zb)0ZGpeLSXSR2@6$!0V$IC-#~D)$d2)
z)LBMNQ^Lk@O+HOTm`vXnwmOk0kzwX~nZoQ|4<B!lw`l$jV09(NJT@Try>I|m&)T-%
zLl=HHk9`t+oo@Bcwm!Bi&(HQg@K55uA3pC_{&QflF3UC{)um_|hd<hhZx&BN8B-Ge
zosKV&ra<d;UO2;<IO_j}UqDa)?S&=I=g24bhzmI0SGe}7TJKR{zQuguMgeNTiqTQ=
zQSn=I?oG<E)14IRMQc$xOz4Fx9{3lpLzmk7RkW=T&eEnyN1N&Id@+l!JPkMA&@Gec
zN2PXCIO*1go|bYtlG&`N7-YL8AXbv&-)OeYJ8CjdFWmxJ(F_{eooE=y6TXqgHu!Mu
z^?B9F3F=r(Xz$Q2N;TD!r6f5oay5$LFK}IKa;{)eixVY^oy3;Z={7PM;c$!lz`3^F
zs_@YQKJ-$=FMO<2d|sLTrq?^JT?-j4?~Mr0DR{JBvFzZ>1oLx$o@43l+?H;H)QBl-
zcBakPLMu4-$v=q``;^!fuuiEdSNET0ETwM9pkW1{R!FCSvz{Zcwqx;`vMU+(Wa7CC
zxWssTes7^#dITsq0trHhf^->gm&kQ1ESt7arS0pq5s(wG-)?RsqX#EhEezYG3+Kl5
z?sSNZ1;i@nFLo8)&`mWw%5eTkEfxWsz=jZ@N@5MgO7UFQ+N7koa#`Iwu^elG9wkI_
z7F!`Rv^wWS#^tb`>tlm-%O)J&O5YHz{P^h6W_Ty!jHV8Y<`-KZ`4cV?4pK@F;!4V6
zYMVZjZ^W342$n|6xV$sZzPkU^sRyCB%?Vkr;)}+$ezT*Nx~X$9=l1ORvsyRYSWsAg
z0`+EDZ$i~`-coK@<Yh#bP=h^%x(KWy66w4EFA}u<;mnMO*uiCTWF2|xyHv2y7Eyw$
z!L~Wz!g&}5c-jOsgCNJ<Ok<e+zbvhBnQw0cSXF3~8s1^aK1~Q0D5XIkk~DBgCJ{iv
zPb7i2(&mDvjX0Ec^RS4&#AZ2>d)1%o%h7l9m!ceZW%o0(SoWPBDR@z`oxE{rpX|!v
z+*YrGK9p`!#{qocz~)4Gx?;x7ppH8h4mU4n7+?B(RfeO`U439fd%&r)ygn|%dozZj
zVF{^AqUy)aQXr9^ghzdtwx3#^QEF`)T56hfY;`FEZ4>bv!WS8I3;kLw951Up<$}7|
z-*I?7Z9!Ef-=}!vD3lp|dJ+-7_zoV~M79X6cb$R$JCKZ_Tr?7qvX<x-mj_C}sK}Kk
z4}SQZmEa|km5G`zcO~sis#Ywm&J$`####Syd7w56%hidAjGzN#_3WAL?BR4}vELO5
zRACSrEhZkRv&oD&d|6oJC5-EN(-#g~IiA!z89wf@%<cCgCvTLRvI`k9fOGQ&B2_@4
zw4Y7dhBsCz2#pa-KUOd8^Lzhk!b3qGO<zwDVt+Ki8%2^XR<<z9dFbv$I0B!y6F&ih
zD^@nPvGyx`8#iurJN_n#rQEO^T8u*GHe=!8$ft{Ft0n}i2IXc2K4LbJqyRA{RkBKi
zCBS(Z*KFORxbq-4vRWX9n!tg5ea*JAQO>v}f{a(%YY(t!?o)U&`s#~KN{A)a@cP@E
zo4)xyUrk2LCt&ok{}%vOil>lg<>t2fCg_m>l43H>$F39xDLlYiV6>U=Qkkyot2*qE
zrKF>z=u|-Gb)(8$OT7KJJzRoajVDoj0Jk(f1OZ*(eslAL)N-)t$%#=Pt-qX?;<36s
zGC9TItO@kNn7zM2o@(yI5t6n-#=|Ot_hP#V*d$*P6&nHxs{j{5{P|riuf+vE26tDH
z$E~%)sG^v{)e7uiV-fGk=X{8aP?F(zcB4@ca0Y=}!NHxF5>92kWz$L9g&H!c&J{(x
zT83^8v4<1_&k-4}6`+TZw+cu(-4<??04p!=0KT>C_XZov@bm4pN!eJy5cuab{!Y~(
z#F$_Ov;t!mxD^)Gh=)bg&_}vy#rdm;@7zrCP=NfIqC5l3)xbdbH?@@K$+rW(Y!tv+
z0*N&eQx%etBEUK{lu`S=pS)2_6t0MBpmvaP3f#JRbA;$h?L0u|qQnsR1aOES;7cMe
zr(1aVknD&rxWXlH2gEwA+4fsG^8RC284fKh^!ES>0+}Zmg**qZCj?*sKDCM^wJtm=
z3dPR^1&}d-3RC`F&+q4RzS%`NM6(`EW<O>`-kOgBX@to5sJ8YuD`0a(T2HEdKr{XT
zz&WZa@By6dojRICce%fV-8JpzF9r|$#Rc#Fco7C|ew3k(E|(8Y1b)G}(N{j9QYF};
zU`JeT;~<$dKY<gPcRp!9qB8GIZGIwSPj3l+TF_}!>@T%G_Ju_)cXt2vuZ)TQj$;!$
zgllP^LnQr5X~ioD*{mEne|3FbIAeWWgN&We8{7M)Q2)%e0itF^i(0$n7*v4MPLa2|
zJK{P*=PDk~K=n@A_6e<S13Qx{{}d4ZIAzExdEJ7-8#}&z>t+(o-}g?HHVg(YIoymM
z;3TDrAx?(Z2?;1G^|V!U5DbKp#2ajQLEgT@cW#}mtdTd0H4Jrf-v3Fq*r{~?q&49}
zZxKvT4k+%`h9lxV;$(k1;@x@@xc$stw1$c#QYcU29O&c(1Y#A{KuZ)#a@KBtK0-Zv
z#PaEiAxof%685B>SiV~nTy7sztza&LGtCd7@DZmc)Wq%e^N|FN$li9DnCUe)Rxfou
z9p+N;=X^QTxnKsm-0$tKi(F03D@2PIwQ%aZ<aOZv?OOX7XysA(I63vr-4Sm>US<cr
z40R~Z&XUX#q+e?v_ezouH<tp05nfWl!J3lGZbjqV4G8CMqe1gha^FN=kT(edI?J_U
z2}=*kE`l_Hxjy;C00d#^?b{?p2UiTJfI$HfMe+u%rkID9Jn#8uKLn&!4P|ji?>zY1
z7Cfn{5paeDhVaqx`0;k|-4GW@!@q~s1JfC}Ut3!nG#ddz0C<7417+X|xitjfnj+Vv
zJNf?E3>#sN(2WRHfsn)SvSfC^F5t+|4eeru!wOL7ptu7NHex2^RNrlz-5a*F?W;7p
z_2SQyH#L+J<jk<-k%eMB7V6M!lY8~IF{*pzDpzV9B)FIQQMp&p(DyfNW3j}UJM{%L
zfD)3&UOjI=><Mp`JLuhT#}Pk`gU!b9quV!r<$D{P>OxQMF)Rw%I?6Qq&meB?bZIU;
zpY88^<%+u$Ps-I3B8Pue2l($0P<^L&uhsBWc1pOvqxlpycCoq#;S>`01+q}t1KZ0u
zr5aWc*{521rzh7v&jemj7x<5-;Q^VI7otP~2SA4ebExd!KyHZcu*lqe;4eGbb_p4d
zRwralJdl;=oN?^8cRtJ>wf4+flnNn5e~@4WKEw#kZAktVWHLzkiWhu?`vRme_UpU6
zf^$1EuWxL+W_4W3G^%u#F%N+SyX)ZJv@QPK@69Ri**;VB8buu%WaVM<wDN1Azw&^D
z1SIY5>Q@Tln@uk0Arr{J?t>!EX~n<ZAG0vatnHw>UzCn14mXx<Vd^ML2#{D!UH#1G
z$+GFRSV3a_2XS~qAB6$|zp__0>uvtM8Oa9pX>o0^m4|3_zlwL@-sGwta_m!H2n!GA
z!>)?zXDKQIktwiig@~;L=sHVN-=g1}5su&?VL>@ctMs}U=LBk>kh5QBD~m2&y0nUw
z6?EL|7gg;}m-d!`{t0sU&&ctcG$>>cK{Mb6q__dVyrvx2c!q;TM+d4@WY-O)X&&ai
z_9}2;;b^SPH=_;R%LoxjIsB_|Ra>j;*B~66XxwIlv4$N!tfOOBzmsVB@E<73A8+;~
zF~ahywMEA3wpIP{{V04eyYt|lkUG(5^(0_FE`Vw2m^%XuZ0%PdKbxyxU7WBCZ+E@!
zZ!tG#us^BAxvX8*+{J&tp?qMp!ZKQb=ZT~B+O-v)PP;`#ZNVCVGzYEXvfFwm7ks0w
z$gX8M57`k;U+kRWUH{p~($RIlcTe$4;LBJt7U3LRT+;xI!B{6cUa6?4021`rx?V%4
z4l)8aDW1Z2ceP&9P3}z9@!ms4m?^_7xILVQtDxg$KSCy>Hjc`+AVMDbKZuWq_fV+u
zS~@{q(34`K*zpG@h;Fm=LF0uOe@E1DnX!e#&3+T*ZXqkE=d51pS~b8r$@@uwMN@It
zB+a=l-Q>#E2ItEkVx)u_TZsSe`3v6JH@X{MSCH~)*9R>Q8am!j8WkVJm$RN2Yf`#I
zrU#u8xvDV@>jgkjh?E#Yk?VgayK3zdg-i~?snbd?I9WC*$F)3#u&iXs-?P*d`ZgK(
z(8!Vz_yIY4#?j1<Bc52Q1rSA`l+jAAZx}*R>Xy}keWyj?6h8RU0Bc{N;+-Nym?Iz)
zM&Z*B&OJ=9#8e<6dirnXzQv5Tb&C%_6HW7>3R5U;=Wtt~J4Z85D4_}U^LB7S%IfOs
z$m$zQL?%ij!UM4Mk+SEHXx>5meA&<MyzFt;+x(lLjoV_qxOkN?bw#%AC_Egy1z_Cz
z^(UdMciUTl0#|(lXo0cM**VAG5rPMJ7BE8N9$Q@XMi>aO`N1vlVBK~b2^PyU5=vp$
zo=8cOvGb9+t=F<)*RE+|tRavlT01ySNP!ZQktqOW4_6FW5I0(ojCXnd-Enq}#&;U#
zvwA3`^<;LV_CYC{ZI*i}LuXPCk^v=B&X26rOk43Pn>eFI-Ag6`85EXy52#a1XdmXV
zok}lRF%8|CRjuDY!`rHj;}b5qyHpF{``sQ(T?0p4?R{J_j)gjVEiOK{?)R$`X90b(
zaD;{@oS$SI=Gf;vvSIk$sPOP_kFeI_8nnwcR28Vtkp=}*Q*189|7@=J=9PLngj!Rn
z+e?OEc(cxy6J0|?@+dTca0Xg|mj$a7R&IVQByrE*qWz`=iu2PV44>*0BcBpPB&gqM
z4<-~4CmtBfCl>iTSWWl?b#g|+=Ga|=&INOOvX2@C{Ue#7c&K&ey!VC+C@n2biliZY
z#vvJRNfmse1TLINBlm$P-~zwnWKOY+9TqL`dCzC@a=B?ozu-42Q$ZQl43=AHCvgu-
zm`OmI(AglKAbL2IolEvV19b#x*jAHJ1!(~({EXOC@A;W_@qn)$K9a`t!^Fw!NEA$)
z-C|ZkRZ1ULOEG!z&SGZ^o(K{bg!PY#8C#Jz$<m0YfLP`;Fm*5wg;3~#DVS)%#lov}
zXSzL}Ol>Ln`t<o`0p6L}w+!M`f4MZ*^*%#UtRQkDu(V&oxge_h*S9yJ8~D`<Xz;-Q
zxj}Q5Ygt1I8zaU_?K=6)(8#d6T$`s&tUsFR7!4$w<PkGnUk`i}s!_93r$}-(h&YIK
zIc{QElTsywj0K`!D8rNTaExPm=WpDh)J3O$_b?=SwG-8laJe8jU2<u!BH>OBKEIzO
zs(oLwK(~!%*xL$HT$wzSFo?5V^7BaI1$7*dl2RwhoU%uTuPrzbjsko9LK>h^I^il`
z3T|o0%@%Es<AigUE?wFRE{|lOPM=K*UtV7krY_*n)FXQ$J8-|XyqeF2-|p?XLXI{f
z2!lEdhV~3ji<+H9NL>PSz>jYuM?XfsFTeO(8Hd~L1B%W^1IN5~{FcAkA^ad2+iKtm
zvQ8a<X%o(sJkxL%-*jm?e;V%A><qncaYdScr2gkWKv(G|oo%J$$ib7sdr93UE9(Iw
ziF^U>)!Qz$xMz}<*GEscRk``N=sY?ZN5v{9V}Zm0Me5G;1c8<Q62}5eQP7%gu~5rx
z)DqV%zqC5|sq#DaHksd1n_RNP`Cloi=?=TEU%y@qP#N#?0Yr4%hwg!^_ua7C%+K9V
z7!U&r@UWc6yd#>bKladMU;TD=W(L{K!BOOo9CShfC0jRah__l_R@pBxJ8!M5mH*`Z
zeakW$h&Fs&XT>lQ!@$3_L^4>_!htD2V=wauW5bqMK1|Zk#j6&Iznxt%<45@orcwBG
z@+c)ZcdWvfTHWn<dX{O1(Yko<t_U?+Y|CEpWH((ct2>NL_*+f_McMA0d-j%E!J5(*
zM?XAXHzhI_mSV0W&eFqLLDSVwiZ1Zj9UlS8S|<8iBP~iUzD6-Uv{~bdzlHKw#y|KM
z<GRv%y=ewns_25Uhj*_}Mn=Cg%Ln!EV`Ty?mdCa}etgu*ofavn36$1rO><0}Ub?6u
z6DjcVLu++R?av5eohYHoJ{h4A8bH9NHb|-4b@S|@LB7M5izcV{+p~qnw65hzk#D1g
z`jb)%Jc=CWdY=wl*gJj6RhJ4{mFBXv^{p>wZ(Dd#@x_V59W%ef9l0QisaT_pfWzmG
zXtV8s`waujV-J@R4vXT!MOQ5MQLoK=+2-_rTu;wMlWxgUrINMYy*z6Ur)E=KHlwxV
zld13Rn9LSa;gH@Hc!X2Al~YJtxyk57RZmlfov2SM^-%fih0-MgAInZKO8huY?nEiR
z{!Ld*y8pDgxsImdgR6~3&HuTuNmldnYa3^eQ&tn{3ff`q@yWP>OoZvLl!a6wBBhtI
zz{B%_RR7}39qf~PE@e7zBCahZi5?H};y02dj^}=DD|U9V>pL2HMZFB$m9GjcGPDtj
z5yfn&F&5OdH7Qhc(jZ#&$s51fahB~ajrH)!_a&n>uz1Ozizwh(*sjEtDzeieP&Itv
z)^ihAuf<XBG_X*ET-8}dhlYsS@|V`DtTtZ%>h}$nQ*ZES^_sx>o`oxBR+8u5!@I{d
zHI#=DelYpx;Y8-Pz6}LMrH6Ui76$$6Bi=g?YDO+j7zG?PM^)>`Fs>`ClL@Hd4>uP-
zOoOz0Sr>TBo^<i2|JVKHo$vXxtqDS)&$j;e04~5t#Yv5`10`AHaD|85wwC2vuA54x
zjG|(RGEEJK2EBL^-YQ$b70(2J^Ah=&W^{)H=UZDMRSxLzx>Abk>h_C0-qInuNO6ym
zvJ#KdiJkUgBiA~1*`MXqX8XEen^fEfeo^}%`@kfYQ0AcP9V~u=*EO&0SgUlaP2v61
z<x*P${OJw8IO;f6@!b%0&*wh#=#l4a@lZzZgl$QFZ9&(El6*rsJ-v{3iAVM_0j1pI
zK|g%;_8arKWy8;SFl#=Of48!33a+e6upz(_^Ns}`9c)>R>W$%RUC)sz=}_=ei_n$}
z-E6mF*p2+)go4kZ2yF>N!%tGaavR9%cyWmmEtUK^boa1MP--JSGAy#Gbdv^uXjM1i
zh5Whc<m`{+8QF77|Gpya0?ljMgvY4g_oYP3=AB8f=lgR@pF>eb@2HR0z|yvAQ*hO%
zkc_;c@6-?bk(+s>OD!$l9#2;Ii%T;hvW**?D|)CmTSg~$KI<Syrf?0JmX5vT>C;~`
zyOF6|xA9x<ivykK!o<2txfRIkGA;1<QCoj+A^E!u{{GD&%psMay)UlKgpk|hWG*ch
zO8ax4ty3Nr7XEH+TKtX@OQ{!JG<oVkXBNM&y8bTT!}{h+$Pk~QA6|C5(vR7yrt=xq
zi_H`$-J~WIx}0CJxgw1Ce$49yjLJ^+aVuCkrEH-M5<8uoJ_c!Hr09bq{Jw9tyP%59
zItj(6zOT(NSG2i%NI(3Vb-Yw1Ls*3R^n43E%1&jMQ%rS2Y+Lj3y6>GAcw{|rXjHeS
zFIr2TUFNn`8$(lV`du@&QXg1u(WLKd^BtYEvAjWv-jZx2p_OA!UnEVo&o<hV3frzf
zO%F0~&o%0+n0>Ui&F3da0QtRo&TFAD>Qd;~=W{4TTU5{R^HMn*#{azfC-HRSMC$F7
zspI2d%6MP$-?#5M!Bkj4#(`VF2+ym(o7~&}FI-zxuNgC&^7ac^I4fC1k7F&K|N49S
z<P@Kh(GJ`Gi@FlX)9c<RAKXkQcibVbX)OGnEwL;<YgpP@HyZMdmxd-DxknpcCOWwT
z41U`C_OZ1Ek!%<L)pT-uG2nu1vHW8%N$SjtK(^4o@{H*D4g5@~TcwbG_`t2S>X2Zw
z$~Ox1Iug|N#lBf|?~$p`q4!GrX#Xac(RU}t_C+vT=sLfbyT4tej{Q?C-M@mXJvrO7
z2y?e50%LjWjd|d{?$nPxKhuaW*{9@l=x=Qe>fMZ%4KF)VVV*{vS*-;g7s)(Mh2I>d
zz2a(e-#jB5{gXao=SUB!4#fbqzvm^FwlI@7K8l+?_`A~lV>$oWzwdT$tQ197Ft`Hc
z8}<u@rV7_k*SgvQk6SxA6-<Mj|6J<UnHuR~TQcVn`|X#Vpbq0CEA<WPLd2KQcIF8@
z@2%-+JeG_}om2>RfX`9pw%dP&R?-G}6Kzaw@~Dd`6BD{$D7tdz;6l^;)aln<H2GI@
z#*LhteG#hhi^&4TbKibo&z+a@_!mx5<{cM}E<X5?*W`Hq(M4cHdsZwPzIwBIHG^MM
zRu;2@S=gTsojBFk_vQ`Pk>nWabuTZPd{NP9RoTyvnPt{n;Bn$qcGwSb_X-_x+l~0q
z9wS)2n`vUU3o@vmcV0C4V88ev|LV8YIpn94+sx27-Q<|Lw8fLG4bHuy+p-!@FnI)1
zcdO(@qazQpep@d!pF`J-Jnh-18EDo_+2>Gzg2b;*x#7(dc;t2Fi}GGrWHA*|_e<vb
z(oIT2p(5`t<oc8M>8E$Ndb8?NqcUE0UCyGs2ZDIef2<LV?~w-%c^F=b>2d0Q`b>T9
z>YdjkX#2;R_LV0+FMm(-XX*vbKhpMdFeRD|`}uaxpA~iW=BxwX<eNKx#_b4fdp^Fa
zWBKP<AMD45`r$}_e~a%s+C_pW(QAVCbql|FOHgEgK03K=T)8*1i3VT~&$8hIniZc^
zQs3XBj*Lo{(GfO>sr)R*_tbTDXo1IeHiod5p}}UhyYTs$3WwK!SAFuzTUJQ3M_8u!
z|E^MA)wYj5nBzXVJ_etYOYhNger<8*a%@B9^|%H`#qs>u5$bE;p0AHlN8>G4!{Lfg
zr{4sgYy0Ae)iZgs^A`WTsyk^|%Cw{C?=7J#Fq1E(huLXw^EV}WMdO)`Mc++mR$gU+
zhXC7LtI*hgo-b{F`|r(6o`npM&9{_~|M`8DS6-0On}gKB&=+OFN>SIxS+$S&C><(3
zhb|`sHiS`Me;@VHpY(L_OgjGh1f0!h<+{>M`)C`ykUV`-M)iX#>Z03*dxfvKpUXfU
z*Vh=QO7k~dSKiai3VD*=z8#&N{Jt9ej@$pNaz(6{4|2o7mM%P4Kp`*kPFX}Ow4-i#
z^{eMz|DA@twS#)pB`lg$OseiYm#qD08Pzi5?!!v^_Kn4+*zX_`z7FhV-zEiqH`><3
z=NDCU?Fh22r@aa+(1P0f(_Ah$vZ+sq%k!G@ho&72Rmn*0r%iT;(E?0VmN;Dt^{l=N
za}iT4r&Vk|GKB-|_Y*FvFxz1kL`O5Jvde~X6+=_QVsm;=KdP72alq%0Pd{-UE>jQQ
z+ft#F@kaF~>Lp!Qb+N9~i#}jT{Ihi}izcsUU^#g<E)=7l0JkX7l%5~zN@inODfZj(
znv{_vEiLTF;?$U0teu=D9({|W8Hk**(oG5p_xasu+e#gS@%L-VC9bry9=D_qyX-Nh
zKwWR-mxuc=WT+N=#RW6}dbi;s)tuSGsZrQif(KW6!%G&!276JK*tL`IlJ6K3Y0C*!
z45$SorkOm)h7TJQ9y1jE{zs{c2mFE2mCrU(Pr8jCoB#$~R-mVy>k(vBZ0wn&)f&h#
z5<+PmQ6f7;#|-BL5sh%85!7VthVDz$O(eCdO$I5ezmM$94Y+vNOgR4-?Vu35n*LSz
zXQ>|b&Y2r<C+bFUgxCK{&&aR1jOJId;u>P^ZCbVfwe}bV=ejIz=(hUUGaxM7JG%1A
zn*r(!!;-$5crM~LcQ!D}$;k=g;PdYF)Mb52om4e^;X|wdW!pM38+%ruO*Z!LLaI*X
z|F^%|bKYHVoj$UKxVX5AU%R~R8YSi3=us4dKUmfCwjHl&vUbX0!3Re+M<3;`tFP~J
z$cqU}OH2xT;v#Y)E+;1^JzaG2^QYT4tcxBRJP~qh-)ATmuHVeg;MdKxgOBUc@gsf;
z_lx>Um3M+U;+ySO;rBg>Dqe~5vzG39SFZOUH7#uGaRvHzXxov_;Y$7C#pR-|-@{HT
z&?D=YbOfUQ@X>R|Ul1+{3ki{yu0PY4^VXmeER*!NznROB1v-SZ{-5cL%<|NI_dl6E
zoZD?^{st(??lN;u!-+sty?gB9)P0u&xl(7_%a|2FlM-nFF3Vek#LH2X`@hWW+-Me>
zl9EFGA(DU$OifL7btQo1kVn#zxaZj!tfxRPE-nrV(Q2rdGD1~M>{+pfxI+K;i;GNx
zPf${NI^j!5t?4(x!oSA*h)SFfHT`=W^NaeFR=h>p704n;2#qsOl$+nP`2_Le$?MVy
zjc$1usA6DKhO^_QXgo@442-B8ycwd};<a-}xHQ_ckt*2N7f7PS4WmpyvustvIzkvD
zGxaCx^PEpj%dtA2^O#9=C6gew(nH|B#*iH&GiN!!<3Q6mG629a)uRgKxpu$RpK5C#
zy9`X~k_v4kMbATyPXWUx5`qpMkV?#Tig`;9VmhGmJdsH_0uj9$HcK7L<{RcOmk5fP
zj_UoL$jRM?(M(TGwI0{D<TK)0`~D84_4pT%EVyYiDEw*+IMkM+CWVu4gflz_p45}U
zLGi`hBI{SV^(0BS=AdNf=oFYh!p;M6tmqoW(rO?Qn?q5Bm7)bRUs`94wYN{-o&Xp&
z1bu3DpyS}@yh#JC2RiXK^5L8!Uy#z7ww4r;a_)%_9fUX%830$WyM||)Y!7=2MZzS$
znUS{V_ajOV^VVRzq(OXwi#2lmpaebW3jQ<MRT8L11hopuk;7|${h7Y5)r6FR^z@vC
zd;)@vdPv8a6?R3+A&KgSRENL9{bA63tJRdffBZzUV630E5PR?kHvN07Ieb;ubf26t
zU}tCVah!&3xc6gxB^rSlZ|SjA=B~QC?JH7=P(%6~1Vi<@3DjA$Q1%(Ri@GYD3Tw8X
z+Fz5YV`!V#i5oNcl|h5qlwsx3T!huc@4JvuDyH#UJ~E<mT_t=Eo0^uOpfW_dI@;O~
zzgmS0qzT#l`ta7GfYh2n|0<+Sxs5G08{T=+lPo{f_5%b<N)-i~4(`-yS{izJ>CW|~
zF6v;OOz4k8SypvjMI|=-eTtE2J<#NVoaXe#5!6-mV~)K#!tV>&Ihr{=&UZMZ_0O&1
zAn}w%6AUn)bI2AnmF>1vZjN+rvYZe%Xr3AUDED-yYz*hQHkkw@CthKWy{~&vNd;JW
zEu)jbMx@=h_KwKU_8j8(g)&x2UU|Jnfm5FZHT7_4ehwv739SMFEH;Wc#M@$XAqm2-
zc+)5pb|0bz*q^G}j6KrSeO+b{{lM0stZ>bxDDykIv>CrfY28ND*!;dBtt*L~*!S<(
zr<(3-yl5m8m3kPff>du(T<rP}(S@WkBRZ>`KR<<ps(jcF@Hfb09=)Tb!3o2rt^Q}x
z*^Kn2W<Y}Ng3Z?lNWJFkf4!esb|ZoVGqdckIyyT1zF4-o`y%}l@qbW=QzQf5!a}Ou
zca<|1Z@25%COZhIky$JQ6ZGT94^o~4#6Se(vvyvi_b`x~n~e4Uxwk!LDkM0Vz`Bk0
zhjyr@{%84ESy_SC&@?n`?spwKm}b1sGH$hrYdgdnCOK#Hm6Xb%j-PAio4fDY8*_=V
z30o07kugubp0V+6)ZW5sA48`w_wM^wMDx32V>V}TQ1_UrC1k)v#f79x1JU7jOJ&R8
zpU>jk>8g&tNIx0CQ9q02e2@3Wb+A@NyuFGK9~$NTSY0w%F6K272t(vKQP5h{8Dbco
zFhRA*B*)f4*F?J?n(Z52wSNqYo*PO5DbORo;#j5DzXo*e<n?5*^8CJFY9wVym#@pr
z63u6_os(9LkbLdsqEFk9pxuLPZ|SaxY@paVvo5)x9V(g2aJ(${QxFRN$fhsG{Ryk&
zlMNEKkrvW}dL5PVh4s&BuC4sN3F4L(pG0?07y5P(FE-8|n0bC*^S+5aT4CznZ>fnQ
zE%XrMuI?D*W@OflMZG>nnzev_MKEZdh%Sj73f=hj<Gtw#`_(qs!8G;#MBWM;gCE|q
z<l)1q=-qfHqyH?*StQ1L(jUj#KBy;&?C?$yB$AD%Zj+DCro7Dk0(}KG$xbW^WVkE4
zm*i^e>rbIp?7;}B5#&VMI`_h)tmH?g{MKnrtq1Y9a$$Cyh)Lf^Px5J~gZQr-4rEn|
zf*qJa7d*mH5t~n%LqUXeyUM&|qG(7*PY-U_)K8=`Br4FO9^I+u2ENQkl56E>Yvlcy
zZS#8)l2)zrJ*=nag49lV)UCo9S?&}iu4Eu|9yaIb6;cJ%dw#+j$^RfW45P+(#(h)$
z)%J1N$NY%Mt7{*&fdl!5#WIh&8#sa8CI(4`&HDO!JJ?^6rktk#rs>=06t?<C)t<B_
zRHp?`zb3eFqQ#xG^<Y*&*FH0|PSkb)P=e(Svz&_+%i*o`X8@i|p_HyG4i-|~6nQ$<
zPkeAxeMf;W(nNyS<#T48uA#V$4$blf7bAV5xq$Hu8(w88&)Gd2Z%@IfqX+m$aH!<;
zKoU|PY8t!i1=(dFUzuv)R4#;vha*)=*7vZkZVn2@^ux7*j?Vy{`D|<kaGa5{a#)u!
zjdx`K9O9qMar8rD(MpbN<QeHM#~F2eEeegoE+B!SU4;A3Aw|4uia#ASo?o|w3cvf)
zQL)|=RE@FE8s;`Q=Krf-9hC<Oco4l;w0psnP35aaIetXz$rM<CR`v2v?IdrkH=??$
zxj@vk9@S{);fFjyZc$xbU8t$o`DX9T;^H}%l3!o^S=OWTPb)}E3<5ak*}EsN=e1wv
zwz9S^@hbl@<uS%jTn*ECD+)z~`0<pEUQkQ{ACI}~{k1o%v0r}ft2~US<g`5+0ocrx
zlj;}e-brI<?A*>`*I|2NP*g~QIFjA1Am)uv6QS&}L;%5U0YxDy)_up`Xetm`_5(Gu
zm3n4<S7}J0WCk3r`jFOe2<!AuN7lW6&#bTpsn5_LH^I$9Co@>E0w|QqP`($*^rUO1
zp0+lR%V&G;34oi!;s_VG2T_|S4}RDo*yo?=`;U-@sviQe=k1YXWLKFX3;8wiT=wnT
zhh%44BsY6cg?d}MN!+Vy0hLJ1Evae<YibNP6aC6WJ&Wils=&5=R({AZErCOHnHj5g
z0%k17#p#wnXr+=^)7=(pYirc>oAi(~H8!5D)jA}uHiSq!au?FhzeDh`g5LvY7z&&i
zTMDnB99CE$TY9-0HjM3Oh^X;&4eEDtySM73>SDG$Pufj5VGm)k=GgI~#R3G5vCL(#
z6(j>bJ*@!~=nT;na~ag+m<~z35(&XN-fHvgF!hAPf*!MKbd&+~s&3eW%s1IKpM?ta
z;2q&O?r8oYj7_Nd`0x}e1Q<j`qLQ4WGgPzXm#}$~wXMLX!?op=ICB&!i>SeDZDobt
zTN$l$KXWz1F#Z@DKNz5gDJf)QlN=b*cDOI;Inwa3q)heoq4umE@*HwU;kx=J25-DF
zF$y5B^Bc|Y)z#Ma=QP`r>4&<kF6$JSXc#BHx#26!Wq2ZIBx45z1R&M@u?Sx!4sX;`
z+<~+-_<5*IvjTP6kO7Fz=UlTLExpWyf>BoQTr6K4Q|~7Esn_`#vM5kbj_pqPuDOG^
zHbpuTjS<RcPKTDvm@Q1nl^Ae+6<9w7`$bO5Dv9QY`T6;=u_rLgYf)}8dwfO!p;sep
zvsWqI(le+Fg6SYp$F^5Iqv#*?xYLw@;<1W>^6&;ew#j!ZOgo%NNbSyKz23<0i`pRK
zsMsKU9_Qd?W{8({Wq-gMSFUbB9>>$pV3K(o8HwtsBgfz{DA1F)7>f-H6wS9lg$ua7
zmglWNmX`<O>=XI$41;NxS<WG{oX@FNlN9ULjV9kfDyg-;RIsYCQ=Lu~11e`;VUEIH
z=x~RHhh@r`k;Q#TfuoS2j}XSf6G}eXA0V7=q5mDb&G=O?ihx{7YJlo^I=F5!yiS;n
zp}c*TEX|Q)?q5baoQUg=U6Z>72U-{8ND?BX$##ZK<#XstY=)Q8Q||mtVS3~h4pqth
z;q2(yEez5`3Xpwk!;0Y^$6dZ#k#tI`_n=CW{IAAp6qjIA*dKp{RF$J|e_W&S3$?q3
z@hm~SG7`b6z%k(Vq#3XqKUk9zx2G6Kg{gfxJN`F>)acwMtJLmV?9BSd+mVhZ@-h$p
zfh{VaBHo&tz*&`UT%f#^)DueRjH7tJ-VpkrrpG3y@jFbG8yq1LNe(idgE;9!odiy2
zWEmeq(~?|B9+8R{m!YIU50}`Y=0~}AMZOq!9^9nZvV*I}-SjhhgC$D6t7J?H-{C;u
zQ&_Xp;ytNtkGup}JU;suEFbPcj+T4W6=k75NXlTXKu$~wKcSe2GZYpi=~uIzG(mnY
zw~rFzyU5jNyk<*j{ijcZIBxiTaeyXldwBRGg-_vWM}TlRM==B*fxHh8@SdyDIvwex
z>o^02(>ccnmKl>UYhjh00e+-BWCRc5<gtzs$UA(Q-&9tT`5x;))W$7!_89$r)R?o}
z9Y--WF(IV@bNb)f>4=6l+rQ%7M^B1xG;;HdyANR+4q6wO(9OXUzRo~86^V3~n2)P+
zx0QV7wR4L^lyVFuyAM{9WBWrgW<zY30}`!ORHC3KN!ZW|52d>~Kube9eq}T#<&iy5
zzTqd(pMHjI0)4enE8@Pf16n;=<Y>2`>Nj^$10tS#MRxXS;~}FFE)B=8Ak$W{sNg2X
z^e2iJ_+K|d@wRePQX7lD9n}ZyGoMR*M2=v0tD&JGw@6D1xR&P`UgN1J#Afq}Rtip#
zIej}kI}`}AsL?`_%dZ>rlQ)>lh{1vv8Y7}-jke%s9|9qxu`SK8>+el7OdfRI6<Lgu
z7BFt%Yh`E0YT{Ox+f13Dog#DD#(QTRFk})UMBEB+YHCxohePdcCdy+my0vY6yRdOk
zS&~J;6&f^BVLWJr1Bp}KHMP77g4b>2(91TCrB<o@YTwG0E349X*nWO$UcZbV-GSs8
zt{}BjwKiymwEw8Dzry?uc|ak-Q_q;Z-j{gKGb>bfR-u5xr=Om+ai&9`(nubxK@_TV
zIM!Y%d={95D7#xpzwz?S>D<iJT-*5kuh^kO8Zra5{cSGAqmkW8_w6;OEjB87dU{r}
zuSC|w55(X>sO0y2jvx7qID0pswyvb&mv>mC#!swtUT2iRrI(O7vLe2G>!%;uY7jo@
zrM|)xw=ye;h6aZ0^M+kipeIO1YG4DxNA*b@2I4ZsCbN$<Cx#HM9fiUFaR#O=He(rf
zYf+AAb~4UKWig3<2JQm4KHU@<IrK^jS!x(E-{n2m)!W<4T!vjYf$Jcj`Um7k#DSgG
z<)$<wVRx`LSf!@La@IprBqVA*QFSz9uv1r0jOpM-7dDl+{(PK+wFZi*1tO-!g^f-q
zEnWBXjp9&Nju87Ho3jenIoz$k0`($C3F1PO9ld6k;KqHXXwcREW|>o8Ysoyqb@&*o
z74BjmKs*g+Xb5V}anz3_m1_t<bHQmbMHOmy!Jr-Qq)sAIW8^2sn3Vl>*GqJ&x@@vq
zNjL&Aux$g0q_M&*ECka(bD%n!piZy?{f9DF;F^8zRTYS}VpkJvMvnv5E0@3`fZcL>
zE_!o6acjNiR9g~u3E>EEooMtMAf@5T=io?I16)AZ!2@H1egy^FQkPL4U!^b|=0Z4%
z+ynK*nkkRDYdhXqNOMmKKk0ujnimonp%f4pru4ilPNx-Rgr|em?kn><KUYkh$VgM=
z_eC}{d+K946rfvkknS#uWk5Un$#@chVxS3|%RywTE^n>iH5EfRjFj}aO>j7nC6DZ;
zU+`OG$KLPTM~}vvbL~vtq=4OHm&J7JdN5hH8nJP`NXi2<3h;WO*+zQYDf^K}2`%sq
zf^@Q##frv`q`sO*9S*96kF6?=3+f<+zI6LI6#x`Xd3Y@>eqbS_S^){Va%yD5lP6Ee
z>3+0w%b>)ruh(`c&|@eMP8_qY1D+JS8v4rCHFee*GA+u>QH1-^vAs27Y;Zfgn=BJ|
z!w*@tQJtQDi($^gNr36^P4I|E^82$YW6!stCXJ~|#t=M;d%VdR8QwS+By2ksP$`_-
zAYqW0wx;C+SOnLvE6O}4@<8I+7@C}d?Lb6`hDIew?=8_Vi!Ev-;rVCZ!epXS40q!_
zsNS#@>#PSw=;_-fOQx!JEx9m1=u+Yi&u1S!?0++GQAy?TroQXBAFv|eVeN4ERuPg&
z0?}?1n-VT=RHdU-VSC2c!r@DLg>rboBCEav5nVg5n|MUxk-JR<*?_X}t$f{*L<To{
z=G&%&J7&-t9BQwdm7Rc&y^!amvJ}<(*QV)tBl?@Go}W2XBMeJJ^4byEsKy^jjBt2U
zpZxZ~rbsrYaZ@<ABsuC{6hTaCPm_JBt7XRRG|(g-(As$BCr&8x_~D-3nu2TuO2omb
zB5wjC5uavK&^jU!P@F@gvz3vHQG`FLyIk&9|L8%z<&?>J36DVmO4_at|Mi#A)ZVJq
z31$LOqCCzl<Yx3Nm7jc8GTU6@*(K9@9%Y8e*I{R~9zN{1W>mEc1iFX%3#J5$M#B+O
z+&OxFDjM>;W&GE8q_dv-xeEnP*JXH#qkj|-1(kx&DBSrNkq)Uhfdm~Q>|`!eT5ZfG
zVo>}H$72R+Ma5m;)r;D=WceME8F-vj;|}KpUaH>XD~*60e>o*IUSYnD^)H<M^aS+0
zfD91g7NegEBP6}N&JDogMX=`JN0hS>IEv4qf<Hd3CAa;0ZaFEk3M>K6BnlZR%DlEg
zbWSQAkUk=__1=EWjB=B0ByugnZoWDZyqt~hy>=~=G~7q0JNj72k0ada?~{&$he!t>
zDjdx8?Zm_o0-eClxVdIz#!0#dqRzamkVmCR?oJsUBbNa{OxLa}3a27FI11xxnR;Q=
zfBp3&;JMC`=oNbg(<ib#6hIT_js*So?kqhc`*J-`uPTD@rs*a_FH0Ps?6UF=9rY8&
zI8BN>a)w2KAppKEnS)>G{Kym|bnr%QC9ml#Ck8)-F?MzOcG!R|YYW>hF8`EsY8I1D
zY7sek7E?+k%b4AKKK22{F$*>R)SHZ|szfA;L!<@8c63)vp~MP_U^I4**9IA+A~rI1
zc)fvuWjIV*Q9<J%{Ifuj94VL_5>CT+MZusv{i%gavS;xZlx~>=6blgJ9^h|u?wtgn
zGuLN2?}o@OG({Je9z<e~^C$h&fDU3X8~OQes4R*g;T?hGA)C+A9&#vKw(0FXNjv!2
zS9qO|VuisC6A}{2L4dN4QTiK>Cel*UYb=h>=0We1uP}`0pHhW>k&gH#vd&PUeXJXB
zFdoINR#W9*wA^g@YEzUqv3A#ErqCys8R)KA(#HJ=@FUQaQ;CtzLW3_fUVXp5kg#r`
x`Fz%F^#%Dz`F{@ukZb(!0fhg{w=T>ttSA#cB{V46jK`rIP|{FLS2%X@{{TTPfA9bR

literal 62664
zcmce;1yq%7yDmBr6_pf_mXMMVP`Z(BL|Rg$yStQbX#@o62I-iT(%nqDL%O^6Gx@%M
zt?%Dw?{n7J<E%Xg4iM)1zE9k7-Pe6RGw_|P80r&(ClCk(RYF|&Jp}SV00Kd5dUOx`
z#`V5%82I+sN?gqr0(tHa|A!F1vab(;kU}Jc-zqvKZOypaVV}C+-uCxw^=z3`6j1ow
zul-z&_Zjk$>?f+j^QrTSP%Q5Kl|-)IDu*HLl$LgL4Vy66$fK|PMsf`1&$+kHxo*Cv
zOpT~q6`De|v(MRN1HOOhZN((TcsqSxT-<BGJTu0@z|nB^w0%5Z#AyGXF5}SQzJK_c
z(Xz8C#rBRV|KW`rMZ5KVFi;4j!`!A4`R*r3N(clU{*wSPX%iy+hp$MF_Tb+k%Lw;)
z?tXCg`v3PWdwNi>Z<&pabJj`H$?{60I!rHpm{7=x&<qbo&ZXp|7Z(@by~GY~E!C9r
z*gJRgXw-i66wM#Cxx<0;{4MNQfb{EmyU*3LNB8YCaRpJ(&_2Y*Y}*`o&+Wok%&n}L
zrhJz}BO@`@VxPCK@9y?HymBVTLz%4Pee))ATkyb}zMGPgQZPW39_NYg8*Kq&W8+o1
zCpu4FBmUoBhX1bhma9Y-?}qL+Ty|^U9E{{D)E2?U#`ul~gzW9@vBF-XEM>-NO;(t~
z_V)JDM1qxzwXWyA(P@JsW4<83w>$nr4e|V|?u)^2k8;~JSu$Z#i~!*muBSUQRhDzw
zSFPI9_At%B=8KDqO0x-@gJlUaVJ18tyFUY|LjE7r)f=z3Es^ehE>OB#&L-^6WA#5(
z7BjWBYkj4qrP;|Y8{qLS+Z8Z2i|IcceR7@`!wn4$Eg$)B_QU0pdDOJEZ~Jer`WYL}
z7U6%}*x0D7tXxa+<O^=SGfyTZ8?L6rtn-xH^OT^ptKPY*-o@5nN{L8{^<>wbiJu?6
zjT1=R_CC9+y1HKe@<u{NMs7U(z8f7I`-F^^mX^(Ow%}zKSRL1e-@a0}{b5UZei4I~
z58*TSGW|MSHPCoE>$+fdwwh>}%<X7#aMl(|xLbcZt5#-Eb88pnrl6p3Fmtf7veF&<
z%GA_!3M?e=>Gaag9GF>dC?PuzHulw)AwROO;Aa7y^`T71Id?~Jjiu%8SfP42G4JHm
z6u0GUUBBneq2sKx;emuu>Oi7pLyhHJLz!X!g<C^VP>}0R&04IwMFhoqt@b1M$eKdp
zh7ml#76=A__d5S}lDK;<rclc!VF<FYvB`22l$4Yd7WQ77{SJH1jYh(!@$TI_6&2X<
z@bL8X^w7}3pY-sCgD$!(<FT<ZFvcVv=Y#d^lrekvW<S&&mE+S>%gJ(ME30?I<(#&w
zKFuGidT$o|Nj&y`A!T0?BEbit^Cbyw&#*7)sbJ4H<~3kgQ&pDyE=M_OFOhK>uCC{9
zua`N`laq<bd|VIR-Z*AJq1?`Udkf8kY-Uc2fz)=I>?ofOS9`a&xBGcdH8eG692+lZ
zbeQ5**>+VLFO*(1HJ&X7dwY9V&AMzZh4X8@dq?VX)@$i;cr+~6cy-VX_N6$>7)us7
zvd!7vf>dLAYcQ@W4}Se>;BaSYL7oYf-1o-mUgS4dQC+5i+r-!+3ov?_9T5ekQR^f#
zSR{$wd3rLVk`fll(t(~@EJa{rSALU-R0@SeU7NV}VxP<n8-m97q_CIG&CP-V<YHlU
zCzGaG#<kwS_OH*uhJ{+XEroIKSc!>>iTPs06|rfns=oBWBP5g}rl+O7SY>a_-K@p<
zy?N}hW1C`XX{my(Kb$4=OXuCA)R$d|=sZ7x4}d+UYS`$AAQud{+-;nb*%b`n-mNRE
zso}(aa(sNOq^Ky(alF6OPU5;%0%mAFRas-$$s;q&;GT{Uw{Ut{rYU%{f9}SY!Z@Y0
z93@PLF|@{4N$x)3GTW&gNnt%$gsrkA>C8jSK;V`Cbr@k5b(^tnPte`{I_0V}Wn^p&
z4F#p{`edr{td;R*pXAoMGm=tCNeLbfseGzg*s4ErM_g%k$1$F|)CYR@CG)C3l2=lS
z;mPDT>?0!c(N_z6%HCanxdW}Js0i$AqfT+NdD5r`w+;vcc{XC5Yuw<~`Qh!V<xN{?
zZ%j;#_U#2sOiax4a%v84eHK1w_wNY_2}OwO{f>j$?qV6NQcKTNpMJ!7_Ds`dR_}Di
zaSq+{ths8=!?iu^d1z=TSQ9#xB6>zfIVERf<Mr#)InVWK^C^6-Ypqy)$Hkda`qS@d
zZZ9Mv?KHzh(<{vlp|Mx<`%cqg-m3JmSADn)&F1Vn+#yG~c^iCB<Fh2@-X`!6ho`;7
zn(b)Q|5Llu@NnLe**zhPGpyM(gr%nVwGT$6xmfyO5AIi<@CT$MD|TLBDL_2ff$qvm
zyFhRD&~NvuK#&7_G~*c?9gTvD>f5~VSbHZ78y8pGl@eI{+0AKVqy6R>2wY(Qz?aOU
z5~IO1F=A)E<BiccVr@;$>+id6YeV}tH#bt7bw!Fw_K0ruINf`>hjD2yYm3BQJk<)z
z=v+IjL6~Kc(K^nOfY~c4fpzRmGk$Xa-j40B@o~Ietjx~cQ>n-nZ_f)BnJ9`*Ya)gZ
z7hit;FrU&WVd*U0dg#<$T52=+XiuP_dmW;!tc-)^PrXI97KTj5piw=~5k?`gb9LU-
z)a29r5DBTZoxM{V3ZnWe^-7=S1w<q?A}+g}nws;LK&(V|%h^(WDIuZe=p;Dcfp{s}
zxRA{O_d_P@`_9e&@#?oPvS2_^(34ZXs)PgrvX-0cOKPIA$w^wDoWjETwl|CWXEnBK
zF0QV=7{0!~o3P@!YU?F<e4ny_$~@Zd<KER+x+S^0wOsTt!VPoEc?ia0T;tV>kMc6y
zhy(*DrDCgZHL5JWW26CZsp++Jaypy;<(-f<<8iqSQ*Hb62ZT7j3*e;WHA)hZ8Ch9W
zWWqeejcvF5;J#VB&Kwy;CZUb{2>~JQ2ZIo%Zy=fl<GlJ%X{IJ7);@PVGgqVD)v8;f
zqU~-EcCEI^b6rZ?23@^Gw{<8}3JD3x^B^jvIy557_+}o7KcH2&@zk}^aXazz1Mgp8
zZf&|HhAHlBB{VY=WrlN3OQ>YR!0T9VZb4FILgfsbhUHi89A7WKy1l)`y0z_h^1R8a
zxOBff>NHb%NUFVJhhB%V2+w@C8^t#pz|L<$R+f~KLVEa+zI(|2dcU1SPV2r02q<!V
z=gTMCQ|cc+n3$MwadD*$8i|Osf)F}NL$g%UPJB6g+E4|o4jwP->ZVHzW@ok9t(A*3
z&L{dk93*AIfV}Dq)g-lxZL$=0b`I>4qZuZsBp!WC*}w?4=x{TJWPR2^-veRc_ALDN
zY|^xtm7U#RFtw|z3+y;Q01{Zrm2i__?&mq|qAM;hFDK&nsLROEyS_L^=RNugeRfr$
zUhi_OAjf-rv03bBXLodb{0s+&LA&9q2)a`Xf+$tNSAY+^zEQqeUEg_M3+0*7Jg6al
zy)KJiYSv3rmA{5N@+!^*ckuJ$`3><cooI>c>udam`MkV`-fzi#KH{0}M^cH%2L%TU
zrD9BVWWrsgo_4`1-h6o|W7CBcqvPt6;0@eWW~D$zF(Z$oYMd)JPJmJ)56QoO|DwBe
zi38kmqKMM6da5HdBt#GTRXXZ7dGZd!xpel>Oy*HCRupeMH}NP#imB45YRssze#O#p
zXQ>9b*az%=>bsXqO2I=zLp>?jP1s$>_)fsaNH5LQiT^0n_B+*buM`a*>@Dw4(d?-o
z(iV1^<ma^|t1npPQ+d&dc)`;t6<O=2gLB&;?%vrMO8h96a%3_h&yRI^Z3&G7c?G40
z{ZAvK7q}35i0;F0Jx?BK++_%j*<p~Ai<`FpAUQZ-5!X{mo4@pIRJr$_p)%8w{=N9r
zJLDceIAmg^q6DQM9MD>Fs{dAu1^MguA0r7SW0=3cH!>PZk0hKdta<ju&jB(a3Lj6?
zQJjGg^f`TLzR6+?D@!?I$J@IHOUn(7=h#%LgI(&g>soVRm>aO@)y6AM-o-v+)}n%B
z1jB0sul1!M!pVFSqVM2_=b!I><rX_VFbhUnAp~t4NKk((#O+mg_b7qn2;J8;?1KZd
zH27^9{(}Q(ItgU(+Jh9Gg1ww>%|$rK&%so-MoG<FWwgZ<hoj+3NZexx>?r~<SP4!^
zG}KPbY+hbXNyoV9xwy1c&9d&U!n_10nL<saZKshQ*kj1Iw_g1(X_nY6C{tb^8ulyf
z_(oC$(#2AF^cD#&!sy`@LQBOW2>e$GnyesdX5GNHmi!!6?EHtEB?$<>AHA$fohix-
zR8gKfq>Un+v_1E4XQuKprQnRJj|kjsu_hue0B*#989K>pn56LhBp2;+`Ei7<zeBEG
zWt~oHxlTmg4`tevxCH_PQe2FAW?E3(oP`9Xow@Om3De^+%P=>CVU^P3Vq*)xcxpPd
z%B3MV%px=FgOOznB8gdC6bVREu+8VspRc^-kkKlJE$u%dYinyWo9er(g6u`)!T(A%
z#b@^}uXirDzIitEY4fG@TN9DD64=CH5l8ep1otV}z>IU(r1Sh7vfYvuc;|AHEg4lQ
zo*Xo!YDQ8t&N2G@q^HCDcI6(lnfLQ2(;@W(Cf{mbzI5r~p1oj@ab_TvYGb23HGSei
zY1m+->GGvU2^11G@MN_FuvKl5YrR%8)1y7(_e!Ivds)T@s~-}uMI!XSHFh06!^Rem
zw2QH}%NnwusoZ8MR;@+dj#1hVGI1p1YL7b7Wxe%eD5ZxY@LdP9Rlu_pIot^5FMgV@
z{B~ZE&YqrGS?8e?p=u=2bMrrWfLvHwV|MZol8Z4952^YYs){?j#YyW&Ab$1RN$hu8
z8bXcyPlifSa34dQgYIn5^hKy&j4ki_?f`MV8tHiIb4U@<ofWC{m>W4>^aT%7BfIv?
zxrC$}JBR?QgEYk~eZ&S<W?Y?<dYyqC_=t=_)30wIw=Lgf3+}{z;63pl{_+gjAd!_F
zW?+Tc*;0JNG_6Zf#B8$z4LYgM>AS2VAWXJ@4b-A8^;*$?$kk$~cNP<MdzNrxYf>cL
zn$7XPm-Jl;*kgygJuvI|ap)6+iBWNpHFh}0Z$gwOQ#j=0-wJUd1~1`dcvDZ*$Uu=p
zGG?x$Q8t)|4HA4FI-+0G<ZITV2qyI>7`~Y+DYw(*ZEu_d_Z5)6b17-{_f9RtGn6Uo
zinY-9Y~^%8N*`8tj&O=|?cEySUL}rvcb^aVmPY)eWd43sylsQ_u39TTV4?zHOTP$!
zTlNDNg)j>xKR8p!mUZ7$pZn0@b{_jmoyx6?DFhUA#;_tyfSKXR6hwV*biSOIlFA!^
zX{as&GuqvVE|3EgQ`6~xVo)ayX;SRUhLD7c-Y$^bkl_StUgU!M4}cC(k-UHO6y+iM
zb1rx>3Ca{p02@CGkS@gl%pqNGM=<$3+$65QBG04%Y(?qh{ty_}uo&NiGtX<7C$Ia(
zQAWzeez>RG!Ez_SF_vJYnVFfqyu6;5Ri0C0V<%UK{rvkaSolR)VC76W!lpgnuJbLe
z?*Q}3f(`J^EuaZQ;<FB@ns#TPr)&JT&P;eHzJgeMqqDOfd-K13|Nad?8~2WzD@eDi
zy@`!C$Hk2R3WF*;ZVi+~3sOYwuVscej}3BMKuBa!iyeY(vX#4X$w@|ZWQg4@;yaJ~
zXA27phRM!ZIXQn){fS*pCJd?FPQappI*yf<a_*J3mR5t=L@5A|nox%s+kRfb0FcRd
zbF-5ttF1r1efz85<D?AmBaiOKGHAL0#LUjhdVF#MO6=o5gX#74^`OSOyjtV;T>I`w
zl|qUAr2c$0@$zJw+x4WNe=R>Jr+O{f)uLtvCvZ&)0<kiu7>@3D$Od6usoxRqAqL4;
zkM?el<Zf9wII5iwSB+R))(z#7ILLgA%*>LQX2-|J$HrDY*ggV)?vGBw@bYC&e*WhA
zy0L|Yg|V^o(V&>N^UAYf7El}`KY1dX%ySOvx6RsykIfHH^Dizh+07@xopX#QlQ?aE
zFZ`S`xZP_;=RceGhOH%nGJF^xbsOSE7lVXw1BZV_noz#OZ~b6tYNEEWj*gBVkpWOd
z9RekvnVISI1_PM=`LP*Gjwf}q_9GrZB^H*Jo}hdNyg|d|%r1Zn-K8E!=_K3JHHZI4
zRi>0?ol{AB)SziH$9MYfygUQIQFYJMkv8+^*2RwRyp_lH=p9<tVo_51-l<i(^d3Ys
zlAOGRGrTzJ?otYgD<v)8P5VJOFo>$<ieb*q>{ECTBFzG0IbGgX9s$&)fwxM~iAV4e
zjf!@;L}ZI;$Pwkv^s*&Z(`aY!+81kJzy18TZu<HwDL3mWSzHEoc8ZUz*G&!qjus3k
zDG9C=eD&W_d`it!nkTx(_6)OZ53v(i;d?alPf;$Dr1Y;HzUH=jV9=WovyFKWemNd?
zq`&D*?I{t-5`+5+rvlo~k<GOQ&xv7*+~rcA)!uKvaNd9K{I)RKA9WifT$=FqW)VcI
zXMo31k6qazJdN`_kF!`#j)s;@XO{dzoysz%LI+rp$9cOJU}<Esyu7^CzVC^6cDVIr
z^mMNm4Qc?XQdL>W_Il!MIZ94zg&o*U*6Ze<P}!+$uB74TC!JU?_?(5HEZNdpKi?%Z
zzSAlfrlsw3ih+1tMS<#KR7IQDVQW0D;V6^PqI%(t|ATv<Q&UqrC{4?2|E(z1EJx|d
z+#CW`sXPDG0{R@NG@f%i0KR1m1}oO6DXpvHQIY^$P&m&)N9IzjzUGHDd&=(8%ULlV
zV#m4lChACv&duY5EaNGMO4Cks;_&u*bS8pOs>Va#?swQC!{sRaq|2-_!_%j7=Tp)t
zd3ix;fQ|wzr5|k5UK>%PcW$-g=ZLeUT{7nP><nApD7JEB87y16q=W})2A^|sE9z(W
z#d_-8SqAK9tdk^EXnto-!|((jO;u7$ztMll-i2_^;D~q?h()dCd3_9@Yq0j!;z~F@
z4Glg4!4v;xthSkm#YGw?DOW%P&E4Ld0;+CuZ0zs4^)VR;=|>&p;RRat7eh;Qw6r&%
zKDmO|tsbX-w;}RMtWW2e-8QZ=Uk1T8Sy8;Jc!rh_&oL2_bG}k(!dPVp2?^7Y_+;Q&
z-owl+<TP+-`Sg-fV(}Nhdu@?a<T8is2i)GumCt;R{theBhH#wHWZ9cvKHWRJsvOXQ
zwjE2E)f(Qmv_D?iTdbC#r{;iIr>~|~V|3q%bZ*7MYj=IU#QYM3JvedTBUe#b2_j{^
zU;v;QP4*XC|If<X<u^3MQT-_j)AmbHD8;7(V_R-jJ%B{%ObfbbT~CtgOpTBr%LUV@
zdweN?$#cefh}vv*YGeDUhI?H_L7~iXclP@7bk1SQyb}pn=@T*&Q`6#-NGG0I7>v5x
zMomra<Hv=IV^9QZ-x_+J7<%5GdN#UWo&Y+~AE1^dJIc^d+B>WdK#*IJSi;f6ui=hH
zRjZ64D*cX6R3AQrSZOX>cv*t-&%`8w>FgI0$rUI`RRJFhvNERk=2)TYW?@xAVxr8j
zbb&oP50Bg4{9Bn}i^l5{(*iwEjtz>DC@CESH;|!UW{`NVpfC&y%B83xX#l_uls|Bn
z=jUmj?4xZfv4-u`AK?M-Qr>xZc2uZZq6;WZu`r_ZPC1WK<6%&PNe^HBLifN3ZsogP
zm(#v9(D|ifwKH9_*7w~Nq&9Xy@-kR>o@`C9&pHV`lGoPee=r9g((z&{7U^PZNo;HQ
zxkLN@@6=xs;Wk&kW79zr1d|Amj(~NHd0&h~HglJQPHMnA&kha2M>#n7G*lFrVZ+5}
zv25q<?SHM>eIpUnx;!f^<eIIA7gZD{F2oHXb(D^R@Ppk0nRqouMGJHRI6bZat=b7T
zhQ#F$nPcVEWFfG6kak_Jk73+gTmVu$K}L>a)b@aBI?h<PKYy~@fC%|Y4Js)BF<*!X
zL0Pk>^9m|K0mX_;G&fQg3&8B8#Q&mrjoT^rm!JuHuc1No#CKejK?dOVZKcQl&G0%^
z6NdO%V3h>xK!p^;N`(`jh)9pHhUNU)14Id4HG?;tEEJC4Pmb(pW;AU)wLvE7WuQ~R
zo%=zb8@0;#hlIG(?YlGWU;U2X&!mF?H{A}ID0s!{74B9i1huJc9=88Lkmy#mEk!sf
zB`K+=wrb7_5$JmX@VHl<qrA}NH`&glD~lh&1d~$TZ!{<%5Lf^lUmrxW5GeN@Ye)#W
z7A_s?18@h)LV@GS<xo4qNxJ;SXQLJtjy!c>N2RfNG7%tNL<Un`zK31kWNV<^!_JaH
zAu=u_PC}Poe3d6O*jy1I(o%42{Z;+{0q#%lrvhxkGz`bo0w<crLaqe{pLP5JVn-2z
z*RK=S@<Oh2z7pZqEWJfPz*`|?@S>O079dc58j%-K#4BgWOG>PjP$6yrFd%MsZLcD7
z8k`tt|H~Q8<Yai|j~y=OGJZE6ho3K-Meaeq;==Eu6BNo`p0e@IrC+9Yf)IYW1`QmP
z$KO+#9?;TUdRd2t0GWTX*YX$wDS86`yB-dF88W1TL|2jl_>I$t>QySKJul9w%wHP@
zu(e4M4$r;1BmR?fh$&6glrI>1Q<ciArLcMChR=uv>gsU#I#Ut+J36Pldjv{<1+cI*
zKZlCL=m4;g*mu8$SIJ)Z8)<$gMY5e28Ga`T4^9en+PVQ8CxJhc$vb0sV8=-j>Q<zr
z^hrrsJ!Uj44uE}#%{};)#=X|dH^`Ew_;QZfZduIrekbQ)X?oRQXZHf(OCil2n|X9B
zS-)1WQ}laD3=SB**5L(zlO5@|EVoKmK_Mu4i%2R@Zt6^4^6pRIYY=B&@OOcRwAAMv
z-11ZVR#nJe`EU}1)N{O&XW$fU9L(66gJoS__VZkVO6~~50sRNe10*9Oq|%qG9MnBV
zrY%OSA&8>otTuX%OL_XWvD>wfWlH!CaLNR=FCVU9J0{darQQsg8=YQWM`m$)d*d_U
z#V@2)4nMtqSyCn1bN!UuWq;<iYjZlVFBN#073iy}PQ5PIQ;Q;s2Af#c^wHmeR7#Zo
z^2bLarXIwn>8!d*0c{1H7it<YwKx^q(y>T7T<`__iuFI!D@_6Vw|y+?<f5i6W~?Ef
z{G7iDYwhf_oYkT7)&E-4Tw=_jqr(zx(Jcv4LjL<6loF`hzzb+b(Y7CWm}+IN%o6ff
z2@VXP>1lM7PR{V11WcIViJ>yDpj`U2>>S3pwA~u$tMv&~0GtD#_qV8jur<p1F}$v5
z+~tV)Y<g;9MYJWwul8d07zn*K{U9mwwMBq==xUcE3rcgU8GggN16@kUqTxZv7E>C1
zOfruJngwJ&0B*cLm3X1HxGN8{=iZ$Z6Kl5V#~*Z-+~IoleH&;0jH11xlo>jbo4h;1
zP`L(s;+cve_;m3Du^*r*C?t5!vgINvP8&7Kk2*_vc#Fm-jLbYKN-gco=8Q6Cm}I{V
zDvHrYmbc_H9=dG0U4-6zNxZ(%m8<p49cs611DBwJenn4|({{W>*phfp8u03Q6#u`8
z6-EDHTZ17#hg4%5k(hFwRKTxjK*fP&eSOPoP)<o?f&aKFB!n&8r(Z;Y$|0O$=H0xy
zf@(F@yf)U$x{`t2wO1YxH9@cb9Kg1tXj>^MdH?!>@tY~ciX*90VU6)$G$L{joN)(%
zmQ0v~hz*5&YGoPe--5BFE&&lyIhAH4?<R=(P+6&52cuKm54Ln~fJ2>L0<;4nb$Lv5
zbVunHhpeZkCxCo}zjOvFw@=-id_gR_(*i_9M3~_oboR9_7WysBKAU@kvo3cnz8H}q
zQad(({io>cVG4{}1dFMZJ}x@?5t(j@>PwdM^cH)i4<8cFqwd8EP74BOQ;Pf-g_h}r
z80_ajN*9UcYD@73L+;zSlEjDj=y8?HIxf#_hz%y(tLaGp0V!;X#4^THXA%@Fl$58G
zSoaeigcXwl`j9zng`<61e+^|R2j4UlPbhb7{JOMG6&AZun>cQH<jji6?d2u_{B|Cz
zBbBUXvmEdq>pPK`m+!X*iYD||l$B)avc`(?9C!-WA8BY?w{zZD>sp4!BcYP(W}8XU
zMz5@B)&I(7cdAF_+r`vW5Z{6vV8BNwwX6lm!T6;lamg*D7k&{g_z_+&7>C=jE>UY4
zu*MOV`QaunC~aiKKTPw@n58@}R=-+YNA%m*admRPZ(Jov&-8PPC^0YJ7t87(F<rxR
z1asU!Qq!k0_IVflify)Lvrs&-9wX?-9rh5T4d`Mp_R2#rD||l?5aQK9_$V$2Qc;A~
z%<S*kJ=VY_kG<v|w!;mwgnPAdHedDhlJQ<BBer%Q36<A3e<VH-^$h=C6Izk~$8J71
zrNH{ZwZx^5-yTDlpMx1Qp-PnGOuK4v4zI8C(4?$KE|y53r>8!zo)wH8-8m@{>rrmz
zFo~zx4Q%8nVSjdJP{u?7(ST>Hc&eiER9@vW0bu@2qjyGR-NF<e|N7Lsn<y!19CqPG
z*;9hpr2iDGf%6u~0u9Jf#7jmAnt*?`s!s}Sn<aVd$<j{zy03i+6lfI2B}J@G{E}OA
z^)8?34NDav9gcMY2$1DxQ_6iQ*C0Xy5=`19dI@09(eWL$Z9pw4bbbHih;`{vmd?)Q
z92|u4n_MC|67!O_7}jpF1+hW}X~N5mi35ZGXa73K>L%AK8LmcZiLotChhw+=Qd%vw
zr5->83F}Ns%5L?3iuf#Xso;Ylm=jsfL{q|kR;M+~hv=0HPwLAonNTUyS;{by5;OHj
z5kwD&T0iyY|Ag~D1o>%Q`z~cl6inY$!)$v(h(krEP|H|#J@5ii+8E=;aWCuWSbJr*
z*e~h`0s-qs2rP({S}oS)DqyTseP>6KxFILCzP3%?=>=ku(zJCL6uFfU9>1A;UURRk
zT6m}xoo;~eEenftIhKowbM;{c@{!Ij2s&+x_UI7OD)EQ_mmeZir>W6IkL&pKXI^zB
zB>J(;NIriB$@nCw%a8FIg&N!kK}0KS6P^Y(&G(!w2acE79Ask6F5eI~BS5m?uKAU2
zITfKoKitJC1)ESCs~Zicm0;`-p~Wfov&UpD^EzW2hzH6&*0L0oCu0F0vt+l*uxl9X
zb&()?@I?RB9ng=HrRuz643P$~!UN~QHv9b*I$!!tK5d+C#Dl&Za}xISZNGJ@6OaKD
z{wGiInidADtQW5Dj8<jb%N>JUzvLZ+sb0r2X;-ExA5-7u#e-G3E#!ATXt3pHJst8P
z7t6J#eR%$G%=ws*W%QafD)SzshyXs02cS#fV%1n_DQA-oO?UltoS$ZD`4Nj_9xGJ!
zWVdI(#iNIbv5dnfaU2V|HO|@T!6S%spuZ(VK(y2QdSe!S6wx)R%C;(4Qa9A}6KZIf
zSg)?R00Xj`GIR>qsygaY&POeS?ds*0hPE}j<Cov)upw46a6iXi;OJV9nw;fL4*T?C
zy-zE@l*?t<@9a0_m-_V2!Ki9u5&4o^rpRuTPk<R@kpVN9zlfxl;+)R%tX9||w6t@?
zZq3UNFH*ORiPbM*Bh5|<ZdFHZme~@MKD1+r-4GXv#MzvDFQdLOO5iqY&!_#`b_>FU
z2!Avz7=)P9sy~-}*byZyKNRM}3pJjbYph{EELA1^iX4e`*&x0wI4x<PAr^_V{=xe+
zo%19{t6m_MS&bF~?+PG56y(-<vv({{%AbEN*cWv)m37`~tJuF#LPIwCm<8P9)u#v#
zx|x>Q`9l|DW&|(%@VIvnuiPaLFj+9=uH3Nww-TkRFi}F-;GZ!3mz*W+VlNOu-2O)j
zV1#%D!-Ii>K#=In^O=>;H!VNXoeFAKR%NOt%cRP{P+!L`5!uFlXAVg>C}7n^$xQxq
z+I^s_sh+nPI5We7$qkt=h5NMW3v~aH>t2&ht<C_7htEAfmVcBfw=Ud!rdPr??-I=2
zw;zt>YTCkMg!hzt<^8^IY29=_``OXM;wk`w(oEqSU_}YPQGP}ee}2W*36TX><#)XD
zt~C)tSZiD%#+I({IvntUVDdTOBL@wZt3X8D`cmNaL(RCyTVMe2<fB1WHRujQ%UtU@
z`$5r)%Mi#`RE9&}qov<8lK6G}R1C!R7GlNd%-UG-Evb60&!A}VJs@pL;j-T-teWL=
z+M6F37}%O9Gc_?GcAEdJ-yJK%(euBdv6*fWAqrw|WGc)X$LgdA&?p~1mkBOZeXi~r
z%u5&FI_Z^*Sy?diDPk<Zx+SENaMhzZAgh6{L0sN~v;-0Ih7yK&1;jWvfav~JN>3)N
zrZxe(?Vwl8ceU5df053AvBZC~)bi2Y-Ce!XjMMob1LFlA3h^ENEmT-oICpbWg@|y1
z|Io{n5*;<~6?D}5GDDUAwGmRVE~+W`A}VGNu0VhpwUl}qCKNthvf6E$9UMFve9e9Q
zYlT?O+tMxd%;rS+K1A=GEdQpDU}|=X$7E>%=(%s3YF~bkkO<UQvjn6-<5hPfT<k)p
zT%cNE663lY?s>HoMJ)$dE>A%B)4qDOy}o`v)p$Mimlo?LkUF_z#}Q;08PFG0cgSy_
zq&BwGZg}5egJX(V)b~@LgiXfLv<hS~gLq@A6VVjQF#p6$2t*CezQJi&76MJcR%FQ}
zPA4ur6FL8l+rY%cv^S=1c@3CrM?|-O({5ECZa;hW3~;+Q7qG?~AjI%E@77LcHth4c
zEnDKqGIsg)=AM@#y%ev9@U>O8O{J^bJ9*vUI8oTNo{F+z@tgS|U;6x+?N8zHg?`o}
zObWADj4eDe>g%)5b`RM=b{!5wf^^_>KA#UK;b-tU8_DKlO^tB}&1}p1<Je0zvKAx~
zH&P!X6BEe>^@h4Sw~11Hb8~a3!*(rT(tR-C>M+piuCQKe`|{;W%Jr5Z=ni8%qSvfF
z0%Nr>G1=JOo~gCp984E;b#-0qO+1B*iGbumn$P$pw##8J`|0+S<H?p<O23M{yfqL<
zP1|(8!X#{h#A{`A#JlLER9c3!yotoKv$HJlP_o;8g%-NgfwZQ(57t*VUaTkn@|QlE
zY){GD2R1_?Ce=lGz_K$d(?THYK=(ls-Yz92m7kYK6_TGv>tjW@<csltLp4_1eu@V9
zMvZ=w@5--;z7@475xOHnS<+Tfq7)jIX8=OR!F0<`U&(GbUj4pP9{Dqg4+W;Ev*9~I
z+Uujpd^`7PXlP>fCnV}S0QQ@R0d`Y-dr?gNe6HTL3PX1=O=O4P)y2gJ1GIRs&}_wO
zq0lHKbP~S0kIjD6$xebW`(`Gf^_!lZy_vS{9~~WaKZVYrKJ<>&zy2e}KM9<$*yA`~
z*voUj6&Gkbz)p{~lX%ws_#yCUKXLAA6=>r;&R62V-fGDVXB|vE^g^*ES~-$1-zAo7
ze;t9XS<tmHo{*?3wP9o@h6X~lD|tjib<Bo%IK?YT$*uf4EfOe*0S5}QNM{m&m%O=b
zyoF*cHeBx5{<q7=8r&~|xYEgZAIMm2`y-vTisO=R=^_hL6t(E+>FsWJzGeYl-LU41
z)3nKq>9s?mt;f|<xtBph13A+kaV(CD-s%i585sH;9y_lNu~#1|hU1$*_E#7E{fayt
z>L+#)$tD~x5R*aqpn=ub*Yw^E>*wFBp9SY)>K;={43*ay;V(6m3SKBGt-w&4lsd8@
zmI<q-#q}p`gqGu#*DH*k&MRFpJ5KaCSb}G64UgNQAE#ItO<dI*+?;K~?6rASl$3gb
zsOa?{2A8;M5$#7n_2!EK<g6CJ>C(t<JE>EWN_SBqZ@M3ct8zPzbKg$kKbJv~^hKyy
zr_#UP#<bKSo1$+wCJDZ>FxwjVquSl^2dTLku_W5D)wHyHoIQCQ_V9_l1tB1%#GJ9_
z=R9w(fxfh%xVRrE_uzrioBzzaCHvmzrh$QX6qw)kKtJZv=iB+?Vee9UWHO-7j6`D8
zjN1WwdAR`8Y9~{cyW=J4K!4fL-~pxv`T@ClqxSWsr3XXSQ<YJ3xE&CQ$m!idYoe)!
z9tKXlH7%B@N@H(ng+*9Ma4g?xn*JHW0=c2<)(rPneea9hLCpjOszP<fVs%EvQ5-?N
z%%9zn`V;O}t1x=^9g*(7;)xiLZ3hDe-(b#ib4|W^Gs(rpmQZ^jD5AE)sEW16esO(#
z^X1ut2OkbJ_rq-M=j<1GFWhR3YDo9bQsB*nOVijwT!SZ2T8J|P`n@Y41TO36yS%yF
zMJBTVj!^8jLZ`2<--#6cpYpapVbYzwvHt~eTcg|g0bDm!ZCBUW=xJrOH@PVR8XG%>
z^I67PE`dxmclEZIsHkr4Zolvw&`z4oe8a|OfG1kn-HBdX1hwQdU<l?4%U+7FbPTu2
z`{ed6vf#V|4s3m;d?*5mJfa@~T@P<<>bn4|m^)d|2fq}@Aza6#rJXSgzd?f6=)x%E
z$0<T^@ZjPtXSwG>=r&7e=g#x9JuN-;k5OK69VU=~@4Rr}bRD#L$AnjI?n+@i{6xd=
zZ?e>hhZrsmhn#LBo-@D@-GFvi`+8IxXk=j{BRn@}OF&2+N4(URf{ubBjpvx+o}JfP
z4)z`>f`L%5=`*4~+H(^N3qI?`7SJZHGMgA07+|8zhInnh4HDsPG#yTG>_l`Ad@Ckj
zQ0rnl^AKt$i(}dxf@zzCB@tN9svDn+bxAK$Bo#A`0Ey29ZL;vtQ1@Nexy{|(+oNp$
zYanqGk}2_)myzk6t#>`$o%5VBuc8e9&t5~wf3ep<$}X|+w8Fj^<d^6Xz2!6HbX3!{
zP*dMx(%_1ZRCpEJO9tgLOfxMF{JO#l)F(gE=tnDrb+tD}0UCoy19|BU$jA1MjzHi%
z3|EG0to{VDM_@tfy}iAli-+^}IWaMx)83CPW1#4~WQ~0dXmp^`%geji$S<aH2#KP|
z&CN9i&FTFS?%sO>l`q%&O<qBH{ilTAhi5ABF-}%9G?@ARK*EHHjaQ=MXF)5}^FI=?
zrz>x?{Kc@@Yh6E-vFGp5%LSx!I#BfO)*XgnEFx>43Fe9LP1`E~L{nn7J_OXfSIgA=
z6XnKHX)pgn!IyG#lsz*xZ3<Ke@O}koTL1~4!%|!5&f<w-f3o{hD7y~^P@uxjZjrob
zme^`{J+#+%2uPwcK!E`)a_o!mL_W&!Fr5D*lG|!WIee3EQv*PA$hBxnRZr9~qabK?
zysf#MHdY(^#%$<=ai>&RM*uB)xW;=r95lm^Knv4iuAv?zvaGDE^mKB9P-R6$x8r>6
z?~%I1KnA=E_8vrX(AYZd>h6Bk4d8@5ks$~)aHx^J3@V{l6vK*BC#J8UnFH^12L{W}
zN}mm8sc%J^S#pH0ztB_LwjgnZQ<Ld{n$*XO!n!0#DIRGq1bR!2DA2~jWzZ1!bPNT(
ze%`|#=Hj{o&|&We`c}{i7y~`30U`97vK5#G(5?bO-^gZhBLJC$Fqn#}YBg|nAn4l!
zs%RZ{G{^)TrXro>U8+;qx*<cjRk2M~u}qEZ>Kf?B{ET%vO2agibhXvz=@w`(Azn0;
zC5aYPz^e?;zED?2Fr#<__1>}tIqqLgkwEk1-wRA|ao>z6SaYoC9fk`1DwhKHNYPVx
zi7O|PS@WVKbb5ZC6ufDDqcVaUH@J$RO)QXCH%YF3B>06yu)TS1)~jO^z&CNF6m#^i
zjblx9z#j;Wt^37hqe4*<szHzQiI5YbLgr`)ilnGA`s1^wh0fX2!@PViyZ0wsS7ivd
zx;D0y{OY2U#!p3F;4ae4k?e~Pz0fq>^I&Oj7|O?$E<Oze+iVS(<qpF4deXc<<p3|h
z@+JuYHeTg93{BTyW_Y#mRSa-+-KrV<$Inr*FkQX-H)F=9Q6XLhfK?VC{)&V&Qtvu~
zc$snLWazJ{NMx#kt3LWC#{|bzXh#Y#B@rD08=MYGkvLS8C!>7DvVa31H3UT@X*OsD
zP41lXK5rL(UsVUX4C=NDW)d?jrgrVoKZ(}j@y$c=8aD|!bcI0*{|Bq*qU*>W+JXiV
zC<2Wh0fxV-V)or=#-p%sTFJU1zFLQR)@*v$OtQ6>=WEr_cXc1jMSHyco|Y&ugsHyl
z?ymoj=t^0e^%VrG4lMW@yaHT6ZL!)^l~|B4rZ?agD>vHygl;AYfT%(y)<U!<{2tDa
zgp5q#-^X_T#+N*9Ibi>-2@J#oK9C~NX34+gKf0@lL!n!X6D5R+@L~r&e4H8P^KZfE
zVM+r7UR`drQIRnQJXjJtaXx}fto}_2;Ih_AMY1-s!J~*(;5^#eH^Y(2DHK2x5xoYa
zNX;BmTJCNT<NIhryH~H<8%FY>jju_z5iJSu=?H;qsK6&fK!bBk#FbOA1$a&{nKV`V
z<JH<@2b$0w=8iksf5vwa&=c_=Cv(vmPMrwcmH@wD>j(r1%!qR5kguo<5obluAM7?d
z%BMpcnI?ZyjaB#UpO>l<y!kX<imt7sYk73O>J;7c44f^qc?h_aH<Fy5%BB<B#{7C}
z%8PwY`DPYo_6lyTv|<Y%ohP6ClM>0QqrO>enN^%mEQBvV1b%h1HP7?*@_N^3h38A&
zk=WYR6qD6`AAT~q#w@sS-Z{wAW**(PX><l#D;r(y&BGX`b~GSmeCvhewJG&ity`-8
z1QlNE9!`(5lpcuYJ2`;-G-87V<!%S5;Hd3?%^X6$hJ)(fsveNT6%``p<`E(L`c2<|
z3)m^8*WIw~CcS|+YG=%%pwuvOmh6TKUo0x;k@H5DzoaQCK5%j0Y6GJvg7d*y$v}Wx
zxuqOlf$Zw`@lC#)R=KsN+qooJH)v&)@Mu&lx6Jb3;QxG2^|v<w#=P6X3j(^Wz#Vip
zRPR{6I;kB_X1+gcwR3LyN^mmEij}^d(?ArQ64>^eAb8CmBK%OHzr?guF+Y_0gwS0J
z?h24BZ1@1Y^axDU^G_CJjrBNQ|M}xm&_Gsuf&)ahz<}KWuf4;7ZHZU-w5*q@eJeT<
zdahqH`#00km(MtC9|~PWfHWNgat+Rzpyjxp<{+I&?5pYyFwlmv76liY*eS9GS1e%3
zi2ucRD}90U-GGG!feN)2aM+;11HU>y!_LtdI(KSEB&8M5msb#0SVL2pA^S7ONj8YH
zFEFEJmf&^INT7S{3s?l$e}O)rCv1v|xTClJ!;#JQhsGz>3!Gyn=uo5nKXN*$BRrsJ
z{!QjNhGP>;pl~&O8P6k3XD_n9R|beJ%-@yn9ZY{&eKmf?d+HOL@a$h}=6maRxj6r@
zlpE+LJ2ZjwoaupH??wYUuRogjz7v>z@^fej&Dg*nCnLN5tf$>K-#L@V!|@He?AIbO
zq0o13-~89!g6=Q7)51MSE@zm{MMkA#e`e^;U?N)!F2mC;tXNdCZWG7LadHCy16X^a
znYVDMPgwc1bHzF}Qo&;t;IhxCue$R6yOZUy@CLc=fIN17(X2+*EW@jAU2|py|BnsM
zJHL}7B31{)9qD5?nA8G9YAd_eG*?Dd&g=5)X4RhLKfVVVp<lqQa3e&UH*Rpu=ZI-A
z!Ad;1`LmIwy2RDK2EWz25$hXUj;o>hfs?)QjNz>yikYvV@8WbUICcwma2Re%d})7C
zUF9U0u`z(^>iU!qYf~w(!6s&6-l)cRw>LUl`J8%_LE?W$quUk!x*XKp2V^_~V9Ovq
zD0RdSn3g#I4Gb?L#|aa{)R1uuic7z})aAZ?&2zBWG>}{(e&AG-=b^84ew|rns+&c9
zoOb}0WEc;DxT%LyBz@zTyU8JgGe<O@o#LwoH<9vn184?Ia7C}cw%@sBY6LEl|HGvv
zg`HB2s%IA@439lZbhT1pbUt`QA!@k&oj|nFg8?>`If97by}J6y7)~b>2#D~I<|lfJ
zLRhlJF4SC%iYgaxlalY!po;C5L7|$SC-^Al0XPED6e0!`*_=zE34zR#kr^+|lB01>
z1!;nGr{X5036>5vVbXlCbhh319**xQuHCk4o|Uk&s~zXRIZ@e27L&&|d^m^N;7NZ_
zj3`u$?k5`Mfdf{1gYit#c;C?Q0gptg=Ed34^zHNR=cV*(t=jr%i)oplBMGE=aoYXy
z5Sy<oQQF)F$x9rVQQ`v1s<G~Wyeh6Wp@$=YMC`Ob?#kwSHT);}t<e72?aub4Ht*Vp
z=Jd{`VE0+Zxc>9Wx&sr<er0p8nl&Myqe@Orj?b5#_VU4l2k?Va1{5>2A>Ci~Cw5Q8
zUPL(YByWE>@CN6`ijc`rngcRte{ic)41ZNWrG?Jnrltb+b@L=o^m0}GyN<ka9uQ7%
z9{V*f;2)FLf%!4IBdT8_y*N2@EbKm*`K6{!^Xg`#ph<sr{^;C|I9%)zK+s(?uZ@AE
zdTBo-EX?Bo^kLx@vc8%F5j7B*17sur?w!sQTk-253W@h0Kc-^*E`^^B?7_u&bpMU#
zdx%1S`X6Rmf>49A)>=@PA;s!{%lh_LBlOC{lZBx77kxq^TxsRTL)@RM&FpL>U_P<L
zSuH1dAwT&mO|>~ewV9xO^O<14*0Zf+7n$Lt#|RDV#B*GDF4jzTv@U~lBbb`5IYwi*
z^fa{c*kr;-rToZ1yaLz!s<kl4fLX{#Ctc+CSbH?iU3-B7xEN+S#il|p6R7^D%>M4Y
z5>SH2`~3^>@zxB^{AcVlcM=^B8|UM?_$~0~Hq7Uf#IC}h$RniBzx}1YG^+f`&ISi2
zN!@{=4*Tn=buF-MH-DGZ-aX4nYr$a*Wt-7eQ8Xwn|F&XAe`6_>nu3aA-^#EdWW49x
zsLHbGdEfAvt7<J!am)t+&RiPlAAwNY`1fFa$%WFO{pR<k0{SsFTh*|#Pj*|rp9dI4
zfA43|oO->O!%aFCx3-GuPi%#|-T~<K33w<lB&nRb|KYR~ko;gbz`zhVQ_TjCfg|vH
z*a@dIqN6o(aoCZ0$UC}t_g`9B@BK<sdr<xg+(3i*9*@`6@;^Ep#-%W@6tm@I0MO`k
zw{0?RaNM$DdVC~3np+rLt~mP=ba1XSZ%QfBU2paX1R*AUkdhBV^jc$@{g2T3zg{u`
z=3b;^W23iXbDL9Nt-ySh!$ee@kif%O$B5MUt&>_n*1b8BXT2A?)&t#yFTo%bLLum+
zmg4Cj?LC7Vc7>ke&vC<O_QX`!TM1yCpv`2ONQTnxY)EkhHl%7HxDto))afRN<BYoX
z*8>7x_$hN3(3lGlzw1jG{ovp_i5{47u9aWFQ|V%U2WnEcYC*S|5yfv7j{uE&yN4Rt
zT0Ql4A#&dEo-eJ!4*YujVi$yEruKb1qT!Prd0G1qbjiPPT^NWwc$HgKg3bJdcw9#D
zolDR1)_$eUs|0zEO4opprS}9pnjtbxzJGxYz<Qp6l)s~&U2pHn))3eNA<zaYMn?^&
zl&LW-J)&v64G%JOXM2~kw*$;TzyO%RG7cw8MrCDAp(`ahAYre32mM%CY7Lvd>R+b}
zblk%DoyJ3`!WoAu_!$z8+gn94i7C}902=GD0#;bFm@azSZ2rQy3r3rQYp#Jy@~O5J
zSm>P=K)X`#<#O9*heONB;2`cp!P{qOV%z(#7FZ-Mngte`DSyq;9WgHeSn?H~PA3f1
zHulLsbX(LwO#vzL&pd#?;Kp+^sq@G8*TA|Fy|Y`c%B?Qb9)EDKWV{Wqf(}%0xf=O5
zzsa#Y*4;=yA;3Kh>(VKUC0aOq5dlUpDJ5NVt4l%T*p@wwtbe|v_L&jqfd%6cfLm}g
z1X-07`5%4Cl;a9-krF>v@D&D2Y@N)iPgcD;P911O@$1vzSpn@TJ`EzbA4aj-v1LjC
zN<$dD!5z~7<<Qq@qNo32Pwx-z*9K1ZdHRCffo6#u{y{=vrwscX8HB!9G#?g5%T$4m
z3c?4PodTk&vCvmZHmQz()BA}Qm2`QfDicSJ(;*F9ELR6j?;7<f!=Va0x9KncM5(2K
zg(F1=fJQ_6U){-nr_uWgbb$5FO1Gb{h@SyJ_VgF~p0UqKyn_6zDFqw%)u%3ygGr0w
zcVIlwX{<dJI&RXUA(lg#Y^5wAgtZY6JP%I*v#%oeJ8u*sXGBFqZE4S*)+e)|JL1>C
zypsO$F6OWG=LhSr&}$t%OkGj$3h=q``{D{vsMQ+_xh-J6b*bY6x})BKJyW4(*R~g(
zOSVe=xWQk-qwkw4&awbY>i7h|o|^cyykdjIgY;BWJcKhycXU(?R#+w3U8*{HG)C}R
z3lHV`a$wJBXvpg>H#${QI63|pXilU83wRE6WI9hcQokPm@^p3BeMi1z+X!;E!zTqh
z`=}+l4qfwM)sE5|a+ZUBL?M3^X6HI(1rqv%<CR4n$~zw%egt4dMI`$3fSVMU2z_k)
zaz$5Hx~WBFY@ro4Wnzqs_D=L=BdYI<6Q`&zR1%(eFWsss&Rl&xsHVXLvPeK6GfmsR
zes|OB={~Z_AOXm{G#Pd^){2QDQ<sg<_9`?#EdrG9A#IWEaepR-M9La8-m@e+0^J!T
zixFI$zrryY=6I~hJ?+`qtt`BI<t_f1A1WdvRY_hM9@fBwanVS=pgL6RRZDS=a5rLR
zP)s!`m6-1qd!|<I*xzQd%q%<4ORbK_Glgu8vGyi~w%(e*JSzK~TBOSJFPEWi6=@~T
zf)Cl?33w_Um0Il0A^S+W|BUA(p#^NWCZ%^F>+1>!w`jW--lJ>aGI9wv=r0f4f2oCI
zBLM)ZMi2CQ5H(OuS?N<W@732RaSqe?U_|P9Y~0FQK)sLnl)!<_I3$1V=R~y_Rgvw0
zoAeL%M#t%;{kmc{3hG9$El>ql-y1R-Kec3}!|g*R^GU;V^dwVO+3j{v8WsSk)ATOb
zHa4fr4mrJ(=OaOJE6gxDzwMuOM-r7^y+yq3IgxQFOPoc1MM0bPL-D}_VQ>Wfeg++a
z9GdM9Riosj02}`~lHZ?Shy-Cr5I>NAdOwWey)YMopvw%n&fdVo6U9&bv4lg^1jQ~)
zo4KsN@31p@`C!&Cc}<>1gbw%>1j2&|dg+QWE$<3ut3`ERQoYbB`gtU!o5+F%&2iZ+
z?Y*f;)su-x4XEc`W*~F<EyXLm%RH`<{d*V{ezkxw$V=};hLY%yv+P4MLjs%_ExUhw
zG_%SX7a9Ge95xlB{qv7#8(&n-;<3&*vw&iYjA8~+GTeMN_|<#T;Oae{Awt;56dRKR
z_fu=GdP?K_Yn#*#^2ejb!S>$2st4bhoNa!+946S6_o$uy5K1HjPbCm5M);+WQrpIS
z$4ty_%%`|`ifmRK#iK!*iq{IiZKgsf>4H%j)y<z3`*-O}xXg4n)QY3PQwc;M6GVa^
zZ-VB+Xil#Lc;tl5^g=Rkb+iIed-B%GTWf2_t2^JlZ?j&(eTJEpU2N%TIU4*S6#K8|
zzIy<kYem9S%u%lGY?NZPYWCD{o7*dHF-}woUzKfCwYK2rSzWKzz6*1vZv5=p%KVQk
zj|OnYgQtIP_in)<&lW7LA=S8H3fJXA9;+Evt4>!Erl(rtTlKUY$!PJtb9j;pp_F4!
z7Bqe_)t4uLX)_R5`iaxD7i+_3o<n@~;4#EeHwkU@M5eU7`*&`=yP<mA&SI=0<1*KG
z!l2On;86Chupro{m>@Ejl&1|Y{NEG{CgIoqK+xGcGSFOfPX2{Q<-{TN?b8b8jtjxl
z2;mo-?BbIPG$p17MnrP1D1MY`HR{MuzCZIwH_04of!xZIedcvLeh~|@5cuevhxgpR
zze(&xw^&wwpR1Vp{%J%rI03YcZiX&Q5g|TeQZZ_xPq%e2su~?D4lC5Lu?+~&d&6MO
zbowqIsX>Avjt=|Di_!@*+3d1P(<7p94()!w)AY}M*FC?l+*DV==ny=F?p@VUMqbvd
zP({(ibd{FAxxy@Zk@=n`sxzQNx5VmMETWI(OYA4PiY6thEesj6dj|)Y4Ti;+w~a-O
zinP!A57`p8f5`y(0UjeG;|pE2F_VfhcZAv5S^GH}NcB_V)M5qY{EDz!)wu2zK`%o!
z9M5K@2t`_@{86^V-UTb3YJ0>NH1vC*`lNY{`IJ#b6*Fo)-axV9*31X8YsDdaZkrJ{
z!RZm#S)N+GY#8;eaF20Pj8<agylyeuQ#g|XOpo?_D_S!1eQvob{i8i4il|N>$eehi
zM*h=4;TI9&d)<v2BPOiPOg#NdLit?2g1@YZ_)2Ia#VG{6a5sg3ZYpON*r`{5c*6JG
z*}AY2)qsH0G1Z5thTdOV8M>A<N+w{0l4H*ZpCoxc{#rPiC*M#@Q7`-I7ZE;ui*jB8
zI~5q(R2iLOdxLi8S^9gAWOspQ5x2A*@<%5q<Kmwt_B`|NK7McfMV5O^j)d_q|A358
z-FNb8lRat2KSrN}`xYUQ2|i26>F-1PDvk2VhS#x0G;G*Pcs6kuyoLM3E7_Zcqa7vm
zl<?<{JOkH?%2+Sv*zAV4916FHvX)Swt;XO<XT6V|GNGT)dC94K68AWW%w|HT-l9B(
zL6YI`Xkb)6jWhpUb`A7&OUue^ZQ!pF6MONym$bCBqGB}E1p!jE;Jk9f8}tdum)X#)
zu0qaJYjV7CgxkENh=I+5EjpgAz?MNjKD(}7^n6`wz(fxZj+`Kni0X^>i%h9F2hbgW
ze-Oy!X<TgVY#C?@%Rs?Nk94tc(1S6p_<-wrAHqJ*F&aMC>B&!-#5q}B=HQx4V9ml>
zy5;a`Jx;`rzrb_iF^vWTNzSQrs|s#v(^oiC0tqPaLr7jb|IY2$m%@Jw+Rn90l)i!s
zyStWU6DSY8e=1pifWIcehY+~CxwVDhM@2>sl^ZLlAR~Dt=n?^M4lOlR2?)Sz8!HK}
zw^b<##tdazZWz=lx2l3=D=<kj78*pS6a}|I_dW7KVuL`4v#1bmrYsx3gU^6j>5dER
z=<d!3XAS>4ci9X+M1cSgFK5um$AGB)87{7&fdMhM!xs3+5^&g#&v9oOK17{gUp^xu
z^(C@1^6*T5=YIlGMEF#aQ&kXWppWrXf?{k<%Zg`GbSq8x>zbX1rkRF<S)GBSV%@Ap
zE?(X#{!aF3oMda>T_%`M&cmHAD=Pz<glg+0(Lmt?(60|A;<Rb<0&aJz_4C7vh_g%h
ziyyR(KDCEYrhyLxDNrk0%`a{MCnA^NCj>!H4&JYzz+}H7g1mbWGB{shT$qvbHNYu%
zWX#ZuoK0&hZ3DY~7@^GBK4Sm!eUx`2?{bk|{Mzf~yV#ms=z_q<$2Y56A|224abqNx
z6%T$m<Q$yp1Rr<<-*@;C%ww2#qsR5dbd7DkD+weALE>#PEX!Wn`0>+y+L+8+DKla6
z4?1tA7N(7uis;`=+i}ooS?0b+8#5NW*l^eX+n&Oe>me!e@f^0RJ@N5)xUSnk76LvN
z2%K&y)~erFEQI`^rBK74Rd1k@!hgCyOCU95#m1xxhJUa7@Rm8Qkm1b^Ju4?2N{wk|
z<PBE}@ZK?#n1GeLjaAe<zIW9XLpL+-C@A=aaQ7kPlpN|J5mOtOB>Q6V>Rwl*-yt7Y
zNpPOMvBM>mP-pF8q;$KsK~0r%zUcYJ!*%yMCeJ&g--u~zSYsCOrsj72aNS(hVlCX_
z=cD!zb!k*f7gs5Gi>EPvq`bDHdQNYZP6H;9d2KhT$A2wEn`zW~H<0QdIEZfGl+(@s
zpzAH5qH3de@xj0XaX>;4&;bN#5djG?h7cq~N>Wm!OG-)+7(hToLQ-i-5s+?a1Zj|N
z>F&DwjNk9xwf^`1XSvk%eRAfU_q^|pXFvPd2YbYX51<?hl3wBBB{jV6suv|lSV`uu
z#xP^}ihP)?PG`yEG!@MXO>^ALSe`!7XVL9j^&@Hv)|v$uR9PlS?s^Wn;$4@i7}U{1
z{xGz;=Dp}hx@p*aA#;AP*dF?F0fwo1(HbLCzB5G=ojEF+cW&gmgI1wM{@Aw8X!D9Z
zn@QFQW1M<?pTnWILdPs-93NF&`83a@Jt(QI`R+a^9@;^n%qP51N1*!z+d2@Z<+@`q
zDg_NeI5b0JhY<Q;dpr<|t#@qyzMmT;sPM>6H=gF(@f3Y~^HrqX5A)V19yD%u%(Bh7
zsrad-h{?SMn6PptB@#O`PA0cj3AY&V5rp2<EVV2st6XR=zW)V>!(HHn-OI<u=7*!;
z)NnZ5-+@NMFdV2im6-H!QWhU~Kc#!wZX-0yBGKL}`{k_h+)&!p#4XZLbxr-ht{dWk
zY5buS)QuglQZzOL?;dHZ^YvdO3mS<Rb3)#tJ7H}X+Tm)c1Qt6#TweY#_*zvB^jTkM
z^W!QL(5X6siGa;L(~)ey@Fx!%j<rgi3VRt)inR(;d6Om&l?lPS>n`lX#dnSC_Dt|4
zb98sr)XI2$;0a(WPkGPX>hOwWWyA4tS`a1||7_Kh#_pnShr;O6!`->bnL)!GS^-OU
z-0s$r_K@jF#cPBwWj*QZH%M@oiIGWsgWrU)#uNLqX`<WJBT7acr}>eF>i-Ueo`+}M
zx!aAJ-bB6wHBi}wij9ep#jdQZOsWLXi<;;3;ZjU`GAAiLljl0x+coCTqZTDT#7^fq
zay(I!!j?#xU0Nokp}TJPm~+%Y@EM<*9*fMaP}QA&^{VSsNny%28|8Y$#{CKGk;@wi
zYY;Cxm6oNaHyh`LY6JgA8^^-Pm;ja0Ny@d=Rh(p-<yO|Q3t{V1#2ekj?|#7-h?_j5
zZXrD3qpA37^8Xb@xjL156-3=ZE`N6tF8?dyR#Ri6pz}8DTn|q+DC{!Cfd^4BwcFpe
z!uSRR*kuc$3L@tl#k%q%FC_=#1diOl->Y_vbt*K72fJQWzwPq1;jvD=W(~JU9unnc
zQd^*#@XK={ERCQHtO@Ke)gs#&c+b7CWx;vH2w1(rk&==&_D6}lvV#^rEU37U6!y}h
z2JX3Tew_7Q!j0o_#KieTmuu6y;E0<&JwJWT!^$9gWlGz7Ks`+<-udP6^*hu)Y3hc^
zqo6wNGYPk$uN2No>oacQtpS^}o>k`gWRG(Uf4xO-$Hm2gU0WI|?KjN10qNwbKL1A|
zl$*k3k(7a>9LsrA3KJQs`lbm8J~`|Hh7EYkSU7k3^bNtT?MX8E2*!pTtY;`n{r6nU
zESZE3(Xv}`{?A_);07@$$t4KM{3yAUSwpajYHGXC{&|LD*kx<5j_y@+%_3@q0>b1H
zY1dhm(dHdXlcqJ7l*4ACa^sw=n;+BJ_$~_c`Sy5T-NFYxySDfzavL>vXO2Sz>egpE
zgzOiEU(PB*2%(^$;75^fpLv#q#G)hV7vgl1<>-6%j-fERs>+3WY5QZhM>~g-qBHu}
z6zPB5&0pCkNlfYzt39}OQ+u>Xi&f_Li@M#J@&7!HCB6CSW$Z;#QXa$R@Zv1cbb79@
zUyyhXb%FbQu~WbJ43N^WM0(J3Jd_#SD<;w_mbO5nHxr@z;IZdb`!j9-@)<2^|6~91
z3RH--98`*mD#K-FW#$qbZ)35fJ{voC0wjc;41ImZ?Wm;rsin6*HA6mAZ{V>})aF{m
z;^-2Qi=?TjE10bl4#5q!V0oY&)#kE_W7E|KUImE~?&6ZVyea&dK^G~}Xs$5zJ*L}{
zyp+W$dxHNbUfNfC&(r*5NGpEdmdohY_ub`YL}&@+K5hBHUAw??6cplQu02tr1~9kt
z9WTFn=?mH?hL9&_aLyf(QX)rk>zRJvLTx*_m{*Rndd=LZ_0HYWR<^RD(<i-<6dZ*z
zuIfUSgU|o?@nZhRW8lqX$}@+4yw2{!;d*A82#Kfn_W{0@WtNihYrk2>$^IQ5@<@hj
zQU78Q)ui<2C;WFE4S2V)LiU^xntbTddbI!&guXc3dr8Jc79x~+kY>^6UGsC*f<Cx&
zr&(!u-}UU`G&{BTwG1z<)zz#Sg!)pdr+#E`e(CY@j_Y@)oI-$w;5nIXZdJf@zQ(~8
zxpT1o#J=-5%I&JCqsGP>=a?gAtP0b7Tnm#I)+=^U(|T>Kcb&Z>mTa(#G$}UFE+Muo
zI!tY#3b_!9no8w(Nt+R4+&vG%!gwmw_PLrikH!Phb9F6K92qXBJ~Zdp1*ksN508kR
zo^Zq%e^EXXsTZx3USO!v6Tn|#aoU&)_wHSZ^Un7gT}R6&s1(6~CksQ@MGqn&O-#t!
z*eRQMxc0;$uF&zM&DvSd4)e02UnF%6>B?zctmZoSYY>N|IX;7+3!4jJnEl1$DA<Qh
zsbzy2F+&RrLh7%W92A{ka}S#vh9qyH30#Nsom7`}<nZwVikCZ6{0;c!nx8*`_i78;
zio&g;+r%jO>$S#8Zfha??T#3XSGGuhM|Yx-V|(a~n5^AMUZlEzBKGHnQrd|l$6yxE
zpB}7uc~YbI8nidoR#t$dC<nZpCkhH>ApZxRUra(m<@<$$w`a&S=Fy)C^qQ}2B;~c2
zXkaj3J9qELF)Zq2`|bLf*wsn*+-#q>!zge!Cy!oz=tQrNH}CF(BVH0(VVs%~!NCu(
z%%C<2c4^WdAl^j@T^3~v4Tc*R$&j3lEI8`Mub-T=Tmd0Z#fR$Ib)RBZLmsM#d%axU
zOlMlbZ%t}$mE-%q<ZKXo>cQUp9sbbfduL?#jZhxUSZN7|hgWvx7hTE?N^MFS=I7IY
zZpYx_$X7So&>SDnX8Ykq)Qqs;4nQ;ogDKQF1V*sU@6Y!@8ze+nlmrEq$x5cw?6_V&
z89KQ`{ezcH*`Y4w%gApd`^=7>Rjib94qwZC&yu`<D8`8wa{U}+1-r4tAqbcB=o61#
zEfMU--+${{k1}`fgs6t%3MxK-e_idEp*$aFo@2A0kRIjlMLL?B6*!es&mF?dk&1th
zza<MUj(~f5bd3zXu{hW-vw`B}{J#K?ucXB({Y310)=u5`Y(7~EwrC&eNOE^a;xBQ*
zQ<`9C#+HYudd=C&D!cgXF(Y;dEi0q))!%nUoBJ>=f1ab39;$yG{wCx#R9|44Ll*Q-
z=gwJTry4mfyT|yQ=pQD%)&;o^5aI7)p_$$0i3rO7c->dm{Y>FfAvF=hhg1`fXAXLJ
zq_c8q?mP8JGHQ!?GL+(7Ag-zF<TM4BR(hLJcc$hZG`eTA&xJ;ysQGGV<ShoTh}xL6
zioM!v>DD?k@i0x)RYiB!ZNcz$FjJg-;e3D6W0Bk;UCNWlZT#*n6dbb$rq=Z*NhL>z
zdmYJg+NDk}Vf(!C@L+o(YSPUPIbTW-Rhn4oq{)jZ84Skf=bzHB@oZ*f>x5pUC=ZLS
zL!;ZOStpDB;<yV>iGY|6a$%#wU3<saJ1&iZTv{b8>{8liPB<7fQ$6|W)S>pml@7h4
z@O7c)Fd&q~N3+vRHYPSSIzO)dN|arP16SbL4u|%5{02n%e@Y|Jif=1OJnv2@r=SWc
z562T-Mg)gryq1mMzkE0A{7XOO6?d{n1*~=)3GqsLEsWvsLD&l-h1}duj+ZE2)AspC
z8&fae)!fIH<k#{TQPEt)*geiS5Q?g{(BC)DLkE4-G4wp)zgG9*CH{wFPCij5Fpge#
zig4QFe>W(LjgqyvB>bjh54qpz^dDdNdA?tk#jJjiEW@2%nDk&a`S+dYj|tyh_z*1=
zKeWM-&5nix5_+%Nfr~_~%_XoQDk{ccOaOB>w4od8Et;h4qlxG+LCE)DBQ$w;XF3*=
z8fc&xt@a*tcz}|N7qC(+wb{#9r|bI3qyJGNajQ$rYm}eIbDb_r!F8DT><r#WSLi8m
zRcwJk1VlxkS7Vc{Qao4&T8yAx;sW6v=g`@T2P-Ak!>x@Xq8D1pf^PB+@ffjWDf()5
zbFjCzHgbeVh0KA?olRXi%zUVraG%po6MtKl+Fj?CV_i1;Anybn)M3!|1SQzekPxN(
za*)p~hYiD_mg@l00r7Eh*JPtq2Zd0b$1f-Ej;hyWdsKajml2Y#x}r6E{ibrGz+y<`
z({romJUevCiZ<Ft?<km3;?L4ZTWT0fZ6N({mUcOCaUpo$2Q3}Y54mw88*)-e*p2$W
zGugz_CN~?dWtAT~fh=lgr{d@*IOoNXqMsqVCi$&~msj9j^_M?okL?!DqS4j8f_B;V
zi>&a5Azo!L*N^$G>Vv!L#8!V4{TcP2X>vc6w)y^<s%kIrS4rrE1>6qzGt~1lK?4`U
zS8PJh9KGX2P({UEXmZuo)-E2@Qbj)DK|xlF1GhsBJoCNZzI{h8dYIRv1sXusYk|i`
z2&nwTN)1YR**tKPnCwl5%C;i^Ua>*DN@JSP7{`vqE0~kj?59aCrEH;#k+LH|Q6H%9
zbo2wN0}_+NC5|>ARf<G-kg*UGR)bVY`CeX+aUOV^ORx?K3Lox&NqLcnqVvB&UBZ_U
ze3ASDnk(ebE|KNWT0hvAdyl4W@aIUW2H^Jf+m#-V(w21ochFHvlkEuu_4W1t9xv_l
z=VuVO!iM?P($dn<(D3UQpnF&GpBp!Bfac*NAgmhj$bCW)$<r{N+|i2cxxplk8B=1F
zJ__r_v1I!dnQ3OPWTb1HY9)J2=IQKWi@nKICWW_8DRKj3smG5U`+)xpSo6C(Nqh*I
zDK!vz+K310K6vH4t^`wmPL7v9>zVmb2Gd;3x`GQi?I>4>uR1w?WfUpJYX~%${!ePZ
zUKW~wjv7({<DR{?FUn)XM<eyN;{^S}^Pn${d+Gd8%7jl0XfsqWea}hm5_OioEP*wZ
z3^(}At+l`ed*Px`UmO2Tl1PrK83DJ0`QOj}bD2(1K>a**kvV{M>rfKGylu&($1V)%
zbsLqK+Y^-rS=AUaV?5vPxP7U7;QaD`R`eEh*vm5rXAR`5TkU^?5F{lePvw|n^Uu|B
zgU}#;o^ww_aq9{*zA4|5OGG9M@pp$xxdag4tlrbE7PHlJZl|Ab@-3JS#xMtdQjJkl
z*xick<BMUAV<~iYc?1f2QTPLras*Iks<)MZVt;v%X0a6ZC-;v4&H3nJUwGrvXZ?no
zS|G1U@eebWQN(_3eiDQCl_-=75Tz8o6Prz%dOoBRA%=T*z%M|8p0YSeJxW-VNytJe
z=$?Q}o5Y?YHbrghdMn-|KqnpYby5ntif%dL3L28wl1JtX{Plggp0Ja3#|kFa(?zc3
z{EtJd!oz!a9{`a^p6SEBaMmxAPwfh@PmG(~!+Mt`VV^J!j#Ak%ti^SSV->tU(UOMG
zFI}f;!*3M#;!b6Ed%<X)OJ%g~g!i4+yqx9;YYmw&TJd>AkZ}@%vE?Wac`A|cd_oA~
zlTgV}tk-6z@lQ@fq#o?1+*l^fASi|bVhH4Z(`U~<E3$?(O=5pSC+DS`nE*CrYN2Lh
zAkl;%>b}$T{_*DOItN*&;l~OQ4kDV8OINL*8V5@z{0p7D8bt^WL6tcmFfdl+)h1W@
zzJk1bg;f=G@6WY;Xs1)pHM#*&N51U|`MQbca$oZ;^Z|3yeNf%xRaUk47d&DplV^=y
zdk*_$IqZs5O=i;Lz*MFG*)MrD!~}-`JVx-DMbzkCjRV;sMn*<OXE=CgZ@7;A^vT>h
zDIW&VQEHhSQvd_zd5&t6bi6~J+I$=iry3I*5zT+lx-b^g<+Nl(P0JbPr$K>VgwAUa
zq<NmBeA~7G$~cRCIn#img1P2$Q(_HCN=)2X=num~FJQI+Zb@Od%sjl2VSUtE^=WNX
zg5%(W!zT$weej}Et!m1u;6<0aGW^c=NDcDQLZuEq!og{7>#cwnO*=-*<^vD`1oF*A
zLIMH;(5?Y_(s6;sqr;^mfF(Y2eoNOoV4bn3!y`taLkE(qMG`&J|HB0!&u6(8Q2ohr
zVJa~38b%j4bbd9Kk`ANyP5UzPMR%*G0ba5FdjSpl>TZ5MK84yep7&RPMo-!XASLnz
zKW>~aw(d|{Y<`G@+AkM$=7#))8Lr0W_r21V7S+op4f>!1d!&@?;+6jbEqMuz!5Kh*
zOt77x_|zC#Q(H^g25<p#HRT%yh8wjIU0=q>H93LtU3y@anuZi?ti_eDH=%=K6?c_v
z9fY_7!x1f4_`Iy{LS@ObG#lo$8Ksvzb#f9!--x;K?u?}zY5cuXEB}N798U7fw=McH
zoG}t%q+jPN3l5nZft2Q}LS|q9?ql(8ASM1%vy>|IUo6_<PNEn3a*|gKL2~G7oD^No
zsS9DbS6WR5&t5HEGtP6KKau$~y;ls4UcnwUusJZ?l#pBk)Xk392aAWmP)2Vd#s)28
z#yD_~f*_RVY6eP2`K|{}nAySNd;p_53195K+$bV{_w^&rA$o|<I*RcRL+y~6@KJu`
zQ+%!zwth!jLhP@w-fa>5y`|^@^Z~9Fi^X1OgKiJ#Y*=V+ZuZSu6-H#72#ym9Tn+$m
z5A>Ys0E!rpwVQe4)FD`F$bjLz@>_V_prutC*|)w?^A#ri`P9-gttY1`v2R%!!@co|
z!Eebz>Jbp~1KD_J4TZ`E$ZV6M(P(mVrV>c1lc9n2=g*&UaTqThQ1zXeo13$)L@hEx
z<{4cSq!W$(=_wYjP5sNn<tL{vj^&s6Qgo<mZu5QYS+A!T(YvzpC_F_Ibysf+K|G-C
z4Uun#cDu8lZ*b;ACD%1XowqH`%{kE!(JX?jKftW^rCca}1ikrlAhIHiz8#s*PQ&Bd
z323kw*0w^id(GG>0s_G@o|)Qk9Al}3a|V8?P#Ei01=V}^?wzAxcYtn+G6;(xI?^t*
zX5#112SgG=8dHG4?%zMw9eb*^$|`kmxJfSdLQ7O&?hoPNFh=w3J54YD|5GT`N}&zM
z+%=hq{evYp`*C6d<Kxxe8<&36b463iLe|<JvnWotOiPCN(vjej`!P6N%(8+TIXT^x
z>i>e-yAwkwl93&%G^NrFlNaKGNQ6|h`AxL%G4hV)FN<DhdmjG<E3hyZzr)V+Xp%si
z4gYBF-j;Ii{GT38x5h$IK(Nj#B>ysxK2F`~L<&Kzse*+X+pi`j%m=9qE=IvII*MWz
z4CZ)KfNZOvJ|~%M-OijS(V1GOHT<RIgJ_N+uOL}A+L-54YCAACe`0P>cMhiqQ2|U5
z#+L5$uqE6Ozt+`@R89=z-+#$sdAxQ6c>fxRmiCI_^8xod$N-@cje&`&h9eQxN%ulF
z)M?ErsreB$VUv|+nUs>^s@-EOwmkHyc+ztUfv1>uNk(agYA2)8n*V%;a8Me7E7ZA=
zVl1E}d7$li9fP?)c1hat_{ZR(f~28CV!a$RdOALbh^}&H*H7~zy3L*`X@x&09b$to
z)_suZNGMAE7e%5-01_^@96g3kOh|Cvok?CyIaTp%V%kl`C02@E8msY4zOQ1mM41h_
zt$*H{jKbeRHBp0-7JaQQ?gM^xEVVNU3FF%&u^xoP))F^R=1JQN1=g(y#G=cf$9`~X
zO)8{UEGT$7*<d<@h39ngAn#C9d=;;Q?LVi@I%#YO*a#!WuVySj7d7BLO@3<Yy4#_a
z<WdWT6=Wd7S4$&ro9jCnIy%u$XK7Q?2CV-pxRXp6n^JK<L!r$E3fgFEPz7gN)9hT*
zgmdKtY=k%8GU;64B0D13F!j!nQ`=osxQTvvX)6BrNZ@^s#NK&)`hiNV=t7B_{mBgv
z4+pynvg_}s9rHU+j9~icpM#q`Q@7conbBH$myY|VON;Sbh~0QP!~$BR4UP5RtPXoQ
z|J_JxW7my`^z?}1wFOVb#5CE&RXz{%By4SMna;Jzg>zTd&=JtNkAL*uI_Ldkv2@<-
zkB@r5v;QlrqBwGN#V=}##K5xr3OGY3m*W0TG(fX=OnM1O3w84C&_8GN(#7a{JXi=6
zy>179VwxY(lHv4i#~9q0Qe)oZ(V(-1|LwWEBICyH+MtjQMr1xz0X5)mK<;+Fyg$~-
z>t~Es%j*8C+m6!bEI6L_D2*Q&=!XX??oaRFckAaN*sWY@xj5W}^^WM#PAgzvp5ERn
ztNX%t&4Q1t#C3TuK>c{uv|VFB7c!*0ck@fqkE&+4wFjAXDy_52pZq(8PK{kCx0Nw5
zOazZXBg8cWk4fCmsVZAdxLX>z?LM{g9=3^YLG$y-JxxcDCi00RS$TKd2L6Zdx=bs$
zbFs1A{PYOhS!{2?-*sHxW;G|-g1FrK?QOjXAJqoOG&2XMDVbsq+(n|CE5iDpha`T2
zxGQ`<6Ifoa5Q>)d(s794;^eebxre&-^Sf{S5!v|~TG!#{Jb{Iul&Y+;6U@PxzGs(4
z5-HNC@IPq8tr3y6I6mI-<-sY88tB<a&Jv_t-C1Jx9JS{ZR`@x(^|GcGQfSZhA?(%R
zKF0qtS=2z){~Osz^*11wAUW&ZEvt#W{+fALPOI`~^JPdqpoo^b6e-64gcW=JU$jC^
zr$U)s4AqQ}*PjeQ+bg6}P;@MUjagY)8Il`&%OuoK<k*0W>lFV(pCDZCx6{h+M(u@K
zj~H$~&p~WpatEjHX(ioCNBomm(yJVI{{P?@mO@?zA;=bpar&`%j>YbKeEZG7k5Aur
zSRL;6eW|Qp#Q)@o76AJG;^U!$DC0+VyC<Hg-N%|bFwzVr1iUK$f8-S}HSjSpikA>v
zFGvCAcM{0oB$`vC6JosFbFjR(!ZTM-bIB8IiqltHF~wd$rT_Pjkiu7?tQzEw>|Sk)
zuqJU9%W_;l*!yKl1IgJ(jj}t}Fci|=_&s?y<DR>>(>tALUp==LSGOWr@8PijL2(|_
zaCJqb;O>6P{fD=q+-refHhW{IK^qC`b>nq=>%)s?IvduWd|y*0zx1|)(j_-m;%zFE
zYVN;7Y^(ysS*W*rdO(Z%*REM#l~k77w+q!42o}BJE62S(_0*FyUv_+bZJ_<IbvL%~
zkpS&<))6-&)#yK4GJ6*;(3`F2>2b$p_cTG-z7+Y@3XkG?H=&krDIc7_d6l?$&%MBz
z^L4-HE`^!eVLtFQ&%dwGcN-S``!A|;Up_6;`2@fK7H#LUCt-qrSMqu0aO>}!nWeEq
zqzxbHf5)iJe*pqDd|oCy5tKnYyuk9>8rk_r*McM2j-?#iX&8U>=@SkpEvDEElJX^%
z>$I^!W}^<6vq4SW;+~?Z%3XHJ_@76S1M&h@`(dk^{{DWK8kFLham#_2gQ1m~KZ}`T
zZ`L3Q*bT>77MA=F`e&#M9>`E+&p~xvLqlVs^Z4?!)!~3M)l1;{OtFd!FMqD?uSe}q
zde&6U<ftu8qIJ~1CTu$40b^7_Yy`V*zQc;{35N^k#w}S~MKG891$)NE)(it)F^SC8
zwW|kX#kXgtyiPVzr3?HESH~(acJi(Da+gbQ?GNSNrlfc*U8>(V&!tgjR|L@#QJea`
z!=)1^I~DNsDHKWxWbQW3jDHIwDepHiTiUWw?*Hbe(viW3QQ&E=!u`fZ{|Md12XLqq
z%n64SImnt3IM|xc&)`9|NxWZa;?%^ubcIj`jOf?(w7<)CTC;!t{#)(OY8OVn3_UaD
z+sVqOh|TY58Co*&^<UDT6m$Tq+nM?jtgiJww5%haKzGYy8(w4i@d#uGC4#>9+*?CY
z%n^|)-27Sc0t-`V>gY>THCBrY{}%Rhtug5ca5vHwz8ZHA0~ltqDQ+}D6{+Mp#)5=9
zgQZ)={?ku*zC$bu7?kTSd7!ZVbq*`MIytJK3)!^M8L8%=djW7ro?;*lCOHAj{2ll&
zQ0PPOQJ_aGnk`)gflR<QQbrG#RO{e7RWj7_jJr}JHUJK|6)*5uy?P07e?_OMwzKD2
z<cNutC8_*q_VCY?QZZ_|KHD`1^Ia%q{d|1~`n4`zx^(H&r%ybe(qWi|ZcqEOQM6Oa
zDg13y!EG1Vuk7#^yZqf~<}Ho}^St)LLGr^;o&Oes47mFW+Ao$ktc(e9(up|P*7%ZR
zd7ak(f*Q-vL8u^W=J|!;a&5`+YM``;x;g`_g?yj3^GXejJfgaA;eBi@mmLSOvdpo4
zwycu&(pUERVaF^*SG5DVmCvDXtN+ZtSGicUK=7oGjX&odm>mdw!DGt~X)PArMxJMY
zgA@5I2KZ6?i=SRb5^x4b-7Vl|R8^KZt{ppmd~j&UW_xF6a$@2_P#{Td!@%cj1R&h7
z3Abeb>N;xcr)q}paHIF|;E(P7o|@W*zCybI<~SofnshF)N|XN|0P?nD=HmI(@Y=Ng
zAscQYvdi;7&;svqny8B7^==}~su|b`BXk{M(I~yB+<I)u8#n!_(=!KWxHdAA+9a2d
zJ0%Wm(ARycJkKf|Rz1qX#y0M#HGe-f<4}1K_VBXNyRK9L$0!_5=kj9sf%)|InM-|0
zQsg%0;=-#Qi6yL0$Q;HK#|BJ*f<aWxO_T%X?G+y~@rlaI5hTvvc8K{=+#u>mRbs=y
zc2F`kg{o6XgZ}H+uR#?>9Z~`NSP?G(FyZ6_&*<;cQdXC-dcL`c>;5)U;msd;_wF5_
zpWEBuG2*+7$Dv6{L4i}VNHO~t01ubE906qYd@_2<84`>|`&Owx(^FGtlR++~Y|kHZ
zeM+rTC}{17WhggsH^T;abgcteL;D8@kYOpYc7gVIR8*8RsJ*=Eww!AI1mj=w00=bB
z69i#%Na$g<Rc`;nBr(9St=!G9JtVP6-%t74bSpC^r;j}fl&VV%W5d}(_=Qg|kF-tH
zkqlD12Kqlg?x9hlo*gVx6qMa2kBJIc>*4YvQn~RiO$o6PcRBw4$xHio98v6DblrfB
z0R*TkacBndft7Zk9chF52xLm<lHtn$>UEh6Q2_}VWd#LmiE&Wjuc@giU2747wD>wJ
zE6=A#z*2fz;$Y?MybqC>#)dH>nG63OpbxDA%Suze$VW-=AnY0i%Rv%!=(zN0?#N$q
zq6h2W4Vs|Y+o#?<AIhVP5LLeO^AiGY0<AwN+5^Qc5~5bXNuFkO@9*y)>}@3{BnSfy
zi@cmV<u$dlZdYo_z5DK`NDQyD#U3nLI&SU}7mwGN%y>5&U>Wto3w0{#Jqe{R3?X()
zI7E?kp(l$T4N~kK#(6_4vpw2wGFYN&A{xH*v5hp9EM(XicKs)rTyw;&IViM8@V<aq
zB`j!2*p~vtR#(^7ieJu!1_j;2KJX&i8S~@fGwodl^^G}O!I<e}nMgiZh18D`@CgrB
zRa8unXVG%m=pqMIBaOmU5Ia_4xp>}NuRY-*WSnGbvaxrfr*~k5&L#`Dt_dT2uf4&-
zqJ=bF;D13X<{KDzG@sKNaQXIky}I+GHb44I?b+>qfIWj0{5v}hDd{R`_?Qk9Sb<#x
zn#Hv^*sXVt_SdQ=_Cc{dYI^6=O~VV1@7{HnpMV)kY+t|3#;X2ewMhBqf7yX^a)kk@
zoIsH$n}CzJ{7B94(x;fGBl<p)3_<MvL~~y@?Bqg_^C@paNKBpUyki~QkP90DT)(38
z!_&*rf-il2e7-si>SkYfY;C;?Gw=*}E}{LYZj1p-LRL~z0MsV{)PW5TbughXE5Mio
zJj#Fv5nX!A0@>6llEb~>qaj##xNl_Xfv4pk5RjQ58EODHyC&xB>C=)jG91HaEY`ti
zi2F-PO0uxBM%;068ZL85R0s?&{1h6x*?hAVMlBiVsf{+C<0|2{9I1euUZdEKgM%Xj
z3c^_ZJT=cpboBJ)aF$Y1SiV@n&E~%7Kq!0gy_s;(J5wHaaeS_gRV8P$s7U2MRt{t&
zkmY*0Fx%o^K(P2r;hN~q^w=70jNPQ{a7g&BcJcLut$)?Je<p0>K1{~ja1t5ZxOf0H
z<D>0y5=_x_fr+AGCkVT6CfMJDN(SgUd-4M7?$PKNNN>ZaxpSBZ0V`ccCrZFloI$D@
ztDmh36BX1PgG{>93z4j~6wnI$dA(sMK|rKT)&_rq9)fmaY~kj^#CEW1A<v&xf-QOL
zvC1)bXK()IXy03;E-^Wy3Cl^py}L`=79;Y?SpKfRXf~_zkUK;~%=pi6sSSgB|MfuH
zvRnIfTc@Y1=C=SHZJ7C_3=p@sQlq9!JpJSAgUU?E4(PmAs4<jpp^cG}k;y2CDdFDd
z3~M??Lg&0y49Ev#SkqELFAQ=_NMOY50%PfIR}+vluc!ayd(oayY|##d8-P<Uw81Py
zHZBFD&pmU&!NE(ei28Sz5wB9AT=WcpN;{2ilZ~-FEZTn#fZvIU14CB;+s&Rgv_U`C
z?QjQ%HGuzo>~YL^-$yBXm5|70q>}6gg`bA1vlb@XK6P}tICy%vp)oopnwg#NkIeXi
zW=9J5?IeHv6EH*Wj){W-8el@gv@afWhO`4L@RDm&u-qNTR`oL;r4)Wl%*@`nw@Qmu
z)zu6b%wnHby)TGxWR%?38R6&Tl+92cK1dahN0*&0aN01Q-1>SGx*F}ZKT0k(dsR)Z
z0X=Vc?HU*cN6>;_(z^GJ^}jn!M<1lf2eJel23qy{)L(+trj+*(3P&>jDPN2Sg4UOF
z3TkwOADSUa1}_n0*%xc|KnR~zV+Saoo<{cNFPj#_$+a_`-{daaT@^PpH00UJcG<JT
zz(C2=lKZ1~w&rs8nOe^*Ly?HYblg_ZQ)~*FL<hBy7oVy)^zCY^dz}uu!Rixc9FCDx
zy)J^NJnY-Rxfe6V(!a2b2H}C#Z$!@$hw2t1bPjhX$wY-xn1zVV1&cp=>4na=W?I)Z
zM#h0Pj%Js`Wj41=V5q&rS=-p8DWK}Cs?_E}U?eP-vAMSV)m4{lMFr#A#e<ytol*v7
zzeF=CnUzBtY52gI3-~fXW>%L!w!gUYsPp)*CNAOUP~8o~erIJhO^+S=#f0}vw4^a{
zt@ZT+uKNP5YoPdZB@Squ!)pYlm?B`mie!axSzi<O8BBOchM5Jp>F5f1Pj#_66w29V
zKH`ASD2}bt8+|$Tn&iA<OH&glPQAlv49p+I2(OW)f$Cvp4!2>)!sym{xvr7({0jkz
zo;Ao4aNIz*n%r8<xPWY!SyiaOd8U_vnhe;fv(oV@-<P(4ZMNum00|HlEc@GAT>u?E
z#DZ}9miqoXgQuYew*%5jgs%p~00}WhZ=S+$65tKn*qwfJtJYm8wErD5^L(?Ef1(0{
zhFIs-2BFQ(G)$Xl_AYcM3j2-yy;nPP1ylFn)@9ctmaK}}H7xIdN>BIPkai<}RYb->
z#Vt*R3-jl@f#0`0RZun>l#UPEgM#dm>t7KL4jBgvs0(@;wEp>FCXFpDECgvA`{9Jo
zpDREr<y!E;TI^AJiLj2Dut()LL^efR^SeGw@$~s^0ektzD2>1GyxkuEu=6<FXYAbe
z$~e$wfeIcl4n_&4sFgc8I(BWhU|e-KD31v{T&Oku5DV7BJgaSak6yW-;=viT<3q-!
z6J3lTS_qry6uiZ9P`-i4!p8{a=~N{xZrK9X50R8_f6L_56tGMOMlCP2A>wu#k0d28
zbf?h+trlWX)}c!C{J={$lX7!E>V&IkIVP_D5r;^FXzFNA`-qfqr-}BqwSIT{Q|v_=
z8X+(XsYfMBXeufe_N9C%5c_JYE(?o7F=+I<tx5@q0Xdb%;I2Iie;*yKxsnJ5`dnc5
z)_mVufW6Xw?~+8iTslETsM^TAixTI#Wtq{p>0CdqWjx$>6=l|TsCseV-NG{Q3EmZc
zrUNq^2#pbard7K(z>|@~8s|B|oComMQjZ?J^YOV2P7lH!o|`v){(4esIZS<e{??GF
zx;a*~9LmUIVq%E69w6EfXHs3d<hZjsiOiV==oQNgARXMhl2+uSYmqmf%N`vbtU<hC
zw;*UYud4HQ2Yv|TopSn2vFou%`^l?5>$k21NfrU873gVX%(Av~-3y>E3H;4FP%KYX
zO0!$|!xSV*x4rB(3851*mI6RFP@znPWCpS*`2E(WN8tSizZ;xGzXZ^AET5)|#E6^f
zhxs5i4b9y2G$l2)Q>&2QhR-dO`5qQ#&1Gs7T9@}ROvbn!I@)iXCMMG3YiNyP1dw@w
zwzzZTJQ$O`M~0ZQ?;jq~jZ6<AEy&Pl1-y0<r*$|sr_fN}xdQ``LU>`CV-q}4Akge5
z>VtfHB;HYh4xYARNqe?lU99Ww3-I`mdO>Uetl*bB(xg86Rd3JGyKd_!HA+8v6a~Zo
zpnt#&x*h=1v>dHk4TEP4<<cGkqC)CGauE^+LGUp(JxwnF5y9)@<k|??7$%*Lj~xs<
zugN4TfZXN8{QSJo9bceqngXqWJl4agBZ(NjA}so>0)^Ryg9Rb6LpibnUG~75g!4ds
zLl;XP``h7JmAAOGV}bKF2-Ku)7Ok+iy1fr(zASg<Y(?n5tfm>h)Dxw>vn+%bIau#-
z+h3^z7Y0LLf<Aqkfs+hx2p%;6!llJpsBav>z(t67*WeGBOzAPb11=K@bP-)Z$PhF(
zR>9Q*M!0nH9L4-lsXEm{AP(mM5>Ai?lhV;?Mbqa}V;C5?AixI7(ZW#a9-KSFoKHAg
z!NE5t&uKZYi1i#7M$3eAkHSQWU66d*TpEszjHIEarlzFqfp8s0idxt=>;8pU7YtMw
z`_m7>!DJVZkNi%w*v`*cq1qa(3mjm`gGR4<ry5NVlzsd5EkKl@P$RQr23K#K7x5^m
zXue1dh(ufMM?A934*_pDbL;f7iJyNkj}0!RP{Hc6<GW^04rqw_nw6E+W^~c;Vde3!
zUB(s`78uAPVsa|KdOu+eQOo$T=*HZst(KwO>;0pkpnx@a&K*}$T1tLa3^-lAo}DzV
zuCAm$Z>M*vs_ti-eC4+lq^+|81uI=j1yM;xQc+P+jJ3dJ@%Ze;a}LiwuUaC4S0Hrh
z^B1s$DxN8O)m)=CuxYZ`Yrzk<#}l#}>g!q9*_|O>Y_u=&Mu_X%BzLy&N-iBIB%<Os
z*RZwCJ;4ww?~)IFi;n4pGlPw5Hf!bw*&D8wpV|IVeT0L*IctIiUivij8i&Duer6ss
zhLXl1gs<3-;o&gN$`ELA{^%#V9}f<v=eMXi?i@Y6_c*Eg9v0{zrOw}0kdpn~2R2|Y
zVY^;v6QTDwWyGj)c3HR;xL+YSm<2tZ<n;N50^JUM^>@gvHw32R(-!;BJ+;%hheqGP
z9ub|fc5^`v-WAgLHkKesgx?Q?MKG(In;`58-Hime+QhoSUxqn@=E=LF(S+EaAE_pv
z%c0Q^6Mxu68(Vr8I(jCuOJJd;g1J<2kpquaVZk<0LjeFF|8vz#P^vpTywzt)^;yUA
z#R;u1@<zPWK;nh5XJB*+)2<mQe)J}J&%J+WL{qk#Go1Bj9uRzN!h7zHH^&FHLG=rT
zazJ_M05RanPLeqk7QsGTi4#(mI0e`=@iN3vPhr3t%<%<uB(v?=;tfR-J>L2w0U2zG
zqOr+vA));?cUDE^8g|_`tIX$^pBdsHd0D`!0p8PCUvC8Y6&Oo4i-9a{QB%6}#F1%!
zy}u&)mmm#7OtqvWy#B||&L!%NZ^XwomtW2Cm2@W;Ssdjxf3H@R!U}#}|8+(95dvQQ
z{+*(j3b{T`^Q3#SCDgZu%iSP7gA5oBtwox02FUt?6M|%{YT!A27BZx}mw}h+UE38=
zdoSqzX&%bF=GR&t8_YHT`5+LbEh^0N4-+Gf00Nv`?48Lv_9nW2HYy}n!rj}t@xdP8
z|DxTYJ;rH!n-<cK>KfUx7g@vn*S2i_y;&gA{Om#nIxflIBz>>~kqmQM>2`_7v}kh!
zWkB+&lPOGFu4Di3>d%#M&(JSclz86A6pAxsb?Bh+6=q}Z{jyZRQ1i)v9BA;N?2mfg
z@v9P<UH`)cK;96lQ;2inI0^C{LGuGkwkF%9dM}5~#|n<ZRIXfZB|7u-FP>ilnE2`C
zE5|0kh<XqA3pbdgitOJJE$1F?AZ^Q`&U(%}1nLI(>s723?4EW3b{5PXa)aiBf5yGb
zIPZs18-|bX2c&<H<b7xu=tg(ie;C8`?c_jr#^k15SIj}of~D(Y)kj#;xUKtd2L5d!
zl)Hqr9I&y?`XQZz)-~-FU1jBN2p^DmWy$Sm52`wHP#PU*r|h)%_1HU%IyhupQd(G9
z3$$6|02YYH#vP#eZ}s4TEYwKQz=aV&Bs!2mK?2=Iyg;AB`S=7i=)-iuV%r%7XvG0A
zf|QI5d?qCLf1T{*vmW}Mo1{FtqO)BJ`@FS(ewa$yN3wx?iST4WIlkorg_8SMgRBC7
zC4&X41vE}K$bHz%*`Gtc$NrQDvOP#lz#062o*Q=d<{G*$T2J<u!bG2!=ciRJ?={a0
zhfez#IlF7Wy}x+4i(g9sGr+8rA01?M%qX&4gh&tC_sYhV^3+5i0)bPA2<budE;M;P
z{r2p&pUC|Krt9@#+QJf5%X?(Bse7A8pPDwqo1r=sl5}Fb@ZZg*7{uh9%lok_bm=&*
zrAz5Aq+QQ3)DV*m&Xj5Zdl7y~V_}Jc{RZ!qCJE#Q0yccvtY5``J9_+up=_DuzMZ9e
z;6=P@2bi((G2^pv8n46!(9&~%DugpL>Ho#*!^MdPu4rbUiKf8AU5j7It&zgEo!wz6
zZ8_NZhc7$usT>DLM9D(AruO%h>*t54UGwwJ>e5P6H?(M4TN~Ie1`Ly&QIMqi-|wyu
z%mz@Gv9>@!Y>YfZ46aaf{`~B9=#blAJ&73$k*Xu>(sFivcy9%%rTuaGy0>ja*NaFy
zKqYMyN`a!#L4wWIt?`xO*$1{Ja0FzrV3sVig;J6~g4OR|Gk%#jWb&-<h=Srw-O<@I
zKS%!C{<2UK0tgzi?LVeJ-oAYch>luDw{I5w1}Qo)e0mIX8YWkvg@CfyV^{J+EOYU#
z{Y>jzGws2Aw+||+^ZGu2#pummWzBlJ;qS+tu)51^0v-VwIuEH2%xFzWNI)QND=RBt
z0Ag)HArjy}8Y03klK@)k>FFU4%P?7~Z4M3v`$|ix^hC^}WjYJb1>iO(ojlbkg?9-k
z)W+*Hf*2gKht2voK^$7E#G&mO_rEBNft)7Sw9mRF>b8#$!gtyT;N_CAo5Y}3q(Vw%
zif7AQlx54JVJCi!y`%iq@_%g6##@+efJUZ?fi=?xyz9#YZzNEhY$V4R!*nw6yb$dQ
zSWifPY8IirSNf!EyJWoKd>5^&=!<M~{!r4Od@RrH-&xAD|4dd2^FU}?qQVSdf$;cT
z#dBW2QIa+}1}a==be2LNeb(XfEAz5%D<h)E4&E%&;?p%0uX!e??kRbnv(-z{4k4*(
zOM^<fg3nkP;w}`<-*OvP`})rWeLlSF?)?XIy*@Zm^BP9sRUf_EceN!0M^`(o*OtOe
zEEUpkj^y!s@N;(BkX}QT-6EFPw3j<iO>;$x9Pj~^G?7m2_II{A+k@Rj#94~UbEQxw
zp-kt)_$sk_{dF-;{CDczof4f0T<3eUtL{O4@-0f+HPQFN2o1>#tpLjkPYLBYf5U*t
zNEMdLM{JCewcO^JME`aoT~%;{ygH*}VHE)ll|lwTCo4<iOF^HM;CvO5jQl+|{1T<O
zz`(YnI__qO>6xQ|^aGF}tbZ84DxhA~+~A#+%BKTG4`I#g0c?Z3?Ia<g-QV9j``asE
zd+jYIGe-n6A^5Z?S@BXm2}K7=qUzHpzp?K@Pu8y(5%qN4flMcc<&!7#lbH5)2LE(4
z>GKp8VvMK+WIx180Gneh?@wxZRz-uWmi!~AQ<dL8X7W`Kc>;IATB`wgbLl;E5G|{D
z<VXIR0>-q(aG9n6aQ^^Hh7T}X58%y0xXYkxnE4lmqKdxSG&MF(?e&D--NbfqqQvxf
zgyA{(_>||Z2R_5S9J=WqI;Zv(M;MPvpyU{@bApTjPz2KW_wO)gRX~3zul&+lc#+e&
z9{dtH1OSNS1X~$lEF369zdqaoVDUXhyl`+tZKmGU=)(1p>;uve+Vge5KoGflb9#DO
z4tR6G_j~<1hUX$bw4*@q2{5td{QZIIuF^ap+sI)d+X8l(o!urR%Mc-R16hgk)mx`8
z&c}pls5Cb0HKD_ug2qSks?HGc*_4n*{HvYCLM{hPx9L!I7Xaq~+Vc1D=_|B(4q=Gp
z<Fu|H7Q?PkjsWZu(u67KFxlN)XzH{jxSrh6uvVhMX`k2v!_UE$D}R><isIw1inlnw
z6H<9y60$Rul4^v+6mmJu=Lg-SD$^BmfLsI2OkxT`uE^iOJQeiPc2a)W7iF$ErNmHi
z#Ku3|00=`%E5G<?`+xcl_Kt@;)0ez<0CaB5`o=ytK3>h;{Ql|#)*sO5%3sZmK#M*`
z(5f|QGXg!}`T+M{A|mwC$#sj?H|C}~gweNHaq(2eRG82TOOpdjx8DV>4NL&K4Jc#^
zF+*&~yx3dRGUDR32pp&dZ=x9*yMfJ(zB&sulB>+j$+{k(Y9F8zJ}@u<87ow9*)IA5
zIU4vG2Qa90(o8u+t%my%K)_3XdHMMP*??O1hYzHqzSX1K`)eRVQd%dbIq7!!$a%U}
z>3#7v2bmQwuZYAKhC|<fN$YOp%zuCJR5^0tM~GKQTBy33$&Zg;)A9!Gx^4}ASC--E
z<d%7I4{h=E+MCbE8V$^chv~JcB<`Ltd`9RfLSHWGb<_LybIU(<OCr-zt&aI_M~47!
z+Szur?6k&;iZU@J!i$A5Payul#|M~htcd-hMq$sRhYv47nGcQxEQc2{4G6;vNB&aI
zY$YF76hjX4b6)DaylJn@7~fu6VF!6E)CM#~t1HKCpBgazP1CGg+&d?xJsnFKl;m_k
zU-e+l7-@pMOAJ?fgoTUE8}&gndhgzA93wNc5VaW}1i<~552A^wdH;@j(^H^>8+aiu
z0Ho#jilVG6T-^oe-*7Jwy&|)Y^M{;F00p-z)|~qWh8vEE{am+MbNG!A+18#Odyx92
zcUgZdDT#|mY7P7YmemsUE+2z}AaqBPSny7ZgT-!p3;C0-E^v4(%61GP(os}YG&G!o
zJQNx60Grwfsb#bq@n&k5muc+eKwYHQ^oP)50Rv0QdiOMN{Q%b-0)jpH^YGA6J{XkI
z+1UwAS1)JUC*hESAECKzonUhZY3*|-IF11Lz<T`r`7^A7@ZNk5Qn+l{>2iD00st<O
zH$#0X7cx{|bK?8{`M&{`56mC5Q!lJdl@sVS<y#0uoKwVkZ$c?IL20aF=@1>Ya`a(p
zeRF#Il6{QNY2sUd=Pa#ZotKYE4c(rs|Kda=>;Fz6UcGzKKF?+zN)*xYP$uBO#C6O7
z-~(7jI}|$5fG-77c(9pwxz59MNN7`lQ5N*DC7{vD+I1Fm&Jl)zxVSjHBC!bw3TgRF
zRiPvSJqCHS+W<}Y<B;hKO7p^8_U(sIK8WFc@d0}3p#FxyF523|03?ZQ_UawMEDAd3
z<;r*Oh=Lm?{_X>Ovc5RD*C8hg(9Xin+Vn6G9$|nn7sOq#rz`<UxqtsY;rYu2u%=mM
zyR(_ai`Fqea02u}T0jEAt%C<2TL;(y$!>0$bZY?r?$0Zr6iUL~!FGZ^YAy_*oxs%M
zqauRmrV({5(aHj<=5qKAJ*Z1SLsB|Yp;(s*=>R<82pEx&k&&0Hzfd*4Jd&ZD7Ee+7
zpe9sG1YnI@wC9O~6ddjqT54hEM}y+BlrL&Wt9*<9CW+O3=jEewRb?JLw!4>XLnCkc
zLCKI;&Y)#*#t(urDB?gO*V^3tNKOtBy~i0vc9D^i0`ya6&_uyeVRFU|_VX>l@eGzm
zs6?hG+M_RVKdS&6gAC3bsUU!VlK=Czpkf_xwV>t;h8AhG&q#z)5rR88IqgEl1p2p-
z);x*n_wV0>XEixD1I1#9gX<d_9!g0?0MQ)M3+)9nq<YkqsuY0AGV8JUlRL9KT1}gU
z)Sunm-63hvS`;y!(R>vM%|BX@&_XDehe$6N<@YDc#V+<nS}x@EaH{40g~0?6FeOrq
zn5-u?7OvFNh)qOVl)bPeD1!hJg0TSl=f5JDFfAM*BzoLPEo`jvj7G?1^7;8LA(X|B
zw5(8$@^UJ2oz%Jrgm!-SB@wOQI!yFNCIjT5%3+fN{SW$tV3CAx-+t;Bt>&Kf0z2Q8
z*7LGQb9w;6K?aO+n$q55A(CMz<jj^&0nQ+nFi>Od8wXQ|-9VC}3Id6!oJCl!%l#v_
z0L9c$P-use)`DHJY%&c5%0SIOgyK)cFGI5sDC-^Or>25s*jQO<b7kV<;$mQkhg!;R
zBgOI<)X&Gqqt*Z9z8H51v@1p+CBf*$l{$L+#SQ?tK&ZXnJRjzTut@n2Dc=6ma~Aw|
z`Fw2p>l7>Zz<_|5+crt#5*!sm`6x<~3J9f8`|UZ?0iQT9?Oi?7EhC@VHX)&_P`XPT
zm^-NE*7Rl5#Q1_coArrpp!?E_y6(dl&;X(X04upzTR>%6YD832I!hxsI^*?5@+Ib;
z8P4lUNlGO`umf&se@jR}s;4l=doQ!{sfI=r?y`teXJPh0&nZkhfOueFz)``W5QkQ3
zaq-Q$o~7cYvi<_Ac)J+2eo;3NO&4?(OJk&@)7p_yfJ$=Km<Z?-WEtiZ!pqgs3A<db
zba4_exzxc(R*A@7@}@yYQI)J9&|R+^;33hFF;;wYr`7P)nr-H$gLuwq+O#Ej#r_`D
z)P{4fa+04v)>Nys%TSH5LzRIz2-JTdM*tu6tFf^WH1Hc5W+0i-*Vp&g>MLB;NQ{e*
z2epNlkR`G10*v?y5(%*3B*M!TaOmglUctYtsj<vp?E|*@>_Bh&Q>HX?&{~IL0tDmI
z0D|G5Ey5XmI3OQI3qSh*6{iEhY7kLzSF~w2)lQNYJSa@vo4hRQs*$O9BO}Qo^>T2-
zMJg%>5ZF;k`;82&Un<+nR8M-7CO$*qB$n;1eY>Ky^|no|F<H=6nPcYXiBjeYksv(p
z0^A!ty&K?4VB1YjjpP}dA#nxH6f`*O_NLSH0NKTS2T)B(iL2*1^!x(NWga#vHUUCN
z!DvnhCdOz@`}+D6u4X?sFi>*7$1x`^7IJvB22ClCFB*WLyj}5u_R($_?i~$(izB&a
z+9&Peb3=Jq!bolF?~@LGr68>=`zR@+0!T3HOzJs;z4)J`D-ZVF#ORWoRd#VnTa0><
z&DkQthH(=6M5olHi4Yy#pT7th0-x6p(cFoXCtuX1<|+N1n3yO!w|wTz8S!{42wtE9
z^e~Z@ouX;BD@{xvI&U#>FgoJI&ZTul#KdT2K8JW1C*a%gVsmj&J+mJop*)iz^*rOm
zJgkI-HVo5#`t&JG4k-oYp{-Wwr>=LPvdl5`47|#Q(*abf8V41bF#r%O0km!fw33Lj
zuh!|xCR$oUN|qc5_VkjtP_Jd#xTxc)ZoVH*WVZ3t$a90qi+xJyOFg_P!C7+AatLoQ
zg@dC4aDZvB{6G%s>W<CB%&NJ=;E8$I%Kdc^#Da^Hz)loS$MgeDspdR1BHjVz0wbf8
z@hS_mwnGcIJ@vvE2q`Fo)XfWP3ay}CGWlT*z*kNTRAc$6IAaQdE^r|Th%Yap>IU=8
z*;PKuo?BMRiqj5g(4U3x0sjX8d2~NCB!qFOZ-TAy^729)O}tBvWsQ>467;5=YHTwI
zTdc^I(9k(@R<mmGwSgA+G#0mj^pXJtavNbXFPgdL=5_>mWxIL)ux*EonjVBGrl#{?
zs-cA<U)`b<3ew647>M$@*xA!(ej^FekJsgp*g~AT10#9ZDg06aJXv_PJ?j0uIs7UH
zj(1GF*8q^Tba_4jnzITGF<=AH4Xv%^u+1Ul2mg=;mgjc4gSq*lS^i*B^i{Zc6nI#0
z{v6~|AtnT_U;?dYHkKm5-2lRxoSba(YQ|(1nit7}fE)n3`jOD}Wk{>woE~q{>-sAb
zVgs%Wjht<csVODco3YwMq7Z;Xyr5M~cQ?7C6ud}R2`3$K#G&rVVm9aUjmEDXf7}M-
z-g;~4+2+MyU`6DUfr`YDKM+?Vy?`n)gw}gCy{^6K4JQ|f^ty~e7^n`Y99r>T4h{}_
zGSrc52%<(X6t#7Arw9pmx3{6_WCmg$5bMGESZTC#VxWoz9&&YM#SyYfk2i0ih57<D
z^)AfJ!HS8wz^Vll5A%X!fUwR4VhBB5U1(+oZ^(&(*YbT_`m78h(_+7rDZ-iWrgam7
zKq&0^st=@%Cq<e^+_o_U6b={<(5D48s(yHJ0K?YR)d`hJq_jn{GBYuWMe5*}L`DX{
z#MGi{aP#2bpoMd9TJ-2PE9)#wnX$LRI^5P&PTH(co;<r>yGF?uTYd$j<8(ka`eozB
zO<0<WTYyG_BvnS`v%k=$6TbqgJl&hF+AFAi#Cq+owbBdOrTbdjhLO?Hl|k%q1Y^Sx
z`W}c<fkMd0($X-%Admn-Dw7HRcXAh!n=eq!f*n;0aj7k&;@jKXV1dim+oc1FY|lSQ
zdW4YGAoAFUdJnYrAi*4zax&K0ydKAkBV9<a4I#A4*q#UB7D^~6Lvb3S#-8;-A4y$Z
zU9c&Tl);933HUTz8-kR5$jCa)W3px<S*Q1w%K52?S`5}`SQ07dqazfQ5HD~9t{Pqd
zT-l{YlSw5TT$$6hhtN%Ge;{OI6o3eueeLbuSL2a4Js}@RyLz_vgWW=#6u;!A@od+(
z?)ge%CpJvtT<QPhwlFJ`{RxYAbabTftLd<LK?U#a*s){S34rl|EC!l6)gxfw5*`Nc
z9u2?sLXN~A{yBtSq3TKz0#qMvAd$7kY^-Cc-@(|UXxZdc<AoMWK3TXCyW&!)Vt0_e
zpt2Q=w)@zln>{f(*>!Y+(_X^fWi>`lx{EUM7Aces`o8H@1D~yt<A-(&BobS&?bubn
zjldu2+oq2nKL#;22!qQGcTMbDJDC8Afd9rI{_c0<(k-J6D?+WuA0b7O$F8of=H{F#
zP@8FqR+56APP(>v>lsb#VMth3;+EZ=q?N0c8~mcMO;C9sVq*b*VfCoA1gEI-r?Rzm
z2?%a*9}ggz5oygZ2J#n>mYksZL_`G5pOTER3y`^}qocEN6C)hAPUwJEpD^IhzL+*U
z*O%CJLCg0nfA?&rBy#PIYN+4+nu7C2K~4^Uh(_^`QUxUXruK)ElUCQK+4q4-+Pq-Y
ztEk}0=fkci?nlt2F2;D}%4Y<3gzMkGer|cQN#)xsuIc$RIbv9+ojqa_-Dy&|_(+!*
z2|eA#i%^Z%=ca-alJ@r!8Cfvsf&mQ;UY%2<Ru{zdv2fr&ew>)`DUbk3>$EOGNL<k~
zkd28Dog!(EZRw`#<;pqcR%@vK{)y8!ONdV>h7s2-cj=aKCs1qpAjL{8hO#fUe=VE_
zr8MQ+DobgdHmxE(@P8m%D6)v){KRMW=Vq(04Y|gZWUIWh2aqwQIVdZ20nV}yq=kVz
zlQ0|+HE(^*=*Xm0{_nYs&2Km<p^~7GV2d2T`ufk;N)HZZZOoB1i&9ea%Z!5>DZKX2
z5m_&Ise!6llJG5i(EJGadYMT!1Ax{-&Z?aA9E<%4sgCC5^I91x^4IGr(dtG8sXZ#r
zhXsABqlLog8?23fzl60<ki&J|`%j)YVWe`=F-kVMc#PPFSlY$(3pm03!6nx%a7V^H
zh9ky_tu5_zDPgx!qT`A``Z9g%AAG4ai_WycQ^Ylb(%6=v_*A4Di^H9c&WuT&tn^6b
zymzFh(?+>7EygIH{Oa19Nqn<w$|dL;Rr+z2AoF)Dr{?P{-imVP*<4l(Mo!|bI2CK(
zGd!A^atxT}G)!sp=L>PG>VM1Y*?P5988N^7y&mdBB_ONePHiLSp0Abxb@R~&BqHlz
zPHyK9Th-Bm%GVa`9iU~Z6TazDFy%Yw(?CD=c%xJ<-PokAw2?P|d0{0t<+LbmSRL{@
z@A?-Od1_%@Ar3%hH-i1aw10iVJe>?YY($q3=p<m|T;L0!0B7wY;J~aY`=i$sqwB{~
z?sn*LbDBr08Pnd^Go3kdjV>JDPs;0@nOOl7rUlwxfyfbvY(&S>ia6y`{DE;**3;4U
ze-`X0y*+x`4TR2DXn%J*d^31BHFNXNxJrcBEO{t?lYQm`$G22|R2Dh}<jc_LXcx#!
z1Vs1XMbiO41j>t;?+^+Dqk9;(PM$45DP7WRy`?U@kA8HqVh)b&pCa6S^$dYhP?kzi
zC_}6vMG&}Um(BS;!Us$=s}M^`bCue{{rJ`+DIao6sktW(uKR724&-3s$Ue2PSKYjc
zV2<u-Z=fUtRe#Kf_wVIj=7Vn*5*%kuNG<B<!^A~A+8ntcu@*HSb-!2>yLk4@;?(q9
z_6&Y;@tw79hb6cZr%tI1W`JeHd;pTbnB}r;(Y|nEfh2Yw{aC@S@!)yRWRA@aW-OkC
z3;Wj58sACvdl`B)fosf(0sd@yQDpa3)>LN~YYp1Vr$!cJ$>)D)u;hMC#R*gW;r*k(
z-rS5l?1(YQ5z+G+y~nYu|Ck4Ovs5D%3=2YO#zMJ!1o>uJroUXS62WR3aUy>y?=Ilc
zT}!0s1gT2<+y?AqYGA)YIQ}HN8qfh(m~LobXt=w(i@<=kR<H#mP6|zvZ@Y-q{PD<)
za>W<f!ju&F%f!LGBk>e?O%P~%29-dNQ1A&14D|5<RkhnttcHn|KpV}CL2x8sR%*s@
zmjrRLJ;7p=bG*YsBUHrBfBcA({H8^3X1k$>1l%ag2j3$A%evL00Vd1=AgEmY$C?%(
zk0iNRfQkZ(?@*MySI|gjgOmQsDBPGuWX^TK^!m3xu>`-Yz_Ert<Xu!KRf$N)L*_gJ
zJe}Z=A9I0l29W@yjRW{PWgNu7$S;8Q9^Aj5xzB18ZkwEgRTBG2VP$nxGLCYl)DC{0
zgfH=`Q06a~bq5rfBo6@i(Pz53m2CSo{&TtNn>+1o;j;p$r6vLg{LOm^-i|Wmwwx+N
z7plG)dU5hjMuP3hvb3zgQ&V``p+XCZlMrN7!Z&VMLCyndkyGiA5w9<9&|L1(BVp?a
zT(S6T%J$n*za>J3?_0=!R7D1sqfiANua51*=)-PsB7jSQX}`_PTxXtdvXGkE5+hO!
zj{@+5`K8lZb>=;jQ55J~SL8QHe*alD{W083fqr4Zv&+)?4UeevgQyl#w}g`hpfV!{
zGFf_n<JNLyB6!<$_W^cV*!^GKy>~p;{rf+Bs;<%y$|#|nr9x;JAtSRvDnw?Rtdf}#
zU8zKIiINdfvdP{fr8MllWt5RoM##9IuT$6O`~5xc@BRJj{^Ne!{ZnzC@9`SP>o}gr
z^LQRQqhd3yoF$i7nS;j|MoV~OJ+3ZYd=8&DIvHtc13d$Dk|UY`z<&|<a8(RU%m5q#
z3r1eC{rb13hzD}_bLKs`mi+hA8oDVj-o7Si5mDTfNg~NJLKUd!?-N>eWPWf%Tbn7&
zE34A=ftaWP>r<>zC(6OS8ZKOzCves8-_RXw1qKFSVhVg{eIM(*CAn?waHEVvufNk+
zuak8(JYr|_GIKFKxQFmP3}h8@IXXKW2L-jXZr!?7h%g=Q+^O$OaPg2B#FA_tngp1g
zO&+n`iXyZ3V^yE#-=XN!0u@z{#-Yi(+>R!QRt=>dfb4!Bg&&Qt&H_2D!hwU>>)5e!
z)P8p$YXg8BkZat$u^t$DF5;r1wm?HdQ5@`Hm=p%26#RR%`yM#EALjtxMezc_eBjIl
z`kVbejH7>@XDK{KoLueitnP-CNfa6B-!xt=ji=y<0mxK=dVGLjp`nM;brR~q=#Mwd
zm)yPkDv*1aLqUH2j};Z_K%~VjLrTs~*M!Xza)-LQ24G=n`0vP^XsuSd@GloYl1eSE
zvE~znTpUI~X1d33V)x^?UnEXbRdhtxSli6CT#_D#=A3ujoO$s{hL;-q+T;pHY`Tu7
z=<~O`sAc!>T)oxq=SNo2fhbh$fT}(@zAJW6*me37f^}3N=EG|}_Ehrn1FWU&FLySP
zn_!4Q{Od)d-wk`txu0y=TL*+nOKYe&MVB<9TeWHxL~R_h*Md`5P*9K_dO>if=U!mk
z(9bhPAqc{Pq?%-XgPW+3ralY^(6-G)MT3&!z?cvErnB@2C@E1Rl$AXb$5U;h-<qG&
zI=ettY9ia4I}92uynK8gs?Mc0p`9*^5+Ylt5GSw|^-uU0&QBy!_qxtIzu!28zH^_>
z?Di;y7sH~2B+I?AD@ei*qamjPxPVDXS70~hr{2o~Pt0iLL>TXc7#8S@*6KR-13%tk
zONK~&4wY`%la>nS+~|ZqiGVyW_k8_oD%FD(If(jTK)%yx*$hvJU>?e;9H{V)*on~J
zb*3f^_`T|O4OP|8;MOhtDqN750UW%-Gr}aYCIsy>k(-f~Eu5WoPAEB-oCnwiyUV_v
zlK5!d6Is_AM~)nUX+>lQi9CeBz@<t1!D~r@4<GJD;R~kJ{q}7j>*m;bV!;V7T?ag&
zBQalLA_A&K;ecf##OHwW8Y-gGtB!3ZvfIot=Ypj<BD{Wo+ZuAD(&zxCVxE*~>N6nW
zv7L$|$}SCgq)e3bDS}$Y^*}6GP3m0yguR$a<ukCobrcbe0%_aqJbLiGhJ=KK%gi`J
zNmO(V*2bV#^=`Z4U;-i`388OnzVJ5MuD)R)SqVVt@Z_*G;i}?fnMcT4-}gY@k^?He
z2QX7$YY?JQzc9`w<fVT?<zv;#l`$ppSU*z;>%b9IQBuO$MScmuG;E)-_asppMtLXz
zPNa24X7%93ze4#%tCh;}<NwsBV7(&sfJiX6YYjv{mosvQ1O+u?hvEq3gcuOU3=JP`
z%D=%3Z~}e?5*-p4xRHe=4cIVg@rcl?T%yp<bpWkT0Xs~<nh64NhzK5pO9PCE`V+Y$
zEi2A0I3snQoP;V17e;HmDU$Vj2xC#yqvL-Q?t=E?%Ng;KPKoXFSB%b{NQjDkdVT@$
z8Ygfkb7tnJ#{vQaulJNPCs<)e=qe{<`OF|CL6)J?+l~%b^e`sfD!XF{zz|h)@xle7
z?nFeT^RB1*_^AKMO01OynG$guRtz@eBLoL9*+5~xhB^&@C@&|K8)cWQCpt=dU;Zc)
z@9-!Eq;Rt2Wj~oRST`K*7;Layy|D9fWc0x4#_D$Jj|>3c82?HCwE=3BU}<6kk(c;5
zok>a=n6nXQa|*&ST<?oRSSzF*$h2;T`E~dUNa~U&MW%Ky#{=XTnzi|<4<A2%`DhsL
zjhyN?tOh%L4iN{?`w9r2PRQCKKKAnRdRkZ+vpO;KrYp+B5F}iMs{qOd@}m%~i$vJu
zZLFnbfO0&<;O5CXfJ?)ih9%(jX`c{EERy<bDrJ?Oc{qF-IaWJXHfe|P0LM+kAEHP1
zyB0RjS%N5pWgZIRYG`PC@_7~JD!Yd}wr$&GRN#z=4IqzSiaR7!Dmk8Vonq-l*kFlp
zezF_MEU=r26AkddM5PbF(pj<K9jZ@8ktH{C0oH-&G3;ej)CkUSpl6BN84Z^AtUrfK
znu^5zuNeyF!=Soh0|0_TlT4u@?X;m8lquO7E^kMKDkmq0Cl)AI`Mr;bEj0TOt|Op)
zP$bdQ6+|~z=EJJ0C_V#a$^N@k78<m(3+mdS%8l?lU@b&lG<wMiOZ|y?*KBqDq70vY
z#j<56^+C13ThnyF6XKGRIoPeu8t^qN+ViH7y{HJ0c)s%^7{DQ!dY$~obCx9S9N@Jt
zedOU0cI@)`YcY~ExK27v$>F`s0G2W!Flc!hhS*h^(G|R$P5_M3U||2$8bsjx9y$r9
zhE#@%u4S85ppW~T&GTERSQoKBf@9>Qu8rieIVp(-)%{6ZG<OYSN2mKO!2+)Dx50rB
zdH(-MR`40HfBy98Q)y`*QcH$Lhhx42NCDsV+hc^Nhnm8wEHje~a!*CoNW-HncX5Oq
zJ1mBJ;9e!IIs&k!C9xupZ>Y4nAv<S@Fct1>e}6w#lP+A1Ci8g|bEHoqU@>&6#4baM
z&dlggXKc96=bXG$>N%X59BR7VhrK55mu;s$b#a-f-39lrs5gCVk95thl=eG=n>KWQ
zOk(`6<jxMYAc7=800s&XR<Q5dEJ~|K(Q19i4gt@-7fS!($WO65AF%J~aF?VRkTc-I
zP;}4uIkF4&EQ;RT(z?OFtoagx+5j)dH5I;0<^RQS+anEt#;#qv#KnJs6#?|$*Vh--
zi3GPNUA@uj_i)qvG!Eg09|F3(*|1<oqF!hjTYsH3p2Zu&79iD$vnk~FPS2mU8tQe!
zz-iUKd-e|N_uQcfQ*k+x5Jtp5h7uqm`i`_2jx@L)_Z~a|(De<*H%8WVqUxgYz1Snu
zn>x8zzc<qSz*w8{v8PoLO^<$GUy%@$ld&X;%WVXd7DSNx`mL}psVONy?x87xq5$TN
zr&F)+#<oW}57hGIwsCLVc-pEd8~z)$OGnOD$;M_J@F6+YmBI*@vo&iEmD+W41$T6R
ze2{2d&t^&d!59P>-MHuN&E^X;0gFV^eaIrW_-<7Jmm3z;i^%QFm^EeTFR|aL-B=jX
z{oY6FtDS_<d<;(3GiT1cp&!K#ZqB+fvxMPx;&)0O$MqkD@6x)exr8-|Yh6^g4P0Rv
z8N;L5&2$b4{>|7+d9cAaO)eQ5A1(V;VMH{IZ6pnj9rG@`B*4BaomrslUAgC{`o>sN
z?gk_ohxBQ!x=(@yi){GYi1jO%G9EZya~giYziAJl72YTa{OHdI;^hsXRSOeIuJ=j-
zriN%&rI$^n>ustp(1O@pLWIwtt7*RBm1G^$J^2IH6KiG(v}`)L3pm!7+wA)AI~81;
zPy9XK^=*H;2P=tT^q+FR??mLj4pg<L*Xtj9pv23}o-*(0?Ch+YW^y)Nx2C4%lk}sY
zAbzTMiUr5euFO<|uv+=MyDx);B-lCXGSe@r*Rpw$tPFK8d;;Cirf?Q}bI>K=WbW5|
zU`M*hK#gOGg*|#S0iwJaUHkQgJpbNrpi1li7}A7>lwQ7}D@^(|@w$7ZgaQiZ7j&AJ
zBngGQ3f#a6Y9Tpd*Kb$N!q!y}*?+<|^T8(ZcO@lr7!F&+t&C5**Jjgy6CCG7c;Bz;
zMv{qj*i|S(yN)&pI7ZS-&L$LRvvn?Ax)iB^!AUDXzB{R|zgs#!ro&w@QnbwOWgAkl
zsLE;;8^O}jUQ@veUD^XbOSe)<a{;jPbI;v{Ek`v5zleyY)HB1m)0ct#>I+Gbpo3Zs
z(|hYnSK`&7hd=+<tVoq*l{HEv4RGoq%Gtodp^J=__heZyt9HLZkEt8GFAmgL<jkS4
zkuZ)sRvZi2Z-r!&cMG$X=&KgnD4>F~vvnyo+i%<buDF!yktP<n#Kv;UgapIw1atrS
z>(>H~p&`59YT|7#M3t44faVQ1rw<~Hnv2?+2k!)0-xB?1?0Aj`zds5jJyCthd-QQ0
zI&ACuPQqJ&;kbfx2FMUtNe}DQ1o9^#He2J{2t|Mca5X*6em**eL#5rr$43@9S76Zy
zfX3hwo!-T!rS)s5<rjEA6;JjkD58o*T7@CowET!)aIh0B(Pbkc7B;qWl<UInWAjDe
zBWYi=WEMQD-s-^)QKUn$jgG0SH%wMH)FKexPDQ*6g|xs)aU!nH?a)d0E!h-VcZsW=
zZXP7H&So7aqpeX-%J8|lLjwZHy|wi{p)sQb%mW!7DiudkZQ|4$Ejjzi`{&X<JOn>Z
zQ=IQj8m;^N4a0VIVo#uIX6rSt$8%{*M}uG<Ode>Bgf$FKG*7hPbS3L9PSz5K6#N}*
z50qw<fW$%^?mKsG{QR&3m^1*p@b1Uyz}is8pNQWgI)yt-@;!J6RBj;u*Pw080a^(h
zq)ofe$icY7l|o`2ixSGUh=VggS%&`)KW)Fz<)r!e|0V0<#Pt74*5#B7uvLUI3jo2I
z=kAst{Xue|(I=k6_ehM7-<5B;@LqP_3W;|((swt#TqFEUIPQ!#a1#%kiLr^I5Ue>j
z$(KVBNK_z5v=eD}9xH3UCBW_G3Uh_rr!5GTL6+*FyU)sl@&<t49s~;D?8rwEEoC^l
z-r-7bL0Cc%hyCCHr^_B+ar$NXyy}U+zYX9)O=}MDgfaNK5Dfw*YV(Fc9L(K2w{N%M
zW{Ara!2kgx(a7ucW%z_Y!Ky(V-)xx)FyTIj=l~?`9YDq5FQ`E%a_<n<Dyr@Dew-HM
zHd9(=#sho?M<pD1ApDpqlyJM^5uwlR>>~U%V4yJO8WhN!ZoTf*7b_In`N%Rl`ZlsS
zgw6wQ^?F|f@9^<<$ijv=P7F*SRTUtWUulA3xtu{pLp9~+d-m_wQA8QF0GoNVXxK=>
z9*Yiss#4)5i=kFEGv~<*^(&0a@0Gq!&|PD(t}iipAZ#+>f}x?ILBl_JrVx7oi0x4d
zzaviLD+?{({C}il8rreU(wodlt_Ed4XZ8jHBO2_#C$b?tJY4eWF|E30u2<$E$QKRS
zIe}~zwWE4>pN-^D2m;IxXyLN3Qh#{K&`ghX*yGqMTxNZs*MM|_6ko{m7?m{}_g=uX
zz(MEBY`h_Xx$6KWFa;v9<gcz&#POgu=Q~c!fE>{#tr5V&!h)0`>dEB=3bpN9?T%ju
zrU9aR^Ou`Qr6a6`9zVjjmoHxY)1D-g6JO2h;PjSPuP=Rtf%Kg0daNb6^OyDpHfLTL
z`7v&&F+DvE&cfaeYY>vyM{>a~5pEU&+zXd3)sMBtW&q)VmI%O)oWvE^^xQIAhTz7`
zAk+6$4<dI6I}X}2(2ay!glkVY0za%jr`;=Ob<e|{W4vJlgVx+$+>o+Axyk%e>UAXG
z@H*fuG$dLi)xwEFC<%9Wz{*ZL<HCoBn=G@!g@(86d@l_V^8y!a>_BKofi@ll$p}0K
zxSX5T+=1c3x-R_rQ9$=ES$!`5;?+mK{KcGnSH;sXNt9bOSh#VBT77$!9l5XRIRunY
zxkEYU@>^Jh$)2GYOqe>5=4!mnoo*ovf^xz(Uf#MlI@qM>h61M=z{EVP8}%n>zbKvJ
z-L?&EG1qAj2Jw4L9#W?Ws6#_SzC#9QY}|Wp%=gi7*p4EC<S;S+KWBK@>Er+B439<w
zd+BBUwt-gcZqU}4FE^$1!d{H%+wYN)xq+Y%2YCo;AF%}y6LAAL1LwV>g!zkA&iCr2
zJId)~(&KGT2k;APlb5b^(EJ~hJ$5OJ$sQa?1IGKcwL1Z&u_y%|xPA@CcZuG5zzo3G
zfL(C2vq!}ap!kv?X>tKiBc)#{UAxPPOS{dmq3rESV74h(B*4qgL`U(T!MFjw1BN;c
z&%)_U=fxz3L8QnL<B-I!qmy>D#!L;42hVdpSvq?1t4Fs#t!}^Yv-T}{*iQbhrV;I+
z28M-ou;vD;z63+14Tz`E+7&+koltUwy`@6OB5Kzu=6>uy8_ylzXu!EPAKoL*ubm5k
z8%Yf8=aoA8-Htg~#bB3Wa?<zNm8{>%U7mSo4RJe&tc(2pP3b!`C-GhIE*hy6S=5AL
z-;aPx@$wBo|IZZ_Ny?ulMvr+@M)Y5oTixXhpiQeBSIlX*Fsw!hbOCrg^&<vH`A*M>
zosYs?p+A8{uHnhP&54y4AGPxsTN~aK=AR1~`piXGl9c1(jq*N0$F<t}&6!WQxYRv6
zlTa2Pd$){@`JUKD1qMg;W3;qYqG9Xc9gfPUQgJ$;spou5wqMK@toAy(E0&*XphMCG
za*yCAboKL57&ZuuM$@@W@(sP_UD0{;bMw+8m1OP7web`^U+$kmx#DB~)x?I=EovFT
zJ}I?aOAeUIg&El04YB^u&!q9QXX9%nK<{KrOpm7i_ByJFT$|ZN5yz{vl;Ks|twqn9
zJy$*Y+nG7}_MNzyYSXbDyXvjQf<0^|C#tk=+}%PhUc^8@8ZG2<s-Mn5H1^@rQL8_r
zo1^HaVvB9To~)$5>tMwqq946^nS*9S31!6jZphXm>y<PRyp~r%@P;uwMsNvxIe=0-
z4ZS8}DL=G1D<Zy}{FqVMvNhyrCA*i0;R(s)CA7h^jS-`}0fq(qH{_cTTG*eJ89nJ)
z_EI)jfNFaD)xftXQMShKg-^hKE59)Q+?|U&Yb|d^<#SydiKcU@A0k(D)*Lya$^3<~
z_z?L)2}Qzs8S$1c>8?b5vg341da+Czjl%I~K(}nkENFu|Dr0T|H5UWgc(hOdB{lpH
z8FROscWjQDUIn|5j9XIiXTpszB+IqxNaCRGLdpv9x@PlO$5$^D6^qAbb}CrJ@{qbb
zN~{mXN1&$n8()bM=G$XkWLop=mvz>@2CTl8^WVd0YgAIj?fs*EPVpiYQF{@|$qM_6
zG&q)0i|I>Lwa<xPHWz7MdYLh23IfQu=Cg9<POFPESOWI^2i5<gRpLaeFLTfj{5Mae
zvY#XUXs4RzwFI9J8tZAV@a`5K<hZAo?O)SiZ!u^yC@1V`F_pGRzjw&kXtToU)3nQw
z)z!U<meuL4UOM{c0Uedy-m~_lenN&tS&}1tZVYTgAE_Sle$Qk!v`)yQs6pC!>Q!v4
zmOVhzClDc+tGp<6q*B~k<Rxox`ifQ_+D4vu!$5ZfBrQy(EDF1AC5`rcdDGIzDKL71
zeW|mlRkFuU>eJ{mi=RdF5m)#x00`4xd_Qtk-{QNS!SH3~6HAw9El?5?bhLbe1gY!J
zi!2|U2o0f4p$G@86e0cUI+9xYtv(09Q51OUZ9SpQ=wj)8F7=*=;Lom~zi)P}i;ML<
z#JOT|Gz+pgI$;onsD!BsCaToer6Un0;za=+vg#`x$xB9G5lVO*7wZT#k(m&_T17TH
zu+Q~Zud=g?lIp1zTJErR(SS%>@sXw^ko@sF<lvAMOs-__|IEHwek4mlsJx<LsWn*@
zZpt4bDOdIeLWoM~0)S}CAjUke;c-6Z6Aa2uHB1RgtW8EIsnpkwE@@R34NQv*339Q8
z0OJ)ez?gxfWnbgpDd>+3Y4jn*+R~kTacU0#w}c)kLMxd<vSkoHs1%}QU<-^O=scEq
zeRTiYqLz@gMN!u%w6Qzzx=yeXiSaf#((v7Kke>vAh<ZYl&V<8Ud!C#g_>PmqfRlOR
zT|XsH!%bL<(oq-iXBEt23`erM*S<d=T=p1>P9Y)sO0G+smquI&tLEOH1kBbyvB<u6
zElr*)S_Ptj2_9UDM<NAAJtLGK|M#q2?N-Pd!oSk{N_XY?e*=e(`s99VGA|@d*Y@{4
z)`1#?$bp^NY0506pJ3B;IwJPuFvZ#G9zXTpRjaK|H1s-A_#U$N;*q&ED;oMgt}Tl5
zE#rKE1n<gGa)IMX1AIkS+Hxj{+l#tb@+pZ&&+J!?B4PgLBNh76ONFUo!9xhMfDVr#
z5D{+pLU;gO-3kL{yRm-D_4;Z&xp@1s6=-sU1IQJ(L&X6F?od*SJ@(CMIQxCcm*eVK
z!{u1RbF+0t+jWDrv=|>hQF;+r#bjCObd9#uDyJ}#!1xj(e}N3w0Wv&NcJqiqm3rWs
zhy|*iinE2UfI38tGiN$s8^Ql>-F>lEx-C$@#FUxYNz+>8yz;%K_*nTx!!WuGX*AFs
z6kh;xKrI^ms#WU<oI^NUsQRk_okdAetB!PDBA5XVbU5RKGxtw0jz<YJ$rdJkryQV#
zc9duH*}89s0asCxYEl%;_bLV9Nbv$<ux206h|f=@P*#@#e!iNT8lZ$)MgzNy$s)Ed
zHk1PQb>n2LJNICJBAerJ2<HHoAVieb`N9)Y@k&Y>LBN|(mt#%7ht#=~BA|Y>!Xy*a
z0mK4|-o3iW5^kj;t#r*2GFj`1_nNhzbKtJbZ-0+y$9!p#&s9%!HL27al93NS^d$!p
zODT6A^`|tZJgWTOR$VI-Z9u#;+>%*gE+)mHprD|%ZQs5cObny{>Ti#VS4RjI4jzpw
z3ro|f0D%LX4eg|zp&_)IZIL6xD+%A?20YDvfdL!H-@w^LyyI;Nb|`h-#*J`IqF2m(
z-!(+HI9^3gWK#fnW=4HIh;+XoMUeImaQ?kgY%(-mRN5vWFbEWo)wi)xhyAXCbmheW
zOaE6YVz8QQ8n0<9>A(j_*n$XX)&1_?A-INMjwXtd>JP_!;y%Mq1{`6AIY?)nLM%~D
z-o@r37NmV?<f1!Aaqvf{5=CT<Zy_88ym^FAilYsODi9H`Lx{KG7(!OSgY;g697Q7I
z-JDb4yPWvW%<gl*#J;p&QSx`t0nt5VGE6?NNi1})GI0hM29VJ7!xX1tr5^ly1ax|^
z$4Ev2K*OYc;qNwtzWSS2+o~n&V!?WNNbl5{;4?56PHXXbgf*Z3f#sR?n*bSdRkxsP
z3U2nJKeBsl#-E|miGic%U4x4B@s!lJmY^$;6|HM^&p=Tz=hZB2P`Hat`Gvw|U5+>%
zzrNB@cG38{88dZSt#rA_`aNrL6COysq}K;2hY0B`c+zvTvmtu1mm#DfI^g5@@)M{<
znGy*_QHE<q<7vj*&A4_~5y8Zqu7V?ELf2k(Qf-+-(#u5(%gjvd!PmOM29K7O@KV>A
zRvMkRF|GnYjWsrre4CpcY`GJ=F2N@i^Gi8O=Mz-M4iB}zn3e>jjD`dWMt|+;F=3Qf
zP)J`vtoPXcP6;shwRK;6(=zCkP&lfa+1O4c@^0Bu<l=YpF5g9PSct8PDFKN@NCr*F
z@n>{HMrAkk{i@kWy3j@2TQp{xu|(Eo#)kcUFwj1)B)1$5$CY`8S5~jK7ctfAQ<IF$
z|Iib2kL(AEDO)G1DSEpcmN|@QX-2cK0KgH^A9qX`x?lJBa<b>46@DLHXdIBBxs)cY
z`1qSQZv-qVDk{W-%gO}-xuCAvd$Sa1mIz~XKQm4!hiN%d3?JlVx!y2pqH~z6pm`g{
zb>G*__J7=^pLIN{=H4M#ERsAyRtixj(t;O^jgwG4LWtkjfIGn)k#ePD?aNvZy5_{L
z8~@`kg!Y;;=R$&rWYXY$t4mL4f*pf2sgzA$=is0K6<m-%#7C?;$n*UyTFQuSiyd6n
z%1^T#?uKaml?$x-0qcKVk2E5)M3n$a<L4(c3;B-p8ow}d_;MQsdF-sLgg7j;_HK^#
zkF^p}guatPJ-z8)E`U<=t@1yUuoE^F$rPm?Z>ix*yDFn{oD4!#xIR~5z?e%e)r6I?
zGK*rxkJWIL#X2^cGy9tO?MaJ|r+KJFTVc|0$gcB6gBR^K!M%G=Dx!BT0x?^~06#&o
zVEr6dnf$D`5wX<jlDmtnxKT8`az^^qV-`WHmVHZsORfhXvm97J520Kn=6Dxfa>^C3
zn*gIkc|c@o2P7m4^uv&ib%p|qcloG%PRi0z)1DGanC{y}H?~s{&jR`rn=kNDLPgQL
zB>auwe|yfo1)!)%P8~b)QZA?6?AztTKK}Wd=o+E<c{Jw?z5X>24u*iV^c)I#I1f0C
z0?TX!Dx`D*<q-h+x_0V|qtFzD+^hp<Yw6%HU-0r6=swSAsoT6gr7%lTafwaNDdp!o
zqG)d4Rp}zHQW&{VP)mW~<+c?dY3v#K6<jm`R^vF!vt-x?{uYu|=M!RMc5-;(-}aY7
zvAKkC>b*nkMw<<Ke=ViCO9MV}dVNZ7&+OiXDsLd^K&8rp3|ie#83mq{HAoZ?RunYM
zYitOxt~ERopk=qzxwfQb8RzeB5{nzMy@)|zGzdBEc%5XZ_pe%oY{_?!c=2xXPPd*(
z8Ju3}_@2&Tv)><{QkH+qk~{^!?P@4x0Ojd*=RCWL!Bx#ysVb5kJlYvcDl&JI9oYF-
z>#N&_)<|3dgaE?^`TM>JN2rxh?Q*5}?D+u~ZJ6UP+k;67MT0hzqlZ+w3nI=jR|y>1
zu^9iku|xTu;A&uei8xJuM?u)Po}R`by95KRI+%2LvNC)2R0%G9J>=hYju$FT-^0I{
zHod&JBzTS;fOm7y{Tu$T$R?!-ciy2afU<uqSS%qLZY0nmSyZZjGY%HH98od_G^lwZ
zxzjGECW>&pzNWd}a6Jt7ifV9rk<d2MY3im9c==QVitxoPThW0i8RBs7Qyue(=nJ^T
zOulHtU<}L?k$z^4alolpsZv_6Y9=eZ4nanXJcGjuY$f>kk+G)G^a2}C8g8m57m66Q
z<8?qCQps(T0qqt^=$8JE{EZSxMF=b2BV_;2m;X14kY$v0d=WWMC53Jp|3!0j^V~t>
z180O<jRhZ@Yui_OP;u|xy~yiWUP|r1rtamz(Wp4VxYI(T?iMdh{mTXwEA}n_-YxIL
zg>}Apd3mw9q==guv9osHFQJ)z*`7#RibX9Qy?gYtlAV@f&UC8l;@xhe*aXR6Y6=eU
z*jy;_dmLhI`Tm9Z2qEBeYc<VZ-~7j9W`cu>e7Q#{C=wYE!}>Hajr1yU^q4owIA?ji
zd7TfBjPGFBsp7>rdsGtc)Q(UGs-&c@BHD}2!=qckSIR45V{?F@V$135dfeC7hp3?(
z1PViMsUGuk*6$yO|LI=0c$jeG3aHjY5)CF8bSbb0P|1Z<)=8&WWTmjSHUqSW9bi#9
zond|&l@XuT-;wG+7PgML&Lr)wJAy&M@$E{Nzn%ZtNF!HL0<MV`c^v|>4_`$?T{@CA
z?f1WlUl{=bD1`qS&WD?bQ$AaUt@Y4{3Jp(BMa2gm4^w9TmN?aNIZjPca(ZS1pCnD0
z+3<~YfV+~iasi-pWK2Jkd=TOhfQzVTLMP(wP)-4C3j_CJK9BtxCrlJP*7(1<{&-+<
zS!0h!kbhJSJ<#+(*h4b1LWba6ijo|^SXmKJ&-}ZPn8nS*RhC9-o_Z~m&=@b>xfrO7
z@{8)-g!E9lSN8)B(T^qCZn^%CpJ}tyfu)$9rK8B=TV6m*V`49z1kU6*Zo>XvL#qxS
z)Z2L~PG}_FqcQkS?7QlC!}wSgf(7m2xHaLZUQUBIuJUD6il5>wftin3zFe|-ElYro
zmX>1I{zdy^`0}yRcV`!uy9}G`K*7bl<l4(eZ}zN<l|IhEF1s`a0ZQ&76NZwf3h)9s
z&sSJC@W9bGoJfa3){D@HkRLvD$ONfdE;VM`;&Xg1XGA2M|0`&9vyW+Fn*pnEi<H!F
zSl$~5aFLVM)M~@d3Y#B~LL6d*l#A=!pb?T*`YP*hJMoFZ10kn~X1ufql-g+73koGb
zyL;a#D!f4aBc3wqpFwd8#X*D;Ige6;72>1?jA&%vW(&0Qz|~GUuFq`4-8wggTjY~G
zzYFs*`<}^{Y1a9aN_gkUhn)OPwSzTztY--&m)EGvi%ocwdAUYe5gg^Q>Z8I$x(zQZ
zoIhR-K(|#~FH0TgRLD(P%M6yr@5F<D;b5*yyVl3-@KyN{I|<+nq8eg2SDc9mbCJ>W
zEQKMyR337@&9))^O2<6J>l(AIqXy5vHsI9jD>?4i+Lr8EAg~BC7X8ke=Ew%U5%e`F
zX=!Qj7eTQ?NzZy;tV@zt&PN&(-px?^m*ZwfZnI9MJp@u<;PNLn%sXb#wzMPiD7(eN
zELcLwv!H}pu?Lcawj!LS@!vTl_@su*{~WVr1Fue<#yGmpkA*>z81khpLz6k1=+n>I
zvLp+%$tSh(7$5id{^OR&3^R@*>lFOB1+<re(jmeq?Dm#=hk$PK%W)~sI;#gE2Nl6@
zU4O~TBkk9o>3{jHN!=Ng1rl0-+5)w1Kr|X!T4rljt>OS>3C0p@@av}!rdLi5uK`SR
zZ}N)rpWu?nzko?{5nlpJ?9k!ERy~uLa~%CYQDIF8dp?XeD+MIVi#FZ=*K9eauNeia
zDiu$8rDND+4Fdxg>Lm>9+e95k&pfZ{d$}>fazDQCpv&ei=OQ?lr-Aj2DNAoHfEuvM
zc?X9n954t}rA#Wf+zMYC*Y)}V%OLU}HJ<;DvToT=J5*C~`alX4M6YtNP*Iz7JgFhq
z>0Gql#}c!i`=_*|b<VN*UQ$-by6Jj^ERs>>bp74Ge*CzM5kOd^tJ{n;K<t7SXjbW)
zn1>@JJsbNOHu7Fd1$@N5ij*5u+%jV?x(V~~A^Tu8qIo=wC2HSjObLL;?pYdbgF-Qk
zy+k(;04DDF^=F|H9ZSRPLKhPkokQ@iL3S`u8IzOF&02D0_e-|08t!#8SgOdZ|9~`|
z!=3Imc^e+YDDjeVJ_|Mdd777G=t=1~^vE(?+uu*@_r_o~#hj_>0oIZ?H8kHxe>q)&
zZ}pNq)7>u~KS^i%bH0dgEfPP~ywTwnPkNT3Szp)rpFPgx1t?n7#a}$<OD_eZHf+Z?
zns*Srj;`RuNv)Dg>xb56KU~LrLQyhh5tlW*PwCjeCl(wX>k%Rz=uN`82Onw`EAG-l
zj6C+hgcJO^3POTA-wMH5aQ@>hBq_UH@lTWLQJkC+ui_>-&sKBV{k8Fn`z&Vtt7c^i
z<%SMwFJi8g5%OdI6xJ!}g8Am9LN{qIF06tdYI-RtevkP6>j$eZ)2)KrRek-3X?Ko=
zTIGF~U?oNGsTGFDZT<vbCiL{94}8xhdzOYid)e$`;Jk<{bPkappL%N<wzVkr&wKgc
zy<$#zd3+aKJ!<tQW-uf_#86*ZN2M<2G{)~QKDHdWTU=z(nf?8PJE%kVmHm$W_;0`S
zkAFNiQ|;7Uyk>bt`CsHK$GMhGDSt2(tPS{TC;O+0gJ(;TxUy%RZnW@R)Gv*xHRN-0
zOXVEQ?z4DBRvyo}-ELH2Onyk=pcLypzmU!{0Jw?9!b6LBH%iA&gKNt}D`=k(p}1$h
zJ7l%?Pe3cD@aG9V_-XJ<<ui!z@O~=UH##qwZ~Tq6RHD}|amGd2ICN;^>vqSTOzo+o
z;okdb=u724<U3xGIz~Cxp)|4!#e|7Ap6P6lxm^B_C-#r8mshy#_N!rxCP|N{8?7hT
zVm4mHSr76QiObmKHky00I>>T`(WcCVLVx7}kXcWUnvD*p7C%RaA(3J8@?aS_nptVR
zoaRSyEGyRQKA-Gy$T#%Q%lyOC&hfNbaNO}0K;weerL-fJfsU@A>O`90xMaS^)WCka
z#UC!EEBKMDtE3nwzeviZnCvXQ^1#P#xuG!=e<OJgxi<%InAxxd*9jd-KDOh}%rmSY
z7u)rintx1-h51L#V&`GEJ2z+Rr*smOE(ZL&ZW#We-C)(HB?tbzYWS8yQAy8|lhF-k
zJ~8r(Px04uLe+`*Q$y<<a4kRvv^ial;eW0xsI<I%5kOw5;C97^B`*EAHe2WE#VJ|-
zH>IO*=P9%B@bQkeLUUnSXkPS*xpNa&$vLa|qTeZhu0_9iE%uQ=ba;vg6V{tbvhLGF
zUvvSdy(U(K4a;DOQ|H`7$e$U%xp?_x%nErVlQWoJZ__>O*Zzz=2QF*fztKU4{FYL=
z`=1UDt`gIWi{3N`=Mv}c^LvbTor~(GSq%!q(&>aB*%$r_Wu&+*Tp1~U{vvkm0ZK=#
z<ui6&HY@fe)Gb2KsovB*L0O+2l&zlb&sxLpX?1f$NL3$GK-Rk~rCN`p9?B{|Jmgv4
z?|iq>hkE!bk4fuaoNP*p=4rY8vBN>Kq5h(63}R{rf6usd7}brm-LQ?ZuXyfiD^8(w
z9lUWgL{s6G3t36$RNT}bYbq$1n8%l`aImKRNZw8TiRyOu<9_p|^!XBGiCgg$@~SF`
zxgXci<&fX07Ad)r%oo%8CC(`?3I=WpujJ9(K<IZ&o0m8jU)amzZnD<-`o}g{BM$~<
zq0=X;m}VYUpCQMgn+|j5dI<8UN2bPTz9JEdTs-~ghld|8nH?!?R!BToc8R14oqw+!
zUFr9sHnB<J7$agJx%=cprlpGO0nm{rN~RX=P~EPl@v}}Xa}{P=?!L!W+Ep6Hi?sc-
zev^;z6!WTP6ujfal(}tK*Xb8|m38K4S}u9cO;r8j3#p?0qI8C|%fsHS^ovOnoHM0&
z3DoMtz;r2)fjP+Ne4B?Dh9Bf&VtN|qFi#Y@*~Ocg9*L)ogDmZ>ZH;~vt)@L2PtlH}
zv1jOAN`gL+|1Z8wS^bNKHQ^0p50YU@d65#>eDXJ0a&LVoVW@3A$e8!<v!$?<-(39U
zR$Q9Je5>|}u3_@YJM;ngWCHiUue2@TsHm8-LZ1eYe`Ko*-m{VE%erlk%I@e3amaV@
zK1%T-BaFd2{IKi}Q-oHZnj4uEc0QrQdnb6@o2zZ;!&|37!gtg0?OM03?w_*Alj$)J
zndGzS$Xk<9KE&^rp!TTeWXu_o=W)y8vlv<Rs=sINgl(je%SDaQ$u<VuBIJ<OO3aV4
z02I3TiKn%A!ABnyol5_rEvqhNH}!usF@z`A<!8{QERTHW(*@Hb6SPryND13=+qyG>
zHl)H!od15YHxM+-O6~ZKM=@w}yD&!&KMs%`=^;QTbMRV|YQo}F9mbUx3RmTmn1E>q
zzR9wDaVd8xxv4)?burMTP4cdlWEkq7(565gADdl}7_}sehxYUzFOAcl!=DniEl_nR
zNMe-rawaU$mSZonwtc|*#PqS#Hi(kvQM`$UpW#0DcABN7jnl`)fASXXIJ{j$?`Iv?
z;=;sR9!|N$I#aC~n@XEEvIDlsy0_DYy%GO;9?l~|Ch-Bubb4?d6xy>lkV!smRX*+G
z<P%$iKfI_3w2^c_es(<>+brgubz3!Ft<0l+A`72*!%eo0)%H?erPwcVynVO+vqY%c
zMhmuX>a;Y?o~=bYlwUK=cs_hMnLrxN4jy$=zi+O*xCbyizA3bs2_gR^GgHVRafOvk
zdn37HaEw~g%F)ZexG*S}mSw*<bkSlf9+~O<66bTZ4GsQ1cPnWdfZRq&NaNM2eA?cz
z+De{^M=zkBHuBo|^o0U$d7~3u1!PU%-x9DPQ1vyZ!+)+jwP4-J5KabTBb^N2$)>+4
zS7_U=m45WziQVo6=gP>lcfn5GS6v*WsdZ$K63T?n8UN>#$(QI|_}%wP(+n7%=v|Oj
zU+#;OyaZE`!=><swGA(hD$uj?T1w(av!&M#`@#+#t>JP1=^qRbok=!De{avV>^paw
zH4ne~8?P;QVCCqCf6D6b*a$sZHA(W`9y{n{Htr2HnRTWQKQQ!?ww-qc&}XY|*L^MI
zew>H4r2g3zuqJTEgfaUJ?dfP2`B3ZcuPD5@+Er5YsXbsKIlC?HdW9v<doQfMQ>jNz
ztu1$!O<jmya3uDG9q;|tgA#_T&GL_5bfhiELvHHs`eGV-rnHOS#}giZ#hABfxVIJU
zP;gl^;>p|bZ!wKu6EdT;?{&fSyX$Wsn-IJ9b@3_5b(1oEYiQG?f@i>_z8H(E%<ac*
ze{B84i?8d=)G^JV<1%@!3)zaL7x(@pJ$k2-_TJ?Cs%n>Stj+t+=v^2vt3E}W%00Ak
zYF@W^#;86%ihFBlJY37;|KjA+#dSn`?E$kRM{cRnUJQ%#j_OM>0}dL;)<Y0isE?Pw
zLbF3p)_q&Y<5yN6Rn6n>xy~MDZp-7h*^1GZP3{{m?r@DI&PznZ>J#q`_5PVDD<Qg+
zz#yB$<0okgUUlUtmr-It!OJueM+@32e}ZMS#V>|$I(9|DIW=u86v_{nKshlDjffTG
zmD`t1EsIV{I*e_wIA(s7jvu|SQ`Mqgjr}y!g!Mp&sZ67d{|}70+v2}=;5sfYH&`7P
z2jGa?$kesKVs3|jAAMQrrGe_jiAhMy7bsE=XulkgQ|&pbWI-Pu@m5<550kvD+}1e;
zno)6LUWNfttyaX&Vj#j_Chu`P`=3_`e|c8TO`P_?q06Q)CgvW7n(<9Ut;Nj&#^NCD
z^;=ht-dkLc<X^{YMlrFAyX6N~jePA=oFDwmWFop?V9AlLbgu=ro=JP10aa0Y^b`R|
zJ%s5Bx<B1M-crdVzf(Q84G(F>TV?BP`@ksSU=r;S3YJZIj|{4H4)G9Mp|`~Oy>`u1
z9rrcXei$Lr_S<56k-anR%_S+gTHIy*^_^w3u@t2JcM5LEqM<(;F*x;8dX$y6h0PD!
zaD~yvmJ2Tak6!I?;eE6lX3%cPJ>|dnw2?ywbYeNN4<B-U{4}tMBR8O#_Nhejsk?fU
zGhZI(4-5>D@}tQ_Vpl9KsEXpRw{A3uX%DT%nA{p#K*Y3^2FU*Z_E&P3owT={uI{%v
zf4=*r^Lt3>pe*))du3zelOvI0y?XDp`5%4ky%wYSaYy};iHV6Ob1{=kgM6l!h77zK
zqZ1Mm;^J1zWKQ&S>k5NP>1jAsS?_hJ-Z5KWXy(o5yUWwm_yazr+jBK~5c>A>&2u~5
zueMsfpBs;owHO(w+|!1V5v0D?@aSLrzzbyDg#6F|a2RP$Mt>HRGZe5~AwT4TUI8iX
zJAJwdEqyB6ZNtwKx^DPgZVvekC~J9Y-`><-N7wb935OTOgN}xfoRcHYkJ|<sL1@cz
z8XolTuZqO3ap~LIP5@<Rm2U*20NMAJ_BvcP<-!NlaLCgmi`{b0ORzat(nb|!9>YMO
z+2k7`k0!v+Px~QKy1HnFEcp~F>LyMNx4rrNJ`j#Ok9%xvEK+Bg_O@<QwEeVY`5Iyp
z|K}%pM%(<F+S)|%AB5%HoSYn2P{E+~1ziShh^n<uP?w`JZ8yqcP^*#vI10M;BQ;SK
zDBWwhkl%`0H6jBfI6spFJQ5mQLJQAd9<o-tA{(?(EySk!a9v&9;LfY07g<)f_v@Pb
zV$<E57aWk#CAxwb0o$?E5|^u&9ppkO9cKlN3T8b85=liUeK-(1qEEBwO5PrH@bMDL
ziN?F-o4wC$#x$VZQd~qt#GNSv*8$Y!47CST@EUoeyn6ky{X9nBQCVqPRwtsQtJymF
zJg{ncWTep?YtLonO@OWU+1lC)hVl>JI{IemDp=-vR1=7RlxSer)C-O+NuGnDk(e_O
ziv-9VDhnlmST*O`IXk%^(GHmbYXyZj;6npo?gPvzCL(eG3;<;9LP1sp&NgH3`pf>r
zhd%Xo!mb6Pq$WgIbF*e@zHF?Sb0(KW>_IusbeO&3`n%;~fI$ZG;ixPSm+ZRy&JnC)
zqP^3OQnqx~or}*HxU^#rG$ct|nL$)LfCt`+x*4Y8j226$54;er@IL_V2vPBJ(*Ea4
z5=zQn78Kk-dKb(tQm02B4&k`y=iZX2`moM!U9Wz?S9s&xhn8IXk(5g(V>C6DH7;0q
zHr^1~r(2tM`4Rs3`?rF81koW#i(3EWl`b=hMB2gd>g&ItWJF4cnm@AqdL8+NPK|z)
zs|Gc8^7P=d2y*JB*PYU1;6AWF;1k4qbLV2;Ws<GNF25hkBv>^OC8TpdjTPvzqXAI%
zp-Kw-N;2^!Uv)%R#^$p7^+e2y<fh+kG*&b^zFd7@{d@2<Q0hQNuuQCF*Fx{H^@~de
zG2#1hOv7EKJ8L#p_c+*WlUyzM@lq;y+s%;B3g#REuY;Z^Xv1cCQk!p`t?wo9i=~?7
z@(HUJpG(RDg6K~HeH?JXOHr^qH+xWhpY8}sISXAMq?gGG(}q51_lg3tF%Q%8aF}ZC
zluSVvMZ4(rd-j|yc4zZh=vQ}L#WOzAAv?2&!>So6c(AqRA))#UTuL%UV3%-VJ4t<i
zr7)lQpT&5DWZ_`<K*?Ce=ooZD|G&Kt3PJ8L1-XhtXr_Tl9^4(N+I#zhfso@}6zHLJ
zYGbo)#?KyjJMv{hf`V=4sbzrk(Lo{tw6Ld+12M2>9-fyy)1tG6RQ5d=CDoMJyF=i3
z!mbD$7{07*#rmJA)7b8}lE*(FKwQG`#0h439W*$>4IOkbhG5+i*7Lh}@33C1P-o`l
zt>XF<)yB3c?<12fC`giSn;rYYK@wm1Dqh$G4)OE0N2333Iu5LIBN!>@pZIl$USiR<
z+N{sPT?tHU531*3O;R#4GCut13)aoOQ+<RqpMlUtDoRhG<N|bg;f?I9!h9{7hvhXG
zI!*M~?2t`NLQNeQ3aFZC`XzA|UK7jq!-@wr!4_LUBA#%c4{BTx^lZUWE~vs75rG3}
zK8qW5zNxw2wYcSjUU?Y2XAw;NjeR5{!OcY~S@6<2F^P%uCBip;cp1%}Lo=L?xnX;v
z+*&-&E#KFW)B#P#po))Po<uRZ$|r~_$Zz?(>hqK`YQ-+le|dImt?7-A|8<W_Y*{GC
zNxQ!SiGKTgS!lvC6{AF;eXT832C`6gC|<jPQd;CcB(Qhwn=ePzFASg3vtX6iL3xi*
zz|qK)LDa!W3rynqHhe)0RuEYZ5u=YzTnEZbg1cn0L=HS#DLu-ifx-`YdU7WCbtC!0
zz$0?HaK);++FE_b{z&ME_G1K{Yt+QkpR}8qnsOu0g3>$08r!3wREl>)MQz%_#DC59
z;3Vqrzh28;x_1ATr<OCuK2aN$v|CpM+*u*QQ)I7-we7lD{t1ZjUk0|rx)YPsnmtCh
zg0u35R(Fdfj$3rH!@1OlV!nv{j$i>{VOQ*FRELhE9!o@G0wlNFOdu7p%tiB6>sMhb
zzRSrUEndyzj!BK0=2PG2nV7{W#K34G?>6$p4mluXCyB@j>X?p#BSwD~MR`~d7Tf)%
z+kX{k!+^B2_OuM5EO{*tr)}+t2WHIjXd1RKuD-w`pEdn8`1vt6CV2y-d7v$c{jIH~
z)!T5rp5=049~oRO8T46LnCn;&<l}=ptK3*Bma4(xQdNwdezHgM4onX*eWdCRwG<d`
z!rnp&KNR#P0}5v&MUS2ih6i)rM_TMizhLvFU<)+JVR@8?!<!r1pGh9e{rdH35W*gQ
z>cugJ_L+rvgI-r9jThMwnXr55v~v-MEBK(JV3l1-c8l6*VO@QAhnBW>2lf>?EB!PU
z4Mq6FPeQrz`GZBuC$zL|J8!P2udOBY5)iYAP9D!)&TBZQpze^KANMY^0o5KipeB^`
zTuw`?j#-5hqZ3sF2IM!eWwIdGj`Op&zJB=Co3*Hk$;C_rtA42YcXTX}KFUC03`!hb
zQL<!Cd#*9aek2;^&v<P0Hfg7L{_d<Eb(5#L)mxT-ChqkA>~H)pPSO9vug=V&ALgz{
zN6?}t3=GLZq3d|fsFN|+2<Aba32!g~Y<1bF2+AK!2`7q&NeeScFvF<u%IoqJ&|UDt
zK?CyJ2x{6TAQ=c{Xw3c)ycb9hd<Qi~M^7*J3#*xliHA%N4(qdTl9p2{_2HXRwj?G(
zmv|>bhP~3dZGInSyJhFQK{k!pOo$L4jY5#lhZsjLhNk!yb{$dMfY0Fw$3!1}2XIRA
zTUyXjJde7qFnL}VryXWne;PSf^AXQ&rLb0;BY(lF{)kU4A3$xp*$p#@st_#(FgNJW
zLRIH3mz@sQS!`S!v0&^*&Q`Dg{_E)DT@t<i8c<Uue$Ip6z@Qo_OAg4jNW;1i-Bbva
zG`6!I_Jltn>}Z88Z;@QWmN5N@kOM=k%P&J)0~O6=)e0~C6uxb|FYq%wF{>&ib{AA2
zf^XdpC)2*^VnA2JCd#u7m`W2bl!5&ks1tDCjp|4^$MN}bek^dt9jiW$8|vvf6|dX@
zM@;k7DYA>ys-5V=!B<8BS^i*Rt~@<*k-gv>7`3iiN@4M(FjlgGzu-|!I&R&7XozLX
zF9S5e#n#;Jl*>?6S@{axE+-S-ph^jvf}HaE;e4RbKPjCRYTG@i`R0~?f{vTp{hDkh
z%x<4+`vJ)j4Gq6fy<)Q`DRNHmc$-Zi9lnCw;SBv3IATGfW~a<<5OD)<HhvVinvSKy
z*!h&BGI_Tv=<)oIj+8+!8YE(*ibs%GhhiZ12r4`0S~}*%_%#d+TrfCLE{~3gI2UY@
zF%8xE1@x;*e7+X0)n-@=e1oX?{mLI{gTrJdFpC3x{%1fTCj_Zr?hUoH(ou6tW*?r9
z-Pl90Y_XbMr`~Lqr^iUO!De7SiIu2#-i0DB4se1&Wk#x0S4#^S*iIx$3&zT&ZeJw+
zs3yNH_N}t4^5$Cg8$bPQjjn^?2@DDCU@K%@+jwyn^$?Oc`mdpQ>gcA}OtB${_hSvD
zKWzE_?)#*i8;5Irym^3u-A43+_M4cc66PqYw!Re%i6zq2@cweYr+mU5A>w5jUyW8#
z%vVWJ>fa+0*(ARK5r<F!X<vl}&ne%C#e`m2eh+s%wK+*24oRQstt46+|Ly|bLXgpQ
zu!O6cpn=!J2+u*({c4?-wvupA7D8aqE<2EM{u%}ClP86x=oiPqg@UVckPDjfNaL`4
zsK0NYxDK5sl=uGrdRrr=7VO-%7gs^>r6--kJ{D@ze}NI3dRJkM`#_1qd|n6xoCBLb
zR+5<a^W)cxq|KVG{xl>s?t4D9Yrfo}^ME1V5IsW~M@V_|*ou}x?{7)_P-KL{$LH6-
zfMAA(yK%2(5oNr}5M;zGcYI}JqU@y7ai5uESw5vN^eZ)NZr3Ua>=XmPhe~Tkd3kwx
z+);y1y2+t9ex|A72GO`;lIMR!jskglFt=tl&yU{4HoO7fDMpju{W#VIOm81``Z(8L
zKXJN!!{JEI3y583!qZoYnuMTk@kf+L?b`f}Y<DQJsRi!sg_L;*8vn9!<$Vn@TlGnW
zZXUD?oLo(IEf%P+9spO+;lo4T!TH@Fs&gA8z%)T$7zJlPNw5K<rD){k&P3K*@y}`3
z(j4JU*=X$gy!iG#$NYHh3C~TP;-eUl)HiFT+?k*y;|wiYgoaMwRH$%YzcBt1PUI(c
z!yKE-<7LM#UhKswPlVs$0UBACiJ}VHKywQ6*;iVO>1jLu)s3KKQ_aoIurqtykAvR4
z;mtKAhEX1Oyl%>?QLH=PkuCYXkM&lmKgBRq{XnCniYnh?!yl>Tk^<=1v07L+ZKte+
zGag{N8-|5}$N%wTLXjKof{rhQ<BrpZg8}v`^n{zRprCZ$vs*#-Uo&?Gmkp=Y9OH2Z
z??!Zl!FwhjKKHlc=0t6`LJV9)G4`H?+BBAe)zaDJ?LUeKIUPE0!k@X_>m%{?Nnb5W
z0XK6IwWWxyU^=Ou{ebgNb|#|>8WI*I#>*+@`atE(|G{QLNF$AOm4;tfxPc8sQ_NE|
z+Yvsq=Qm<+2jyM4kudRfECgouJrpmL^K*R>CJ)0UyYH=U*K~2(C<Kk2>A#R-<bpS1
z)z}ez9eR3tn*`epqmz?=Xcx|C6$IR9BT8a~*y(;1S~Y9YBzm+K)c*yXN?YAWGtn;(
zS2QoH3(_lazCIoS^=*r(i3bMxwgUBBU_)f%p71+XF@{>b+gRl_o8e5{Mfz~8jul)s
z$IpJ?vTOYE_iCa2I9?(`ohi>;0OD^N_(x&wMmX>EUvRKEAjB4br^k7<i0*cbl>0xM
zTbwHou29+<J@#{b1DcKn>l=easg}52egn)R%UaTXCwkK~kvmOFV&n<I_?HQc-P$~h
zW0;P|{p+V-$cW}m{Ek*BBr06+!Np~zpz9UQm|f--Eh-|SC|up2F>9Qe9G7WXlGBZK
z*n!R5+S6%YF!r=h$+9eByh_y*Uf5Rw4nwOFRuX@s7`tVjha$&}$5$e-gK}FrWW`ag
ztyPs&h|pA2;vr+?^zQmuO>3O1_FnIQVfvWl#eyF^Rv?Al3iM<NdwC(Z6rnl=M@(Fz
zz;G_@#IKQKQbU@ChV8TFkPmpCw6fiGVXodN^*D@w1iM9U@w>$K9M(Z^xNonfUw`dg
zm=0UWPD$D8z8kNU|Ev9XY+RxvRESYZl3!4_oFc|g$Nh{x1EoMF?<UZ$dhAoP1;=1r
zerwl2Z}=7m6)TaCiSVP3B`Brkw1CVLq)*h!5|UKMh0Nkk&T9s*zn0dhCy?~dr{0%P
zD+B)<;kjkdKzfs7+mBi5?LjdNGuTuUh)vyhqmp&y`t4|u+%Z(2&_et}ATYpvGLsW2
zawjlWC01w-It<+{9(OpJ6OXhFFOLkQ#eb+A%rm(?#w1_M@Ee;t^Q-BD2M?wnwNRnt
zQ4)KSo=0~>QevW|OVUPAA|1xN;80DyD<<?FqU(tj&nh&Pc_J?Ja{TjoHBOibg6JTS
zRfik1bCPi45H1)$wXMgA2W_M52dC92&$N~~xOKrpg}vkF<GXBPvLA>|aE0=`a+y?`
zSK>6)*mw5arK(q>CUu!0BfE5;j6UIE5o|IspRUE{z8g4>^P}c7;Idb-xB;IcgyXi`
z<c#Z6y3sI>J@M-B@RTF!7(eZK&$$ncH{sor6BZ=6hO>9M*yMG9!$COh4dKA&3(!*z
zqso}24Bp2)u&e#F(S#U+1sCs_*IiaetV{7zW%Uklp!5#RN6F6d5#!Ekv7Fli2+4}g
zs9j+~nF0B;so=#<7Tz8r8((tlJB%Xs#E$rjZ1w_ALEGkW2mDqn-KZ;qXX+~fnOjVG
zqIu9evl>;wXf3KUb-Ngq$j3lIMIdpFcJPCP_N}m+LTUD*FdkQhI?QzuMrYJi4E9YJ
zpnA%0E8Jg3+1b%|3HtPCC3k+Tb`F4vic>h(wNjocUlZdgB1j0I#%0V4%20VI97OST
z06@_@n%kR$EzoRbTCH?7DGsix9W*&7-*TTzDg&oHk9)`LSMk9O%jR<tCr1VtuHyL)
z|A4UnH`JLWNwps#9u?Ym0^<k@lSH`moLxXWu{G_{5=sylRh}^r0y*Jx5lGzF+pH2c
zJw+#<Hf*WesqX<$K_V%Fr)g6iL5uvtW?$@nBMjv(RKvjWe0q$OO8Kk>Ii9MUG!G;H
zI}E$6SO6KMFdXnegW+J2`l&mbU*W2G=gdIM?k71`Zbx0J2<4gxB%8EEv*`#(f?i$r
z+x;X!;wLIV+dGU97Q<n%Mz@(NA9BE3#Wf7u=RJx@5(FQy$=UcOtcJK_G7f6X0aH54
zf>Fyip(T|OsBOIV)`MAa(jcm)ACdDJoL1znj5kJax&F>{{ap^DMWTOvos>;TK5Z{L
z*q>naNiY*$iU1%RQji37nE5f;1#7HL9(PDO^k!aFk33m8Q<nsNWKxW867U-<egb0L
zP%L<gW=b>+nK)C=l|Hq^r=^X<Stcz_WFcCJ$LK_~>jQF8S&%Jkn~KvDu=;E_?JbjW
zzxsL4dwmF~L3<`TCPo5&c4Gcy^H%Tu=df{ABTr(%g}~F6Q8EHPPLw3A;(l3VbtmkB
zIRmzphg}ciZ`HADdgjR`uwN*jm@!(IFye7nSSxWM>ZzUSi0Kl!E|=~lN)#5)8J@dn
z-|W2?SH1t(nvur_6#%2Pa8=06r%lO~+b;;|yxL+UGf?;xCfqL*ZzLR1jPuUSPh;A)
zfg2c8-=VaW8Gu=~2v5>C?Dv6!4ff0ShCozN!S`v%y9%TU{ipnjt1c#CP_N9)2Icg>
z4AzZ53IAm?9G>mB$Bw>D8p&<NI-9om5*!yFKTGJLH_;>h6`|DLe&5pTozyK!k_fA|
zyN}|m?`1SZQou|v<pzo|4bVs~N5+V9#&5Sf_p>QzpjczqXF9~fG!vu<g;%7b#5aW-
z;Cl|k>en2TvUpw}3tuC^(6OJ0_aa<^mU=GEUGyL5g}Iq5-Rh$XZw9fu+Q-c{l?MT+
z<aYkO8n2WIxHCRB*0l5=o~V#(AC1st2VaWRNtc9$HN^80okYZn1h0Mc2z6SL0Fr2(
zcmRTwI0g{d4#lZRa~!||$EG!a`*rG627CcBpjh5*n1U%JM@+VAC2@^RIc6i+A|V_3
zCW3u}G2*nd$D@$YmaOUg@soJB=G?z2a))~BQ;K&}f{T!|Ai*CJArgh_rMQBn)>6^}
n7c*LC=)rmT|3H3gVa2xH7Zi?HGi2a#D2J7fDJIIF`TPF@j&F;m

diff --git a/Perf-improve.md b/Perf-improve.md
index 533387ac..f5ebe785 100644
--- a/Perf-improve.md
+++ b/Perf-improve.md
@@ -64,10 +64,10 @@ bench::mark(
 #> # A tibble: 4 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 lm          881.5µs  916.5µs     1045.    1.27MB
-#> 2 speedglm      1.6ms   1.66ms      601.   75.01MB
-#> 3 biglm       772.1µs 809.23µs     1174.   589.1KB
-#> 4 fastLm        993µs   1.02ms      978.    4.48MB
+#> 1 lm         856.76µs 886.66µs     1109.    1.27MB
+#> 2 speedglm     1.53ms   1.63ms      612.   75.01MB
+#> 3 biglm       753.8µs 788.16µs     1205.   589.1KB
+#> 4 fastLm     980.87µs   1.01ms      988.    4.48MB
 ```
 
 The results might change depending on the size of the dataset, with the performance benefits accruing bigger the dataset.
@@ -100,8 +100,8 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 base         1.18µs   1.24µs   756897.     2.8KB
-#> 2 fastmatch    1.02µs   1.06µs   904225.    2.66KB
+#> 1 base         1.14µs    1.2µs   778382.     2.8KB
+#> 2 fastmatch    1.01µs   1.06µs   898046.    2.66KB
 ```
 
 But, with a larger vector, `fmatch()` is orders of magnitude faster! ⚡
@@ -120,8 +120,8 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 base         20.6ms  21.95ms      43.0    31.4MB
-#> 2 fastmatch   992.1ns   1.04µs  897837.         0B
+#> 1 base         23.3ms  23.29ms      42.9    31.4MB
+#> 2 fastmatch     981ns   1.03µs  917030.         0B
 ```
 
 We can also look at the hash table:
@@ -200,10 +200,10 @@ bench::mark(
 #> # A tibble: 4 × 6
 #>   expression       min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 as.POSIXct   29.74µs   31.4µs    31531.        0B     0   
-#> 2 as.POSIXlt   20.59µs  21.79µs    45434.        0B     0   
-#> 3 ymd_hms       2.25ms   2.33ms      425.    21.5KB     3.43
-#> 4 fastPOSIXct   1.16µs   1.22µs   766780.        0B     0
+#> 1 as.POSIXct   29.69µs  31.64µs    31285.        0B     0   
+#> 2 as.POSIXlt   20.64µs  21.73µs    45699.        0B     0   
+#> 3 ymd_hms       2.23ms   2.31ms      432.    21.5KB     3.48
+#> 4 fastPOSIXct   1.17µs   1.26µs   741714.        0B     0
 ```
 
 There are many more packages that implement a way to convert from string to a date time object. For more, see [CRAN Task View: Time Series Analysis](https://cran.r-project.org/web/views/TimeSeries.html)
@@ -264,7 +264,7 @@ rowSums
 #>     else names(z) <- dimnames(x)[[1L]]
 #>     z
 #> }
-#> <bytecode: 0x563353356400>
+#> <bytecode: 0x5590046cd1a8>
 #> <environment: namespace:base>
 ```
 
@@ -275,7 +275,7 @@ rowSums
 .rowSums
 #> function (x, m, n, na.rm = FALSE) 
 #> .Internal(rowSums(x, m, n, na.rm))
-#> <bytecode: 0x56335cd3f7a8>
+#> <bytecode: 0x55900cb4b718>
 #> <environment: namespace:base>
 ```
 
@@ -292,8 +292,8 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 rowSums       821µs   1.29ms      859.     859KB
-#> 2 .rowSums      817µs   1.28ms      833.     859KB
+#> 1 rowSums       819µs   1.28ms      888.     859KB
+#> 2 .rowSums      817µs   1.28ms      816.     859KB
 ```
 
 **Q2.** Make a faster version of `chisq.test()` that only computes the chi-square test statistic when the input is two numeric vectors with no missing values. You can try simplifying `chisq.test()` or by coding from the [mathematical definition](http://en.wikipedia.org/wiki/Pearson%27s_chi-squared_test).
@@ -360,8 +360,8 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 base          906µs    926µs     1071.    1.57MB
-#> 2 custom        706µs    722µs     1371.    1.13MB
+#> 1 base          905µs    927µs     1076.    1.57MB
+#> 2 custom        706µs    724µs     1374.    1.13MB
 ```
 
 **Q3.** Can you make a faster version of `table()` for the case of an input of two integer vectors with no missing values? Can you use it to speed up your chi-square test?
@@ -418,8 +418,8 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 base          638µs    653µs     1515.     960KB
-#> 2 custom        354µs    359µs     2730.     488KB
+#> 1 base          635µs    652µs     1523.     960KB
+#> 2 custom        357µs    366µs     2687.     488KB
 ```
 
 We can also use this function in our custom chi-squared test function and see if the performance improves any further:
@@ -477,8 +477,8 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression      min   median `itr/sec` mem_alloc
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 base          912µs    940µs     1057.    1.28MB
-#> 2 custom        420µs    429µs     2296.  594.45KB
+#> 1 base          910µs    935µs     1061.    1.28MB
+#> 2 custom        422µs    431µs     2291.  594.45KB
 ```
 
 ## Exercises 24.5.1
@@ -601,6 +601,6 @@ bench::mark(
 #> # A tibble: 2 × 5
 #>   expression                min   median `itr/sec` mem_alloc
 #>   <bch:expr>           <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 crossprod(x, w)[[1]]    901ns    961ns   966191.        0B
-#> 2 sum(x * w)[[1]]         461ns    511ns  1759060.        0B
+#> 1 crossprod(x, w)[[1]]    881ns    932ns  1003910.        0B
+#> 2 sum(x * w)[[1]]         470ns    521ns  1765588.        0B
 ```
diff --git a/Perf-improve_files/figure-html/Perf-improve-28-1.png b/Perf-improve_files/figure-html/Perf-improve-28-1.png
index 27963a50bbc42f4a46469d8be97372861224bdb4..074fd66a28fd9d6f220e2c6cf9976cbd7b27102f 100644
GIT binary patch
literal 55323
zcmd43hg(!xvpw8m1_c`glx%|_K~O|;QX4@KPz1@K2!fI%=b#QbtAJ!hf@H}#IOLo`
zGLn%DlGCqFw{!2j@BRLOkLQ_@htubry=&L5TD4Z~_Ie;Ed6tlh5QRdWy(fiLK%tI{
zqfkdHP7%Og9FAfA;h)p5q*N_XC|VEXzas&YD|#pt1L_|3mZELs{E%IwVt3TxVQXQ2
zkJjfG8=A+k=g{cm=QS=pxx*I`sQY~HV(5M5r;bc(QgrS7VRmPjufM<Nd-{epnIsvD
zmv`!r5t{tiF|(sVrSW=_uiX<O7Sq><*LJ^fpE=T3l)S5`R37a@Yci6&J0-3>WHS{1
zp+^mdghGkiXWu`G`wbO(_ciV}hNBNgk05`lL!Gz9UE)R^r$c^mJtO{qK0?=dg!3v5
z@!?8<%V2@oGfhp+7*QwpGZ(py`*{ZPGJe}_EDUVQAO4o_)pA&v@5_#0WWhbNnPrH`
z(aLHa{<OI`#Ex-ua~sGv9Vv6#4Y{gL=P;kSx3|~m5^cb<vleqGOyP4=9gGS;;SY;q
zZXf>clwTSuwi&H>%~i7eH~qn~hklGxp2OziK%TL~!S-~<jGdO_O7;HkCf_3|{C(<b
zlv|p`*2Y6cH@Uc$R%+?FI5{bTI5ms*mOaFBj2+g0b=L;amp4uK<-F+Zh?gNEB8s@d
zfxEZ)N*d9g`&nwN?vHOz^<%D%WIn4sa`c2j8lTCat$@6OvhrrrjaImAid}nK+T!?e
z<gQO)@m8-hl9Ne;KHu?(&KAyOTIrMtzo9QDE8Co^n$1r@f_$n@<AvsE0F3|!<Mn>J
zHAKaHYx$>)Xr*CBX`b15&B}N!2{mu304d@|s5b779nRlp&z{AY9}G>ct*&C@GBa1k
zNW{!1>egDtMsf{%Gn^I-L$eFPG-BHm@29yA*E3wAe&{r2b2Mggpv`C`4UL)ZB*-*9
z6{h2(WqM>M>|z)EggByUe5D|Lt|)z$;o?2k;H}{YQ{U=IE$Viq-uLCDeIOn7c^|lS
z)taW(GVp$|Emw~kb!6p@-J_@`={fD{s{FF!Z@*iFOixUBN->cZ);*)Gz2|5;m|wnc
zTt4C=5MgL!G+1acz1<kBP@|n4zFfM=AF<-{ouh(=dA!NP%z%69+P#thrT~Haq)UwV
zq&-9wP&M)EEf2<iI9xd|sBbs+W4F5e<iTX9_QAw^`NiU;GUxrBo7%S#lc3b@s=4?o
zD=J$4>Pp(#*|7*=3CS@Y*tkuSnw%Ui=HguLypP<`I5If;{jGAEn$^Lo3WxPrl^6Kd
z`G)%Xdy%fMc7D$q@Vo@OG}hOz?C#&Zc{AayZgQUSfLcg=uBhE=+$={}vhhG(kkrIG
z<^55jZO5`3^i$j(vhP1uK1!4`Be3Y4n4aEs6h%KJj^Gdz(`HptR@N7kx|_wpp4mz5
zQ+=l8X|eUfePgPMzK)`b{1=^fu`L;Ay|}G|dV?4x{R`67RaFJ-Rwpc+bMzWR?!9OB
zs^fBA@kz-j+nJ~D%hP=D;MGBP6u;TuT{lhj^HOrBii#8NHBo1W3Qt|TxJSs>*SA(f
z!`mDddW-qmy{4z{K9(l@)H{cJ+2&09v(5xrdZ*v*#`#0m8>?5<^E{=NhD*7AS3J4)
z1J=cY!oBimcsNx|YpB72R!06s%u&R!Z5%LE5_(a`m9c7i$K_j0qyiR<MeviRp1<Q*
zcKun6#?0$V_p?HW4&%H=KbE^5$)CM&?a9V`U-Jbj<N>bF1AF)~sd)?@93Jc&zI^Gt
zo}zs@UC;-Mkr!E4<e;Dyv9~laSq!@w3PaMZe<$Lw@sWrKxl{ax^c>?dW;JTbaoS;I
zceu!EPIPa%l1{|lac4HM-5^IMl#@hwxuP#+f6=Dg=kAxy5tl=O&|KWO18F;UPL+6C
zE)H&o=|^7_vNpPQVK7@?K7!Y{p`ih+s;#jnG=aPZRmVN+d`t`L?d@H*o@T1)7`44N
zt-We@*Pll9;lrTV2e=RAe6<wAZ&lP^_<zOkeyYH~>d2L4+-G!Agu=LAF1r5t$cg_S
ze5B%;ATlUduGn0wiNI{b2<#U@E_w3Y-s5fwH;!EM!VNW!cDL=IVy-dm*Z9hz=DS42
z)Wh7MVwRaFZMxj3DO@6O{XMp=tNcx;tYA_5YIlFJVe$U9zMr;}`1Ayo_lXLobX-p8
z@Fa92a7pLSFFoX%>$-PH&925z>dJHL&qbR7Nj93YAB4d|N}9$#lScwYakdku$|RXD
zt)fyJIJucGMS+@i!;cEx-S(>9D%E|5LW+Q42tN$Vu{CXT@`du>f~YJKTtbp!l=JWp
z)u>%)OFI4zCB=tJR}6ktCy6QIvA^9Ozw#LniYm&{WkS7p^XIvV&-C*(Gd*|4=m)H~
zq8%hOM-x$5;kA~y<vXk`-gZja*`hp<I{EhJ>Gx44BLAL*o72{lC+iJW{DO{gq$|qw
zok5;0jRBSmbkvrm8z-BXk3Bhu9~Mz^I&Z<2k{J!!i-d;eqD8)*s-1)chSaAzHa9on
zD8V&fLtKVkQxvA-h)JZP##YV#5D?C*vc#ZXc;H6*F(LP`m3(7b5{sRla$|07qmv6h
z{)!XlXHPyZm97s*4PdcGLOd_RTez-8oe~#}#W^K&pF_%?X?gGkkEQ4e*{LHMr*K2M
zR+B7%)+iF!P{zjI@u)p9@<b5r`db3GI86`Q4PLDXlN0-RcIG-vY&hI!AqecjEsyJI
zwUZ&7ImrQDo}5Nx;lg)}1}vFTFZ^&ryfEtEkeisSfX%5TV~a|EE092TM9K!Y2A|^X
z*lc!2G`TRbin@+TotfFQSkxaBVeoKc<;&|y9|=RW*Pt+)b+dS<7fSa8Zf0%fidW97
z@F-X7U`Us`Sp<JsBiGL0uPJEosa$VO7P*Wud04z0m!y+<hj`R{#U8;bIe`_wf;V0}
zVPf|W9?UxR(<3Hf{){up)$iHHJ~o{W7>u-=OhQ5Rf-KDMDc=3Ev;AoZQ#HabNSYMi
za8}aJwnOP+@UJUTyyGNSEj-DOA)Vu6fF(z!K#H@b!QBS0X^!X=xflv`;+@*MQoYy@
zvk(6F>OrrviX@oxn8n|EH*#tX!PfWjwhs4Ms<bIp=kxLWVf}2DC;yut^3)6Xr&4Sj
zlpf@3$@^B?_*)cha#NiYula(TLXv)W_leLZ%3kuIAD`x)-Ej|-JH{~n5OE^c^N%tO
zo_ud)J5P#El*zCAL5i5{C~gjc3TnH`ia)w*aZV(iXgI(dby}PkADfaUT=b)CHi^;g
zc`Q73?k$acV6qVWHP-RI?1B8JvN|*ug}%=Yb{o;5`tZ>&&fO|Y@LP#S4n@$6EThg_
z_m41=6#ND~|KR6?S3lX=NWm(-N<r;5$S4Q!*WzB#s^rxr3$S8Lo<=;VSIqp;c_L7!
zBo*0r^{W|nm20zf=yok_gVp=AXTsq=BK+*)Y^{yfOAq}$Jr#mh-VbijBF-6wU%bw~
zT2YdcJf7?R{xoEBE@^$jsH{Jx#B~2SrvZNS4E)GJR=3I+e6#L3-Z$^ju&7+u?(X*X
z97yLEE>rx#jTi-QXj!!FTI<I5eN61z?`<E#`j>D<!CzBu+HF5Me3jnYQ|0m2aJ@+c
z2C=jl&eE^+<{3Q*QnX}z8J{isZ<h6g#nO)9mbHKYi3SGg{QjO0nEZ*0t6`U?9mikO
zXz)7OIGt2;0&ON}O&oCbI;;WvZQQox40Wj{-CbkE#9FM~ey?v3P>bA$-_8XbWt%+?
zHYVig%!RhN7lP##$TcGTGkF}egI$JxRq;D++9s-#fJ^7x#?5?`G&TJF_sc|8RuW9S
zmbOOA4`2d0ck$PB6nUsL_L2!bB&ufnMI3iUz+wjRI73&s!QvIQC5tj+ioVGjte(j<
z?hHfaDBy2=<2X06s;K1cxnX-dzSHU&ZkUv~p={|yH)tOCnfiEMA-|~o%W~cbcEV$P
z^l&_~yOmk7DiNFOi8Y}kFMj?Bc7mD^-kO}`gvTjbl`=niRynMD`4<hr^zfcJ{c7k*
zwd0(kpJ#!@!rx?x-qj{IP;0iA5rBN)?XoVtTcL$+7uEjyTa@+`_$CU2AEi<B0{t#;
zDGLOo0$p$Q!C`pf77^}k%aj}Ktpx0$%r!v+i=Laa`n)8lNc<o@J-@o|jK(S}3Ugvs
zoR7v<N`gzHT<}TClV1*!qM(x+HgbculB@yC3RW4-!1+7sbV=r*sHHfT=_6UR@EwOz
zux3Re&YA`bj`U@7`?lGho_aUs!lx+mV9`-!_!28E+-b(urJ35xY^%jgE<o$<II7|}
zYg+E?nORN>AJ#j{;;JEfsv(~I{*~p5olH~L=mH{$-z5pt$?H_m@P^fnn`!o1X?EV?
zey7loXN<$6*F8!Cc*2YayoOK+sxPnhAOA?aT5Z{UZ~xFaiTamB6_x$_@EyHQua^J7
z_G8K`9cLD~qqj$0MS7VZNryRAHd^X06^6IGOEMam5_|eyH6-}Qx;{YO>mDCknX@^3
z2x8)HNHX3(xsA#ESn}K9#aBx7>~QDRFwBdPwWeW)<8-bMM!6)NoJy1U<|C0G8uV$m
z+wBHjQttOd-@hk2bxbZs)L2j|fsKt#+VRxiG`s-B9x{=>Ff!tyWn$cR6wT;m#{dBQ
z{Q0|Or0<81mG18DJZbVTGCqB(m|pWbW${Dz`0?Y?NtTZE?SkJdKX2AuLbn&%o!yjc
z{~S1be>#gJ<?B}|EKTioeh=sJk*<Uzk$$*T+(xy{SGF*etBK87I4v9fd2J1ngsTkB
z=RS3>%%`mytGvG;xfnKTx%d+NLxULSI%<@26J8bXj*k^#NNKHQ=8G;N>#T>%JD<oO
z21$L}QzAbNd37$i?qf0X$VOZq5KsAR^<?&T%1(i2!Ev|G?;w|nond&k{01sV*Pg%2
zt%IjK<*`@?r=LmMJ>QX?@#;9<dB{tGg`Ad5&!Hc(aXY_zH259-xPTky<GNzIKOP=t
z0mkse-u3lgFYiIF>EN#wKX~?JMT0!ROKR`eL3_{_*^>mW3ApJoqzK5#Z40Mte1I)g
z{quA@<g)vyw)6P=vMZ8%=ily1U{AjJoOB~s3~&RA2aVg^s*T0QKAT@iuviXu4embU
zN4m&0THLk1dQtPba`P9EKrC!ZHoKp%p~T<eW>9xK`M~m<W3)MdBW)pm!FdV@LJX?-
zw^2`4z4e(&-s!}QS<alNv&n#&2NL|bcGxh9$3qkD2p;<PHS!S$>XHFbQV53+W_dIp
z7{Ey4PT)sUIjlUXozHfic;x2rY)>ZyW~ocK#mo9j$$_oF@^eADXO&3-tMxt-4jF>+
zqddVzahB6w!tFMUWPz^iSt>G;KeiN2+iz@48;7h)dEUKYkqpVIC<R{x6uJ6NtC!cP
z7e4v}iY&~LMeo8T5Qc0!(Z0!%0y!);sV<aRAgTz7Pt7=F>U!pR)K}uvE0k#xOoEPz
zMimS&mQRJaSQ3~7ph#oO+ZzioafroyZULN3{00v1G2AFLdD3?q05{rfAde{cKDken
zI;zjNmmlJxF4LiUhQr2VFVBtb+j^Z=47kPP!cCq#K!3NkjAVoy97%(_`syO?8b17T
z`#Sy3u4st&GW*>lH0HDu)_fFo^(}6C_hYGkAuD97fgRgF0fAc&ES+->|45JVW9(BY
zomQB!oTUrV516IHT8^Qv;&6kjFWUB*8^kuxnJ3qT?c6u)5xa!kK{B2A^JQcEk=+$$
zG`f*cHhd8u5Y^7(mhWPPsAJn<4}fmRT9rget}kY&3VgNI5tS@L4mqAi5<7M@Bj7Bp
z2@K@|j-V1(d$eK;K1O&Ga(ukHt%et@-V?k(ytr?8=xx3`qmSfODi+z^JYzvJ)JI&M
zBEGX)UOWs1j;FyurwZ?#>FEeqp&I-uBna;&L#mVZW!&_&DYm>xbrN+3zpk{ZEb_-f
zIL-k&oB5`$(>sLN@&b-c6Yqc6Zh!;<1YBp^=r#?(+PT`{JUZ@T+EE!wweDJps;gJd
z$VM_#IHaNQ;}2iSP@hanK962lcT03uJ^2<{aW(vQ^|NKS*%=;SK%n&=Q)0ne#4|Z@
zUMocj(E0!mt$how_8h7q9_@!8KizG=*Af;=9L$)NlwC<l|Le4;P#t*4@S?)ZykS~B
zHxXNPm5o^b3VHl}eFE3tI2__?_qv;X;q5LKi2$sBB0wB1ZpF{684ZjL?UeyI`{}>}
z(Ez}it0fj$RM&ewKi|F%mLVI5z&Ea}X$(O#?kess--l<{1<2Qe$33Oy`{!c$`~a(?
zI`D|$`4tvASkrDCuuiNiK)@_R8V(9RaX(z2+|c)sz)t@w0O0GCYZaRZLc?kFUI42N
zI{pa&cyCq<FI{?c*w05czO1QjUbM**aT3K%fOD>^4aq5IIW-y5*)f@yDs_5Ckht-u
z6jAf{mUv5~{rGdBC%<Nq+Y*gFat&XKsCoAskdybUJj28i5#D*P?`a$Xo_-O(MJUDw
zzV#G4cz_QfWf49C+{f8cTxNN`Z^1?17{a1h`)pS=1fx2BoHOtU&0(#cZ0oeEVPp9M
zyw4W2K=7^;#$U^R@C=8m(db0wn7TBZkHqjcT>b7kHBn?gEYp+p9y69_Oc~Cv#9@8w
z$R}3e1caerh?wmSk)D*p0V1O!;$z7A+^?>Ufolew(X{l9?z#U|MF_BVJ%e}J>~8^1
zbhgH-Iy9y0{<bmBNc2v?`}(@#vpdLG=*ZB8)(<A89wMHJuTmJg0a%O5N2QaYXS@2s
zH<TVWK(Sb7i+6UF(Pr|E&qo1R-&&tMly?+GR+bv?n$p9~OAh%)5WZ6Z%_?-^=1z*g
z&-b6A+Z@^drhsM{BJg)nC2uIcT1gp$0*#)ZU(m7u*$7Jbjc|lK;2&IFY)KRlfm>K=
zocp~?$aRq@bozY*K?Z*B6L3WlD(fuHBkEU6{|Nvl9L4hZ0HErLi+ypn8%o=~P+Cha
zMvq$0KIb7u>Eb;)yalRjl`LF!%{NR#?TFixxwxSiV95PWP?jhE{S<9hwC?F!IDjlH
zz7*l{>UkYc1k?-o(ZFAjNlY|OqMGpwo3LD7+W$z271KX{I#{mvI}Kv5M%+$#RV|Ew
zfOJX(1eA5n{^&y<>5Q|N#>L&O_KH;;2rwzUim$FeDd9rLsPtb{M<IBt+{ccU?qVhV
zc_9R-;XyEG#N3o(Q~pbNFHiL@PGPfTm3esraiX8cDZy7l*}wg|xmzKMZg+P1YUI9g
z67iMC_`u#c)|Xcev<Vs=|M%rbgVxoEL(Jjay&_)KgXF|xPFY{ZFH7Fq-M!%M25va3
z6ddb*5R<K2hM<6T>T{(p{({A8qry+`Iuu2e%}R;#5HmkNn;7N>N4kPC@WbDE;c$+9
zzV$z<>wjtyjliY1e#2=I5?G_+Ov@tmA2nbYgHqgmTRKQ}ebbbw=BH4tz>q^YB(=22
zT1!_MB9BU!y>WWr@>P_TdlThjF5PjzAHmz4x6o)epCB6%!l7zD)AqT)zh5p&aD8dS
zWvVG`p+DDfu?b8Q)`EnPFfJs7-0H1$KXU_unOd<W*K&7vceZ}(aIsB>=XnYW6GYkA
zSWwS1vYXGWU0qw_I`}bic(6%C$$1_fQ2R(j!*O}^JA9;cy+<AHE1L>8RKtiM*-_#D
z*7v9vE`<A?@?xbnOT({^o-AAbo5*FWl0MpLqi=Dj*mNLoVS75JeCsGXJ3Hl7HQj-Y
zF9D*0Hj9HJ2OIgwTutFEQcSC$q6qnSa&H5Tz#V{uH0$;2=ytp9&mFTnt8&iAP&_F)
zoXbF6_ZL|iYH1CR2Z(8DXmDUOi!8T)lDHTQZ2am@37{8q4yr9X*qKwC3%j8|Y}Ko&
zm7$C^x3D-|p+CIN!ZMxRDk@|-^MGid77WJicNmpBJS2q04n((2Toha)O%x$OXne}8
zv(&tvb>E&=wuq{iJ*)LUdg4r*n(1J{3MN40)u^kdhRgoCKG&IJ1VcquWN2hBS5U4(
zJRSJPd)?nRYSi+V4kVdT-<+}&Wy#6XSa)Jt`<7J@UrYw_uC8<vg$Y`{WFnny|5DpW
zl-m>Iv=Qc+^P-aP6AUV{QBajuMT=9-N6K=m?#Cwt#-k48VN5{JdrFN>Y-e8%p%Hc5
z!UWL5{{>|J{<%!VRe~r7(IO5YY~@aiffi#1O!qX`QrqXZwa=c%a?EihO8v+)W<vy*
zOWD1;(n(dW0{7kZRPR6OjNEQP<3tuPVwkqRM$nD59;&GaZg&pcER>iyFeXbWQ9?EL
zsplipl0GO%udomD=pXc6_dqc<6FJ_w^VT!cC4al5L>LXVQAyME_N=^15jeva$pArr
zi^{WnP2o4^h(=uDPy5T2Br)ZC&3q#q92_NCGf5#45r(|t3FDDIOsw%AD|L?%ycP#&
zDDix4cOQx(OYbv}A3S&>c)O<YK%h%7Z<#!Q>Mzf)vDUB4ovwZC7$O;#d^fRT`|%Fy
zh0|F_4hpiMC)aFSR*_=P3yTTe7GB5wcnP)kc6Dj&wIM#teqLK^adG$(W^B!2$pvc$
zw0VcT8vX0m)>bjAUjT3MGS6j@d3^h_^?jtSoL9@#srKP2+sZiH$q+kO2{?J?!mE~-
z)z#IH67CBe{!E_()q-6vhLA3R#Vj4<gz=Q6@S5?JA9+sO^qZqJ&gI&y@wv}I+FIHa
z@+S+Zl|5N66`}_vB-*QXyy+=YJCk}Dq{-^nONqvCncaLG()zPDqPt%S5@P+tF2=ZD
z`j@pcl*{b~JWBFElCQ**PSY2r8@?hI2sk4}2CAKpw>Ja?C2eh&mes0vAQx%1XM+;P
z`Y3@$%-OLoOOKqKe426#Hl*0W*7&s8a+Md^w7$Vb0RaIo0(wF>+X2IHsDZ)uzqGFr
zZ8?@zU1n)|`X1CJ10MTr5Sol&V3~9DKGmeXN<XD9PkqbG3?g|Gk?`pg!%ECGpXoNy
z4ZClS&N?)-H<>%W<j4KKS^nvhIBWH;RHsS^)G_|!7b5Qv3I{TG?3~}JvJz#Hj~3Rq
zla=-J%rWd;yiFqPwDTKOO<vPs$Af?qBy=2y4i2!ZTp!Eb<UIxfcm?Q}T`jW0NnXf3
zD9R5#$3<5zze1!WfyR8JJ`ASRVY965=$+4Pk3iCSAG0^H_h^VT@reGRlL2fh&U&*q
z<ZDWrX`TfO-j(Armj{+|NKhBArV%-grHqPhjlRw1DoaaA87Q(!X`QCN@w~~6?gvE4
zH*em&;*b2gqwjFIzd0E@Ne^0T@Tro*zeNkQv6j~^gs<u~+lYX2Ei*?TX3+NOV1E}p
zZSR+IxwM8Ag%>v3{#TL;2e19_ne1{^V^{~75DsuE`LO`$B+yj7>LLX!@=QmfRWA75
z)wZ9Fx0>rYPVo9P8FS9o$O!;Veztt&OG8=ruvJ-qZ_1esX!H%ap-@-3(oA(&FeBS7
zHf5WoOQ3=+R+5O#Lo`W@ai;RSTWmSIT5*&lvb2B6d9xT+5C*U9wBGG?`G$VWAPB~w
zgVTeo4J!`H_IPbTar)fmu6}cPchVz)bJ|MqVq7l(3z-WwtU=BbdeI9irQFy32c6|h
zZ0G^^ph6izGM{dVim{st3)Qlph4&-M*29PGbwP~!Es<ecY+F9d_NDTo+Y_skjlHR=
z787+rkhfCOi<0GIM8U#WI5|zi5Yg&|6fnw^<!t_pn3dOWzwiwMHHR9_igS2P85A2E
zYw9$oPN}Vbu(v(U1==|1rDQB}M$sB@XP9L5`1e)2<jh;xNdKtHXEFc=P#WnFb&(!{
zq`3dmEuzoxM;=8<;Q&YuMcF2=t&IuUAKEg8tLL~Y9vT~v&zCA4<SVn({4A~&8nXWg
z>A3*MFuKm`cSoMWqxAOAeAOpNZbFKERgKH)s&W!vzE`g)@^fJ1dKZHRYJoaN84x1L
zLHuziLIEi`-N#x!jeu06GXSy|DjZjD2R1vJW^DWyYbj2K!yj28iROuiL+cO-Bx*th
zX@!s?&_EFPOzW%wdLj;O4oDP$eKQSDAn%hRM6e?RQPP7e-)z&ptFcVODe{(GNSTg$
zhvR$d1k<TgKk7#%qtW?aHEqX${+>JP>RT%#0OQPC$#8BK{U(piX{BT<l|M;<+^2w3
z5(AZl2lBRfOA#IAe`rhbmpJ^J<zY4P;K^i16~FmF)QaeS)6@}E98Q2@kO9^*(%Y`V
z49nDGDsH(Yh3wxXTwPXo;y<N}zwqEnoDDzq*N5xmJwcTi%=gGweP<Tdanrkwn|jTf
z(^k68+;cQ~z=R{}4{aG}kDyN1rsqo|b1rl1P^C}vCpsWiI;t7Rk_LWHE$Sb|Gi213
zPDXXtkg@!^mZZo*rLvrbE7Nlwbd8WQ-Ss(socI4FT>wp*V2mhFe^?J7HfpT?g(0{`
z0OyIX;TREJy4L8SvUNk!@j4N*$QI3JFiQ@OF%WmplzV(KB-Ez|Lt6R*izn+)YPeF6
z;r-WFR|=NN{~_yUiV?5I6C2`FZGzv7f|M*2u!C>@#%UK(M_qf~C_BQ;eSd1NxlebB
zU}8(l+CFg2J!wOR(uiXKbx*YVr<HAvpz&ngKp9dNxKiLf0=1F(<#lfea}AJj&-OEJ
zLRH$fiu37NT=*@G9lH(;*^n5wP7d6LI*Py6{O_3hhjT`qz&S*R+Gw*F=%_xP#K-PD
zdj1kpIR@o=5w}3UC--NLE`^Xt{F|$*xPV*O@T>sP!0fLAh$<8s-hGLLn&&uo=m<i<
zZ8$p;Bn(eVdJO46kf^wZyQ}}9oG?^-H+elhJ2Ne82N8xF)r2b&<7f}PFaI}Hhg!o=
zpn7xIeyJr5gUO?1i%M7{LhKxO9QR17%uOh;(&Rw@3a}|!M+)^nGV$!+$s)nomO%(r
z=T01OmhL4C<PWjY@y7cu6zV|_zCfW~>|t7t2oU1-xD|*ylD5y@koF5H)NutCj;agP
z!VP6=yQh3IZSbE8OP~;$K?gCimn*KxPjVjC<V#>bc>8i$30m_)$O-hv-NvliU3=7p
z6JhG?*S`L^c@&r|R2(ZZ1J~<p=Lvx|l)&KROKzNeiJJ96%Eu?3b0<Qs=E!w>dJg2_
zLjd1Vl*TzzQiz(*x0Ew}&!>^17uMVw66VAaIY(R#XUq$ueFvGQ|Epdibvh~zM{S79
zWCu7?s1$+#HfS$dA}@xl+{M?(+uCA5y?oUUgs+cO$%yMr^B3ecJhdTCWF83`idB)^
zzl94_82(0c0#lBB654a<(^G%3w6<v>G^?vGjvh0(R3^J*CpOH1(NTrMxzNoR_fS&Y
z;>mm?p<OOtx7VR5vxw~c657rWVFAbQ8Cd_TP`7lNcaOl`Mu)p?P2qo;x?Bfad<gKx
zg#ZIN2mv1kB*n<kQ4ziTX5o2=?DU8DX!G5p9@$vz=fw1H`~`II_BOJ5+~mmWeJVsM
zb>7r_K-JxUC1``}t-$v1l#1H%mFM=)kzM;FN*MiB1tEUgpXOJkQzMSekR6{|u{2VC
z=*1FUFzzqZpKl74RPP))y4NbkcFZd|Ia$#d2zmy_uTo4Z2g%-lfmGHf#64w#gtUuX
zH;*5%h;7%q9y#j#`wKl%$3Y30KF1tlnC1e1Scg71c(PQzJ1jW2>pzwM7{z&aW;rsS
zIf^5wdg<>D^#M?z)zZ5NpC|N^f})W{Hr#SUer;`y?B+qcB)zP&I@~_n`u`yjxEci-
zy@n<*<*^xiC`6#yNl8^zRZGixDlyO41v+OSg`W=+u$Y?vk;z!!3`Jj@fa#>%$SyS&
zar2mo^EL<*7kK&I)n$3H{hXenZ{L<%T@Kc0Z3fK_2myMpO}CaqU8>Q$zuoE*Juw9%
z=?HV0|LW3*@KzYcyR|#oAa<h|9GKKc`HX%rV6+c+dZDw<>a&%j=m=wgFa|^KvS;=#
z0@x`j?awt8V}-yZ1#NZje_@o209LDxt)5~FV5N7RAK$R;O83tC91A8mIQX6kF&JJJ
zQ7Rn&OQ~>8eP{G~bK4Q4pswz)(oIam&w%mHzm7r$#)BZ6O|nRarak4J(9(6_iny}T
zd!yG&1Nj-AscN~u#!`$23m#%Q&BKu@Wop%AU<~3Uj>>pH#4CZgRMvy6<Id1rhFNW3
z&rnoU)G&y;Y1mV;x7vu|cHY}!;sdfX&;-=qJ)DAg-KN$-8zDOx)Gw=#mTxzkTF>>!
zViV+|c7^~LF8{35KU6f-)Y1~wYxtnT(E~Vg$!W;}KfkoEJDmWnki2cZVAURR7ZC{R
z)W9TzgM-kf1T_YfIEPyShcj?v0G$Y_7?pszE<nP@h6cH4;iL~c`%5k(@Ugg~VBt8T
z|BzEID&xF70>&jV;ZAMx1NsG_5s{QHN62>hiO#mrQi;XynTP0$P~k#Zuvj#gK9LXp
z9w-V^8;GGtqodwaLl1~U3C=EIESFn5pt{!H|D}xZ3d*S}EA=cf(9bzN)BXk4a1pi=
ztRnx54yHvhh)G$#OZzr|R2rc9iay~|Wr&RIYx$X>;!Ux=O0l@*)8LjJ?@Kcp$~T$;
zP4wC(I>;koE$tSe+-ESgfl_M!qwn!V)u3TpSITD2dEgKqxq`*9va&K~Fa@wI7Mh!5
zhAkhjGhS9dhC*GtT^;*fBID}=DQsl=P^FD8f*;$|;yzWhhTWLXtffoI$S98tW(8Qx
z@b<-mww4L47%1JJt|?l_{Kx|>%(Vy8M^J9mm!+EhJe~=9e8t1pj8(?}J9Vf9=@RX=
zI&a)SXL8If9Ud$JB=1X8=W84*vIi@=3CGN@mS_K``eUF8n+*sS(ja*D{%UCXeF+F)
zu9mt{UpF%TQw>6;$z@448X6i(==SHlNIC@z92i1Hy}zcd5aj8}4}_jc>5wG@O5E@R
zc=&K>vFBg6KP&zP_LLG!r*@chQEWc_k4VIM;TY;;;QT=A2i8Ye-Qf~D{Nt?08Yzm4
zZ9M<27kvtr&Z|HQ*i!p-`^Ca(Aiuuk%H3mzQSy8i+iA1gz50jx8zXi<dIY7GscWjE
z{NTa2m)*$^zuavG9>R@Mt6;4~$YEpNE{M9_Wi4XlzPS&?j;ocTJ7J1V^1jdVhb}I4
zwgNpU&K_z6707h7!y<IFQU*0g@R<&mY>%-&8a;v%zx&|q`gaM7%M@g2!?yKIbiUVI
zIPr0mLH9cmw*#B<-647BRWi9~a1+&P1SfUR3ZfrI72E3XrCrejmFH8g%*LrbmxE~+
zZ_nPjeW0-Tjr()bHH)<-_Q1zneb4<7sifrmH%;kDW8|r*?t1_Zw1zDRJ+(e{o8^c5
zEYY?Ya=VTo<ADTTr>V|!19>9R=QWnv2vtMkKj>_P-``(Cvp{2Jh~D+rvKCY19|erE
zs%ZN2()e8+`-JIBK>L3W+J92mW{P$7-!#m(SgRe(-bZa~*U}K2LkBnYE&2KR6&4m^
zvYuADqZ#kUaVpujtF5`81?&7=+~wIA(DoVk^wjU*ap*EYQqPu8oM??t?YJ~+nw6}q
zY%)PSkd<nWAf5uVBaWq_qSDFym~`Rd)pMt|_MP7zdWNNc`*v-`um$w>TeoiUP@VOt
zgpOCHjNXW?IDS&EziwaZG~-s#A)fp7OT(nX`l8}OQiV_J<^JLu22uv2qk}3<bL-xS
z*bbwVhPGRKT*E=~w{H)yV=D#U1&lfq{E}pk@~bNxFZ=XqG(_FRZaT^aD%N<Yvg6nu
z6`9f0c4_Xk%wOS0s2M-qI?MFAmuX?8%t96?2rWLI>9q>0ND#2NjD~l330Tt9n$dKs
zc0_sCz9rHML7HWN)b}e@t{vCkIP$TQ8R)h0zroacf%_Lx@AfojfZXdVDJc=#pOr_r
zBRgf-EMe0BCHzg9yg3RKqV$H`g_9(7dk3(#T!*V%Vq4!yz(Wr7f6uhj3R#!b?EoDs
zhjUogX&0MPn_g>ZnM%wwa&Kvc?jV$_1q4(XY3UYUAlsq}Sob9mG%jAWGM}=V=E4rx
z?8fjyN4EhD3RR|(bzGE-i|eugc)#yAx#&|IsyGZnZR)RSgH#77$4m$!vz>{L-ocPR
zO(q%e0MfuU<@5=e<C=0%uWr>3S0U-}(Vw;)PK?Q|rv_s@nLlm<G~^nNhX}<Enm1lP
zm?M(k&mum7pwv+v1i^l~xvIGMyEI=5(V@5Q$(fx*oT%V0_Tm%JIUgf`rffAh<JjBp
z*`XQ<C!zJ%y9YLul)(S$3U>!7pxX)=tww(^`IZNr{gvxiSXu9#-?|~gNroV>3luNU
zaD=Dm;42tGbKhBU_%H=7f~R?nPyC}aDAGhfV8hA86?%nPj0k7$bqiWPbRKAH$Be-X
zP|eKW?BkuD#CXn#U*pkBz)26NQFBez*QUMcLjp2DGe4p{0h79DmuI|U;;apmS}uJ*
zl!r^+ua1YClNCc4(zIy4+58^n@kv$XA58)pwY05rp=k`Ik(4l4wb-X06A#^Xu4h2w
zwqToLuSEy_$nBLdrFsgG2Bqv9@#6@}l_N3I7I3wa3v~Su(=v`rBUttmD`HoM#%*nF
z6Blb0tfia@^sz0hAgM|G5zZZW*Pw~bW=;~Rd%}5SDbM4s;Rpxuo~%u$U)sCR0Xomg
z$ZbZ0+=dFoDUEe<k2Q^7%@UYtqP@;uq$obPi!7B?L-3HB=+7vd;nT+mWCw=#H%CTt
zPC^HihA6qu3Cgn6+m}FVvLqT2K!h~ZyY3GJhhqqrI_4ugK!>akj}X*FY^i@*7?@kn
z;p!q+T{A+!L3O-kXAMh{G>|6(N`N3sFY*+HPpp!o^tPj~ix-R7Cm+Jnyqkt5!NZpR
zDt>O~*v=#$#FBB+j|dT}d9ORe`6m8Tx>2dbc*ewX>+28KImBQLdi-uM4BgY@#K$R1
zVlim6nf<!gptT3$RB^Z_OWotWXE`)=qXeO2a3Hp=3R+}hjsiX`$%Iuf8ilG`e+fDU
zq0?(#bf_z%<T#4K7%5uCYu4tser$ff3t0&>E;BSnjGz@fPZ8KR|19RDmU_qqNy#C)
zIlc<WIH>S?u;xMe;cmHvZr9g`&1B$BqYYnc+(-Y0zAsSAoqMq+h24k^!W+TeVM}}q
zGl%(WT(3PH()uWI4peg!`U8a|T#f;5<IxNZBY_ZMETIDoVJw9o?d~JPX!FH63ZvbB
zGK@J0B5|F<5d&ehqK?<T+3V@h6h1ThL;M*WL5ldmr;6YV|0Q^$a*iQ&R2>r=9SID^
z?=1AI%+t`RBT(;8?*+F9NIQR8XK<~=(d@g@AjNRwBzN62BgJ#2#d%0aDoE#1+DP*P
z>ME`anfq;Nena^|8q!L53|a{hTF2l8tI*s$Xir1g`T;#VV<~>re4I)M&Pwx8vcMEr
zzJ?+l>j6c28Pc1CQd1)&M9$6}Oqm`$2UrrCy?U8i6iRG?e>EKTF#d^cPs9Oj!>4S9
z?ev*Q@7;rw1g;kU6Xu}%5LO%4eTcfo&_{4+dbnZgwShos4|?YU{nqG^YO8hFiF$kg
zm)%1(N##|P?=BW&6dpg$d-DB_;sju$EwSi^s4|=0f43;2P&G_eIU0tVN=lb8Bw~B7
zyjNkl_uQQJ4Dbp)CV!9$->``K_(Actseys#-7gpg4UNcHSPK+X|Nj&IHW$fg1!@46
zq0Y!8SL`~LA(~BJiJb-RnVtnEa@Btd8l;;Mj&cB7We;fM;*IB?bvIgtA3-3Dg%eDl
za*0y4UeNzw!SpYY1P>?fA3-9)HLgCA>=@^rS&%H};gC&7+&v+i#rp_4YYWE(M0;o>
zOL|p*KEI$8x3}DMmu{DXpjV3=v8tt02UG`w9Uq(^f<rY{zq;<RuDi{(MvDm5UnPKO
z_na13XoO(!E&J0Rjgq2=;k|qJ?#8oPGo*Ym87lHgl}CC$D3QP!(xeP@Q6@A?^7-)~
zZp{PbnfxFwVcq*r?y*$Q{59DQxKtE?V9;IV?m<>-Yk(;FlvaQPL)vsYv>D&$g^Hsr
z3xZPQ<Mi&6FaO0siVNDWR8w|Oo<8w5p;9Xyid-gcvBSN!glyf9z`3)>A8f}Q_E`po
zyq`xSTqRTA?&eN!Nf30%(@a|~>4A*T6MDyk7=*na<12%<<9-R*42(bp2>GwAHgaWX
zmxG!JKWsF_n+pT^+U3sqgXWDR`$Hpk!j1~C+-0sx%G4U%+R$6C^EN%;?8WEM<$7ir
z#DGD^wPs4y?|BOpL>Al5fP01EP!`nDaL$Y`>i9+0o2B+}x+Vb7wZO<x7vSolvJ~DN
zv_Npn;r_^BX-*E$<pBbKvv;avUmxd6K}s0TA<Q!w&h2xkb3qV_=TfxylV{H-JycZu
z4awU_>ej8-vm8=3kdeywCb`P@7fe}d?Ck6i@wq!Cw069&*v3>(PY=%N!T(iN`(h=0
z;9ShR5gG_0r2osgPI^cu&gBT}oIo{8vvy}blk8*-yoj$=cHqzrJ4Ql60zpc2b`wF_
z<tm)#3HLYh%cI~B4=4q6_A{S<R(jaXc3j4}(fp{3e%gPvnxk6CeX4abRjyr74BMy<
z35%ei44T)RaoL~KhA!5aR^^8eSC9ihkr{3zC*B5#?##TqECVD0JRT8vaCLXqTm4p(
z5%*j#Gu`=PiDdLEN2N+Z0cAE>E`$BO=Ax#h6}>eJ`cNxJQ){cTG#oTaEh{_t=|OMO
zo33eMV#09l0{^Sgw<MwkaPp9Aunl;Zy*kE#-?N=87tUDEv^{P5c->;E$?NVH{l{B1
zd}W_M*ss>JNW>Kt31$xIN88;+z%{2i<qr4{R62$gu1CPu+uPfqU4Oi3_*hSGa@&yi
zs@>`hW=w8wE~4x2ZwwS$&4C6h^lG#s=}}_3cKN|=^%n*PTYat0ygF5$usJ8Er?o-s
z9)VX{FAY0=UJvEev|lRSwEoq_dhXQk#i89fAXX?_#0>-I(OY~Yj*qZq8@U;NR5yR!
zp7XtMeeAOb-3}t0_G-I`AWV-d#}gzAbKywKPEWkRU7-zcEm+7K0NZ}4qW{u9;}3Xu
z{>Mt9*!~MR4as=dm)~JB5v&cg)him7mD*SQj(b}xKpV6`;hfv6H3zcV`)40QLtPdO
zwT0jSTi9i!SpYs@3f>;GKd%q#X7H~5k<R|kI&93;q$GiCrp)TYn9^NhpI`kusFD_*
z=U+P{ZaqM^)k$Pl4;N!jy(D$;$~5afPtKEY&X+Z>>fMFYDx}4qGT&aOIRDm5=gX<b
z=Yud3AOCKOTnc#K#23nZ?I`22L(J}={tx|_>|UdrmEl9gw1U46c9$|#vlA5e=Xx`M
zDiIVB(R^e+UIXdMWN&Lc;PdCtQ2X=;2TM<8={4riufq92MAREBTnp89Zr^pV+n*IA
zXkFiBKcs_7;Lf9qu+^z<++_}?8LX_+!^WAvxVm(stqpwy^?~C2c}tif@Gd69B?6qB
zi$5}-4Mq=|7nXEQ*}<t+5<)_SBt_W>Ud=4sdT_^l;{jgBtydUnIXOB(%dZMaOtIja
z-#ChOstGY!nVC<a$-B?|#w$PQKG@pXnVOpN#>RrJJv=<%JWx}#h&mH#@P`i^YB^V+
zQ9874eGD!_$Ar_$n46bZz02Y52vn<Zc5kbZtK0~Ngig~e-T+pne?2=Z>%^H06_?$~
znD1}FAy_zjy9>0Us*1`t4r&@2jh8(ekVgvVhdMgUffs<mYv;aHf`kySFbg6e5h3C4
z1Ai@xBL9kP4)yhyN~veSEN3Yiy#pjxSIxbojN7q-FF95$Y2{F^cV~bM;torVO))K5
zsfjQxOKMz$Q@gzoQek2r!}ha9YCX}6d;9w&w1SpESpsL2`x4G&=yG2SeGf+3n5ch$
zRV`<ftu<2M20uSCoBMKd2kX7siTA@4hER%Z-EdIXtFESI3KY<AbSLa5xiIeP+FBMq
zKAY{;NeBj<R!_9Z8GA!PaTRkpi1Y+;^Tb)ID)ODJEnj-EGC0;r=r-2&`OcTS`-i6)
zFI~FCrB!n7)UlJqG;NWOc!A-wTblxnoI^lh8yE?f-G%(Z7esJS87Y;#>V}5)!K~@&
z=^Fd-a4JzPXJ&V)ymy>BiOX`oZlX-J&~e**vb%s#PEJmc7g8i@J-of}!uL`|jE);7
zX+%90t25(?`lLk&hmDmofi(NI<tQ3c{-Tpvmbl4obI7KUGASu(&<A)Bi?{V~%(0Z&
zVcHSi9TF0P{f)ef!4(cQU%q@9-Odu@sPMAP0@f;&OIr>L?LK{_4mQo0UP_bnGASl1
z{$-bhM_}KV_3tjjk<iYAGI05mkbD@?S2YU0b+L|fa&iLS!i-5$+yQ`R<_5?jNiB^z
z7Sf(!mJMcX#g>}a$e=ep%6UYl^phch81RM|LK2b;CXaISNy2>kw^QuMHZl0?n2m||
z7#A7(y02r^h1|5L&x{19E84IP8>T$MyXV8hst1|1!7J`2{SNj#M(`cZd_T_6(#&S^
z95|8=2Vg-n=WtN6*i!EE8%w@WSjJ=A|H1P-VKr<qX-&e@r%#iROh3Q!%Aa1W#dtp7
zpglG#fa=;4aX92DH7BcCVjJWMi`)hKSt0nMdwZnb@Yk8}3NH1$rj8B;&d}YhEu+DL
z%r0Syu={y0IuqKzNH$KIe|~V`!iBHT;D|ozf&5C07+K7Y{^ht>{SngqJa@m7s9(8Y
z=}dA!JW>9wHWn7_>UHed6VuS&f$ai)-<+QN>EC~W7s!S4B%L_&>dqt`9o@Ut=WJo&
z;pT-VYHDgpGD^N0+7N;Cb#!iHAsH-!_Zk=&7#XE%aB}5y_iDm2dqlA50fNQ#0@zqu
za^w?ic2~kgJih`P58E88*#6Q})M;mCoVM#mQTl5ebMqZ=#r?g#tnBQgM~}jKJ|iI^
zp`@h5*l#UA)zQ(>(xOvdgWbov$wdZp<FUPO7Q|%E^@ZaSMvt0gJEHU~EgB`RSMYkW
zfi+lqkterbg|+GOvWAWlCnaU5VQ+e{>}U#UAzdzbB^%qzmPmmYFJ35TXaRI&Ltngj
zaeZ-UU}WSF%F*k5e7%ZO!(H!L<k`f+qX(?CZw!>jO6<n>aPW}YZ!y>O_VTf@H4F_!
zd9JRmj*X4MX<;x!bYm!&MPG4ov4gIz?xZ>g03PwT@e23+X`T?SLP#-Yq!x8&+wVS$
zs(?^%O@Pqt&A`*)y1K86m9SH>iq<UU$=G!5w<pdP0n7oPPLz$PadKh^ZG5JqGu09W
z-w7}PuX*|M`Sa(GCtttJRZCKQX`dTw!$jc&RGSrXd33wgv1n+I_y|<N0%QPK7i8Oo
zUWT0wKM+h~gzdODdy(VGRF_u5-tX0tczFg(#XTF*F<ju&M7h3%O0@KZub*GUO~Z}f
zvyV(@w8}L!HK8|d4|bV1+hDm%jAwz@Z>xk@x*OcwR7j%DeC9O+-UFO9w8ym}z(&+b
z5F$=o923yIn3vGH;^^oI5t>W0=yyY&TJFp0YiAm>^z<*j%F4>}_VKZ@<y(I@y!ui!
zMhtjNaOBy!*D%61)Ts<@a^^h=Y}I)EU4JFMOm0i)uDlRjY^QE+p5-54Wntm4^P4sQ
zd2wo6Tie&KR~#I674$zVyQQQcDV>arOpiNEg@e;di7hxGF7Cl`_TlwdZ;=`&yQg46
zz4ca?;Q{1zvJt>qgMxDX+O=y!Lc4q0YtGKj*sA9KGMgp3#;i&IloUlajLrr3+HtRH
zos%a$0OV^Gn#T{GDm=SPO&wW+d|yVc+u=m!*5;!@L%Z_t4Iyb~sYy^gYJ*Qr`(eLB
zJCLO#hfRe#7^3fzUalI_^{82DpZmPCq>yELa?)(tE;tK1c;37rz_1mI6qhMx*4l5(
z&yJ08Lp75n-)2;v(MOR6c>((&EX)otcGh}!cJ|e)SC12XZwO{Dd<U-}eQ0U<JI3We
zHSYirljeGU=Mx586T8~?^Aj?$8$r?%*ap6XFEfhj<$44t#j2j35Fry|z>tIXR>X~2
z?2l7NpMRbkgN7WVj=0n4<`^+CM#ek43I+yO_yk3C>jD*Q%*LC7BfyFHwDy5$3YOL$
z9~--U`?hCYb935YlPYER!gW(qQ;fHl7pu_Or-0T6iJEy=MMXuS+452>l!K8%Hgd&T
zw?BWp{_O74r<W?PbtcMB6T;U#kcq~~V_`9hZI+^~_cO{51euxdCg!V&DVY+MPR+$Y
zE$t!H`e~5sFSdt^*WD2ZskkN`Ke6nbP~hpQxIvtC>B|`i0X%nw=`sKZ*ZR}$&SjJX
zOjrh_EGQ(z!pscqtNW0Q;hb68<GEEwcJ>scYC(Xr^S*teT-0-rIw1K%;<<bGE?^o@
zPgsPcdy=ywQPZ&1F^r5ugM+E5sWdb+4Nh6&3@WgMF)`YYA3p|(6Plo^{pz)gEMLG*
z9TYGI?3+8hNtI#}&>StYn?K_GzFs#<$Yx6JU3PA+)9OS$Y;pNW{#)3$CrLJzmq*!d
zoXG~N96B)pDG}2NZ!P4HEP?>?{(UFxT$jC-TG&w-LSkZ*p`DmnwZ+9nuois1hs^!^
z^ZmJVarfRASucbK2U`KS1*1}5ya-v6?fUhH<s!@BDZ??Fppq3(e!1&6Mrtd2kNgti
z8U|;4<>-EjIY?tuy^^|2349iej#P-}8TEC58DOH&*Q-(R>eg-tbjXHssK$=3LGpHD
zWc)%Ry2ZfAI1Y4NTUi&#XOL6Op4HKql!WW4nw00S&-E&sKMu{vSVF$_U}uIAG88ne
z0cw5832H8UON!sc8+U6*8<o=NsBgaPf=E?<uwz)LaR4k}sC^g2`9haN=Y>fKEH(lD
z{?UR~zaSjrqD?Jv^JTgKK9_?%1*ZadXj4-Y0Hmpj38Nq1ZasqYg*Nj)%%Ib`CZysS
zLIk2_!e*pXudPs^(J@@>r=K)8X<MB{i5r`ln@dYe??BxI9Q*zI_X}<l5%~Z{X#IHo
z4wr0GjMyP;toO{aFWY0?f`Wp4d>Wytm)E%85{e3ilZ6Nv=i%w<>+6FM4(N)Pmp53<
zu02))sDyAn)98qZ2rt}Eaq;e(<3uKd1wZHJQbI=?lT8BBv`Tlt!^8Q_bihs1Qd95C
z%8H1HK=wmwm+e(O7>U9<fH&K<spiWvA-4AR;qW}z`3?^76%Y$x$PuSa&7=mM%q?)N
zfpV8aK%n#U^H|J7xC3CNISdkP(_J&*(tLe#ky9lII$Iarf`iF7MWlh6&h78qJNs4A
z+}u35TgG13$f(KK{^5fMpB`K}Lwd(a-^hrA!pBOOG447bZ2(LhjV}+j?^wao)$3;6
zwQcg!^2A~+EG#hZq~p8ytBw%&dH~@3+VD=MbaX`ihG<Si*GtU1v$RU9^h-rA@<TpG
zM8G#@V3Hd}jh-|$H(zwGZ*AqXWLPH+s2%6s<YZ;N{)E1ayERp^qqEb(+#G5zmh*&X
zX=V0Z=^WA&O+~3~9Aol!J_drCAb#~{X<ZPFNS)pi;S%S%h{H)&_u6*cPus&TmYK|6
z?{uP$0;^NOse_}CiRWQOYigcD@1J1aDe#62mb;$=u?zaT+!%$MHt#msOINrNC%N5w
z%o$cs(e0Qhpl<lh-``&fm{=4Qa|k)TNL8b=95z*gENSFeM}PilxWiIeGUCT&78bIH
zu>Xg65Lj$=-*P3D;i{Xb%4>1K=QQlsc_Cv#VIi9<IeNG=mjT;5m@OwaH*JC<SUNZ~
zR1!;0YmN+RJ)Gfk{fsmR8eLiE5%92YoDAAU#SfFCD%gV?U|kj5^kf=tg7o+c2fs4}
zoO>)*R-|-PG4E{VRL54_5oC%o_y{+E(&$+2O&(5PzBNXK>EL87zxcXhV88*Yziwk-
zrche?zKU%A{f!?!oD1rR&yCd=yCVs_XWJ7cq1OP_&YV8ozE^j7x&JbJwoT=0_dCXu
zwsu^eQpS2$sTbr+1pBpMs-MsuR+Kx?g)ws(dFEFe-<Iexu_AeFsuUCLjc9To1dXA@
z?<5!!l<PH8lvaTuQR_aVkKfEJ*<vv6L4H&zc}Yf+NE=97RQl<?N)M70rIEfq)mrEv
z0fb~L-&vg)V4g8qdh&{T@kL&sxLs?+dyfrQSI4WZtA=!EO2DnxI1*;!SAzC^A+=pL
zF(%h^xF85@t?S(*Ld|el{N^>bV6!f*gl~bKig_EW=(4J7?!=I;KRs--Iws1-mK-Ys
z;$MAzJ!Gn4mqXEj+TC9%842<+={NxWMCI=FT08lebLe}%dd_4jpK*mUiie_zdHGq5
zZ&JzM$oDnrRC}A2?<0p3vhwo*VVPS+1lH>Ug#g%w{mK;sX!HkOj(~t*%h6eB(P??~
zmZD-8U}X5}qtvuC^&EqrOG`+%!><|`G78JIGv~cra}$FREw{bz+8^tMUt6rD?5K8q
zUEK^MwK9k|5TFT;9v!ityZY3sEV;F%h4}Poh?$~jD1rw84FG8f1qP4<fOUdL9Dtz%
zTJ9?V835Rg&CO05^Qw-Hdw-oK8@8LK)f_$#)?%!3u^pKSFj&k@Jv<lu-se^&EQJ9a
zNH{B8c@40~<yh$Xt*WYeIaCaE>F(xI`AQ8nLQ(?sbJ_ZNl7%G^$_fbXO3u%moe!Yv
zMTt!bXmCc5i=aXUVG#hpx%S~w2RIM$a6BJ&bK9xw+jj3ph~KHnVjDKJF4GqOS-`{|
z$x#6yVaByo)YX;u)8pdepr{KE4?l78q{a9G&{XP$=9AC^-2yDH*%(%RfG{A^&)@&?
zmGkf_CumzP+};494X`@=u(ADu0{0O5eJma1!N`8cAH@b@7oWyeW8+K~nW(uNfB_Nz
z@<>I+VCLMxN`qGgDmT&J`m@XO=n-_-$B#T9-~X}!4CCbq2T)S?1FD9Hk)oTUv8K9O
z$=vkiOExs*yo|1w+wlE92I;UFD^fC3+r1d~Qm3(1;U6h>k9|`b@B&c=^*e==)HYtB
z@Od*826Vra9zQ5VuoDXln#qyuKhqy~d<8WB<;$}qbCctu`PablQCjs^7T;XkCPrsE
zzJ@Gq=>3@m{#w~)MYs<jg1xXI%gEk-2Ug+mVAm8w#sBI_F5LmZcZ7vuRcZ+qhHrm*
z=K!rO4^6g%*_A!N0@UpGhE4y;j5LnfN2k>+WAd%!SDNJO?~&d7Tc-DzC<DVM@0-TP
z#&6%eNnT%$jm5B;26-hVv7*T-DV675U_S%~Ryd81PERXu{DLniL-0w~B#;L;d3n=K
z)a@^w+gm%y6eQ*A>x*O*mUE{rxPMoOr+Rk5eb?ppQ@`tHp6Ti;R#$R;K2Nt46Q+X+
zl3JrmcAMh^*dC&n;$&e>5ygLd&`)I7+u=9GoKQ(`%v5%PyVI$|jZ31EFWq+;m@%R;
z0iwrTi+)tKbamwb<bz{LnORxMJ$^tWVBy`;!4|VQ8k`wBUnb1A!RvsZiF=&FA{RL`
zJFA)}r=_I@X}@n34kEl|Y3&wtAZg&<ig|L>RkZ7POsgb82IKF~{*X~~mx3tRozLp)
zDPYEO%_#j>ztrs0O3Ut?%Ne!6N($4FIGsX4Kmf+VL625leIWd7#K*9($;ruk@f`}2
zgFhU)%ilstb(V;zv89E=ry5uR8bM2gvu}{yg;mMZZ6)Rv^6|VN!~T7slge%bmS9=1
z?dI$J{QO=Snn@^<8X6lN02L&er&o1!tOm<pxpL(P90-6cjfOmL2t|{%wKchtwT;b4
zp@n{*dAvecXsB{&+d3A~ID88Yd=bIe6r;EmlrKS2if}AuM*J5$Ku7ndDk05CCgxZV
zhB$cpGsG=-;y5i*LN{h+W-L=^W218nk<$0|r@+UnrKQ(s>dO<oTRewmKVQE;!pg~d
z>8R6rsz@)d(|jc9MNX%v;I1>3ANKu-lixhO058BOumzu(uVj`DzmWU_)%I9&x}x{Y
zrnWaUf+<V_V)(>H!+Hn>7w`=L;BpMwb-uqj4unH+FCQ;29C$MBLr&zxE2#PvtV^!>
zypfLQRy?y#+v_n?O7%=NMBT|lw98E`?e57Q-{%CBJKt&wL=}@1mBe04e0+DMfK&!s
zb#3*h=;e^dU7kYP*^8xWPN(_{M61MphPUtO2kNQ*zJ!|57mQR$LXI{-EeN!4yr$^O
zuCMTwbslbR-SbB?Bz!2a2ra5G3E>pm1uU!d;#E#g<V)NDJpn(H1F=x~`4a3KaqQl7
z*xlOL0>8QQB0C=n@^9eM|1yaP(=rL2umMybT}h9Cb<_G~kPomGwoPmJ%@ojL;2X+P
z7vDq5kj4Tf(LJ1z4h<($%@LTOui)3ggVbbXYf!i#I~@8us)=90+mtX@DI^#4K3vAe
zSz3kKEIpfXg};s-&W2YsPObvfK(I+re0;o*kIx32@6p!R*T)puuEavcVx{b#YdSIv
zykE5sB|u49K6kFrMtHTRf<i~4JiUn$(=-(Jkk!;*zD!P-04YHO^^34;PXuB%j}%+*
z%Fq3hJz;28?5n%G)lojJj3n(j@!p%ukO3yMHb+NCTSa&8TRdjd2LiJ(<SNnGv-@B&
z=u*mq-~+%xac+C5{O|ze5GXO0p<vB5Xdi=3O6V2~<v0{Dz3CKmbm<SSK-1x`U%#ZW
zY{6_IB2k`?A&M<NqlF4gWEJG!Pwk{J0`)F?fu1Uv*k6YfK1Wl)3R*XS+J*ke0MEO=
z7tmBxYHSYE%iDVp`*yas(e03~9}i6n@$*B;@U$-Q5~&x{&6~ME*g^9hFhyy5X9`nO
zIear=vWij5JyuWuhK3B`Xrm7?MP9+UbnMz;N&8y<{(UBli_2j{%J$9<RE*}qDbT_A
z5?naAR{+lXZ3F;WE@D0*b+#WtXMb(sFb%|7r<1JeMN|l;L0t(=XIvgM`!G2BA$ase
z6ObyFMz|R4W2bsWpd<zownE-+K<rwCyFVaB%XK)t$bBaJ|Izgx;9S4&`|!IZl`>i?
zWkgw_kg_u}O2f`pp^&X)D?}xuP-IKlk-bZW%*u-F?5wO1p7Ztg`ThUD<9MFOaeP1D
zckl5U_v^Z^`@GKUysq0}s(1g-Wc6f3%X;sel8q2XV4Vlal04>Z8m#!r6j41mxekHX
zX6q-qyCn&;N-f&2@xHTDuVMh_mGq|%R;J4jy?aGohO;msGv+XvKTGA{NeK1w49-c1
zp@-mEZrZ%L<+e0tA{-D~b!K+QrPSW(1rW^m<KW=1Z+HptR_3w6mz@R7YG1|frn`$X
zHys>K(W<#lq6CQ4cs%ZV#X@}~9j%!;%fY2RTxIW*Ne$ga+`poPIkif)vQDaIxn@tc
z)4Y!nJAWjBB9s^9o~KSZ^nCEj$;ruXQ9N_zJ<{UDzuU}WdHfEFG?$n61&@}@0<nwp
z@deZmN;u7#BjAHjkwd!&p(JSen#xL=N1tF|B~J*6uzQKmN)c<3eT0usedrS+1|;s*
zJ#s2C;gM@wrGM#p-fj7GXJfiM@;Uz9-8Qkvb%gdnfN~-?2gg^9Y|{lW2;jC6;lJvt
zF#Y#$x*i!qJ1Z;Acg9M`1Y<-(j8H|Fq!(rQ9HuKPCwG*UwNX!%L3gJEFK>E401b=c
z`ST2DAqY^0>b07K96~^km<k{cr-71WvTl!QK~N>;Nu(i!`y}M~3noS8wN6^)efj$1
z?G&ODed`Q^`rDk2SL)b;6|Mg9O%J(7e6oR{7aa^8930TG(!^vC$;wdSSTj`MQk7pf
zHg=tSzqz@&nI*8Ys)~b&sT;mW@J+%kTm)75<3nNvs&|cz6C{}e<XO>eMn^$Gp$h!9
z<NWwoZ|{fT_}8zsH8m-{J}4&+WB4oiY9O*qYNtkcab7{;_{ozwNbt}n6y%0N*PM;U
zhe%do)jNIa)C?5jAPd{R|B;rK-simlK&{wu>h7QG-iDxLOsHG*T^GCzpCcO~BO?Pw
zyb*tGZH^GF=y*ZFR`c@oJD}Hugal+$;Dh86UlSs9sTeD?X)Gv>`vU*A6QSxQ85z&G
zxWlv^B`!`db{w>yC}G3m!N_<~28jhsWY8^X<F|<CKkl$__p{vLe6MIg%x4aF4-jF(
za$kjRd~feo-sGlx@4njatinq4VEcjFpx5^D>gDC-{p#<J5WV}YqQV4J%PZ45<VFEW
zF<NtTbD)fIwG79vegrpSrta6**LQf=*0{L1{Oy&3kZ(sTC!Y1&Z)CAjPX&dNzsdFM
zNYv=5AXK%+nyvWC1`j{%egTn~2l)i*lHg2oxu8V|o#iz%8y)G?`vS@X+(gO3K=`j;
zzl>|c5}QUKUf;ZN<1?j}<Qqse!A*u%_lr5sbWb_J1@x^v2Rtounz!KR=Ld)2>FJ3u
zAw+m{Eh1oKb>S^|(tf4C6dz*tI2wzO;BW5$N@HZr&`|aclQY-@T*zJqhL<5B>YJVD
z;kP8!__lhn+E6Pz@|AD;snG1^LwLY9hmJ`2&)@l%yc#;$!WB9FmzH<Dmn*6~Ug8^D
z+uy%`5#O9+4MMgQh6q%E)!i9+AQ{z@{o;-@NWSQP|Mm@lDI_#B*QQ@FTkGJiU8<%n
zlbq^(np#?O6J7c|p;4!-r3#$^t7HTK@Rh2dC-i*-Ki1X+_3rm%jdX+_wpdzZ0O~-$
zrz$6cow;sg^y*yw5YMSo&zC+kV;E4U%Fk~LqnF9Ti4s+{?r;A5`7_1Fji?(HIC*jo
ziA-=z8p%!D_HbK)QO4})uMTAtbpW)LlQA?jd^JAyHSWRrBgtc4%LS1e(%&Dm9#qfg
z3Rd)zGDOZJ{Q*`9ch|Q7`{hMsu&*ueQn542a_BjUl=PsghK9laTg6k&Gc~>%>dN+`
zi8kh!`%co)(Sh?JN?FZY`O;*VXf{$%czb$c*6rQ1$41V=miyQ-!j_n=RaCxXCFK?o
zal*49%Dv~FEpe)UpPZkUa9Omwe*G6Xu)Ls|nVHtsR^TiuMsXdLV@HmB{`fH-)2MA8
ziv{wu@I&3*1`-mbNbw`F=zl<{uB)r`vr8<mMw$+DEI6hcM`+K#IMI(8S05#D@!~~G
zn7lpX4NFVLLx<{&GBF=LJUqaR?xEZWoPr?oFiXs(Jjlr_D=RUBmFEdFm9fL40UbE<
zw}dk$iuSKEw7c@GNq$F(G2)TQ81&@umHD`J<G15|n%8y`yhB47>@WH4TPxgMn-?B-
zpL%5S>bzzlittTsF4qAc_^=BLYZV&rPQHmOvdzv9=&GiXY1t(nVzgoXdc+rbK?qBq
zJ==wRk?RZI+Z`PpAa(mte+zE^n10DmI2TZlO+)vzzQ-%<WNFK|_F&G~6<Jz1ar5oS
z2omHb5+wt277=;KO((0T3V0#aDHE^Cd9I_{W$L}l>q|~EC)cl{?g7a}4p<GQDFCx+
zHt5c5tzw)0FECCJe_Hz6;cX;qDV2jB_wvvXiNnA2YTu2CwLAKV<^ho=cMWQrKfL<g
zA=}iXn%*%khrd^s=}5UNcrTe$ok?_#wjHcP0yXIAQ#}5Do4Y?u;Re~&dVl{mzjZ6(
z>C<V1bv#iij)L1oL<*6-ijZ(yLF3rLBkQfE2fGl;D@9-~&<6VXDdkV`Udg-;W*X#}
z%nY*5R^?wQ=HG8-gd<u(H({btH7HGZ{0<O^@cqqyJ>WOnB>p&vvVh9q)z;k8Vy`3A
zd}x_<68_alUS9r(5e0WO+LfhgWpg5xP4K_x2oC4chN73|Q&r_3GiBn3n%{lw+fF>(
zOVTO9*-3Iy8ZBIoRi$*=RrcA^wrZ>I9k(T4MYOD6>}U_~Fdz5ol@Z!)>y<da05(lB
zhUHavjt>nz$L$V%J*;G`_sO&k`E?j3<Gy{T0ot;%vfyI?kfCMLQ1Pf1<!aNsz`hH8
z*B~DFMCU8x)Ld)`wi!AI+bFk{1vCg|A^-VQf(nEGy}x;M>|)Nt!hX<_m|<-fx@Y;k
zBCG53e-{I@Az#s^QCm}!C*TU$Q9zWBkOa%*Uj<1Q?#qAaqk2rc+G&mq?z1m66$_cM
zrcItGe=~Z0Z#`IDLJXyxD8SA>RP%x#j4A8{gzGB`r_*7q`UgUHn)+|h$Oy|pz;S}g
z7P(E>4?rA?BXaWDo1f<A&+leS2CED!WFb=6kTt0NwHVdGtsx5<iDuAf7w)xfFM1dg
zWVy6A6~OfQexWbdPZV!1ADphfklMnlyA$cR_}yIUP*)WqzrGq76oj7KhP7(qQEn5R
zV&j$XF*=?3wsK@J7~R%r`qlD3n(yYZgZ&qGpI_ZTx^d}z?X$iknf-MECiG3wJtOLA
z_B5YhZ5L(0O=}{(fGRNo+s5kJ8PMC8lYU_m{PY;BtE+2DO{o3)H3M|Oix)58GzRD#
z#ulb$Cf>M0u9Tm<nS#RD$S74O|65%h4>$L3WMSS+Zg1J`B^4MFGB?>H&61gwH8Vet
z$jHUU<_}0Jv?0p5)fSw6(R=V`v6DvW6npTOfB&2}Z{EBtp0i6=qO>JdyCO5i%j;9s
z)1zRf^mFd{`PHJSh^VM&qv<Rb?loAQbnY(qLpR=FAI(7d5s@dmHAD|>A~n2y%ai(S
zf+9&wB=dvYeCxne<1yWH2}Q{x&F?I(R(|=y5{t;oY;VG=S7KmN%=^Lo1PiAwgNZv5
zizU?7#9kv=i{od>6dqcEb)Pq!2v+0lbek>C@FPDCAiOIwsXt_CIe`cSxG%(~(`lmE
zre(6_6>dU9L*ve!J7XDk$Z8;1VEN`*F;+GIck0@hQ@U=U`rJ91gVtRx&k769_=5vP
z7F9+DDyqmwkIu>3%dmV!@;R}H_aRI)T7AkwPeb?LeIFmg>v5lxZs|R`^?*bgp=$rA
zeELZAukzh&)1AC`Ee)&W7`cvKFp2oWn2@#|H^UYSx2B*%w{s^yv=A2O{~{`E3kDGn
z#p`FIaA^JXou@Y4x#|oLustdG1KT9Df3H`?RwAz5yon@b(6eW%ri@F#Dwt@07XBg8
zkN+YS3>?JAM(u5R{eQFoY-|DoswyT#D(IwnLm$O&wY$-&skcU(Q~PZe2+7W|WnXqd
z!C54Lm}A9VR(`O(FE79Eb9?+}V%1p{6&2JGs@^`YCx^@mL7Am?RfNQvt#?~pabW=%
zR_Sj7v*5$d#wNRF*CT&l?EA2DmHXDy`H^(<G2>Q9C#k&aO;S^?Xcw+BK1}B#{5kD0
z-GauB4i`);*e=p>7RXsctmbnAu^|?_Z>l>eDSiC>ZXpx&^yyO=85DNsWulz_DAY%;
z^6N)GY*M`0QIH)Px_7>y@!#FL=ri}XZruuXY1TFX$(MnFw2)*dETTn)`St5FO&a<)
zL*(6NzREq?b4(b(INLFSPR+R+9+=+S*T)A9GOTTF&6<*e!^7KwqX5W|?Q%}5gR>SD
z69cUxf}}8z8|(?ZDrWJ6Q8zJ=&4**p+@~0x&v*rui0xo;Xoq;lGdcf5mxFUBu>O)d
zj?4101v(|hd-|x3kL|J-yaLiU3yHV^g!f=L&^I2B?*gC_L`%2P6b6mkldv42HBNKn
zxl+hekY_`8`lKdPuv`c{7{nZ(Ep3(5-kltLfQr_BqEmOtz;-*&!ehVX)zl?mn|-vj
zJwrop#BwGE2B0pBzr=0~oHlR$+jO6(!(>yk1{Uy_5fP9VaEDgIE$`m52j{&RbE&e4
z_R*)~$B*Oe7<5?>)llPkO7+0w=fC>nXa_RPLo&KJ!|j%V-R~(7Fv}2+5bc1FFI-)X
zp^{!LyjTW%Kq|1Ozuz93VBIi&A5cls%f$eF_&XAdTssh40R4!_wQJWhG<CjOFia{U
zl_Pq{AF{Q*GH28@$?2}%UX7R1+xoGnATKM!8mx#|kLuus;#lQ<6YW(O-DG4QOHcRS
zN#M$`*7ZZ8%eH(sn5|2Rs@^+Z>zxo1GNB&`?i0JjbI9Ms$Ovf)Ha0L~59=t>&w(lT
z-qFK|z&(4a6+~{u$B#Ni4jF$g&v2?IS3;)-^<)d2w<{P0qjber${^U`h*}J|mr=l#
ze*eBS!l3Q3N#UF60;OUc{!YfgIyJl6-=kAgTYEb)lws{mZ|8;<uhgZ+wL&|BHvODQ
zw&Oof^Ax+e?4SYxe53W_@rwN45v-p-aJ*}E+l;6v`YR_pyU*jtyC^pzZsE<nC&NNW
zxFA9~apFYM(j-7DC@-x+db24H8CE)9u#a)`zaxBzlGR|v(e5ETtUl;LFCr{V7g$=l
zD#z%eYRV-WVgxTJiVSX05S^S{1rX;@E7ZEAqM)G(2``~ETG}ZGwiQc$^=2~BL8b6Y
znPb;OaI=Z3!cZBC6mAs~h(KQT68mHHvu&P6zx|Ns&xiW@;>@D6=gQjl?Ab%;xIw=+
z-j)U(i=ad92}4F!mMUj(m+Mk07<EjyymJVatgNgiXJ>0`Yx{Hd07^8THo$efp<1oF
z7AFy#-;%jbx~c9MA>bg<{{-a27ZLSx(@+xBlY$Z+0v1*z)6c$3cTz)Y7U9H*^>ytD
z>J&8~Eo*CQBr4MG=ghoiNQ0UYaW#PR&#lL6w>V)XtgESEjl~k62b}=?%^J1{Huy8m
z8tA0(iiO3<DLv?kW9L;gEHkZwNMaASCb+cdP}5g=g@xO^q%K~p2jIp5)b;K{0k>nv
z4&2<WrYH%7NXt8#N0vPZU<P{VQ?`pcgItT!?<@k{!I+SKL0KJ84KVvFsFa|0fE;CH
zc4fNtW13$1k=w!_j@&N5{}+@Ux!v@EJvd0eeBs4DB0-`mYPhv}(ALFgd#fo`c<b;E
z{BM1D>rH{bO275EprJnTqNZ&>*IPZMRCO5n6>aTp8}A9<xDa(K%lro+z;twG!Vs(O
zuHGMUs>Wy{#rNja5Ge%2^Lao=UL;uXM=$(v(F4lv_VyNCTj9=C=oB?F5>z>LbIf0m
zNgT=i$7vt8K1JV^>b>&IN8b7wxPuXk&iE?m5d{o{3^=mKT<LSbJ5G*{uCq-VYhp#C
zEr;TLuda6MRd1%&I4vM_;}ovt64%UI-wrHMsE<d4qc`3JPmOj{W_T#b$E-b<SCclj
zALYo&sfTrzAr7|%$b{}CF08|FEr!>wJ&lTz0GE>~Jq1KWU=&SFdRl_XL|XoP22mi_
z@VT--sC<b&|FMs1-7!#q`v~fR^yV0B6!HCq^XFd*+@xEcxbzSI`uunwKcG}i&3W-C
z<Z>nmIv>P{BPF3nJjKl=?&uR5AuD5QyKQ)g)H`fw0S1&*6ge|_-16GBckq_T(q)_f
z2s-d^0@MJOt|ttqrDQ;ZJn{F}e`mZs=Qxq+<&E1`x^29JjYXY3XrZ)Lk(E5-NTz|E
zC9fGzT(875I&$HqybQ!2$TWaj0F~nR=+S5^?IUneq?z*|*B7Vh$jR!ZH|D<y*$s$3
zo?^C1)9gjCFevi=#&a4_0y?ddFnmVZv3fV*YX&<xVLhSJ+gV2_j!BZK-!HCrL*xgy
z&8wC5=FOYR_wReaCPKiTA<2X#cdRv|4+l)T#6I(l2FD4=(qzaEy&Qtnb(8MbIRBUp
zU?|)RpyK3xT7~)f6{H4efu}xDb=_W?yXEG#T91F@e~6ILp^FHhLql7DpJ!<KZ~=V@
z%KI3_%c|=Svt$SRnSZ3eN-tf3F(TQYL9V&FnoB?+3rHGC0JuFWYU<pqtY19#P?sZS
zgcE>p5Az#wb_Bo4le%?SWd%%oyDm;KN-(jga|bS#e%kL#&V-X1Y2g(Sq<R}-4ZDLi
z7Ey9Y0Vka=)Kh6X`Mtx#RheWQOin!ey_i(LH@S!|UdWWssH{ofV6=B&c+jj(1Amye
zWmO^V6)W7?*+~%hCC>ShObvv|xu1QsD$p@Bb9p?wXoAUzOQZZVvHaVgZ+R@t%zQ@K
zOT|Q%<?CL3=bpjA*K4QSsWPK%;~){IOnX^D<f3fo_?ktGgn^t^tLhYl{3d?wn>2CC
ziY)Udc(?h=8?~s4+dU)G;iL@>?Wa*ZNV;_H@dd^~6H#WC=2n>zA&=dZYqw7?IZH=$
z#zX8zEaFYKj<B#uu>`7`<q;&fkNhsTD-NT=|D(`3wq{ZEXYnHpJ;c*PpmmLSv0xsj
zDp$4Im8$qEsOmaI*+-7!`3tE3+dTicE~-bbnqr5>>C*?u%sL;_`4}h_9F(TuT;-^V
z4D<iu{z!bRti%PUA5M^A_WfBd|4Js_bewfm;v?BI-95<qD2HW&*E#(E;&n)6WdX#N
z21U1JLhH6XouDCHQpMwIeoFsc`5`)@NT=mdw?)v`{%tZcREHVI<4oIXh=WTO&$L^X
zB4vQ~U7bj$H#g^il|iN+9EA6i(cO)v_6W)0j&wdPat0?sS_PGV_WmZb^;=MvRc7WH
z`t+E%^>fV-pIy36&$4b=LVHcxzk{uMzp$sUGPDKB8oZ2*QBYKL6+5*wH><~7Vr6Ab
zf#yhJbpeG`o-rFzY5+C?n|4Dh|7p=#TmoOf9~;{%^$ku3$*MsIT|VW+Uk!)O@*HJR
zt8V_Iw@gkD6l+8)yF~;p3`9IT;@0tYamlza+?P?*b@5URpPf#&89Z1<Mh4WT0G`N0
zAnjFIU+)I-2`Y5rm4~rxei7UM&prT3BnE~es~#yp$)qm9+rKrbsr@%?+ta9LkiKQ@
z$!yNna^?;S4Lv7gdd_T^-L1Fh+J2JcQD5aN{vuWSqP0bbgA;vy*mW=e`9A$y$nrJA
z-9XDXZ=lmNon1fxjX8FWegGg4>40C$OE-IwV8kt#l}QFGW<$`f8)k4N2Yu8T--paW
z@(9cXem7a`&T%S!v*whcp&_uRZ9XHj9$f@0uea^&;MI-uD!x9ued9~|G&5R>N7-oU
z#W~yBxa7Z!&4_n*ViW%%(E@eu)cbrNK763}#ui*E&_N(^hgG*^afGY331u7SBSrJ!
zF@X9Y3<(E)17Ieg0fopHz8XvoK{n3dFF$|2G<=RK^BcJ*fPK6T^Nv<jRP4MAvQry%
z3@0P8Zqa=OBo<(UX@ogtD@BUFFnkWQVJ)$OYA>pC%rj;dmRK-g_(Kwako|E2a~pu4
zgT_rrP;jgvrW|TBMX_UCTxLKLpqcnUlv-I0wdYO%jQ&{FZM>wcOr(Jj;uhxRS+NZd
z4+CXM#k^HDCaRB4Q1Kgm*`-vaZCT8=YbzS1T$(#3#7fpoQC+lJ@*Xl}AeM-;eroNl
z#G>c!XnD=J`RSj`J5Qu)UH`Dg)!n<yz6<p^XyFlhi9PGx(xAj2T3T8ROFR0%C@MZg
zWC-YwK`AaO0`RR+qX!p8yNrU5ut99o7WWpq9%K)rIgs@I`OG1$M3ehSEF3+!y<oq1
zun#Z;Earkvhd~K|Kq=7SnfMyF*}nq1<>&tX^;jhSKlt)Pr>rDxTmJvK_r>P!zf*nS
z{{fF%o}CgFPSY!f78^no?bHF|%MBp%!EHeXi(R`Mm6Q$~2*)mKzoFzrM#0!JRgb2z
zI}$X&^RTcG&LZc96Z5?&)!}e@G{6Zvd-kEeh9*k<OR@UQ|A|=jZ1+73%Hyo*>U{B3
z`>xlt7w?^cUtuMt#X-q|fv+>-_fG|zfWp6;af*j04LLiVD#Wk^!+;1BEpY6HzrDg|
zyu6kWy<=!1&_NV~i&}~k*C}a1AnHxOe6*LB4h>wZD=X#Cog;Dqv}~-byLRnr1zmRc
zF70Iy_DH!R0Dzuz4$ppZX{oTFz%;U~ZweYFvwvr=Ub}{14j#?I-25Lhz9{9?DRI7w
z$c0dFK70tmn2Uqs1)rf5G<lkunv#;FI~rD2e4#IhUGRv=DhuX|)f<bU4M;b-Dv1uL
zyKj=o+1rm$zP5mZ83a~&Fi1of$xS2BcqgkSfvy9|cC&@(VThl@9Lih*zcMwkdVmkc
zU;5Apq_K8BglNs$@Sz^DdMUEea&(CP>Tujom}N^x*QalZ^M{647zEEvGsc%@wyk$M
z(6RIH18T<46&0vJxuWt1YG;HaAf;VVI;VqFu@Y+9BAz{i4CXBu6bQ1AP>($K>1j|9
zC?_BGlP5!bKv~YC(e6~QERV<FiGLUpJ}PM$1SYUXYD!86WPph2bxeEU_irfck<VG0
z2Q7*fub_w)8KKEZD}<&jCj<qzQ&GWEpg6`<*(>x;l6@DCb`JN66Us|P1u!L=ub|2E
z5Q8N^`3Xh-V13l<*RQcdn>W{EUth%0H@jBcE*Kcn8v~(2_VWJydq~{javu8oGYVO}
zEG>0QZ0&TOR$>tbm$>0V_i>`Gz069Lvnp`IdBb(IiRNS15C8Kqq&kS&i=ikeQ*O^)
zkSSeV5upth9)qt!58zT6J7~(%JP&xboKGr+&H!6s2;E3}AzKeI;T1Db`$Rhzcs?+n
zTH4wY&VTt>SgwM#0p~(Yc@P?YUGgZ%$a;N^96O>;Y|hc?=+UEuiX<!u$qkyXgvU}`
zal2d&pM)bOS9PMNl!~%4#vJOp#IyfD<iF9iz7uZa)%U!U91l;XFL-!hrp-P&HLy`)
znU*$#&bQ{ydahk$V{nYl4!mLgU1MT5T}ZG>w6dC>Nl2>SzSZ6L!^F-jCDH0^QXD&a
zG_?Br_wSq5uM<j3tNs4{sgFQ)%LA%?nYcNEzMt=OLagfyi8t1Hn7<_)_{K=1A5c^C
zQ4tK=*dQi9O1x0<&B0ww><kA6)CYpoCr?%o_JGEZ0KE<W-rVhnbeQRC<t=OY6aAb^
z?Wo)5Lvh7K$r90v8MA&ACxGQZ`;@5rpuHGc*My(9q18r)q-1F52FoIL928ihywNw_
z)Vb+xPomy>^r~&tdI<Cqok6>@{Ce_p7a?wFJSy4o@sHXaj0|ny1DStUrW4Xr)ZZxI
zs{WD~|KR}LRNJ1~nY|iDifk`2@G8kokQ^Dwg~KcO3?c9T(;q&^nBMz<$Kal_`H`mT
zZ{HA&O@rqH1B@ITJTZW3|3DTbIgeqSuV0%O7#Lu6#0+r#+w%aT5I;tV$Z*><kpZ>u
z75E+IT|R-`!3ttg_*wQgHy6iE7VHwS^1UNFI_)LZ1KtWSi91l<o0<{*jsoSco0_)0
z-RVFEete{rrxm?KK>ue&TJ4yYx*jyONoJQ-M7H?LnS1TN$MBo0D8cd-#VcY{y}l`U
zC^e%2N>P;8C6_JVFf(h1p`z3S3#iSu?tHOMFk;d&05?X1^~gjJm<E@~aljjVAm(s^
z-LRC_yBRK)r&USwN4T2sO9Zu;iHwlr!Jz>Xxj~f}z$^_fT&~uA@<sYkp*ys_YRT%f
zfvTL#Lvj9`re5`fW*0jw9mwdiQSgYwMQAh#4M<7PtI2Vq%8s-@dJjuaJ-9+OK519q
z`^EmRWDh=wH@tqm5%u^`eu0Y}`GyeAN8YK+q4vaIxORxgZMlj8h|ZB?y700tcpC^J
zf4;Zr@BKWI9U8aua^m41<T@U~yOu`myB;FL0{2Hp=!d}JK%@X_DL?Kvn8D9#eI@TI
zYmcq|b}uU{Ly-VD?Y193fX#0*roN6*<;0B4=b+lYn+$=4KY>UnU)p!`IBjD1=`Y?-
zh$0@+_U6hX1125X)ERtzW`3h9ax9(S+l*x26&!Ho)qpko$}h3n)`5NYd4n847#)uX
zmJpOhoxHOsOp8jb@D-(QkQq)hLotc<N{U2ZkS|K!jAD)-l`026Px|_Ve@=gqRi6(%
z7xEl-E>F=LE-GpQI->FMG_m;lzA0>vs32pL55*<j-<L0K)WsOYogHA<Fj6?wUm@eA
zn8jfS1oP&TUlcVkk)we((%fcty?he<_kA>Xe!m)JZT_OkAJa%~%#Urej<)!u>E6B`
z$8W{<u_o=0#(tg^I4)$TGc)`;3U#k<-@e6z=Ge8B1?<}MQ`Ws*ZmVOzfB(ZWebW>R
z!S~kIzsS9sW*3;$yInYtotulCz$&N=qGZdUj1<#+@(sa;eov?cum?WM#lL{Dt#{6%
zniUCi2^3<3UqUUR-t@tBxq+PkOoIEIOihX9@5_^_mdF2_XUA^@lu*|%6hA9=kE{_p
zr>smT6smU^FaZ<KS=<erJpK#a{D#dtAo<v`efzPdOINS5(4q)ol<jxRPV)0DxMs(u
z{@gCyN3$fl_0D=TV`H+7ZrUbZn(S*$t@3mrwxz$w9}@&c#VD1y0XY~}d!&ItwW8)D
zxwv>4P914n0YO=o%YaOIc46A2`r-CmUJcEWR@)3shMhaVL(mMt9GX&}5)nDaN{3|;
z@&>q_*9i$b==qpLMRio%pyi5;jD#Hm;EZ6Y!4P7(oA{Yuek{1<5lWN!sCLrQg0$%y
z7-&vX;}R0e1yeUS+G2?Y!C|H-yu+hm&rUG_c?NU`)(!{iRm^iGG~tS=)BcYh^&N^$
zf2%J|#<(Ls-Dkqs=cvcCohPmA-wjY~2gIN<2fzje2;qaBy?rg@+8{8B?oK1$FL3|c
z{-4~A9+C|Jw@NVyT8SGYeYCP}Sc7_>oSa1UCRV*a3(mMcG~^~UFG%Ey*$zC0%Skv9
zI$0kfk_%`sH8lk=wsWf&u6>~S&FCj+ZLnzWr=jVFIU#G5uhR)_1ndnAkXik~ZW~LB
zbn!Z*#UR6GICxN6N=m>B!;g4#tJhUnUfcJLJo+V|H}g8y?dLqJKh3iLEy0w}24!R%
zpTC$K9qk^jv7yO`Toc08Mzuk&>dTjh6@3}p+T)I_Z?;0N_2Rs`j*dA*rEGA)78Vy|
zloLVbR5tVsd4`5x`*)81@Kf5rSQViK_iv@<O>}A0`b7?xZ^vDGvlTTYf$}mkL*@JV
z38wsrghW?^N8>rsL-ja^59)KMS|98_SgRWf`PKG=A0%q_&-~)>lA1z}5WoPe{e0@V
z|KY_kQ!)$Y5uvPc-;RJA*|hCu>kkuge)f~g?5q#wt$!4L$$wSUWk9ZZxU?fszA-`R
z!2RnJgkHGQWxfMG8@4#o>C|1eE>X3>s^>!+<?mUKjle_EAsH!uhnV$l@1aesJr*Cg
z?E9czA5p$dO}NlS_FZRXWK`!rW84vB-kkW{#niJG^rU;6kzLPPO-PLV!0Jh^<F5V3
za6NwTr{5p$=4wv4689s$gfliS4yAO+5a~F16d&2R=-2=ifU=5;e!hCq?-ioLaQky6
zw#zdnYc(SOhjuG7yM^Ell_3jr?Uq<Ar#U<65Lkl%_9pmW>Mj4Etp#)<3e%HRKS$mL
z|K~9I4%OvxK1ROsXl6q<f1Awqblaom2G?-?#FgEnfY(U&0H(E=s-|xNbwxl{dOk^>
z&`~y`n~k@$7Wb2%Yc(Vw;@&YwnG%3P4&WAlYAM)?`S;kEnP6ng1Ly+>qulC@CWz90
zBoZPbBJQ?6$6S$2Jt=PE9vUSlW6EXr!{<0^GoBEIH6ubeAAxEEQ9p)Abe0xOyreYK
z%JQz&uNzpdexe(0&AoEC{AC3}Yi;+v5ZBLLjod8lSBM&tUxRodjflNZ-Pn`8R%tS$
zqOG+?y569)QzRPR@7lVF_D5^$5C@*B`=Z}GDmTe&S-s@{Vav9AU)WM4&kF3#77O}w
znEX}8#~h9~|Fy3>`-&wtC@1n^n%ElMBftPM7p(}GVnJ~Ms4HJ&2D{mK?y(|=@6YO8
zd*}kc)ai+vuW@DW6tXP``;f100R{N+qYS7T{I~ccSjS6@`(*zwdp5s^i-y3Y$kJT0
zLvtsn(=ciA2fr{oGlPKVL3p?}#1b#I?x==1`72Qp<K7Z5WcqS)z#jD@`Xf8b!nBEk
z3U`W6aGwp#B>G4^jyIQAB_uArQr69bd3$XOZj>XM?QW-DeJ>Vgd;F)_k1|8fqb6&t
z;r5`kEuy);;F%@kK5<osGKk5W3epB=O<d}2sv=WmlI8Jc>-9A?--Hsp`Ut_NiRXm}
zDncz*bNS@;crrogPH_&Y2z<VuH$+g_+B0hTrH`fx|L}9`kAnw<j}Z6xc7)x7mz#TL
zdKx7$m&pZHmo|f5+x8#52F5?3)qpS%)5{0hCgBw!tB_cpQCa(H`$lAlL+fqR`=!q&
zg`MO#Cwdq)bPpF$MEan^!X2ob!J7WWMkcXaQSc*!Ff`tYsFJ6ssIJ|^C~=<qoD3f5
zxi+W&Y~?Sw)+W<gz$8>@UJm|(=S!wnN%yZ^SFU<5_E_hv3}<NbpH4C{1{QKFi~yKv
zAoC6i&e4YmooP_b_t*yo*-#iiQ|w2=6LLQbQ&XrE$0sJz9|XWksN_@kF#17hNEg@^
zt1!hb(Q7EDiOYJk4TppLOy(DIr;Lo2gj-!%SwYYi#%K5eFcQrde*l0X{zWCRAQO}1
zybp1>$|0S{-L9Op87zTzzqMKaD?w|}91^|}5EiB=^Uk=o7n-O21e5aV^Jg2ViKkI%
znq%5Df@q}}O<l;z7W#nhy6s<^P7w?=HDg>(#+sJB!3VizfcKr30h$Ha$l3w0+Dg8f
z+<JLd%(*QQYro#Qy1+k`c<rZ|Y`rTAv&hLblEBFV3gJ!gKx=&g$T_-Kids453NlDe
zHSvJCVU0y1=pfNpmya?bPafcx%=OnwuNd=^T{g+@N!pg82M;#W0=3*!M8f9Co=2$8
zLDzZ#FF*>JXMuq+WU87XT3KPogvtNZ-k<cQ|J-mKBP1CYH+tkYbfUoKT?oCPp8!4Q
z<5SU>Uswp`u8f=<cCrsjCejBemP!sa+XSe&y(vp_vYs(OhUGX|5LNowFzk4NT9)c9
zf@OSE^Q&0FuF-$4tn|Si5W)eDzVj0l6D)x~CS|pq{tVGGXn6AZb5Yg1^QkG@_bAL-
zFB@OI`XMtV=2~K?K-4GvxNngr>abw>za@KS)SfV|cgH-1vM&e4q(MR75DJ1}*hE1=
zcNuFvzy#E72so~qn1sG~k&iN87MnYFTBIxOpBU1AmOOkc?DqBrGc&P@<*AqrW>jul
zX4kuIF+2a=lH#}YoFcc=?AE>8ck%^hWC+UB3w~ba8klmB7q|CB-OCF98xa&m(9p&$
z$$dpD-FMKEve?+!p<~W*LTcMyU5)itfi*}yRSORQ96SrMvv2+V{m0L=U{?qRX%~Y7
z<iDMlQ8O|ZwDFBFIlcZ8+qDo?C-@t`(@cD^LRo*Up0v03s`O@MUTnKE{%j`%nrKfv
zziu*0^kiq@eS|(i)bvS1jj7|;8feK?rbK4_$txnWzSkFIws^{MfCz6xY(}*GpnUPi
zzNx(IH{>L{G_FHha674OW>T;d<#5Q70CA`6OLXe<6Oxja_C*~-XNgOAbtjbLR~X+R
z^u3Yw{GPKyqd1R~M#)sv;`3q{qNH@}=q^VV)Wm>LL<v};4o}N2yvPCohlCDN$vgJ;
z2T$AlLble<61^3oEy#80s~L9&r!F_muT+$pyf`*`opOtzucyn-<LlLQXerh9$WFF&
zwncU7&31M+&uJ~|wlBWTS-xV4mI<R{>AAB>#beUR>RI>PLzsHkQ^;PqZ*F)rAiyPj
z_T}_apCqLMrGoL1!J3-Ug-QR@U8ng6`+BaQn0Ps{@KWPdjykhvh&~Pbl^gb05SW@i
zF_q<xHX7YR+(~qS>RH-A;*+E*pPf_eSA9kELB4*HcOfX|^B*C&VM&RGEodHD_ma`l
z&bj0qCG)ONr4BCwUl<XGB5lOlTKAeE$;u_~y)(mer*|id8om)t1nY*{J<HJUw$6Dn
zINkYE-;^E0@GGpwg%?M0vVdQUTJ=dSo@v{dr9SbOtMKL)U{!PHU)<9@kw187`aKq*
zT2hzzw{tjw`z?i-fI&ZvSCW#HG20K&78yo1?Z&iyS-#7WMDnDOqW5-c8nsc%ruk4g
zw;1ZI!2YmFkof$2F8`#Upy0rUsCpCe8#izITH}&6-!JqOntl>z_KZnd(Y6p0y{WE&
zh1M#vWYb@WW$gDWT)gP7dmLYs?wHRvn?B3z84%yClzU@g6Zwk``-nD(i5E`m_Ulc9
zzGIe|{9^WD=MimPq&y{s7H?CmY?k<Y=2<(@hc4C`sOGBtpQR2rC)uqJyl4Ug<D}oE
zt=;YT?6I=dUq>Z;ZJda^^cyNL=})$~cArLSe*0E#J<jU`3Al^!5pDPS+S;+(MJTn~
zwbh<M0dy?>^j{)mGz!&i_FqK0jB&ouEI1A)@UHGJ?RVS9lS>{Vol9MH{4dAr7*{4Y
zUkUM|0ZF+?bZ`ceTwGp3769=tJPF!f$x&KE=L}?6GV|@6^+FVkcA`<Y{a};}w<k@|
zE=`B<NRieNLR02QHzxBQ2k5k}IOrkSt=+ZQ4DkUvC`Y2aJio(&`6J?w!P;=5fnL<g
z%<K0ClXW5!(CFRaHl-jjY1#B!&$p=!^mW?{ojvQ9okJk5M-NYyq2t3-952i)ZDBUu
z?U;gc?x^#GQ&%_?`&|>OpLktq`%$Li6WQ1nl=DYT;kzeIkM&Mze&Z{|z?XfJJ<xsb
z+&M2AP-@SdelOZ0lHJA({l{MNuY%%bzjZpunp*6Ux^Z{m{ifW9+y1QsY%Nod-98E3
z1DzD8?U^E?u^LS*x}beQjR*~!#;~?c{}yJ?$@onc%Rw>1DQSefKm$L4pOW$cMVB|&
z1cc7*Il16`8LiyiZ=A|~cKWu(ZYfIHn}tR%BFD1HhTVz#)3^S#Tgr!MUI$@7UV|`p
zQ9|p|t4m*CYEq|dDrY-iJj!1$RM&F$aaI;|FzzM3C(GRW4s_8-HMX=M8D1$`+gSy~
zQUu)<E|K}8#PW9u*?i=87v(HWXNvN5h6-p{MEf%*vxe79Rmk*Nx;|>??vzYNpx>D(
zqDKwAyZzwL(u@9lK~ETkAXPvnb@k@XJPX9QxgEE)8#iqrHJB)$`sF&tRyDC#>W1`#
z&FA)Lk*zxlgX~3voMC-<SlG(n3W<?|5<KO!)Pdcy3l(nvDu{mRU*YlG#rdgPw7G)A
zOqo3cBYR5wZ%bcJNdr=gu8)n7;`O|wHVgW^19Td)xZp{@iSsCYL$j(<bm&FfHHoF)
z?<{gf7E!3tppoV;ZuPt4m?z(^rqW;M&Yn#mTlS0`Rb5&5k&BT4*EY;DwzkudcES(8
zxg1A1Mk1LdZk`hsDmD?{5%M!-H`P0`mAO8;;%<rM@$N!@s2mHen%^>DMT3)#uAfuw
zRzrFzpN7ZDA5;>^1|_-r$zW^oFxqeVi~gwuB0y<J3j4$I9vZ2kf)(`A!<zKblndI2
zpk0$rdTv*?Qh3s|RbGBSI-p4&E7hwzyWJMQM_qV%Y6|Ho=&Gf$Lsi=7K%OBz42Ph0
z7|~<!xj9-%>K&(=A1SSxwU?q4Yai9mQ>{F{6fOu8V7oebYd~V9PvVg4U&GQaUQc@D
zsd_&>5)nu1hnt`Ox-I3pJtB5anDHJhwjX)FL5i}xXNGqnvuA4UDzad!2nCPVrxDxP
zfmZ<Kr=4+CcIn;2SO!sa{Ed~B@*$oY3PGOO0Q~AaD{y)}{nQ_BHRzsDS1fhiJF*4S
z`(TF7HmZ0VUN<p86(G@gXuLqm!eSh$oulWUM~^P@x-C?*W7`19`e!35<E7~*7#|qx
zG9D88+6FgGy2{o@BKm(Ze=Pl1UHX{e^dG6wQxSDU)ABu1#Lf-Glxx_KnA$X*s}V1+
zNlCj;gxR4fn{3H6{9h^lA|<|sIW4dEVWb9<rY~u(g6<|yx^3SC>c8|WtHjYrF+Mwx
zH@t^gLA?b&o%of*>+c+%=tTAVZZ^W#t<0<?^6N;wpO@>}zhoT7X!T8X%^8*VXOeGH
z6VufHpoltU28Jq91IT2j)C^zkA!1(V+_E-bRi$LUe)_F}@A&MRkvztP00iLlbbv{r
zZsKl?J&|R@CRPfR*58$c$g{IRnbW_pWwpbZp~z4#{>I~MbaEwql+IeW65jQ10CF-f
z8sLcKdAHShf+TWo=6eh|+0WbUw|cA~;p?Fmo4NE1mKwb?G4U$~$1`CIGt1N0-f4gD
zk*C5(*{pTqVqz}+UxGoa2g?7#ZUqE)X=oU;(1`Rpgr^oDkKi&Cf`|s-ph=F7pw#%3
z+&7lU-RX+AQl%)5l`>t*Y#{shUOXsX&pd1dF^^)jR7;m?^Ba&h9k>05eg^0lN+*Sa
zEL#Mb1au&5&+eDwsM7xi4oPdzj5lK;_GxJ7JhFLigCbpbM^kgbO1eQ#g`=Qd9mqPu
zCxVSmSQRBP4ZI8&5*F{`@T7Uzt6x-8S+n*`PCe{@@sQZL%en8sac604zb129r)P0e
zciP%uT&ZnR%4`&?q)#qALGc^7SIuTe3hD1G;PIr~TTgZISPuEY=8d-R`-?%9$uHKn
z$Y=WkU>ARiW7nUesia+$l+0O%ht~_$tQopTLoUe;mwGl|telTnza<s<spgYf`pLd*
zY!=Aq(ynAPh)n1yiBq!D4L+Di+P&mS<DIl<ncp!PzqTNehD~;g<hF~UD-D#5D8doV
z*|d&i#XM3XmR5Vfi#)wLV*B@!=V@8lu(o?C_7Z>%{b*=_hzQE13>1-Ihci<oYhfS7
zzk<&7s<M!nHYxN3TpK<5q&RA`*~M+Tp~d2NTs;a_Z3zd~y*F*g#pmYsez33&NtP-@
zt23`9)HF1R2@Cdm0xR?O@>Y~Jqr=fD^u|T^1<|RGJFy`7sKk)m8<|_05|-=v)8;z^
zFRDGX(!3G&Mr^FLSo(jUi$<5h+ObpXTgpTjo*?ZiF<rwCB@|K1H358QSnj=r8SR4p
z6i>KVVp_va2p}X59_p0pHj=!nGW)Zff3o>8<LfUznoJq>JWmZ_V}Q-#>L&Ti&kk7R
z^+>EvOJEWjM?T=?<fM}_M~yTp9wG#8q6zTRL)fGbYK4k4Et2FPTUV_kf+uw*Z%UsM
zUo;?9!w%j)qJQ~5fOR-2IgRLO3bDywu<hdiCd-kU-z!CQ81xsLBSzpeN)L%^M7EV!
zu>xiqiwk)(KLp-aE|cK<gz;;Yd;FSd&)&U6=@4A#58xzX3masVw=zT7I{9(uMRZZU
zhSI={4h9m_4|;DM4W~eRJ6(%6i~*)NfH|vP3k`NJ`SDVMNacdL*AFpb{s_r!Z`NsS
z8_!1-GrCt_>3gp}$UOJrnQ8IKVr!%bQTe<KMffuM5Y2QtAJ{;W4Dp+xN_>?+m_1XI
z;=ut(Stfp!u^S|W;lLcS899S<;Buf~BT~Qv@D!}n<(I1O$a~~OwtU+>xbMo34JyD$
z?k*p>%NVhMpu?$liSq)q4pilQo6*l_53=acfZ}Nuc8qJ@!e}@HpwG7ne)%fBSC`+e
z$$rBn@Ime!G6%Y$AuezxD!4;Y=b1ftJH4e4)FOxi7pOXULb*m*u;0)5hcXP9%|dSM
z5yhFh^^7bnFHiE?33&zxr!a(_<`Q)c+Kql=B+Znlbt`ay#ui=3R4ql<4;J=gQw3Nn
zWaq*RPw3SsN%F>DGRnuZliNk=4-D_~7#)yF&`EfiWLKPf;q+}8;iVQsu{%~bnrGuN
zrvow(KoE8H19R9bFy4hvNNB!U+Y)-wA8=W!f=_g(NTezmQ!{%@cD3p|FLgs$p7Lz3
ziL`VOm7=^=*^tBAF--N~#J^iok2Zei*N!+pjEm$*wY-b8($_J6v}eJdxtSO#2o1O%
z(v5z=(W?0x{~V0m{_2BUf_}uwQ@oclFEI)iO@|Hdvw43B&~ZuDY_v=r(8qvxS=4ac
zCLcARYRI_j>8<oJuIA12{=;)#%#|fc+60W6b(m>z$x(+t@*bhAeYv~f&;IvaL{kXI
z#(EMX6$NU^uWD~4G3CFg9nlGw*kuylBzx9xdtKp`!AL7uTrqqX(J}8-(>jv8#h0(;
z<KHa8nyzT?Mr5)c9tPxw*~<|Ui8VQ`cI1N!FSVXTeYbcVe(7@Ny8}t`=S;~JLO;sm
zO`<0GY<rc^HaoAT*l%qcXl#$SFS9`5cJ(p&^^~OhX41zXo0+#xW2X6$<oAxBCEoLH
zZ0mKkJXnkKka|6d18E7>j{Mocw(W*GOqWI)!H%TrvoO>7wx&P6*9KVr?>C2D<8u8D
z?R`Eid$`@~mLZOy;EN*+QHSA<NK}05MM=??<ii+jAzrr>SgPk@yldJD@LlC~>kg3`
zxV{XV-Wgt~9WmD38)h9GU}UxpF}pl1PFp71kb+YBvK^F@DD{4`nL1BVqgu)Dze`Aw
z!sXlflW!%5{MwM-bYaK5cXm*h<&L#q+7L&%`|NuYEb`ZvzW;t{eh(LUO8TMa!Em9k
z<TFI#3?$})lgZVUR60(F$+!6XKE9Rsgnaxh9(c`B!^a?!Q_#s3eD92{WOX%l2zTSw
zwYw9+dE_q(BokN8O}swcA(R~M^fWN|7I|2Ph+9>D<Y-lzY^PLVZ2$hWJ{5KYzomv@
z$YaOQ#6KJlZ|b;o^;ASi^CnDPJ?63vl3SyR$1B-;7_Wm=E@<Spq$QBwi9P2|Vx-)t
z=g{MY<|4>%Blm>1V#Fq+4`XMBm73G_(R+7w1-|sqiR<z&M>diQW5~Zek>TW?o|s5%
z{)~EWR?kY*Z=rCVmlxn{iP%*Jo~g6+A~aV_G(OrdNCqN^z2`+N&-rctZ}8|MIyU^n
zMyvKH*hfxE0{f?;Kn^wJ1WHC^i7j*T;X6x(CK{TX=b&W^4Gpa*R3*LLLN*FkHto%S
zQMZXU@%-pN2PM+UdhGKijA9zb<;9lLmGQy}B2<MKVZ5gwDNJpMpuw}>GYLPrPBLgT
z;Yvq9_dl<;fS6|TKn?vUxc?Qd(US(*vWZjL;t~=>%G2BMS#a>|zduN|YN)Fh=%k??
zghEiSHWx`#>9lU}O6VY_?u+3Lt5f${YHu!e%?EVCVuS9d)|Y9h0yd%;N5l`!ODEd0
ztDSQ;qZxX=*!<6H;w#wR6$S6R{8`qO*(kIA#uOybcUt)2wTCaBvttrtA?1TIrVD)o
zmC*TJEj+FC9f_DimoG^>|Bkf>v-&D*T)s9gG^aPy`rxb2sQ+87jQZ^H)C;vEEPY3}
zFb8#arS!S>G5wC3^FMRj;92W~%U366sTuE+gfs2kh5GDTET)m(l=4A)g;om-6siF$
zShh@|!QxSo_TG1zE~feZX=rS6-F}O&QV{E$p#Vx^(ED<seSfV|TiEV4lc<+y?cASa
z*0iv#gGZw#*C_wgSb1a5tYaz<b590!+{cMP_R|bI=9o!%T2`mHJ%<+k(5q63@{E}<
zDY2R_%U|MQ%3bM~#b*)(?DDP+hra6ZT6-RUGwj{#QKE3;#^lm+#OGSuiQ^I+5m1l-
zex~(#8$Neaq<452Tbar2*&v`K;dGO0Q6|LbO32|rpC&I>&Ijd&;%`S@Gi`a3lr-wd
z?dEw=Z9kWu;FE)5?}qFYg=(Ir<ukKXvkb4ixPC=_mn>z>XhFhF_0XpQtP09%!Hhkw
zW~;gkzA{whZwp>}#<M?URrtp<E;M}ytq%5#m(QV$D#d7&G%>w^hUsX9E9@737$7{O
z<0qg2_RH<EKbVdzySe$}u^dN^W5;S=S~Rq^?ceIfoyhzZbSe0f<dscN-RlRR8vWp-
znlmiLHpvEj^iPvr9Zl6+eljdCwFi73uKDtXP6}JsY|G|2Q(xoK`t92XeaXe6TwK+|
zc3YVt=J@eo`C2EnPuJn)!_}GfgFB^USZKG+8@42<lDG{=NtSx%>evJRW>HCro)z0}
z_g!)7zimsW=kks1U%YsKpp>47(vsji_zcWl82^6wAjSL<g=E5hkPPWkq6h!=GfE`B
z?)VVn`Y<8U^it;|#nm=%9E?XLT%OLrqXsCOyHL0y(M>eOMrQxs`{+?~m3}x9R2m3J
z)S)i2v+WOwX`HG&<681)vGTBa`-Nkc@>VNSw<<50jbfQCD|<J)?=SNCME7bmvxloW
znJ&DI;=aVvk9urNj@=wWBO^OY2B7%qf=&S%1WgTY(#Pk@y1{e3)9}YNGZuM2-yayv
zU7m1~pTNx|RyCV|ub>v4ER#kMg*s<v>=p<)0AhJ6FDb;6%WW+s&DPn(UP>{ShSCbh
z_wyS+R(rKxGG(Tb@Z+S!FXQWot)7Ii<DLG>pHPS=XHbnG9%YF%E%8Qe=Wn2;#)mHB
z_Ld4tCR*E}Zt}o@_SgWAxIZ(QM=S+$2<TY9ew16kq-bzA;bmLZHj=EFvjqw}@3v=5
zO!HS~GK8HJv+MBlF28wG7bkw}wGm55z`q(}`vc92F#)He`}b}<x5p}91Ru81cCRbD
zs%Rf<HpbciYm4nyt9)q<eZ~T3?|@q!CaB>fZFr3JC4}svNsj(_-As1<q(x#u-rz@G
zgN8O^ouFbOd(r4poQ+QsfqPnMy7C3Jut#L~BN;{0y^d)`in(QJ!p=fnXu|j~e>Hin
z4UohSX!Jiv+VuNr1b?Qmy<9&>G1$StvHu!*5t2WJRm*4ZyDPe$<dgYq!pS~*q>1FZ
z_Wqmfm=0^I)qjKNM;qv$M7I~K+0_)4cfvh$LoM|;!%wVTp$`S|{@JY$A{dLi60bxo
z&82VDwfNd>eCrl|C2vQZVte-0D5nl>MF07%ohfxs$98+TXJ^CrGHoHQT}#>ao!N5x
z4)R?x5z8{oCh}{8XnY(UB`lcC|8u+{WmNhTzZdHjZF(Fyhz_S+JinFVC8LFvMf<mm
zE4l`qwP%e(vb~7o`eO8>Eep)lbD5L{+Q`!;U<L<n(8jr(mfJbWtGxkn!!!4Oq>SIc
z^J?;ku|0S+#XTeUr&CgiZp(=T7}y)58ex~JtMpD7?`S?E-m&vAw%_)+<~$j+NNxq<
zlAI?)0+Kedf}2EyH*qKqWpYWi)E;Npft|v!o+}dT`DWelCXnOLbKS|~{gwguP`CEb
ze-p;A_B_`!m2Hr>#}a&Jcz<Gkl}_Wk;`c$D0t3mPx))<e;(78j-m4Xy6|?KEIk9#p
z*D%f;iS5SrY};mZ$b(mwfcsT`qHO<-0EkTr{{cjKO5&UGX736n|0=xC7ut7oxOoo+
z?oDUcx<islYga?JAFuz!5$J&wM8a$3|6Xsx>u<4Z?{C3ty8m8N<8|in&y>3Gok%dK
z%aBKl_2ha{_g~CHCjsG-A8^)jb1B|f430@o7uqF0iX#V1{#D+_#6d=Fq^c(*YNj5J
z;0mnKRj-q4Wy{C5)E2BEG5Hg?<}K&9ZhUz_=v1yN3spJ8+O!GUjq}DTbIs+S(>PaK
z`yW~f_=!8Gqb3hbz`ehj+n8c*gxR+58QeVj%Ia@T+2n_^qD_wD24tT`>h;5k4cU)A
z!7;wCITYYorgdwVg=g`$5Qw+7@X7%N@?FL6fzd1l9XOz4hP%2+;AIk?N$XDX`P`>r
zd96=udY==RdqC%1LASjvVEk+Hm?`gDcgWq(t}Df&v)21)Z5x6U5~-T_h1azSi<W}i
z_#AcH%kzutr!Ce7)&R!!_R!jqAN5urC!Hf>SJKcyTtxNSB@T(<^|t?Bb79Cmnswh5
zgl7lFrKBQiCA~dOymwfrv9Kle@(z1b^*i@t*vW{K#7e?P>tb%!9W$!)n^4gDMGTH)
zm6Xe+v}}9KBa$yrGt>B*am&C*F+C9$N`4w&8GmlWyK`%A&k)a`Xzlbq%s5`_nyt{-
z;-MXvC65`CIG)JWv!`7fbqlo8PT%6$f9T?*7THWm8E4!#(`-;KoA~)xFVxt6db@wc
z$TytYot5|?wXSx=#@QpEZ2SmpNYv4*zq}nWHTwD1h9wU(YbX@K(peok_AAj#YghG=
zu+*rv!J>D-mAEi%`j<A}W&OKVk$g!8?ilu&5DdG<@cybUW1f-IB`}LNHrZx%fN@eh
zC2r*rzv;!-#f!>L?}Vi<OY7$eJNFB&T?qvhj_)s^<mBcOKXZ(YPMlwoeAu$BIM?2I
z28sO()9q)QIR2Y;?p_#xg0FCXYZJ_X8efaRvpCwnLp|hQy72^)Su*?tNf|z&?6i$^
zM4_FZ&EM$!8*h?qmUSxp*t}zX+O*8f5NwdY<4z+*sbp)xVQcY|>1Nvt58BX;ihCR?
z9`DR_9!Mh=R#J+z`(~zReR4m|G^(=&2Vw(54&}L8T>qoGHtcg4U1crY*qOEK?xdWQ
zOgcf8?fk$=`X=5MGr1J~%Q*FIC3z_!*}?P0$6}PF4<sXMT+;$b@u%<5zv~ynzUD!?
zrErXg!$9kml2z+FDs+2^>(IvY;fP-{wpZbKm%~ZCQ%s!t-mm#W@gaB&i9#8NZz(+6
z@quJIO}EGO7MFJgo3wi5&s7rx(jc_af$0T!_i=mpRj;(7vuma%FM#(I>~E=SoI1g`
z77$9tvXtq+<gN~})Cw{3Qb|~5sm^3oNX(i4755;*vXrAG!c2W{m~O1Duo7Ktx`<Q|
z>-3qVvGUelxxB762?~|T&8O9CT+rAxQ>JC*c%}GnA%&p7wBthJ6zl9*_ZiD^={z^2
zA1f_dS7>JTsHj+Z>2KVevHh3+@4>RU3OA9@A>1ev=f=N}%q%Q&OuzGllA+%}S2tF=
zjHJh&12*{#JLJxtd(`ChG0Lz~BsX!i*(Zm;cI0spb6~jTaqqonr_%uPgIM=@2huI^
zi9@sSp~s4kKC2+WGd?M)qK{Sz`(w@-u0CISo1LxJVxMfLAb-eTPECz@<I>wM0De}5
zTPAK|F&9}CzMz+y)QvFX9&to>S*G7f!dJI0fAW%IPF|^rVSl)<yS&GWeOG3@x6Ety
zhe=5atHt_h>9(P1>Q5L>?5)Q@b*!Qux8U>!w&8ihe`s-pY|L$gReEnj3J0a{t-!M5
z<(JswBgT9@#I5sn1~vc}=j-s0M=WZNW2PWYJCAzHq`MLx>Bl2CY2|*L9UP!ubC;|_
z>qP^~o?RnsGs;XoG?Es3kzM~{v^MjY4#AA1g8sR-Y@RrE+x(WL`ra3IiEg)j3ECF<
zK$3eNyt40Sg47w`ZpK#H#n50gy&emn;o-G~TT+L%+e3z>r3JyW`jgu&WUnr%3`6vd
zfg$3X3~Q5s10g;uY3((RnR6sNyFln!QsJF%<e$h}Z*(Y214D4&<=*FVYo1INZbKx9
zV1ZiJ3{g^Ky{G}NGHY+Ev);Rc$~VW~-`zHoVonAJB!gr4@bDTt)?c9YpEn?bL+w-F
zQ_`F(ei(6_82(oFd%?Tn8W~lRe#7T#*8UG=)n&X!Ymg*0a50KDE~!{p`iBhv=TJOA
zi<;%;>Vs|nV%B_%yB=<3&!s1aZilYjh9o1N!MZh1Oj?Fppis=M9RbjhexOapcJ7{F
ziYV?WtBfr!alZPK2e0#_q2|h(r)xmwo2dj)O6cUN3FEb~8rr#Dltymta~dvu&J*9f
zXWnU4_+;|7i^ZZ2%c4lvWbxoxk$fMLs6Xx}yK2%$Fd{x|psb2-XFK;k&zC0;DJcU)
z&eb?z7Z1RZA9`ye7r+23pkkM!E^J8)8C|m*COy2Ty5`^w3~*B`Bgh20MqiH+w|l;}
zV96_PbcmK9$e(Z1;Z3y#JOX{3%++iDiRlW=qJ;2IL)IRr_2bD)vU?tuSeNKSqTQUj
z$Akp`1Jww!aH{mRC+wb0Ia&6J-dn4ryx1`H*L?VfwL9mV#CI;PT~65%yk0|rDYFXU
ztNq>yx(}WR%4My8eJ!N@uE~=-Z<922_mZk{)fVK#YO<Ttuj*Zyz3OspsnQiJ%-N|`
z(-BuO^UB_o^V`fe7+@{6Iz%4t>gA{}Nu_r36Jue5%TfLjHQdikOcJP_)kxfO?wjjI
z+ERFUB{VZHaghyx{!~=Xg8m3kakxPF-|?!X%*U5A1p;K(y#?B3^8ArvF~*sXXG|V^
zgW!I@+Oz&#3|qY<W;Ywh=Wl+)M9MkiE|>I_#js*P2`;y`xT^9?P7WXNTFQFwuQXrx
z3#49dIUtbAY%}MPAZU8_rfs!sm!XC`76_L0qRL@p!mAcx>pq07gAXb$W)f~c!0Mj&
zWw)O5t^*!vLNZy7y4!}uqOO+asq6YH{2<Y7TX%>f33F5E8U2OVuL$f>*gzF`xuyMD
z{zCMbmIK0~HyURhmCSr@tUKIxzVoQGYRTsfi9S)z@rTN-ez%S|rmJqHs9i@4SAei%
zWJ%|g>RrEtn;B2~c@+L|KGaalH2RUut|wci9?wsG{YNsVp6r$OpMPeC3l4S4?CEWL
zoYlIAf{B@?J5Y;wppt)vU5@xy&CFhKd|Fle+D1(_n5R?3^<MRYl<u{TALF9B9g$BX
z>i0P?u}wYoS0%5Zbmu0n-Bn|yn@+v+xL;aTuq(zcyvil1_qXhkiKphW3*|odM4m(r
z%~@{W*^w4SwU43w*n0V08y(^|&UU-b1N$LD`&wB^Rkv`};in7%2bh{#-4+WLR7<3@
z=Z=gDU5`)a;QTjUHFB~2-`M>NR~9pcmgE-h^Y1p^v7X~0$^UxGx0F<!@gD{KHDtop
zC-IT-pFN40;&h4Iymnq)EO5~our3u#vT|cDx~Q%ta7<q<VQcwocJ-D`WtcXsyu?Uy
zmTDy3F;^FI3p{!K4Kb$-+=@lj^macH(D|!8=K9WRv7qDeox-#~3lMi$<z-}i9kC&4
zJ|_A9ihr4Aldj9A5y`iA`-8)FyNNl^;Ws==3K*iClt1~uh_k4DFZlBN7s;TGHOh0S
zMEt{Ot*x+Dc-YlKdy@PaT+42Rj7t%@A}5piEwp}fMjAHG+VO)qHD{|zNH;lsP&xCW
z-DY<WSZYv!miEtyR2Ae3u7vbAWDUodS<W~V69Ctp=Da@G?)B>q`PTmrjaw&}e1Ps{
zX#gTH_dG?P;ZfgKmxIXp;hZN4>$#e&!c9#fRV&pf$MRZBd$e5ZgAxwH3Xeyp)?#cQ
z__c4nttElZqjx5xZy*J2Sa)cStwl9iZim9LTJPAAyV6;guTjm`(6;Aa(KR-n{LJfJ
zp_G-TNh)){x+sj?AZ@pyoU+-YrHN!v5(hW?WzCfRrW*^2wFqz8cj5IWul1y>UygLN
zJa}VTk`(sBS>Dkxtva~xl3J;R3MFwyZW;FnWAe9BZ}N)sMu`=6TK{~vXz87#80d3a
z3J&#csZ3N!WN>i5ov;_p?Ch)-!-^@O)dWr}k~V8rm@t3a*pUcFG;#9?X|dWk1^&DB
zq_|%!J<iFtt;Fsqo*Yw-`6-u(aeToJrz=Kylzk_-l%{-)xp;%5<wmNwle@&5+iquN
zr}8jd$RiFEeR#d-Z`nV&x^@Ti_l}YzGe?$ZW`&iuX@^$5DA_@htic8F2Hg()J|RWf
z(ZAnakz~L$dn80dmgV(_K!g9Mx-$*Os%`teQW7PVqD+y>SjtQ&855GJj73GpGS4)j
zi0DdX$QUB0iqkwKMUkP588c+eJY|0VtM2#Np8MY3FYo*5ea{cqCfDg)>s;$t$G#u?
zvHySnS3-Fgadjv*<8%tns_RL}E+}^tO~+deZ!DvVWupj}V*T1A(yXW5Z0UE@P?O{!
zQJ%kJ$S+iMsQ7t8YTjYJe3JR+Tf}*A39mo?DmhBLzr9dXI@e^Te<_XYZjvF}T0F&h
z6`>%L=OhpqjVdy$!{~F|GM{sQs?udhqfz}ZG@_m?#K#wC5Q`}Ug`L;Imr^#(ONkX_
zM5P`V>%Xp8u6B0YuSd6T+L|!%K7YCG=a%CS`-&ZU8dSHcMN@6%Ft)NtrS{Whc%U3O
zB*3-PY%xDx{7TI~loSuY;lq3x=p>x2oosm?MeJ=O?l}f(ch57wiUjQ#`;vtS>`Qi5
zU6v4c&>f8UPHA-5_ohy3d#gxMPFw%B<weKQvW43o-a8}Dm?SUZDiP}}s(%`qhFkJK
z=FOUY9=Bs}D3ZYEbytxD8-z9`hC?D`wKm*Rq9kF+AtJWfU#pgR$8*P*Xm(1uPC+@a
zkdNL8S5kJjeMo^y{irM+0g8Qo)Dukm>`xW-)>j9!#;AlUFU6uGk@xu?q+f%Q%(~%a
zy@&2rXzZ=yUAKk5gMMp%Q|z_b?Fa@V`}J=pdDXdx8YqYkEk-Nxc^D^)MTPz2Ao|E<
zX`ex;L(OHU?<WsprL4RE-TtwEQXkc5h^57h?^yh9@ImF=<%X8ClV@!DxK&jt=^4|_
z)q_R`!txMW+>4T)_0C2#A?7%yzhra?{<TvjfJMkVMp_3q{rlU7)qP5uZPR)Fs+9mV
z$Z@>eZ~KMKDaPv+i;S!7SxwHJ2RE4;rw<tSE$UEY?+^_N-n?um)6CgFGwUv3N~%j4
z;gFt-?vz~ckNTyl?(gQ_p7!*l(dY0hw9E}yXMJE^$95z3+VDVuVT^T{m3mIdp2K>s
zQ&-}i=`lZhwmY0EHlfqSU5fSIhu?;7Ptq#=#Tz_zCV4AkM)uB8osupTG|+s`|0($Z
zs)5QP8(cqxF>H}^wsG)&t72(u%P#y)NbZTz_TnB|zc!moHYbJ!iQr++yJLvsQS*rY
z7mdgB#q|cyQ;oTO2VM>rRk-JWSW)fd|3-WoCdfZqcr9};r!%Y1{b*llBbU0x4e2Qy
zRNsEaa$|h`5}<0K%3lUDB3+~kEDo|K@*W+UaaMKiXMXT3Ei$6O%lTE+!r9K)!5ply
z9$u%O2ne^&Z(aC&&`Be&E^F?jO-n!>BPlp&FW+F>7Q++cLV08{1?C>6!7hd{dLJgu
ziBBp&Yn`@6_m7&ygs!$-I+a_85tMjv{qg)m8!3aM+Zs;oI;VA;gU{XA`*P2V(D<*c
zlzAwMI7}-d*nMRa;Nm%EX^pPT*|@S-FPUHKH=k#l+oZ8+eKO_Ex%0-m?nTik-D*!+
zes35y6BxI!c8uHH$;v=Me%qc!W&d8Poasv8kj59t63+WkgxGRdgt+S-exh$s^PoXn
z%6UA9;Q<}Lp=GY&aOn!^?Y6$kouhnA_v6)`vJ?*MOZ&e}R~9Xj)iF-E*7~k|ii1wX
zM5mhV*I^IyDQ~7;`&Eytin_Yt^zX;#bF#DlG}ZY&rk)r)BV#mrVU>}G<=CCUf2i>N
zi1~NRDN=?FyYTUAaaHDb?weC<v{F2wkxyvDSNN)acmIHsdwteJr{u~_Y4^h%-w@<1
z<ljo>q^&Q`iF4&Ax;!$}t6x1|JLi}2TkiK;(^F1cw4F|9{BqOEx^&^fkl)xn`7bwO
zQpG>_;V%cV(5Tr@&Q4LHGj<d~H<0#mp<_emII1Ym?mA}}-^EZpFuig8O=5$n2`f=w
z?Nh!LZhaB;?*-+XzfZF=*}Akv&(mGhRF>m$(h|l8?nBNh9wOmZ>_2n(4!!%AWVZc#
zuK)c%q~Dx@4k#Y57|7-gS}H2`Q!r3QPK>yliJxPnW4|_S!X57L=baZ(`{GDEtGwd*
z#B8LZa%i~oRff?q-p&K)0^=bTYYzjcCwSCI={Ky~dRp>EzkFE`O0d^>)VJ$^<Hs-S
zQnq@1RQrmz`SvOLYAA#y5j}y<o=Ge+8Qq1?g}6P3vL^ny_FTk{+n+Dr;|0T0m(1rv
z7QQrUZqB(pt^1w`De0hRK&}4EQoK`TUpoU)MPOpu@VkLitU=1zv%lqy&Xh}T!sGZm
z6+zoH1ey->><Ht!V^J_#Riid8A-j^>`^>H533K5M??j6kie{FhL0koedD7vLPlDT)
zlPutF7Jj8n(9+7v%z)sD_{wm+OQtG28_Z(=>-U#8J{lE6lZuL0U8frAehLMBc{San
z_fH*J%&+A71N-HahVw^Q=%mFos*cc8G9|ifytS5*WP3{0N=@ED`P&P&=F#sLTow!G
zj(@irRr_if*5ExPE~Y>fcu>}q`K)4-j^~J_E&G$&16IWYNDw9(dL~*n%Y`4A(Jvbc
z3fe0~uj7n)b7h-GbZ}IWwv;tf40)rB6>VWd-ORTGWm63|#clKc+yn}P?lhmC&}Hw6
zF;?v7+Y81PNVmS;9;%|XHK(B764l{><j6+ppK|rBo3`di9lvJjy7<^VJ4dXIW^eh+
z>mN8&PSvQVuu-H%=(9;&=&;$>*}ctk_S3x_#a(j++x3rN>JtA}cd6v#hQD8c{s96g
z8insN8gm0w0__X{ZfNMiwo?-K=|U4LjbYL#c4NpU5hUvF7A;%PT#oZ^_Z`3VmR^pA
z3MUd=E2C>!Q*bB>0jT)b{ZD-_701<0d|F!PM(Uj+_1nHURLSUE2#cP5chRJ<)|**w
zd1C!gM^+>IZv(UGW8--eYtrUZS2-fKBphVQ>PxaP*4Y!Ex{zA=XRJ}kf5whcQc^!m
z$l-nn(mSZUz+e^@dZP6bTj=v3Q1{O3du;Z993u8&wDquFbl8loI<0D{FVV%WmC$fD
zd90J?ZrP~D9(D7}J^xH(?a?>(9vA!FFq9vo8$I^aafGwgfjrB%H_|xo@^5X8fy|Yo
zS=H>~t#PZiD-#Vv10%!CB1Ojad!3~FqdUJ{kx;?{MM6olFttbe(U&XJ{eAtW!KqiP
z?8EI#Y3VT}kdXai`w;{8X>5rB9J7F(GI(;qh0GHkE-s_3v)HZf@L5}#^hj50uvzK5
zzEIPR#j|8*a*=^wx2K&^#kvkL?&DYVG0l{X4%I7mSz9iIq}H2v=?2gxKd|C#)eDYl
z5zbEWDJ6^5H-{MU7twO0?hhSSPRuYEcTbIqj3)}h%KNa{O|)8pai*wPPPh&}7h;!m
zgbrS25k2869WGr(y}?pcpsa^9x1RjiuU0H@<*to@7wK)4bob)0p*!Qi3l}XNt|@Dy
z70TP2HggD<i8FtkrPDObkX?#3OU~IX-9OL6c;SAOK$S%5u+HU-SA8j`mtNXuz?JoY
zlBQo`GUMe$|GmsdR-K6pbI}ZEgg%HJa%W;>ih6_Q!Ij1i{8%eF?bR!5G|x`DrvI$$
z(wDI9vNahrHSZ{>Q)F0V?6OUKG4D~obSsXsG|+m!xsiONK}2}aJ#+WcnX#}JKRzaX
zs8x0-x&C>=`ofqRUxDzG`gCrmqrB*`LT%M_gu+Bqlj9CI43~wC4Gjyenh#HZcP(tv
z_n7}xBjZ_jW?UdO;)XNH^@L_S<47Rer<x(rqWRTe3z5*k9OHTB@;BGnufCoyUUCmk
zRhB!`?hyO3LUt>EW#!ZX`$KZXF$Onb8@{sgG>1HNzsWZo`alD`;hs)zc)P8FEE*Xy
zOQ+RR7S`~_#V}#m`nvcqYYkQ7h4JIlu68x_nim?K7Ttp)3paNQ3*~W|^VtW-&prHH
zl-e`aduG+AYF1iT$05#~mSs4)_*cr>pYOD<v_<kAA|4G#zH<<8h4gY+Wb(&3GCCVF
zistm2C#A-6_X`N5Z*x-Opr__8^|hbVHP7eLXPE8Y{6s`NYL-r^s7%L4G;4(M^hc+y
zD{Wb)!tAvV7=>>$vZh)2dF>kWk?6XT^qF#(`fu}!GbK&VLZcmN+!?{_kDhe;`_Sp=
z98fu}F}`+XBagbIN8+1pOK4;8FDs=(O9ZpeTl^E9d3P#$kD7Y1S2KL|rYC--$>7a6
zZ?JU4R6(=FpTe3IRn6D*?|X;Z<vW7vOD_s$XQZd5qQiT&!D$%^hhK{_H|+CCBpn$s
ziRD}=8*Qr*p}S^_^R}s6KT|A&PgQHyt`3~_GH1t#tI4adEdPFld#CKGwMJx#e~wYO
ztaztX-%r&;HBuL5GZQNKme)CaI8aqZwQVsZUX`YU<Xzb9yFz=APbCaJ9@oWL=={ru
zd3QvjmDX~k>w@TjbHyZGEYB@3rUTv~@+#q1h*k@qJ(d6JoRIQYnO=6QowpC^C+|KN
zrEVnSV!2WlRjL)iY?ROTPi=d)+R-g`;!!*4-1c+WiTBa^7j~aj7w`L;B^%5no%wpg
z#DD8iv%K24t8*iAlQF^hmp_xF8Qq<qRxPA=Z(MP0lL@_(o4jxB`K@IdpC7J*Pm{PG
zf#;t)garkKFT>UUO^bw=ji%<;TJO0`Qg1|(2s-s%PI;?3h#TgUXjOLm(VKcWt0xQ_
zu1xxE5qP`5YN_@~O=027)p;q|XWu+Kk1y1|wO_q5%oyzYZI$nkRX!)}DaP)H)c%Wl
zGb~T0*Xa0uf4%p}Xz9~WDHb1Ar+XGw%&{FD^3Unr?(^S?Ba`Rs64aCHha8=ychsr=
zt1MnB^D75R@3Y(t!%JQV_Cci3c)XW^=C1p5*SoYw=Py}VrLp<9xh1U+sW7Wqy~sWn
zS<xHH^>QGP{RT%E*E2m|OQIs4HTwMsYAcfOJc^7t<c*95tl~ySM()xBCUAe$s>m4h
z0f&NMK-lQ|a>}ue+<L#ayp@;ZLzq@YvHgNhhIjr^wGhMB_KBHKHw@l-36Tyz(=l<-
zIh8KP^2$Y0c80Dq>Ji@^ZgmF@7fI7|!zKNfcNMUdq>@%%lLaoL1=vvMLPYdzbm7U{
z3=(gOPx0M1Wl}V4wB`e<tH06ZSDCk}hDNjS1J)K<^v<k%?$u(~FN0=?){nMVZrSD;
znjh{k#W$<^8OC*wy?ZsZR=upjspGwuvhODA_e~CAU=81;2Si~+82w$&9P*HlL>XJ9
z$BBKZ=UPat+JA>z!i)C^L+;|RTiUcA4aaI$5&t2UV_eq~>?R&196Ww(^{vTnHQ{;>
zQtEQ^#I0f{kMXaJ-;QSlv3Og2YpE@N&?<6iW^A*W_qm5+0g*XGSnyTAvqxCD+#xKk
zDrCh(!76Ld!`(9m4wsm=Xh4-Tuk~`dzPdX@gL=}RHKzTnfs@CiNLfGsLQ~&RuYTn5
zR=4?!PwxCS)h*Be`XtC+(#$wWD@;+Gbs=?cnJkgoK}J*Bq%{bu%wxdmK;R^^GE<M<
z5#M-jNSMrJmoA92JeP8@tzf<ea-M$kECNCB9-*X+407DP{egacKW%=4xU}e3dUCDN
zNu-Q&)oEd)liMk(ymk|N$)sE(+Y6Qrjxq6`9MU#-%9_@Ki9`Ahs)&{(459Ch-F+|)
z+*nXnK#D`Nnx9-8y3|&C7)u6Sd1}DKk&CM{a_Jz0-BnyX7mu_ty;T)$b^TuB@W31N
zZIs17Y;y{%#5T-?{cR@-YHiiWE{?WL%n^F(x}ujpQR?RZbM>JvcWnNWmzQ+2-Mj{V
zUq8ek_j=nB=x?fFiRI;rX|yWJZ~2!zWjN%;S+cLQ1Ja>SzDB|N-JPb0KK^f0jGBtd
zy^3DK+NgPi095$QrkTthys0#;PkcL6)Yc^#FL@R(jTK}JIE5cE=^Sq+Hr`P9bC#w2
z6B;Nspiu#@Kl=p45Bt_($D8;;`H#8~KkPu40Pzdo4Mfu^UjP5U#n;kl-R2YFSB#nk
zzB>vsZSgOYqc&<jpn^R!u8T}m9vNM@saz_i?22WO7;cby?E^bJGqZ#rn<OMz?tHbd
zv6)?3xpiBRhUMm0!7aB#PEw3=P4C||H&f8HG6wQBqulcHfGpw0n0|QE%M<`hNu<Nb
zmZ1RBZN8;FgKl)$iFcH80Z{Z#w{@*%H~!qWOB%l+43g-32(TJIe^x$AVia5jz-Q)=
zzj0$ysP?#-lLQ5SIib76>;LG!ytC=E2D{Y^S^)+*KyAwhrY{)Lo%;&E%-#3owRPa2
zmYu&lF&;Q^K+kA7{I=|Q&suo#9tc_@!ot)Xgz1-a0lp2-Ar?Bjj(i>JP&5I8ahz7Q
z?&48&DG;yCzC1I3eju6;{`DL5zTkC&=zJl5cu1k0Mtfp@{mpl@M+(nE`qt1O>^?I{
zID;5upV4GU8@ZLvD&zV4fmmk?^3YSK$_RElEiGg|tuM_+`JkKwTgZ87YHcxNZLg^H
z`6bgM+upa3{O(+xP6)g$nCFE@zy^?=OLt9HhV_5~-kvRcHZ<TrT4<ZiN0;waT-waV
z@>5B6F|<)6HWPQ8efh^GP+V+nY}7O~WP!#8vZt!53X|WEecme)o#-t3TURIiWeISj
zfq?<CH!rUhH0u&RA7z4vi)OyfHNw6#8i~Bq5*-u)=o~!8K0mcDXw*{K(OD*6ocd8G
zy7AbyP<foc1QwrhhF;6k358qk{m;yyRmg+35HV0)<NLzSkg^@h@=-T)5+EHMhBy!W
zL&87`+G+@+z~h|+hZH@m4zPbHX>2SF-pkDFvod0072!NeZYIbnSmD-ZiJ@7K&`sdN
z5p*-iCnBt1-h7&RvdU!D{zJg_=+4AmyAflyJ8z7(-m9rmV%&7;o5$RD`St=e3JS)%
zD)J|_%?nroE}akYo=JdW1=_K1EN`Z7-oI1--wnYg78|8}dTyLwe=or5hYf+rk#ZS>
z<(Df!VmRTu^td39jwtO?Ajst!F)}tzH(w`!NCrs2jh+vi*j(QYOmF63P{_k1W|#MK
zcbOpc?2W}q3)N0I$Faj)D#x0Kex77%YkauD+Qab%ebOzGQgqv>F2heK8G-fr-7i-1
zy*SBcn>JTC&}Gsyb*Ef9oSK>K3U9<Y{rY>axz`ttg3_x(ebj4l23zNIrGM8Gd;Orn
zylQmqbq2Z`sW~8m@l$V3Cv0$5E^x?mGo+@aO}iIia`$%``Fjq7zdVU^cvZ4Gn*rwq
z0!>w2Vol@0o}$bT;sm;r9rFw!QXTbK9Qsfb<H{0#;uhz-HgyGsyY%s(PS)p2n99&P
z0$~rsQT##Ywf64o)EvTULX2stsawhhvp=dU6&<HGE7-duIy&Sq-TMYdC|#iXKo2vn
zZh==_%_iO*Rk;7t?=P?lT~~5m{m}b*!w!aK90iU`^zWmp8bT%Pdp>NYwY)VdJ@sjS
zM=+=i7pRZI?aAS5l=$$hyNSmr8GICN9UTy$cJJB+*9Awwtw%G4|Lt2QnLl?^Y@RI`
z%TMc#jm8CL|9h`D->0yXN>5Lh3n2MaiY!HBlgSs(?%YuiWj{Vy1Uc0K)i2wpBdu^D
zE?jt)nu`D8V#y-Bqrtm)j+`N2T-aim{$$f7YrRwPnbTiCo_u<XFs6l&-zuXBEZCIZ
z-2Xga_x1DC-IK1850YQJ*v#QxtVDN_hUzvUsKs+d8d+p@Y5(fYEP=yf4VzQ4g7t86
zT54-+>mqvBGtR&1!Soy>d@aoFQQyA}dYZ-Qm^J>YDcR*RS;xIO7~g$n0~*KaRQH|S
z{=?>wkWgk^T<Q3{%U-cH2KTtYSH8|rL3%=WZE0!QZi`XfMQF|DlKX3-JwEQz1HCp|
z;~A2@5(HmlprDJb5Tj+A?DFfu**^pMUxO$DE&mvIhF-IcMpCz17EUNky_r75=6~Q}
ztc9t$)Yas6cmSdITv=T`c%ul%NnsHYX^6%&j!(*i9xu{t_$PpvxiiW!K-0{~=u-5f
z+He$7v;Ke0jPm9K#LU=85b~*yVlpFPdiftm5vR11!aPK+`M+9}sgGLJ?W47n<4hru
zR>xdQFw?<$&K1BGwWoq{^BHg`Wt3}ZY~16=p>po;?0fl&KXHr~+Io8ES(XNp-^yc@
zt)=@v4uj@jxd7Z?r@hc86wvpq<+zM%YBnuUR>%r*-Y*M?aJ?tEGtVN=qK7y160cDW
z+pbJeBP)^VA8|XC8-|nm4isLm-0zpK^ey-rW7W=k2a^PB1p-^LQwrkUG|qEO`E4k_
z9@E9%)g@zIv!#dn)0ao%%_bpT<1WRu1AAhG7Tt=URM-l!op_m=st+O)@GlsTF%c21
zm*<RibY?#?np_4fKV7#V6||!OWw6g0BCVqfH@9W)ajdQ$KWzJ6suE1lbX_a3YQ9>m
z#juE#Xikpw)|9xmhx@9BzAK0(#JrqgF)?-pUdrI`1GxdPBHleBcYCQ4;tU?1%>bo^
zgy@ZXyMQr6MtlWjg&@f3c)?tP6RfCLtAl-NE!owvR<_<QH+FVvVvbO_jK@D%$JRTc
zr@129XEIk{T{P!S7bzsjCt#icaU3R7^uWs}CM6vNHJU^k3sqt}`s@sej(%(~Eu(lx
zC;-ak%=FuDmrfu_QI{t;SI;v7m7SbsVF*EZpggO-YEy9aklp)i8!97*>4Lz>i5kKh
z4`Ix4u#Q7eu<lJ$wVn3zV(#=2wwwd8T2vJmE?>{Xfq_C<fd?a|kD=y_E)4Or1_mB@
zBnaK3H4Tl@)~#E$lFn#eaDTKoHyZi;IY}R~btecNI88+flrV5-)@1$as}827J<y|(
zL&V*7X4?o2MnrZQwcl|Gz*B4o1oUPa8hy}~A8l=4R=lfD#6Apo0=x;5@UPVN1;&uJ
z9d!wGs^R=MoVL6+7mch4+M}hT;{>@JP7+9aB?X0|#o@Hh&Q22D)-eKM4l#;l(#`MI
z&jl~t3SfFr4*ld-7V+13BwxMyV)|ywAC#RZNKejb9Z~-_5ahv&zI3S@G$J?@HeIH~
zNQl#dwUrwlO86tOtjTr!J)!-IfAi_ObxnU$pjgU3IBk@HC<uNyUXmvW-V-uxx<8mn
zY`Fekzh#u;`0;iq7`FH!@@FoD1K3$udT|hR)};+iK_DTgJ!Rgz*N|1!YUOt?kr=SA
ztgNUV)Uvm?pMC)IF7w=@;C^GyvIDvfcb*?vYs_yf2=0Km*7_ZQG*C-=hq=f2ot&I7
z2Yo<S|5-yrLmi#Q%2x$|U&A>LWHX@nsi~=dLwnrDtBx<$@0N>FL~bUG={~^v(A>O0
z@}U%FG<7^60VwWC!vSXBzIUIu0m6EKm$#CHTQCI*32FmC$H2OoU^SdS|8&|5>z6Dh
zT(_(o<f(*b4|GB<PWxQ$LlK{PyP-iF#<~NtOl)kJ1ELP5ojZ4qpcG(IA`H_&*CI@U
zm^aX%`;b4Wj`GCPW@_re@0rN~Tn7&t7dTfpcDM5kkBl^y3S1elhT_m2&Q4pXZU?YP
z*e9mvqkGhXia2--MpK49`LsN^GcyCSYk3_t1_*CPMjf`vRuACE2FY-qBu(<~g#}!5
z4S9k^t)<mF44L4&40hrZ(uh=QkC39gsBQbxCr<{xC>=H~Oqr8KdG7kFjy#9tQ~_Sz
zZ#30cGfOYR@rtm32?&?~Y;bDoSY$OI-L8O_>O{iX0fJR&aq(On5t9j#WkEPze`X6D
znLtd0&=Kk^&%RJ4criLAl$StQ4z(yN8=H5tk;}8{{<^w47!|^%LLwV_;e^tQEje~E
z0f2FBVU;9^IuNX0@3-PPd^k8TkXhK`AyC8Lt=Zt6YG~Mw&}!2LRRsoIAwG9FWH`|M
z=VQI7p{_l6zO_1>p()$g4gXc<EmV&_Ya19?8F<eOYT8sR-M>%M1`#@^&aRz16Lzg)
z@&E!1$vQA59%l~L!$(aP*($<fR^t`iahFRQDcZfkOy3du`n6zMqdW2%aDKM$ff~-p
zDB7qBf2J-Ec2v^iWsJFD#-+?!8HZmmn$&6pf6($S9(m5UKvg(hG)LAA(A0QWNr_ow
zE7^*y4ozAz4H&8LJNnt;3I#BRoAV@YcptQHH>|A%nV<&0)Z9{5c1nH@hQ86N@~};~
zUO$elgiH`WgUyG)lmz%H>nhaD4%UwzKCJT`0M}bbKo3dmnM^F^XJ=t>nZ;j7@JG;c
zAl5wB3$S#v%oJe2t-3Z?Pd!GINC|_?jJe2B@aWMu3w#)Ci|?t4k^b=ELx_U|m4TYW
z%4SpwmG3~3Nr?=!rhp9({QOyjl_t<;452{3${_VcoW<kNnPX>yN6gc+P`{?=V(Bd$
zv2AuIE2|eI?T|r3u51lK9)=Xs;q9UL`!i1kOS69>%f!@dU}(tC38PEG$R36ti^;Mp
zpTWGhBp*Kidf$NqACD5gTv#8?L*Qrp#`GhyJ{Y;TEIYxFl}}PKAM<B@z0kpfSK%f?
zSSFo01In<uk&%&{+^xB@W_S{HBM)sKHYv_ttP!(mO)O4hG<J=<(k%_W_wWzoa@nIC
zVq$tyHJ?AfNneEe@h~S4Vel#28H%$RdYSw@-+46R^JNgTyO1;DOd#GL8W=dl38)*U
zJC{g9esG0oNuF3OyKHIO?wZzU`Q|(o9Sb)n0@WK<iJa^q>cRkigX}NaH&DTvTZ#z}
zziKf1P4&pjDMS_Z$1TD4E6U58nwza)wh~C>^{EI9SyQ>W;@c-DCO)D0c61pKK+wB6
zdw%}B!koPKrruCW??vxNm_oqyluyJ`$j!|yTL+R#%XY%bH2Z7ofeEq3Wol0ag^vKR
zpoZoIx#spg((YLwO|RW>9TsH*UBgDz$H!-T-Uz8co{N+7eKxP4;Mr*Hl}Vtiwc?OQ
z`jBm4!6qS6)r)<&>r<)gD14X9Fhd*0;*qsnbkxy#oGn*Sy>a8l?>3JK1Vq|xl(Sl+
zU4Zu<j(z>QjuZo63*?<m&d+jUVu&lK4Q!=q*0!YN<iJlTlET>Sa@#3P<&CrY{Na$f
zx6XF8wERY;9VBdV2TgWBqER<fxD0SjcXxNT4w%r07Yw1q%|?Z?W~QmI+1R7{M=WTK
zga)kgF|k|N)6;_;rg{j>cl*yHiw#f)^Cx>taZ1V{rhCq?hY$C0u0c1-zdJCMS3rQk
ztp*$inkcoeYi%_r0Paqy>)fhga|jaxF=!A$^3PiJK<u==MST7Jyu6n1zv6t0#}A=z
z**S{y*s*W64k99%`to2{C-;A`%DOx9;K2ju70mdOw%>Nc365<Oo_6`7WE(84cxiQ>
zB}e1Vq<%H4sBVNw<ru!up(Cfg3PJKm7>YNu!B~#)s-rW=1-ScjbF*IhX^R`Kmb;5S
znl2y~ygc2oyZ{g&N-Me$yIYZYZ6u3MFDb~UUr9+%cWT!Xl#oEiR1Kq=^y0G=6h96F
zU;FNgE)2o_qTyPM<$YV>8isJ&W2OgdYneU>L7gd;U*V?|!S6E|=P#cK9ifeH29^KH
z@^VD`2X%RD$?<dIq0Qtgd7;^ZNB=&I0RtjRZ7bT^45SZ=yNpFmdv$(-W3;F^`~*~$
zm0?$#bDkeoE^iGeeA2q57Y7q8NlVBX5>9KcmqkSeUjQZM%C)8<t4&z^vq?Ip@VcQ&
zapvHo0C=PXF&#BUUIlc;k7(@GE$fHAqx7u;|JxiK6i!6lsd8q!tbv!2D$T4Sc_u|I
zT%EkEI(b$oSoUT)Tp6f|<~)Z*cXNpT)F_uzIP={^9kR-L7(dBWoJ2Z-X%2jnMu!Jj
zEPR&<%Wa%Eb5IL#xt3pM$vb|-|N6Xq1M?>GO&6yLq%l^Rht^Y4VmgN7fjpP2tSk@D
z5Gplulau%E-*0_=>2?R-Ad-+y;vD&^;TeErn)5AkP~_bOl2J+D)v}u{GAkPQO~7X{
zdMF(vOSQb_77~Zu6=lwN(egABskl+b?%sE6W7xq-c9!^*7>x?tP3|vaKkoV(yUmCr
zSV=I3q7)RUjBGy@C4&O+Lr|MJB1-$?F}@4dy~p?OH-kviQqc?iLeScQ#X)iF*IW*&
zs`-jY0ZEsI_kv@OjcY_@LGv1xirE3NpW?9{{VX|Ttp<zCfRt<9$g5)l?)dw6Ia2C8
z{*WEin!TdPaqklX1o@$D8WPx-lx>F?1*kOyZf9Wq1`6#q7V(Q@>|TzgFKTWs{Al{Q
zwsx&Tb`?ga4;0O`wf`}S0aqE@&&dSsR$t#8Ty;F}sa$KIT`jMS`}klHkezoCBh?a_
z>km_8d6;E(g`#?b<VLLin<ZItH;PKb&I)s~;9*+6HMAjJ6^%qdJ-|7va6@)^;?$!X
z_myEkju$Q4xt4R!Mp3?xU@^lO1ebkxXl!h3Q`E;jt-C1^eA71{fhpyKC?7z?TGzYk
z?Aoy-zJ@U1-Tf|v>8M<hu{sYg@p|hOu#<^N99z~%ab6h}=*q*Z!gT&1fR?c)#F@Gy
zC(;>t2MY**i)|ZT<>t1K60@@bk{rzu6A#7uPwHw1hN9NETs_sD#>j5M&H~%L73%n)
zZ-^mCg+X{GA7q-f&7PXFAKf*Wjmnx4dBQ;8Om2GC00ZGGa>W%)lcz0Q6PD`=<Egsg
z(y7fx8kNm}oB9lZJ22o09@s1ET`2k5s~8iN;{#%%s>Or(;EArbw)kQFx!GBrakiz2
zvTZhcAqMG9iHTey2bQvNK^suEGmR{Jf&xIKXnJvRr-d-#>YREVl6Xs#9GKf*V@~EH
zlgWUHroMV5%(TV1ExRifcwghKvoI!|0TL!NeGy{-bYlfBZtj%NQFEeiI`~Ley02CJ
zK+^N^>IP%$9lzI5uI_nFv5M9MhEP}=R}`(}SbvYF11+O5AILz8vG|{9^y?^WEP#Ol
zCdu0VSF44vA{u1CRF!nJK<bE{<W@{n9ym3Wa({IcG+PK~+n>u9!rF@t{2kPaeSFq1
zW&jq*g$tlOFsyM!?>mq?g1m$10X*xlz&v6JsH(`_0RohTxoZIb`PV0Go^_fc`t$Jc
zpb83hial($0R?M}bul*XL@}v>xuMg2B)y40(?uqX@Z!_fZW(j!dOHDfQIKLn>g?Pc
z-PWy*sSS!VmJdsivpHwX1m3&1fKoD^)Ux;Q8zTEWy}VRUpN1}{czH^-(Lq`Hlg$zx
zD%VT-L%OFZe4DfqVnKhc&cfI`*OnKk48Wds+A0zgl*~mJgjP|we0dwv?ewC(Z!}Jy
zek*lX^t%VrU}v4yVk@jV?(ts8v5gJ@ipUd@R;|AbG{966DSPCQlvG=7Z7tfZErJ3A
zGp%0b6U3D2Vp$LPPpSDe0Gx%~tVKkZv1eJ<jmRrUiM-OY3iv89PE$c9T;2AbiGPq8
zHxhj>nQ7lvhXK_a{#}Ymq06Fv38=ZpPo7A*HDdL#LRg8kE1<R!j*|N2$1oE>7&k%n
zsjlv<z~}kNNx}mKwIW+9Z5$T<my<v~uc7Gudua)>p}FD45fHAHe`VGl6B2^)>E&i`
zSpOi?KuBXoJ`Naq_0?&DaD?!Ta|Z~TtfLJaGUAiR(2FM^r6PuWzDz?$=M8KZfHr$s
zSvz#i^LWUsU6y2^*2#~%uLZW*FuvnMOcm$%)k8P|-9i{?DyBC8fXiTl11DIFg__Dr
zN!N+kkPr>N3@~<bx80tl@&H1wT^AcBc)kg2ToD0FrYLd$?^QQJki@HQ9RbY8%h4B4
pB=P!dw1s=V=?_r;|B<(>Zu`JqEp=+^zH;ImRTR|aNpcr&{TI=?237z7

literal 52143
zcmb@ucRbep`#*eESJ6TWMOG=5RU(y{RLW|J%m$&1WN%$5Nuq?3(MGcORtO2%d+)vX
zx}PuC_jmsu_v8NK{{3;EkI(gScAoFoKF0HS9>?o+yQp|>>n7$+6bfbQd0Cmu6v}!j
z3T0h3^;&#l_m9jA{MmS4_PQB`!s<%?TjSX^rc0r4P|nMox@sLT*ko|y>Qsiv=*k}*
z+JD?Q4!uu)sBfnk#Sm71S3P1=Y_f7gs+~HY%DpHxulk0MKK1t^_#$`?U1&NZ6O*VG
zc4k{}`zGoG)K{hW7W~C0(swG{cJ|WQ|MqR?gpF{}iMJC)+OhU#B>^T}Y@Sq@3P;?T
z3UU0UMBiR3hCe!M*0AAEtTTlcf38b8;~{5Wj_h?5iWDPV>l(D!Og)OPyw?9?jXwoz
z|G%3RoS&gwzcJNcHD)cw=gNPGyf$$f)<%DbjTPiOs+0Ed<Hvvh{a5&2^=CUTLuEBJ
zW{<NSW3&BL;T7U?iHG?3_yh!6Vs+(GsR}RH*x2mbw~x~$Ha52Sok)mX!1vdxISKb_
zsw*o$+xdRKdinAzKR+hv=qG&FE?=g1lc|o<4jw)gds&DX-E8H&s;vCQbZeT$fN$jK
zbyFwS{r|Vf|Kq*k;BHzssA^*~m+Q7&uOuMlX3i6b>AIfQN3;?{@fEjXRL!*Y3SaG$
zoG<gFIo|4g<o2)lUjf+ZzqW$n*->f<cmKRO;?5*M!)e}Et~=bAV%AgQurQQ#?#1pp
zy#Jb|sH@vmEYhN(tXy^18$u_=^LtXR*CeIOH_x4k-MaPROru%pI$E*&Xf!k2WLFY!
zq9fnaq<TR9&EcDU<zFI%xG-9L;&YnOiJsD6aXZTp#lW*3%vBNUNpwGl(?%SdENb#@
z#TZn4jnGJmb&Hz##bP2h@#m;!s<}b&O-RUl23>RK;3K!sQn!uf&_+2W*n6^x&(Dmo
zd*)-ob+4J~qHpFzBsHg2D2fJR?GeHU$cV8R(VdZR6X$N*-Va+7xf8j9nm(9z{EE;_
zv&?<Et%S&+SBBup>?qZkJuY6!)|r{PzFkFrBclw<i#?L10VgKjwJdhGxw1DiZzl_H
zDCkZ5Yto#4!X<jDsaw>de}{A}#HfQk^H$!ov5x$i!McfmH}mWNZfmxmD0Uafv>q68
zS{l%<aGcKk{Fy6bolaWB$`+Y8nLXR?y?G8H#mijjWz(k3<W(VlhH;=i;a=*w0^91t
z=N(^g9TX9%VP3n-VS_~3eBzXep<Bx%o<oP2=W6}^{bfuVX`N<s78e(*S?ICada1L)
z4@VkPCQ>a1e*gZ>Y^W4qXOd2}{K1vYc4cWMYbwHIYN#Q}&9$hsbfhk>r@G-DUU%>M
z&+Z9h@Ho5orR=RI)?z`vyJ9tOZLOGcie`P9cgu~cIvOXVD#jKS5uq@{as41P;8Pjh
zzruzwxy<t?%5Panx;wDoA1W~dZH#h@yow`9KT=z$oF{+xQnc07QjMEZ72X{at_`X!
zFYqzMY1l4~<u6PR+5Ot3C$w~*YWMx@D@x)CQ`1%9Dp8tgiG5Mt(iVPA#`W=G{|{X@
zUt%|;x*#X_sZ3vtEeXn~rlzK)m6>C;6s-UicAKH|@$=(uRykv~uloMd{M5K!(d*Z*
zJG;6b(;YLcy|GpOD-M9(?YnlCMAIXkFZx1g&nz7p8L8O8oNCK1D07x-Hqf&EpiA_f
zV*d>d+fUu<3AAc%rixUJ`IwkEoiWqQa?)J?QAo4n!qAULRIYT6IM<Q1k<5cZJF)v}
z=g?k!y0*hZq}h5PBI$+1eD8ci3m&HXsbx2mkU`7K%iCy_)WmGaD<GhqW@)6QrL||S
zr@K4xX93#(Jp?giH_hGV&8-w9eDB(sGiRDSdNK3EcGH9D>FKvU#VzgFt!LX@O`2Fl
zZvT27b31=}q{RuU8*yBS2>ZX!GdC|WWsW{}T$+b~PbXz98MSNbF)%RP&VLc{?c2%j
zH@Ba;yAMnUoV4h#P?F5J-}ZBI>t+h&AcN;Q72fc-V>A9)8FWqyQw1AlwmHAx|5Tdo
zN*9?v{yRJ>({_HcFDh$!p3QD>><1P5)oa&=GZ%(?f}I?fnuf7A5ID0^@tTJEH57fS
zTSdN%Vk?H`Rloa76V0E=e4A&zIF{huuAacVj#UOyO3OKz*kGL0Y&#&5Ip*>6=g-HR
znTF#l6i+|dGB*|F)MV|t8-61yV5Wyjd|V3slp1;DoAs3P`5%{vJ;Os~esNnwv}nBT
zRKIz|WlfL9CtF!63lii%o;4oeU*{hhdDa-Np)Y8kde}?3vzi_n*RQ{2PVqhey$#Bx
z{60Zm(<4CG@QCn(Vuph}JedntFUQA+hAvi(IFJ7bN$8Tj+sScSXMPu)QSZeEJ?T}l
zwzQm`nIfeNZ69va!(nke%3V&ern1ZJh@tgMEaa8Cvu*WL8UN82A9}kLj1F(~G9bRJ
zfXil1v~gchR)>T0^f@>_=Pj4x<UCo2ucQ@4{_m$as;HLFJ(Xdu`;e$U<F9FD5@+N5
zhZDw0YC~94id}lBb(&KCtuAfJlrb0Dc$E`<#GlT}iv_JTzAmsFzQiQJ%PVQ1uMj0(
zZ+(E{G;yY02gg^IYZ`6Lq^UU>c~<HRV-mv0RhD?PE^QmBO!=rc@=aj(j#2^HndegV
ztIuzHpqJ${vvS9UPMYho<<Iy1>sCJPXCAsrbmZH&ZyH$=#S?4#y2VM~j#%~%F-hUE
z<nhqk-)I*-Crj4pa1bwF&YNnh+}3&Sw1NWlhr285csA_z9(Hq<=OT+adFJ=;P2A!;
z4hqn6R!$CTnwHavyroJ!Pxd9=?Wzisg6)A+V<YMhiA9RKr%Rvb-|A!ARB(}?fzRhx
z7u)+xm(#`i=FPgkp4`pu<>K4DQph&TdM;*Vsj4um9Gji2j}#5D+r#l`Bbn%il(?4P
z3r<lkqXq^V#cU4cVsu_(q=o*y3mwj@;N!i*L63E6XUQBAKMB$3A0f-Ae_DQ=V;31X
ze&ZKYsRye~Hlqm_>Gp5`>tAaMx8um)TcGh}Y0~)GXCWF{2GUr~9gQEaHeq<#-~W-D
z{TegX=Vt`{L~vYUPFl=)k4LwWM=vWG?Dl%Fy1+N($KMODp2P)=b8QdVu-^wTHBZto
z>;tBzy!xOs9!ywWoe-urK&HWQ9ZilAL?v|@Q!_eECggjCnJRwQ>V#wscK`KVoe)_K
z%j(SQ$b(Ac!8?~Ry+>q}Vr+oyX41s}6eh+`#uHLrDo=j4h77Qe4B#zvz$0Aj0($&P
zdaONy9_z_;qSxUW`PE5$Lf>ysk-mS~X9^9Id8U%3MQf`2{2KCsK)jG6-x^_xIy=aC
ziDbN0mC-+N`P#MPeK*nOEYYe~GYK9K_3flb8Pdj<yt_c&Ig!@9q_xBsA({dmGFumH
zZGkm;hpk&hoKojP@X;pn5vxBAMx9K={08PaNHpxPX_t};`q_$poM{eOO{?2P;Y?$n
zU_YeJ;Y<rot~PyvrYvNc=DcXiOSa<gLo$XRdC(QdQ*dYX!N+(oeDy)<U>=W!UkCB{
z_r2ut<va<E`IPcxf!(j0Z76C42fq&_heS&n4%O*>G1Vp8&_(vOo(~&fN2K7dqVNF^
zQ3ZU_wE9KJlP{)U$n^J<FKIB@dUi7T>9aT!ell`A4@MraB7)LHFr>aDv+u7!v8(vr
zn5;g2JDN``knuGyVtlLB@gI`MiD(qq;_DY=dK_u!{p8aCb6T(UAIsvG-hLYXTc$76
z&B)6~PXNQys(Ud7dRD^;PYOr(HQusl+2FvLqzdpb8^_yF<-ijEgpbipMr}&&IIO}l
z)>pN_u4*=^a(k#ZaUyf;+Nm?`W7es91?E8U<u4q!U}`L5#qYu$R|aPLeK=k8gEPzo
zmQNL!{<}#($^KD841mO!fxmNeb8z^pfW5!J-`wM6)%e7OnVDI|tmKgfi~dSLl-v%}
zd$qR$Pg=lqeG3hhCBTK7J0v>#u*=2k*A2F+?~i%%PQ)aVU>e@*VfdVzo7)8-;XB^a
zyBXHS?wb<O)btS@3o0NpnN`#*at&10y5>9o>9aByeP3nR73vRPzkXG&jy5=HH5@>&
z|He_#Yw$FY13Lhi_GGIlD=S~S_Eq<ZA(MOFg9i^5n_F(><>k5YT>O61oq>r-MMXtD
z+t)3>!;PYS<;v~VIr;eb2n!3tbMbWb^l-DO<}d=RdCKewTcLlEzxk`;3*H4iYECWH
zWZl`igqVQ8!<m;VHKn!H)!+Rxd9+qchkB%YErnyDQ_1OwRr4SnbcOXP5m4Vt%v9#`
z<eckdAO<&ynCN))_A5UQ_W7keCHfwQyj*;nR0C1D0-Bexu|Ln#p8H)SO)V^LrxGA0
z)H}caBs~!`Ub?U_e%tZ3-c(^umwJ9tpRM9Y+1$U_9r({ac#XA>ElP^BYA)X-^HjC0
zKQZ?6qj~8+f2)b~3I>)RcP2K%tL;G#)Q6f_2@Y>)hT1687gGu+kxw07yu)td-5$K#
zy82lF#Qt;%#C5gx%|w0=o<oW=@{~Sq(%bd%5GANmv@n_CmRF)Z5$QErG|(og(`3<a
z+b6!5p5yUY7fLK1$6iBaW-G%~?zIKH<l8=2h#RhCdgbzHafOWc*#{H-N_In*8*@+~
z4$SM=g$|0pBI!XKJ1gW)c9t2d(B~(^CVmy7dA}OM*1tw$U(#6rG@7UpbM=0RJV?BY
z^RbUYH2--QBQnERWMnn6F`cX08#&uuj8?D6!v6Yy3;)SJg46R#hZ-URSzz$Y54PuB
zG&_&I@DkD^gYeB&ggmxtrY5~@TGjAPm~$90QeL)GavgiLms0;%_n%c^&qp6W!e?i(
z1NyXN^veffbhCu`1sBQIA0&p+OYo&X@m-PH%uEj+REY185?%dx&zSXcaL^0>mBVB`
z>&gCwy_9rN8&0p|B%d&lPY%Ki|L3H*!W|7X@|-{U{8|&gfh_)WrGQ6xzm-(irTnjU
zdz`0<_kZ8T{Q8%2fEYwmif47(K19fMw8vn@>;D?BZVDW-bK<JirH652fnk1MMZOSH
z&nZt9C%vB}y?2wHVkA>2rqhHs;}9py^FM^;&AOnA$yIwuk45&acJ>c8x|~?T8~HfV
z&w)76Y#J=1;2+Y52kDKI^pGfrsdbaawa3tS*BR1;1x<9A$*>Wmi5O|JwJYm8hV3Ay
zV6QkFkTibh5WYK3zFV1w_1}xR>d=u!O2WJzETMS#5qX$+E{+beBo|o)i?+|Mq;o+$
z_ddrxe`00Q+%PYeJo1P<!b+s&JJAGleXJn%G3Nc(G|w02x_}u&Nl`Iq#(f(-kEvcK
zV4(LY>5X-@H?k%VtjU=M4nxY4;MtRm<Ut~(y;9^s0rKD{B41Uj4-&abB(9-e5)Td$
zBIj=j#?ogeUt7XAN!bzMh}Xkp>WM3T-vm(cH;623$QyIDBmhgFtSMgd`u%m~<KyFQ
z+quCLnB_d#x-b}5ikQN_-XH{_=2!bc7L)X`$qFR_^+ZDia%sb<_p%(9N=^=Z544)D
z7NEQrhpPYO*R^%lPPkk3=E!YE0j=HAz2#quR;i1?h3N(p&)p|tL1TD04LZy;i5QfB
zrju4wR7^5%l2{zg*(c|_IAr3)a`euh<%N+J#tKaR1X-E#S8ZvhBEBSEt@PRKb+qX{
zL3V7QHyTW`GOR|L&AR{Wl6181V4rQa8xf!D^o~&-94``Z>U?=_IDMi73v!$*(vA!b
zP44nlzkBy?{T)XrJA-GBBn-@Z2gJjYPRomRae7w$l?Iiemzq*7HggUljH=PJ(&S})
zcg(2%w+|1?TrI*X2{zAQi|Xt7>`wN^#>Uhil9Ok%Ru;0{pFKld`AN6PH=(QtNc73L
zc98EvBzAcE;HPzq&vzY_rgmj_v|bADvYYHJ%W_(=7L&ld&q_=OuPo|Ox4nNPVU<(`
zYD_D`_Awof@BPx8m4OB|Ik@2Gj;AX>o^eMPY_|H3hVcKrI3fB{<I>T#9Pkd)wYNRz
zS-_*6V|M`YVGt5{S)3QR-XT)RIQz(dUC@m3T>DPV$;BTOB@m-KH{Ru8Ke+AO?y?(l
z;HSiA8sk8};Ln8fIvUx&&oI73mG>6(QnG9&y6JvaTfG}0zV&92FQ0;ap!V{(ADF4-
zPH!b_D9wpZuWftJ$|P2Oj<p_Z7adN%Jup<GVWx2D(xr*BN-qNflvb!17#X{JdP3lK
z{k*-myUAGAUeBK9%2fS+Q*h5qSw~05?L`6x9L!6T5n4bI7M=#axvB8R`5j~CrLTPY
z9U1i|nT_k{gY1P~`#q-n$>#8&bkWjS(KuCaK53Ql5VXij_;u^ZJ!&0u=csSrHgWD?
zWIR?I^t1wzHl_@WVpJc0(6na`93sDVru{(NJg1ArKy}9G&&}#4>?a=R)aRJBOW4P&
z*00beuB$%0D@Ik`S?QIq{AExAg!_4$_M}Q#nYKwK?T#`v=jBwh;S{EG&qTl2eKi_2
z<2qlaUr9KjV|&L`eu1<ESJBh_Zds%Nyq<i(@v)cZ*iMY3Px$g{&J&TD=q{EU3Z+mC
z=sZ=#moE;L=W)7Ry!zVi$IRZqfY0molLY6t*c%x1fi=R!D{t7{lB<c-d^dIX@#Du(
zPW6-rT{w^s`M2eerVXN#12rQLsn}}g*M*0N*F>n-e82tW!l~64^-YZBHn2@U67mJg
zVk^rr!oF60k@J(~qW8?NA;jtRSmpEQ&+F>yV)F_6nv#+NP{ir-?Af!3l_0q*T-En6
zYC=K+0YNwy?#M?)e}w<cHB6+Klx*U3QT^UtdGz;#32A>v0|OaTQ&TSbx_Ob4{(I=%
zz+Ucixu~fb_)FNFO22?^7i;VGmV?#buUFhyK;VCxT6846NvpzxMWiH1JS{qU)ax{j
z!Dyw^V!o4n;7MUqyYvm1MWW&qrwh0!yhN;KUxzN70nXd62~IheSuKOn9eB;E<$8`z
zWp%Y$wr`kSOWG<G2DX^1`NCPVs*Dlwbv1{rN*Yq46qUsI5dl<XOjGZg(|x6STKgy8
zl^LVMY@X_;IX($|P<ox6F;%U;H8E>xx`ERrW4hir!QlG!y4slAuz<fJOpbY5_t;~*
zp6RUzl!(!ln^+l_Z;yex)9m@Q&i>;jW2|m!L?sD~FYHQBR~M_@pyk4)RI3rK%a<We
zK~LwWmO9v1s6C!I0T}rm@NkE#>b)U&GTW(bvvzMyR10>-X`!KIKfhXdXy{H+OGB`{
zNAh=jTdU~&#K8wU&i8?x*}r_0-Yww%&yAceP~hS~QIVLK*w}HH?Enb}+f%20oaYX#
z><->ak=i7KC_mWx_+>3d>CnEqwDwNUo9au+lz7QqOKh`rKYdiRY^JJIl!7IerfRfX
zz-vj&wmt%X)MVANv^Y^3mDK<~N&WhDo8gomaKo8ye0qTv)p#RnHQe}e?>R;W28-cF
zo37tJkP^fKd(S?vwW!go7^|aDxb|JXqItaU!~aI7C-$-xO=|a0WPRjUUSu^Gr#0CQ
zM9^Z$fvBuZFkt27<)2=h?EfBDa^dO^kv$?JGxGycPSbUI+O~aP7+}k^vm8e-A-!OS
z5>V1czVLH8sn%jEDIvFcd>_-b&#l+ZDS5`kFf#gxqAvnM-IWe3rPJsmcA?DD4o}I<
zsb8wR$MpZcKlNxsLWu^2VsvPv%OGW>goX(7U}eR<w4qnSZWR41*dIU*dN59bk`rCI
z9pfEY*W*G&$Jd$@_#pLl!QP;;Oqq(+AK~L_n9lLZNSS%Y$6V<jDO=)d-wv34F-;rR
zGA$2-F+NFRV~*1VWh_Tn!+^Q2<uD=+`#DUmb1CuXf-lRDQ<w>?5k!DXNhBeq4gmv(
z-th5Wr{J%n#mU&e4m1F?Iu8{h?*fDZI;AlOL)5Yn{3(b?lVVAtb6J892E9nzJNR0E
z6PZCEdig6udZ~x(z3(Ga5CRI3G7EjVjv~7bO@#c8V){mrrwke|k{;d=gi(#C)dI13
z_6q`ej6gY1_(&if&x%LlS06cxuD!MpyrF=uIZoW|{0~V}UiECjcs#%fQisUSL;%12
zhil_WNU_Ss{8b~ZrOCv?fpw(rl3^mG@L<^2vosWrJTh<QfQMLCSgFsiE`$#p%4G6a
z=W!6bu)bBkheMY<XG^}QB;AA)M0J^T6G4EbtXiG#&+}w6G|B8<jbrQ7$O8Du*1ZCx
zb50~-etZBnvHm$(xHNfME`p&I7FNB_2OEsooKmm)d+lQR7rAquY)e&9jtO=%!!fG7
zA|fI#7uD58Z6|xrxHEp~N7~~p8QVxec+E1hD1$9oD_cbxM+q5R^-UQX<2E#Az4(O1
zxYi_V>8vMP;H!0OD4&BdKso37HOov{vw5MHK0zI&sgccTY5nnNK(YZ@AerY`i{nM!
zl8h87+cS5+xs$!4DcmqSH_^jg5;+5}kjJEL4^0WO?GH=UyB$*tM0XfsPxmv~w4)g)
zjEk0v;-yHoEm&vWB41J?Ttb?8-#Btd4pZUUO}4H`6^Jj-b}Wo!IT;xZA>$O#*@mDD
z^cBV6wc-Edf3lVbvOq@1WjFvt@~3pZqWcNE?!Eft89dqNW9Y1%Zf#247M(+L&ps*B
zVc`iK09(fD_>5(=ev4^B!vz93&i6z6SXw8>$EB$UYNAZ+lbn_(f;nBDvc#{YTtARG
z?!Cy(wrpk4=$AB>c#5KLgw?`M3%HE7y9*r4Z20r`=xJ&XjXMzbx9#f3RGO?p$S(5N
zQ6%kWN9lg%&`OHw{(e0)G*K=mAU^r`G^dM+<HWo3Y%~y8WfkQXD?R(F-$Ve+<&I@*
zTh{4j*iLQY+`=xg_$@qAEz{m+Ne@^H$q`{BHo;>6vS~U@Rjqa~l-n^@=vl?Dxtkos
znpay#;YF`}mG6T&x3HL6S!!7U1%A&{d|Fn_qVm$YA@J>B*RRLjQQ)Fa8OdBowH)%F
z%!XcZ!5Xy<i4dMRe5b81SprWTg<bl1r`PH3(qPG3xlePq4iVU#JFTMaFy*Zzv5|8(
z5*0wt$8lP#BGC}4&Fp8^Z;;?HtvDh^@$!D9Qm5;u=?KTNJnAaBSP{HD38*cgkvxj_
zb@!q&=BEa%YHzx3WfQAi>RIE=ORt_7A1TCd*(h>Ln|Wt-q{4_S#mk=(99^SjrwLPh
z(Eb!cY$g)c6rS7u#k6fRRhNB7Cu|>u^K&P?EeNnrhH{9T1}=2$$tk%CO?)C-ylWP4
z3|U<hq(3419wRp0Z}q-*K1GPi1Rf(`^1k_y|LAoCjh@DI1e=uL3#XjfMT{E@UhWkE
z7<wJJ-Wnz}uVb!MoK-!Bml&D7kQt;ePhwwQKVM7nI%^}KRODb~NzIviOE)A4OrW#8
zx1sY2bd*8*>Df;$3(YemcERbL`P8gJOVN2d|HZT`KUg)cN2@Q8ijwFH(Ux>_q`rxi
zWY%1<$>k&971YDEnN>_X{laNZ@@7m>vXAYvOSDHc#OZ<*Cm%x&xUvNFqr5~Dx;U;<
zA-;`bs2;l}6Jg3KF?Mwe$b&=)^l^21mkH&6Y61Rp3<au?WFUsebjaq!tUhVEN4V-t
zuz-hqPv=*=1C-iGXei78^vn#w2@n%Mn`em5e$d<qWt<JY2Neb{T)3cRKbH4!9o37S
zN7{qzhEEJ9cT7W>&l<}(;qdp_$WWX+5hZdAaIv(WrnW+k7vaoqY3m7SHnO9?tQcF@
zIL8wkeeA-q>=vjfQfId>oCTu+E}2qr8PjZ8S)So^X>4p9h)g3Hq5;61y)~ulD4+cx
zsj(`tYaD<4yPng9ePuTP(>YJYJjB@%2y7{JykV3q#7Q{+$8?$4)vx-9xvy=*sT0{a
zCfEO92J9h#skADRanHIj>iRM3A7-WGki+*ew8~w$@Iq|7fbJ*K=x;vSfF%)ts+<_f
z-2N{aS~XTAAPx2aN#MzR$>lLv&NB)M3K#CIrO0v;15aDnoI4C7usG)Fw5kC05c`$o
z1<w=RZ`j0bg<@9_y1o+ILy@Y$F1>G(J(eB(;P*ibPbOYfujGRcd*M>v7t7RqNBTf2
z?WLhJ35+guBi#`b%lFuu4H5S0$1TaGw^u)29aR#e!g+OI74OC2ikzpr0SX=wl3Qwl
zFa|>x6d#o*OW1{2u>llyXHYpV&W^cJ0pD2Oym@npPr<zHG1IYofQw(<`P9{jeX{&!
zvu63DJO2f-<6W<>(67lfmfH?zDaAv)_(C_7Z<R=vva3lyIvRd0;)2)#K0XDp+IWL2
z&$!o8^!H;s%>Q|b<nr(?K}}$PE(NEbo_V*xCA(a_a^(u>%m1>@;orWMi_0edE?$}x
zxd8(A#EBDQ*6D!X|7C2M-SecWp~ltGx(MYE&s$hn*e$!E2!P$`!1D9}0-K9;8P+nr
zG55Y{r48$uifZRn?{Lq<!*~+W#x=L#JaEk(_f%&VC|+88DQ->K57*7KIIUE_<=&o$
z5O675aq$<ObZ7+Juljywk6#_8;Wf9=W{isW-kU8e)ZQ<tN0Abzm%MQI-n|C1S^Ke4
z&X>)%WA1lb-AfyxzdRGQZ%p8D{DQEdLX7Gkzx(c0foEf%Na@!p3>pLG(=fEcu)L0B
zuSJ3vuT^D*w~hbfHH6?})22<wj2qveyhPc+zyRs${0<BTJc;N#(Xj3nsXIZC*dDKh
zl8o-+cNOA_*Dic-!@GuoeOpeLHS;evY<9~h)+M1RlJiST6x0-cQkr_mdaJrRLJ2PV
zF|*IQAItRHGr~bN8)%RM0&`a8&{Bm#inAdyDb6&6-HN?z-c<jy5PH}v1wrK4>|=D$
ze$n%#AUR78fF>`ayLX=j*=j)7SUmt+bbPGSM*)i2`8RUrPD~U%31SdfWoZ90`dcy0
zyTErOynp{*H(wOhBI?r*DHKkZbd_b_iD6Mr7dm&Jtr8iD3;caS)RcNzxwVTf8@KP5
zfAcq%P-0T<T_wTq{s$8)eea92vW3e?Bvzk8G}o7}*vaz2)BH!!%9Edc10G7QEKYbz
zF3-O9TuX@-#|qx>TeB>uJzsvJC%}9B64*R2R+MBHHcEjxzU6QsYO#xaW>07;L1I}#
z3DVp}FlQy<Vc#A|91JEsWp+0`UPe?x!?|Vm@o0-DYbexh73In2;Dx0eiZ_okX<6Uo
zDPBVvJ&1jZ=Hvf>{?3DOeZ@~&zaabce8U&hoJ?#qr615#>MKAa#RC}J`8jlr!c2xE
zj5Nhk7LzF-g!Vct0IWD05p9mYdy&~{oQ`y^Kn_8IbX)k~@{}~Y{pb(m(L2VhJJJFX
zsD+)}L-A@N^D_I)kzM-cNC$lJbbFrryVwbu?Glu~r(hzS@0>rDEdaJFx#I=GKiNVd
zaEEYV6n|iVm5JaLv6s!RTUji}@|Z?adV<PAXR6k%(xMbTFGFXip@bS~YQPGcb~kR~
zwN_a{XW#SvhBjhs+VT3AsM~;*6w3gy)4+~X)DFQYgXe+3(@BGjyDWq@j<9~tTwDwU
ziJ>xK$Et(4LcUQX-*m!zlp^w?`$_71P$IO$;~z>q;ng|L7d9VR_Ek4NfdH}xUfz1N
z6`g;9pL!n%(?ltho93T%T3Kj8CDVxqodsy@Fy^i;)*t$5etIYkF6C^Z*=c|9CR}h<
z9BE`jUjN@_7^N{^5v4lJPoAA-YF+dGH0d(zm7%jzBP{GH`zzIt$pJ3Bd3EBy1RUk_
z)mV|3b(C71u@n!gpQJw<pth$%-0(_-R>sLA6SHF-s6g}WYtFFaqMs{Na)e6PE5?#o
zfaDKu+yn2W4(O+-SaQ=fC6Jr%Wh}`KP5eDgn=$^I2jw$r*j7+!C@iT-GHKcCDK?(g
zvSh6IB5MZ{mLyGV1p08<FLUzCSxXe~7#)+ZXfn-bt<iRJz>Z&w)Ob65z2HJvVHFBZ
z*o5z1eZ)44FgJa&T#k5X0jIg5cgCrGl~<G$3S%hF@|cwVI@s4mqCCR~FMo=UpF~tk
z!-?XW&vuN0nw!=x5?IR)oadI0j9We83g8BBZ|^v8bTiF%Cg5{O1ntFnI>>&!kn{8t
zE~n!Zj@vj~{YY7^a=2}CrBjyJcc9G`K;KQAuYG+<&5WPMgY!$bQowNm;hUk-1r<V>
zy&v6Q9B+RLwm`ga@7h%z{X2{zJiI{tosAu0QJYp&-1{nH^U{dpOd5PVsHlTizG~QX
z`E0%0hB7MwL^2`4jwb~KOn{M59HTIPpCa`H{!}MONn(!6^wA7=koBzry<mhgxp8uS
z{1FYc2!Uj|1d&|?pwI;FAu|H|1m**5m^EA`|Mgg%cT~108X`dnYS55vyzi%Jc>=6y
zz6XoS_3PJ@a%QqtmSnjefcbExyB4A5b9@*=%`9D;ZezCB>Vq~+{L^iFQP<W2#;qh!
z6mOgW3d!zO+a(%~cdGEZM5DY15^LYZqumFZ%G7iW6F82D1H6i^-MPASn~5mLsqi)H
zHVlH44ivSL=zaevb7g5nKsEY?-GU^_>bQgL#{s9*E?y+)da1@~spgo<`@OQ$TNbrf
z=4<GFu4mFXe7`k&Xz1vTY-e}=)Lv3(Hc=`Wj3~=l9`u2}_A!%Y`^mC%S>UhSR=$7#
zZa;$)L6iq1<XQ1mf#vWGsinaD7px>QMX_40ldqp&lt#+<2=oyFAt|pT7KM+kBP=8+
zwe{c4V6v_x=`JrKpe)Vmcp-{4Xlpvob)8oXqK`rm68MwqNKN&meWtnRz4vS4G=U<`
z9xb(i&jGc<r=IxTxCo~*Q6f6h2!R)Ayq^OYKQN-9sYxiX<Yjl>>#?2q*1q*2)$(k<
z<kv;BLi@s?hf3cUXjWKvBTTXo1wN8*<`IBw)_a3%%Ea=P7G_p**q0B3M#rh_A1>6q
zbg8Vh+Xnt=C&*j{g<|ZbEhsHXoHW@35rBBQpZ~7kta!Z51@cGt6J=kFp81H}S*3fc
zBh<y%Jo7sm<XbJi%D)xVDeyv>D(ciU9~AC`x{P2GtqS+~;S-3orfD7n6jkxg`0Lr(
z4o}$PM9ZQ2_V)Ib<&hP~-Vd%M+(y16Mz1u8(}kQKY^D6tl1ik84R&GQzin^zf^70x
zt$<|rs%Tm$`|)eGkIe$xGixL)EsZ!yzHCmj972HQr}*Y@8wvk`h>CvyE`h!i0(bG~
z@B7#zOjw~M!VUX#oy%&uaq(@%c28uojBeM*8+3JbHP}rfUqZ(4wpk+V8jtqe@7D*f
zkkokXgYxs-TiGS-%RiqdTt3QDr?E^rX)wThydmN%kb?&Bfb^o;P^3?1JyOShu>b^*
z;z?+5i_tIzNQLnH)F0H7j1lFAiQcvaJ4n7{6|)}o7rqw>@)S}aeBjT$_Rg?zWR#W%
zv{yE9$_I(f-P2xByVU_Eqx5*k^W~)lm21}&{e}8oUr`KeAoX+iY9fmZ3vE!AIAHs`
z1kcC`WK8C6SJH^S@uL)+fQiF^x?2%rcS)dKsrZZw9YWWcKSxUk2{*YEmD26c6Pes@
zm9?O`N%E!P%fVf<x!TvX5UBsMk{kS+W;H^H2c6dl)_g8>I424MZ@VXsfTce_J_VYD
zC`9U(fctQ<+-$rW$%n^Up>3zzb;gPLN}UWEg&R)C964P;u*9ri2aewqYQpJ)m^x%@
zq!ruo`>hEzS}fAm5FB<Cy80>v9df%j1$X)aC}_Tc2o*~B=AjzlD>MHh`$hDF)1^ot
zEB#cFHC!Bt(Ou}^m4{OYB6EKc_8=l6Vk;-=cR%oFxYB(r>xG@N&0a(GdD^US6XLQc
zRJC%tAY@B=xn%``&A#FMi!<E2DDPSIFEXnTHzWX7H8f)4W>Z?-KqRkXW9I-Q#E?$=
zG&N9tQj=u^SZ;O3f9b898<0riPapjm5gdU^wfVEA3ISrumT*RN(m=T|D^0Couy~Ca
z&5dUVeGqJGuE!Gg{8@x{KY$C;b4$`0O8s4a+BBT@Lpbhozs$-Tu-BJsbeliGMLR8a
zuv-n)Cw%;PYqa%8$1jh2_gP6kitIh4M)~U1&hBo6v3m-0)==I`qt-@ZJGbI<lNPX4
zuQ~^2h8nB}Jj(QQCJBk*N=NcgMwtafvx<dl>_KuE|Dd>C=_16{&6{o2rIsi{d1=AK
zr&ie-wqG&m5WI~ooCS5;D>?qT(v`(h7USeL5aD5=p|#y5Ze9I|YNNC=5>rmME78Kv
zY~(a-OdeZxvxXy0bosl@<PS+a;`JW1YX$A+04dzUdeR(x9=PvWfQVRxl{0-6+%D0`
zfdB%bu9`olhqwWw<=bm1u}TUGWjlaK(tM7`G$z9&$-Gm$mwx5=w$|-G?!JS!p6GsO
zV$9n5PS9o(NIyqdoaN@3%q0D?k6?_7{e^j4yn=(BVDD+cPC>c&4;~C_I5BpfPdhVx
z?CyN7=FC9kbW8KQX_j=o507MjXy1CWWtX7Mcqg3IV>*~T5v&S{NtCa$JHk|M@5=zM
z4ri;=k)-+$CHCw`q2XXT#MSQu?~2{rkMh#}!-s=|gIlI=cXoEV&?RPiYhT%~6cObx
zbdOZ018>5Rr{@OKqVQh}R)d@*40Z4^BekX=xVQ6Hw4xIe6H`-Djg^yTb}{VOv4eqO
zpSYv%`ROh8KjCt0e;*7H8_iw^7E3kx{>^sJeG4SnurMqNmp5YHBkJa)MUfH(B-dx}
zp9xQrg3%`rpw2tjX11~(hF<c&RI;IoE6U(q>FAltlim(Rs5&|>qZl0}sf^OrsJkY4
z1URgvJ|!o$m|J<f^a73`3yjiY)Q}VJ3)i&s@QrMwZY{09!_kY9>ZP%WC_!0Oq~3rA
zU(FiEUjF^Sf|v1syj%L!3=WFdLkSgTtHzBmDc_@u-zD*>MspPUp}u?M83PafNL_P1
zXy3y)0YWwON}D_*ZUx2~DLNhj0f7St^hXVmYJyHNB~HAUd9C06Y~QkV8DI`FBDuaG
zHlS70X+T@QK>vX3QVzdH`~^FTps6`ctENHk(s|}5*=S`TK6jyWlR-=gG-RAMl!!gT
z%8cG^-*4>PQWjrbyanhu<fcL64_DM?I`2RKI-?4BXs-8@=l;1^w||p}eyRswMmbgn
zKsf}iDz+$ndsI3IVVPi+bym$bJ=jlaYW0>Nab^GHTkEK31}j2J;WyHzcq*G5vxXD(
zU0E$vsoTIVz7^E{UA=&74c}liVQWZs{Z>&-J{v6L@?6hK%gTb2`iN77f{5@^g@FiR
zS<ZhPsAg1jM1`E!8RX7_Le<|LH@(%q)W31e+8%jyxA4E-W0ETqlA=TLSE$=!i})8X
z_kKx>oUI~UC5lcREG_z@m)s`)cr27yWqKdiUWyA|`hLnj@Pt`6NFHfwhlS~;I}a4k
znyCx|$#3O^wcD(&{p9e?pDwwNQX2|r*~Df^|EH;$H17X^|GDba19QBYKlui%)l1n<
zB*v5s7a>Ed90;jQ$Npb*S|M2dF_V^T|CM6J;xw1c;ZjM$<a{i>@y?0vZtk&rTh=(s
z&miaE3rQ|uE7PAu4j(AJAL%bgxPc{NjR<*%OAUy)#Soj9>BlD~9(!9Oz{j@)+cN%%
zeTi8AlY`MY#7gJTh#CUmL3cYppZAug##wxK|I`*IS_-Q(T*w_f*pOs`d@>P)VwIA@
z!d;@4gMUAqCWvG(CSS|E?2Mb)IMgl~3b$R{NTkX9%I^{3>PCjN&R23lNH>D7Al!Kw
zS51c93~pmcj^%E5ny(0!rY87?ur;|Q*pg~>6IQrBIRDIL6pat4w=e^Ajx=ZBfhAHK
zu<9f)eL6c7S1RGQv;e{xa^%4->DZiZa}EqPaw0=}UmU-MOk%0T!XT+N02cxkw8H~o
znh&?sq_4CvX_{YZ|8X!R;1%_#g}Ogta_2!578R%w7k1N?HSs~$@4ku<1d18UR}f2N
z%=d?T+b{7%r3*?*uAIZ28x%{J1Mt^4^#jiY5xLs^K)T)DLX1tRabyT!QDLv9CW2^O
zr%{hg?f-`5BgG1(iyRJvF5*@Ri9^oQWGNJ@#avN5(dB<HGNte9J6JvffP}5XNDv75
z4qvgH0qhq8{ei-j;qk7bkt{fdk*uuYFnu9gaI(UxIq2G9ypWqj)VK|0g8Xyp(E9c3
z$*$r!PpUavZ4{^c4K4Ni<wFb3P{$jQDv8U;N={L+Ue#FaON!#xOa(M(!%Y|2LQej)
z!C0vK5TO@9D8Gc&#&&F15*s7Y&iCta%sWzOnT2{u&Ixw}CMG6uqoEGM@=JT}8BgS!
zqk1J@{Iu#3%mUWp1(&hZN+oFxA%_!r^{OoivcUo&A|eY|y8A%^=a(;EAjI?SOj*ax
zd;bEKXJXsQZK3Fuv3zz(3_t*nyY}KOP+mPHfwaiKkiY<XGl$Bbh8sO7QGi#T$F_;~
zefCE3#SdX(khmS$(m(+6zL4N%=3vJs?uHY?|2D+oszL4}Vi{X5A@XVb-chx*xnK|C
zQRC`EUoN8lr2Q)s%Q3^y@89K%w$z~pDD?e%j=~pSFTTge3lSP|ELFhCKRiA@9>c7w
z4)`ns8V_@${(#siMbcDOcJ*??yK&zlqpY7rPDM^rBZL+++BF^V!m?rR)vH%%NGC0L
zul9$}>(?@SUQP|vgxGm~-{Em~yU0xBw{I6Zn1>JR-FXSl8&tzQ>T3#$E%sgVR*iXH
zo-WtBeac}<_cjL=#h+AzmrUaDRid=|g7&<_1Fr_fY3WB!>vsmSY-D$sEc@gsQI7*M
zD>=bUVr-++;K6iWBPYP1qOr}NuC?a-b+bGM6?B3+Zs+fWw-QufY05QT<>GyKR1%93
zD1Ih<%AbnCqod^Jh#PlM?Ty>G9>y}~g@6zRF^}mIRUS}NbO@W}_0pe}<U3U&)T(ZD
zRI4ZU0V){`qnBfZDHBwVTW4PyB#sbDb0(N@8Pp$^eT~@nbN9fWvI^;6Gy}+v|B|kv
z_1k79kWTt(-tP^;S`|iqBtc~Vt!_;wR*PFRVGE@)&QV$GkzF7RlJ`D4ruh+v5xawL
zk%|@|6KO*(4Z5vPDD~CUqfRCkj>PM`gcWGj+s<ukoOd8;L8;@YqYz2IGXw(K8$7-j
zD)%WIax&!hqnE^(bsK7H*GO5Cu)4F*J87m8riu|^4O|DmR{C*f4;Y**qOIOyyD47M
zHc{!XkE)QJcEx~zDD|^6k_&aENYXAjt;{%)=nc2tGA9B@R_UsJgxj+;n3C&-N|~hg
zeci5joYUnnTs3lq)e?Is(W@lcKzyEE>)w|IaF#66swkubK~UfNlp?j4v_E!Xntp!&
z$yVoe^t6^RkBKMH&PZ2%6T8zzctg!qHhP;x6>x#Mr&NB`S+EqbIuP6B<Ya`LMrJZ#
z!X)@S)LBVyi3aWzZB0!FWO!WZK(RG!a9#Hw+o}_%Bk;iqu#MT~7@H?5`vwVZg3D6U
z)TGAk6`oTYocLlILMXpMkZh8;x#*v)2YCT`_m=PuzIES(jDvC2gd(J(t|3h*5_tPL
z6p_GF89f4W-zp=i@eR@vs|i94p-%_va0Oh5e!R!9FBL_IPCMgUYvDPPy(xHr7zW7b
zvksE6%CC*WQdfqfb<GGBd%eWXl%k(?_wIvW>jRnn+9-ac=wwy?GYi-ZTe^ZMihzTq
zp^$(FzX_T{JO_Dxy_=e%{|yv)snR(=ei}l{YRY17>3+W2C#NVjmb-p4BSOcS5$%;Q
zf_p)CAURtLR3>8Do=Xbj)<<b;X-VK8Z;$F3*GAtAc9<r_rV=oRDsOde-F~GYF&H)|
z&JgB+%w0aJ@>sTPqzqkde(vP=OPNOe3Ylw~&N_Q!7Bp=~kPAj|*DomwjsZ#ut38Pr
ziS49$FRZe^ok$umoyV@DcgEULfQ4`WfGxuHPXheFoRIgk`I*T26QZTPbA=dsU^7Ck
zlXM#if2Qm7MDA^&6!51^^mJ#<<CaZHYn%G~;C79z*h&66xn4rZ$k?(A->uAomp)o5
z7PlNnyannE9jD`hAJdVGk^r`GDN+9im6yqI4!Dph0zLq4b&_CO{7(|R18~zR>NZ5x
zHt-w%q8lkX?zOQ_)u?W#J-*+v(~o3Gz1HH?(N4(aJ}8N%`#D=roM<>6%<i5C1}F8y
zY1b!o1b^Jgm<0<3>289E0Y6~J`COubR<yy8#;6(sMf0dc8g||W&pHQ`21-F2bd=lj
z914A~)g)uj=1GXQVt>RoXI2v_o@a57C48>GW_2RWm<Zyu$8=9<*_&rcW<IPTrSHz4
zH`}C-BdQqC=4$~hijGm12yr+z9<!N=e+wre{R~Ep=TNcqZTLDx-{g1V4vFO(pAF@R
z<PIq!8wzN)dX_?&>U$oNh^^Rm43!~|>1f~rQ7Wj8a!w^=!@vc@r&ZmsBju$(G{@HH
zyCR?SRg6tD?Ii4WZ!NO9FJ!sK!F)xpXIEEOCvlOlgJE1F&=ur_&^T%fQW4+2e(i>@
zNp5?>Qr~?a$wy;iJY#hViQ|{tD0#2?JDoJlmj6`y|GO}>x9n3=$`Z&6)WHIzsY@mR
zo)~HEjYc45Jkhkq=>72c!+?N*|GAdR%jhn%$4#>F@7kB8B~90J$Ul)}Tbn4~l+>ax
zba$&22V1F~@rB7?Ice&##l`-kS>6@8A)|H7-QC^CW+Y;{Djit<6c)xj;qz7%SuMsB
z_&aj+V6?7WXvD@dc|U3%d?K(Fs2#-ImjqgK2$u<pIU8;(@-mWgVUS{G^L-&81d<YH
z{S5g@xk|n#yAxPHQltQ5)7&kAbtVHuo~F)cvonm-vPa0(78f@&MXsi}M8iLKE0Pjr
z0&6*4a_z=h5P-G;0;Nt(6CDvv&wZbOTGB68&W3)|E05~<>D^RwbUJ&;E5z>E;GL~j
zq4RTk_wHmdNK?nCHe2!Y*3Ot^o#t{hfAyTTy5;Y2$#bt>dwb(biGIbeS{{MC?&6K_
zjy<7k7xde-{(sd1*w~CYEL3d~JJx(V$y~|T4Vi%xcPm2)DFluo!s<2HzeTXLupqVr
ztRMOCPeX*WD?ex*NBy!Eza)7246+BGeZF&>d!7Wg0p6#LutL?Mpwv20u)7RDhkPcv
zKzb*`8eAszhv?|&AJa1a5uu^_^KxKah%8AWGDhB)@QnhFWA4TNohxxxJ*JnGm)Ntj
ztfqGzJH>cJrZHQ1N7B{CnXOEJ85NEyTsfK$BwuWJq=?bXM&6EXUm35ksY3ZbJZE;~
zUA?+vo5m@bQ^#&jr({V+X4&kQ`e!&h@L}mf6?@}Rz2UhB(qp1MjT6|1Xx*>5X1_jV
znQ6;OOP}FW+r&akarU5VlJhgt;8r}Ir#m8(+iU)j$M3VGA)V%N9z(;f!#lTV9MbVI
z_8DKAX<=eyR77=2YLf5*Xbte(Z9_vD2nX&m|10UMo08DE>DJCWFcxKHWo~Y6RZI-7
zBb)4R+-Qx}Ekeb*J+u#KJswG^)2=ig%)+mVx`2T*?J+~?wKWrnzqfAL^1ZS+FdzUS
zLFHWwH%sH8jCOXH{Jgx!uC97|dOSOx!9vlni6#Fr9v&V>^ugC;EcjN4SwVMg60@7k
zPa}uQfhlX_th>l0tMW!x=8NAr&+m71OHM3rcl7Vh2Pw$F@7y9yb;}QcQhxv5J&%4k
zpRoVdAo5l_(ezA5ZENQIbl@aoR$}sr%DV~EnddGY5PbW*Va<yZ-vx)2ViZHRpQKC6
zJ-j7pr9ek;<8jwbkEKID*c{~d9juks9c~b2-j_90lUAkY@UBvxm&78VPI1TEa$(v?
zNvRaHP$?i$XTi&E8bp!L-P}@~R+dSg7<=;XziZjqgCjN5GC>CW&dIG$yIzltLkYz(
zARPKLKadq7ackIBe;=Q&!9jT$+YCprF5-66lM@pi^PfXPlF$w6<_GKIeCryCX2A!N
zH~}1TM5UNUs`<fv`_6p19Cr0vK)~*0rzi;|Q4nKDJm{2FQ}h4y=~GtL3Qj@Xa!_@m
zgS*I20LZ5h>`JrKibIhI>8T;nNEAs&_+htRL=*nUP1}L1H8nKw$PyJTTXISYoQF~O
zpSL-#v{`tI6(~ZX2C5^Fvd=<9;=NxXHobum&WKK6GP}W#wa&5nly3606i|x~1(77@
z%X?l)NePMk3l|QR{iv#%LUfF}{5!fMgWcUotK<iI>$%-CwXksLW+ep#hP8A|Oy^{N
z{P+=-G3_4`(o=C#<Zh)ty!@92vj-0@<X=2`^$>$!c6im@#rkk&p9^0u9&nkLRNah2
z9FCIwbJM3#M=(%P<#C9k^HUwcT{B8f8Cu$5r9TH~E@?&HU0@X4`BZkK<-&yY;iU;B
z9uZfRp3QP3-wg;1OktNs^An<?N4Gp`*{i&l-Yxl`W__Ve$6YP`v)wzCUI%8F$?q==
zE}Ji`xX1B|(4N{^K~KfR#g`Trhnv!@X0ey9v{5)B#E8D)Aqww)DW^}5kN^Jjr;%9K
z3_BbHsoOnd-r?fnBKxJhx3?D-SY6^0!>(NhLd^NkcjZ8FCvkAPckVcj{-ElXzza6{
z4Whcqz6zzllX(vBZQ6c5Mg(MMV}oERHTFu(U9hR)*G#qTtgUtQ^i-y4d<6vsk-qq2
zG&4OlRa{ggO6p`f^0Q{!-33G1-y#cx>hzxW_Hs-MxllxWP-AlM9>LQgetw!QTg**O
z&&$gPh}pzm_<|(x(X6tjCPI6HAJI-S)=ZFCHVm9#0jwi+U64(hU4oxMw`!Ekp^9p%
zuR;$ehAI$c(VS=$kI8_C`b0m3dU=_vK=I=(%gAT|mjBAjo132}r0Qly-UHlr_;r<N
z$pe4`7WCf1+$a4;2UqA<9Dg|sH*d=ew(fR#Gbw8SQ9)J~p+LsvFfsGqi`TAIV=EvT
z$gj!CV5bh0&7p6E)92;n(wtTtwX~WM|0wLQ0BB1-{e!2$qocnc0lRj@HM`!woJG^D
zqLy@JsMz?!*SNP4a_8GbP+e<lD`I=pE<SuJzrO-okKbScZHk{f_@#GeRvk5(ckXm!
zPvc@^q36CnJ_#_4d(;rc_c=5&Y-3`AfwcsmgHQt%e3k>%#X5qdUVeFb8R!KZRwZK8
z<cZ3kIXQCaNpM=s9$!=02b1dC`WyESH(nXu@aR-X#n?*gkD8hpTn%F4*XXT_3(*yw
z(Ld$Azstz#AU{8GQn;JBVarbB_vCliZ=_HXwmw5BqnW3pd%>|m&qFlk)tl3$gF1ut
zIlUd~T}SA*Z)as?MImGrGTHa}=-qU1jR{$MIVB}r!;iNYs;#OLK6%n#o!-jad=Y*y
zHZBe~A6CGOsTw;+-4KcU`}gnOb1w!V?TyK%8gjO_wi+55sQr9G!+Lj^ar^d;*4Dp?
zM(RZ~f?MKX!m_io!7qCPry~H~xN#%6A)c%)*Na;(JO}BUo$hu6i8U|~;1Fe%luXJ#
zp3ybw?dnRfnYhF6ZDDR6fJ1<r;G!=~G-^oByAgIZ75W3I#r0KR>yga@=~6O?s~zg&
zwp_c!$FPHoeq&PI^AN-XbY)ObKK4w$0|%1L`(DZK=UI_oc=P7X^XJb|0GR=fxS$!A
z;1h3N?;6Q^wvweEuzynbS{H}8JcV-c38s#O`~&sg;^CGo?TZ(sWcGU(#ya#@hIMPa
zj=S+=?Ve{ZUL+1)|6zOwSQi(Cv4-ya2TpTcOuo7~KY#u?qlJ6DS1w;xOEfg#*EM3K
zqZ@^vW!$kNeY*Z0%3V%DZEyoc#qD6|u}0q^2!k41cM{SAC;*DvR42M^Jr$L@gl=m`
z$7va)hk@I}QeN_8UYplv8-7GPeDrbu?F5EdXroDE@)3T1LYM)l3ci)+E%KNDid!p+
z0D*r}2TCikan8=ppp%JygF|Y2u}3}T)?=+G_QN-vALXnpf1zh!&=q`(pVFy9DnIgZ
z!}1Z}0YRsK`&Q&$;fG^t_tq8Oe)ZX1M&?$`Nv=P=FZ6OL?`du}iF+&sWfUBgV36zA
z3pjOqu*@|``D<n6Xv&3uW_Iuv?ccXg6G;G&fw+?6{^AAygi9-;YCnAgNDfvHorTfN
z@A76CxzpX(w`=!qdl)IiXO9}FvxkD6x_ngrIAHgcWB?Cze`VeH@vpYy+&)O>Q^Yyk
zEH=mHkX~bzbX+92K<2vqAkvfYmw+K%BbEHxZf4cV0cAx+;pVpu8Y@jJR2{y1XFDNN
z33=yPdb6e|7G4nqMk$kk)?%GruyR`oiT9BDzIFRH+`Wmmb_<J$aj$tQ=zHvDUTg#W
zp2f)~@F6M0F?<aP*<OYK`FDCmQql~mzdn?U-{j#qZt&pMVx{-FL7}A$EKA?U52C(i
z=~h!eOWKUBW!A_1_6pOkbmMWyl3J_xRX=T0VZX>v`0((!r<q$=3{{2K0G5Lmk()Hc
z#f!eAh1pr;kzfPz1Kz4czxx6e!~-Kx!2&N%*jT6)l4=26U+?fw*w>%BeL2h=>1$LX
zs2uX~O&fkJY}}X(c;x`>kD3Per{u-)5#?+so!PQmKVc<KKCi^@WueZC7cZ&;v(;}h
z_!pI?3}ztm;^gG?jXHVagsH(I#t*-5W@0h|Pqc+uNH**$RIoZ+#RR4uzZ7FMC)~*f
z5EB2`3YRR>_A6%XT`^);5mKxXR&B}j{<{sgPY>Kq3i`g-*VA+KdDzH%X6g>`oc@wd
znQ9SQ@%m+DpUxrAJ_|>IgoDrZt3?5w>g^Ati!53<S;plmUu(#6$|}^UPch@(mVvn5
z*S%0<?Nq#uu&C$)syn#%B&aPRS1dl27GVl|^vuo8X0-K`jt<#4SYStR1IU)LirdC7
zid;MQ<$jE+Mw7D1Tx2#b&zpreu357NF+y)clEC#vZQOZBVU#t9Zzuc*=u`aW$S3^q
zVf|TLJcNA0p)4gGozGpmk2Y+j*?s(C9SQ;|h5-izR8mHme(7`V$#CK^D$SHW_YdVp
z&hEf19s6Z1jc#8sxu&<X!x=ZSitlkeL(Z>7X2-5w*Ka8#|B)X-ZJTdHy<0Cp0*Y<u
z-996j^clKSn4cd4qk!LuI)UmkzihwcbxGf}Q~%jXK0!VcK(G(=H#-{}Azx7MB{pRj
zx$R`&FjT8CX|TVadG$4q#Aqf;um~-J!q%1LrQ$$2rU1C&REv%yJGbB_lCqt3di!i7
z`AMy3y4RVQ`~YRl>g+Z``Ch(!2@@prRvyej=ZW38$ldh#qbY^rlRGagoPH#~GIAZy
z(#p}qGkdOhch8?U*_k#S`gSLzK~^U4<kIb&t7>X$XV0GPE5YqT+r`-!-6G)RGcrKC
zop&u%zNv3)Oc^6|1Uv;SUEPP%R7EN&|486B4<=bqVvz;mg|xz^p>8ZmMhHx(U~pU1
zc}yC0bF|dd(He40ZZeoJ_Z~Cr#<%vUBTuj&K`jo71NED%lS?Ij+o%3`HoJcmKTpK<
z5zc6KZcaSHQ-1$D35S#0t~-z)q3hqY!($yKls+*i{N~j+%i402am{6=Z^E5MPUpBB
zH2f6n7Z!dR^}$c|;lsLp;Ym<E{@~tEU>e^**fP-lKXu;$O@jK`rE<ivE>>5$_u5*&
z>=lH|lcnP$yKyN`QZfswOi#NPx7~^ZPF&$-TtS|J!95T4IK3@dP8Tlxh9NI@Ky;CG
zr<j?CEnDj)i><Y_(7kH;@G2a+w`h6r)5}+`fRnzrr@v~T@Zd%q4cAB1xRnKXKqD0c
zj>k;;iz$II-Ul7$7-&xXCv)Q>Hp(p&``BeQF*C#c@%8H+LEs!Im1hXp%Jx?MlUk)G
zF1C`iL;DKi;oE!2k8Z77yOvaQq2LKCJ%($@5JVXv+=?-3NPH{m`uH&x3-osEZe>AU
zUKemZ*GEr@`OtHoPJ>LLH<IWHW4v=`frI9)6*0YR=QYUG6c!fxdcZQ3{`mvX{^CTR
zI)I!8{|as*qrU2ALOQ4iFb<;jv-iK;`MR4Sy$!Z^=M%T5Pw!h<&CJYz&j>?c15rTU
z|ES%xVPq*P^I-o~R8>)uk&m1!Mu8*i$7STkMfFSe_F~(%?mV2Gn#A|eWNm4coq&V=
zt&Pxv51ZIq$PfPcUIgcw?T8SzAG9IrB{4;KtqX{bQ0r`t_zo3!u~$MAiBL7lNg~zw
zh>G?>UbMKF7=8uL0ybuNFGY@F@Y<cjGQe~qML)amXpHY-n#uaK00rH>ZChJM$L*BF
zk&%%s{jxoQiXsm4=HXGdReqyZ3809Dk+B+Ej8dDs3H3moqobn$Sh8P~ro#^Icm^>8
zg*HDwzn_aMK+;L;kWZv`)-rA@#Ty^SMUGdpT)tEbDpXH;o})x$3b%R?jFrR7u2@}p
z^1&%+J4vELmNsnIpp|_8Vd?#U3knOj_4iyRk>jB~hYlS0+h_i7?v0VFhkT?zSl1iu
z9+d~Dw&&$j-8w<`r~f{?k6$Ly7s|^k4L!YC_f?@zNlA&!=WF4(%I!jPZfAKXSKbft
z#+V8JhdGDr2E{~Np$%t0#n`U>-bDhcu1)_dpqltI#dg3O)q`ecd-r5$3AFB(h&X1g
zaEO<8$4M9N-%+m0y8lJdCrsOA=E8d!2B(Ff6SH$Y!KnUo^0SdoR*Nvky>l%3TeR;o
zbjr@ojs%&TE>->6>Lwdf(Uj?s2EubwUPaONtLJat{NU$TgCk8@w>F%%g~59G#4{lM
z*Jk|-kdx%eX3I?*2)0>Iw4QSB;DH0RX;x7(d&njEx2&%(bfGS7+xG3=Z{J?8d#9(P
zqdG&e3~%v5NO>J~tlxt&wqJq=P>YCE>zlmL_AVPI*^r;_`c(S#X>u8a{@lS>UW6aZ
z7_5KF7Hj}0^wHfk6w3Qysj}k;b2fb{3$5rwNi4S0m4>yyZ?5uO3>fNtJ{R`x*>lKZ
z1s7KlISF%dxtP4KvdrmcWMgZ_t!x-}l^H4f?bcLOuGq5V)KumzPfRlBe&y%q*VOpg
zg&~$`Zf*uDb)4+oW)<%o9?mo33|;Tvu)0*9T_?>$<Kia3X6&QK%_6zqeRZg)Lt)i-
zjg)fxNV_xfxcbe{U-FEn;ab+s1mN5ko}P&O9JW5s6M4w}k%sjo7dLn5+oP^_(tk8=
zl8YViSTdDRN|fH<XWfEVRH0ZFYY~Z1DvzKf4n>Yh=@}Uj<q<B<&XlmL^@x}N;Vtp&
zii;%({6?pzmr=uW$Z-W(d{wKM>VA>$*HCR2B<bX6!Q|C3DxO<XPE0-Oh5#HZD=U$A
z+^^vO&p-c|57r*x;>wLI4bJDZwA|`iJLYnFa5jh2(!R3n^q}fB8+}QuK`|b`aP7B0
zdunZV-^$-k6VpM9=N_IO{Bw7S)AHCCl#YKYtBlgt?v)yJF4VD|9leQB_R*i;x<#+}
zh`*45;Js>Io@P3n9gQ?OJ38M-tFOP8YN?RRN3Ek-&Y1lQZp&Q!5p*}f7U8)Vazd2Q
zrq6}v$FIaR*7!R<@^HK+;mm}M8Dwht#}R=9_#P5=Wi=4njU9oVdDU|t4<zg)J4cZ^
z@%{eOCJ_7eiAHJQ+Xc0Yi;DwMBLweVQC>dl2^R38`UidZW6En!leM5|uE9v63IHj_
zjLFOPIyyS=R|qiO3J^o$!>(1|J>)`sH)WL9e)}xB69>`<^<tl$`12s<&zXhq0-obQ
zZ^g_aSb!<~jjG=7bb^==-=o!*7uQ^?l^z)$UPg`A|Hao^fK|19>%&{cK#^_*6eOgi
zyHrBDL!?1cL8Kd%PL&dn7Non8P(%=<Q=~&cQY1z2Ki1xyU)=lMkLNi@Wv{)~nsbgh
z;vMf8^9WM(iU~Z^u`?cUBPhcMk;F$fDIp;tfU?1+I53j-rqcFFACk!$Dam}jLTs;i
z&1rrH<gMSI#}=^w9~WSeWDet#1TCLFL4*_}nGRVTJ~6Qd040VfVVJ40H<5WqWkYS#
z21Aq;SYT+vSoYv6ND*v_d|s^ocsu(c*{K`)wMcvovj$kSn}>&tv@}BBA`HI9&Rz(2
zg((LBu&iAIZd!2$Gu@dRic`Flov<T>oL5|-T?VZ?ln6lX8n(3f;Z{FHqOdcR-u5FD
zgeOm)l$4YVog;^r<HMg{z$}Bt`AIA>4vt6AIl{eu0wx^*Atd^Da+){z(UaB;5osLj
zU8v}J85ITF^bmx86BlmLbd(bsQ|FBqE>t#g1GcA}-1%k>V6OpeMk(U@C|LVG7dR9M
z{x)8yFC2RxDQ`fllcu%fM`KT7HGs#CIIIXxvADQbE(V<qAQN;5*$#+{yQg8WE0-{X
z)%@9+O+-W#BR9`o_t~rzC?pR6`9@1^u?^xApir8hTuwL8eyzI;L4zAE{Klvev6axg
zuUMDL75-#8i@q01IYu5ysv}%GpqpztzX}REm#KC)XWkup<?5c2nuTk98{6qOz_P<^
zOni=Fly4-artadv`4!D9Af2HKZ83QgazCDfXAEPWk$>XeB1ldy5&99nF;}3H8I{e4
zd9$HsSkO2vwYE)(S_Ul_#iZAu{24WPE8+Duai`Y@l$d9VqklWJ+nsJNioUJ&1SIo?
zAh?B?SV%y?)z!7!Zqge-hn$?8TdmtT3{g1%-hqEoWaN|4I|AYi3?6M84Zf4uP@3l(
z6T?h7th@*Xn7%=6O{KR2Rc=Gs)6-|qZr{3vw6i???SzMim!uT;>Qyz+$dFDbw6wPt
zQ5|J~ghH?h?r8PX!xodDu#&)yi+%Z0t>DSmlbE;sm_3M$&Pe!tSXL2NnL+hSwe|H-
z+XeQD2FLC3x?S64$6KwM^#-uOfGNRD(ulaK6lhJ>I<Wv(2e|SuyXtv^kV0cA<EdtI
z1uzm~3ZRcHPfx4<bP1;tu7sxoXGUxLv^m}LCeTkhk-ga>#TSstdhk)RBI_W=CS|;%
zHhl<IkV*gT<ldD7|2NU6YW8nQL3>i|g5B<}t|Lgok_YTV1|blShMiDU_BUvZasVJ9
z??fK{3Fy<l-T15>(C6ST-N?%Zh@+uHCZH*rKlE{$6%zT_goK1RIZK4nOR4Ta-3Tfl
z3;lT6v|b**?eA1c4O{Y34E@VhYp-u;4NH(uPfz1CBlLW5_JI_W8x_?bXXtI^y$xf7
ze_Ml_1}O%p2Nr_t^1<$Uq9JgqIhr}3CYryBJX{(Q4FSeb>M7Ns3J6s@2ad~vpC1;j
zHK0x~Q}V6c#via~g?x_Q)gbL&zVGTHTzHCr;E<3Rb{{|)0*oQoO+-M@n|kw<j7%#S
z%}8?2r^}B31P53O#Av9uw*=x<5F0l8Dr8D@ic{g=P~Qhe7}OK|$A8crNV(;H2(GOA
z&I*LTtrY<9*Hu>o08ALa58(cd0Any`X0~p?WPhW!1dg+uPe%ndA+pPs(e6TGDf_aq
z^xdz*G8QJ{?QQubMvg+`z|@2{V2F_u6;1i`6r%dY(TZjG4Rp^C5fK3m4Beh-$jM#7
zMiw>$C>p#7;?Fg?0CNZZQ6z~kU9zzSe$QB}YhmN9v@7XbTU!8lL`NWw{@1Tx5%~5%
z8n9yC`|ZR9THoqDTwdG(CMpRb;U*w20AX5z7KV|6w*WaJF#Zu?VLXj2baZqa97r;v
z!Fg2|tQ=skfIR~!Cg*9rfq}LoXv8PRW@cy0Oj^!Ad(QzLaa8a(sha?D>eRbefa3;6
zsZ(@(d>n{xRWO~vtjhJWalWbMzY8rpMq$n+XJP)UZvYbXw$F~U5&Da(uppXHBK-5f
z(kx4{&q3>JnRyohgS|cYOGLT_t2JL-$G4p5n4lt7$m^;y5&!)86Vf^Jx)3z*ntsBm
zH$doDjUch-{b_I9ScgJifDRS_?Ex6ijO#1Za0D#^;`{voIP6b@BxzO6&CMaQ1-%!<
z1R|Z9+SJj(!ol%82x9V?)zzf<_^)7`kPgaeX=$MO_$O~(BOHXBLHpz#08Jrc0VSZp
zJP2UU*^88p;1U2$9ZB%Otp3{Cg6!9ghP@dOpl0~_@S)m;&EVaujxT^rEFvi*xG+h?
zZ4<z4*yMQ{V(}9YH{h#2dQ?0g1peUnZt=gKGarK?_4x&SQ!_3_upO2>-msUz!;ck(
zfCHh|wSM~an8s{CPE&RYR5Q?PzQ3&(0w0|EC&=Cijr}KmbXd%}5Hc8LH#Y4<LnL2j
zmnmNM?ViEfA0h;RWW09G@yAx9AwDpdgO%PU0=5k_g^v{jfDOS&Af5u@fXE-DS_`&o
zjfRMzU=64uNn#|?15*Pf9PmV}xF!dRBba3JfUC6N+rrX-kd8O{_<%bF1OgzH+fPD2
z1PE^4D$^Jm8j4K@fuMjQ)MO?h5EK&XisxPcUlcHHc*<DU$$vq`x<h%wUcY$=0C4v0
zm<YD~ABgkmVe)^&)&vv*UjZP2L?>(#NXL|c{e)BvfHD370kJ`=Kv%tz4!-r!3>G!o
zLb(#mFI?YUlSJ$glZ=YW^ZPqWl0JWao+XIMcJAW%0`jgX3D^eX@CUXJiTr~p0`}<;
zrHrNLxRHs*HQh5W5Ov=|m?0nwpCYIr9zKLQm64Q$;*T15EKCCgHXbpJFQ%r9I#x#@
z9V9sbUAsFLRxj~dOG=)3_I^yQ$Uu~KwALxl;BR9frSsYtL`^;kWr!;X$sM?HNXrc2
zvoly&p5OyPd<>bjQG|gD&q6@0i13a-HFy`S^V$oVzPY}a0P{u}fOvYmMe%xkjql64
zDX@KBsT=XcPFf@c)<x}6geHtr6+EJ~3jQ@$uKUp4y;hQTdT5Xhq&*_&OJorcCN06h
zf!~k_r4K+i;O62ofNCgUD01O6({HeLeERf>3y1sBltjmYfRGRrv;evw%i3W831m=F
zNXQWpfwcYtChE)Q&o=<Q(we>mNy3VEa}m|Mo16aeIUfIT0hq@vm;Nsx7+lkmmFA?0
zg|#(<@6`}$?1A}8&&WV$Jh@WnjDkIi=CAu!D9;n_fm@=jjyTghXAzU+*Q1uRH&=6}
zdqvBV$JYIox>6vYTuW8M#R4*IH@R!C0U6<sS4d7y&eTq<udfeYL=d-mi0LT;rnRPO
z&Q3vyps%n0t-{6yQehCV02O3qWd(pNE(cv&6Y?xrS*Yqr<hD=((mjYcqInQb6ODNC
zH-|2oU-@`NP<rRGGE$-p?kAud1Ox<QA0DZw^gtT-ON#KL;NAY@?l`$js40pE6jd$f
zGSJ)Oz0A1cGcrt9m8MGk5idy&4RBO;+DzpT2M2js2TDyCD0_8|%CXAvTlPp?BfM{6
zaY=ra08+sxhM&}JZEP%prwWz}P$n2f4fh04ZKRN9Rhhfp5aoIRBm#8k>r?@up&ek-
zAkC;iTDO%VozbhYmdFaYQ@x3a3AKnTJ_Us!04=aVQ-ob?!OMp{&AiZ~z%SyfWxg;I
zpr2j`4OnkOw7grc`q89he&}%YEaGTMXr_WD_YMCQBkN;1!{XD9yMKDZ;A$Z|@8y^A
zdh9+>J%w}THe|kn<Df^Gf@JK%r$m}(;`TFsWo6vEZvd&O4`$-yt8_f+15ObF*Z9x3
ze=HchCl;Y3NiSDQ)C>I6yv_QU^!_EF#oA6bC`uL<7J@25YBZf!DYe@XDv}=m8h5Bn
zWP2eM2cWHpZHK6$zn@z~WURD2IsUy-TX*+DCC7jk+L2+th)B)KhYj~GpEEp{=4P%{
z>I{1s<c#!wv6F31xaWOC9n@EFTj@(d3n)sF8~`oma3QW~9U$lH*MsvKln_Al&0pmy
z$k2guwq5IfDEAkbMePa!&=|k@VcWvcMsU!#Pj(aK-GWes0ch#Ica)@LG;o$dZ$o6=
zLGShA4i8{ww0+hUdT{TBx#*t*&A`M0DIy>yE_Yl~TkAap{PWeM<tMMk@0}Ma2oWd4
zw;df{3HNDbhCP^=(=u9q72An-mZxsCa4>l2sQHKB1u8Nxs4?S;XB82Fl!^H8lB1-C
ziV9K#0L}tr7+gPvQG8DZU8a(w0l6^nq+z-BGQe$=kZ1xk3JGa&o)}|}*70Kj(W<oU
zodHb_G1?IrUG(?{psr&CkUR))f#xpa{m1o}1=iS2cgP532%16_P!cc~mw5Mce{O78
z4&}#d<w1pl`OTY8+=4)7B(RFfJc8yikTy|L`o7bb2!(zBH^M59<GB4plNJaErE(*c
z*l3}nM+=?kV}j5+f$UmgArZ#1n11O*9;;ICL-!iJBWM>U0J(;PgSwg;q}P{$fdQD{
zn2!1H$z1XIz@gU@>J&wFFOApn59_3_)Z9u73J$gcTLdX;V5d{^+vaO9Ycj{cwgE2!
zI!7SB4dgi;{zBpkBFjP`7y&{%4viJhp9hC}5VGpkGV=u{;6mXvOG-*s*VVz(k=8Dg
zlYhbN16Ua^>QPzq&G*D97>S&S76*vMmoHzy6$f18h0XN$RbWK1{(S8NFsKWWjsL@E
zXun@W<8!)wGdd#5wFS2W93jBkEW!GNM*~<C1adL2URfGM^UXT<%3pg4a{ua5=eXRp
z4avFXWe>2&;LSjj%D&cC8CKFfja;adZGakVFmnr##ep%_aK~-H0Tlhi!~9pTP6Htk
za#Db)jB)?a;)L2<u&M$6NM33Wl%{S0pMZb>h!uc!u^wlu#}b9}A{`)nfiMzqGw>AR
zFC88pLP6S_{v{}Cx2;i}Lfd&iVXD+hll+Ps>7*TiYFftvF=SUJFE!QooA#*~Ksbp3
z3&d^qwE)l&dMUDY#O{j_YWO84CQ4^O_M8;xKi8r@15O!yr$CF0garF?cyD&dpI~9<
ziMbWEKR<Zt1e}u-o1uS8-&v~LQn2_PW?Zx%E^EbunrY^Mh~$`jl$dylU}@X^#KMME
zW{r&+K#x6FMW*NGt~s6?{10H#KmEImcHSTYH4o(U1673OVB*7vTQ_bLL9s5Rr^<v(
z$_RAOfi4Phx_pHs7@{gHdv85oNecRJL~<9>DY=6`U|(s;7*(D^<hQ8|4FpJB1gZ$k
zM0ik8_R1x29Kp(1yHWZS_#rX#6a{+KQ_XpRQv={1By@OEv<(S><pn|jK~qsf(*wVc
zy8N~Fv(nbqKe$s!Zg@2SPU_2c8}V>_6UreC3pgq;B>15M!RquR(##T4EyHUkA75s<
zhGba4J)QvpVd<l=fW|bwRA}AeO9^qx?CdNrrQ+#>M1?HS$`GA2>SmM@01gGPz|Qip
za^9dWJtbJ+Z%@!b)6+-DPxhj53GItENaX6ymQcaPU=E`@CcwKmfF5BywqrWiJ~(Ux
zbnrJ!dj5%i`q*V!F2TC&+lJ<B=Lg}{Q3E270D&@>U`t3<f@ZChhUr4_p%8tIYTDV*
zWwW@;$Ho>OG~qgXk)`DnI2Iyks1$YSBg>N;%*=hD?B>?iY%`H~3=8cVp^Oq;={LCI
zzx4LL2<l1^w?lvChk@3N${^JQzB?^J0g$2~_R%^I)C>u740=%+wjTTwfH~{QhC@jG
z0(MYnP;VXc3hr%9je$GDXFbjz!uLStAu*bcPy!G?unwI9=}A5DE81s^^<HJz0zeU{
zp+ID^DxnHkb`c-t*UJBdhSS7v-zKA%{1WnWPss;C7>pdyOOIMPF^QEd3{4;)>w$re
zMot6Z1VXDh19!v6!n{KLlt&O1EchV?lq#m<jcx);O9U7X&=b7e;3ze5AAdiNQf_K?
z2GQqL;ISr9ASk!zUna_h`Ec|)8XfG3ol=&R&aelE2LY&{J}7wzInP4!T3p9I6hEMv
zw1d;_jf)T!3}J^@1NOVmW|YwO0^m>PzJ17dp!1F>L(CNJ1Owa&+#Yt1-Cw_!p_mSG
ze;MiNL5skrkNa$P=Gipx03eur<mfmClm<)7Y?51NK>AN$mR#wl;uP$R;I_$0@vB$g
zfBhPd!1l=TH_-3{my#zaNGCQ4;6A|7T!6_1UDb~WKq@pSFjI3l;}N89ZOu#o-4w!+
zfC9>Lkzl4(p9=?R55@CvbSu%Wp~iEc3yrzuuFy!$)*cUy0_NJ?U5Eho^@p*(Tul~Q
zIayiGDkkC(*vyYD#($!71lDq-;mhb8E6T_Mgb5dy9`6WzWNZTcM(^>`5|9Q-Vj`ku
z2V_q&qY(mB_G!2foeYGk9S3=^8YJgi0F-wWN~-DY><ka$;^s!<cq&$yS*&>KM7Ren
zsv05AQeI;sJdK3~WQWB?ONS~rZH9Jp>!WNVgw<sjxv{<gy9g3hK}_`Ya94KZi#4Ah
zD4|7U6t;5^6AQ~Sl8H|TR|K71)HsixFo}ZqAd^rg3dTr565>Gsok@lTfU;Dg;|Xm~
zAt?%=#qa%ndzKBrr%2J0#*B+zt5iP7tq}D>45O8=(+ka_zW>F;vhL67gfuClwi)T^
zfj38+Amn6y=gzsm2*k;J67$X27aNWK8q8jh$%OhauL3O_TTl2qw7e<@n*vw|c&3n`
z^Ms_*pH|Ql+2_!k-gmV1JoY<qGppV~|3M${MhaYgV3tFUXE`Rn81bu{0?5PLPrW#v
zNj$`h%9ctd4zH6v{*}^vWlvyWpo1Y$h*{(^`${vPW+^4<<{ZH*lI%97+tU(YW{0i0
znDt)p#NWR-(@+Fl|Lz^@J?3n+=C47(47|Wwt^mX%Gs!o-mN;jgsThy&#w&m#Md#l>
z8VCvqa2)etFJHdA<z9~=wO#|5=KN`bCC6Het~92lbk}vIwGp@3V%4k&eH&WI#MVw@
zd;5~lW`shdb#GLd02?MS#?4bmQ{lkL(8}}2{m9OV13WGX*s-cjf{u=k#MYLmVn3{-
zuR5^>D^;M&c)vI<2YAm4A!N!i4_`C#^KmeP5)ajD*tP&U8Y2UUVT|l#q0;cHu`#_g
zF&FR($1=`?py@Oqq)qy`4mk4wo@7u{TN@%t8+)Hd)cu+x>rVUNpl046DH+)Xsvv#H
zHv+nZ<QqHUZ>xGIKVFvpWORl0w#0I)eyzHaQm2&Fw`##Jot-T|><0yarBXKyWaBXD
zjGpNcdZ2X#7=v5n2g3=Lq=n==ZQt_t$u1<f<4;M6V%21Sa^p}Y?pvRFT?s3T#z{MB
z?I!XSDt^0HqDLHoo>P&JV(xZ*>;L{-HIJn60XJEAKMqyPVM$T^xrZt9MTEw5B`$l<
zz7UxgSu<}AUqKB}2_SN@5--&&FqDZ=<PvOJH6(kG7ka+n3IXw~8)!OT#-qDDN}}KC
zG18`+{}}rZRK0$35J78cwoUcFtdt8F1E`V+FX`gqa-*ys;>M2zHq0^Yo8@WHeC70+
zGg?>0;BH*9QBh`$kq(A7zwtPK^AhpFJD_}jXw_Iu(ZtS+|J{$gbB#6~_yoWc`w1G?
zx}r8adlAlng36?&$wqO4@oIZI9v(-)RR%W|VGXJ1x~f@#y5pjjR49+<b)bZ>SU?S|
z?opc{Z3rMm2Vgz8n0nCZ2MFRoXgu%#Gzb94Gq{%lN%;lJ+OlF4X>(HZxP_7vj$KJ&
zXzx~E8~;omE@`%5m$^EK#?Zmsot(rv0!<0%KkzOg_A)2W`XUBc&t+hy=@uM8Gh4L6
za=M(M#o}_f1)HW>x?kP<0Nw{Rzy+=VC@We@P7|!E&?75|MWrP<InhZBUm<if1_`^o
zv8&FRfFh*?K?bs89f)SKl0Y_`LQ-J^RNySgjyl~oVDCsEXSA@V6Tdqnh*=k*P`i`s
zD=U8>g9Da8A%Q37wJp@kF+h`Denh!R=r@svZ;D6Wx$&AlmiIB6B=fHh%+7ZroMhVq
z7wK9$a9RX;dAF^+Ajm{0YYrB$G@HfwGgG!p`&etw_xsB0&tmMtz)ctpq)-S{ZEe?(
zto8jJLZEwaL*pliqX>EdP3=OIefIX7>)Q0!KhHZFo!_)!B}ZoB+k2M_hwvRZovsn$
z1|XOqjl6(xapT>_Er??&0)Pq|8X3t?qen(a$OVk>i4(9YY>f4;YZO#32`lQ)KG)IX
zMgTw5$hih=5dz?cY6DILUKwA!0!(RUWCBp45ZDM(BIv|pMKTjz{U6*gX}YdX&e~bz
zxG7Zjy*=ABM%rM>Qo#EmeH#!E0Ih?Y#=1BZz!)J_MsMD{0h@W9`23M6%pjWu50|^X
zV3D{Rt3g5G3rpnr4}wUvrUan}d2m?RwRA`w3=C-0=uH45cWo7fP|$>vC5~Hnwco%3
z;BHN38&+E6TbGP0uqL23CI?b`z?-ElIf5=`sYBd@c{jRhwUy3l<?z(h4C^3nAByk8
z`Fo3kP^@48rGOBT1CIl+2MuO=+NjUvW}jbz@w5pCWmZ9M%Fz}{%`Wc2NULuoLwI*}
z7s=lG))#k)`vNW-3cC<GNc@4=v%RYe=1ET&%_sy8YYXHM^SK~jJfJmmu&Y7v_eGMh
zx;MY+vw+`Z?n4T9(67;Q9{Uf#bPcXQO)7L1CBf4>hmBq0IS6p6{45~49X_lurTz*G
zUzY?1yA!2q1SO%)q4M61)eG+*1mCj9$*}t>Eoys`CFVRKl1%k2-V@78e*OAOLE%{}
zEaWsvAVNxh<QSv4eT_5}+5NDc{=$Edx&T;C8vbyLI0xgzj!Jp^=V6M#A+C$nV~61|
za?`C%23ju_vX)K_x0}=yif0%XOj15ExZvG<2Dw-iJ|X0<fpE^+QCnSoS<G{!ySvEo
zEM%VB+S-8b3*rZXYd~P&uge6m#V;;Zux!$ur3eqG<0*GD;C@u?_9V&a5ziT?7XrdW
zFANI!An+n(LI!Ygs?Pri;C2kdtIQ?hn4hKp&h-V77*`SI&<&@xE}D_J7FS=!e0F;z
zZlGD()B{=8rv456C(xaZfxrm>vp=?=l_aBIzWjjRGp9dR*)ij-TAaU7E&t4ryR%p|
z|5-+{DrBEfBLd)R0ymhMxxKp^a`8|c);9AMG3JTn8LFhaaVuYBP43c~&=cwx9o43?
z`x(NrqEOu*TrPM44<u+2Qs7LD_Yj&<Oj#%BUTaa+o!j%3ilzPbdONlcdWu~)ar9dY
z5w0<~CQt27(oj;$NkTz5RR1^i|Go@8%R%)@@&J_`Q7gXsCU>o71P3D%KjM`J1(8dW
z4P@@cTxY2IeM<&BSd<YzIC&60@BI9EH64hcz?Zr~N7uZm8G9c9NpaZQ^#<#ZR{@4H
z`gY^SA)(P8l`IjL&2ZdlP4s_|H1f!P^Ens8^b1MlqUL83n}h`fE(<(r8XO!n;y~g$
zfS4N^8ph<2cw=V=3Qe~F@Wzm^AdyYQ0kcLV+pgJ4!*|E_&EvS=zC%(`6CA&JNcotN
zTY7x_FP4Z5Lli+T+^S{=NL0{1lRy=^I4LEId<A45Q3Jm9MmX;Kz0K{1b$9d?fFO`Y
zEv8FE_=!3CRv>!BaeK+Px_@qM=|Ln5NW%X~0>N5<&Z+~~XTIP_4H&4d(XI6@F2AJ~
z3UP8Kz`R(Uc@kD~KR_{{XYc+DfXVbxV7U9?y4#qc84n>raLZ`n``WeoM+0a*p**Aj
z`N`A>B9b{4+%*CV5x3ZOjY)lOll<PYCm7)wz=g~=OnbM(JAm|mzJnNHgyHkNq|}$I
z(nWND@gDx7DnC3^MwruMk1YQHAzTmYywgD>_P!e;5f3hA^tNSW08M0!KJRf44uzHF
z_Zts1kZG*IsqBFp-k7<^A04>M?e9O9nI`Md*@HjyUUeiJxxzYynPKC+KhhNlD3K7q
zm)J_cpl*<7+$42TaQ=R+gq5I#Ft||L2L$j|E3$W0gu$Um0kj<$ec&qbP<8@1h<90_
z2Y@(`Cinrmwzhf@+~%3&S3KggyCF2@_Hm!iT;!$u^h$5}!X*;8iv$}(uEsiq8qmH9
zsUL!V|FGZBc9cT!kK}5h90pL~KLE7@AyG>`74F8OqqVbZH8>QmTnb6V;R>0bEb7ne
zVSFeJmaO)-?G)jkMn*<JOn}zR4+1?#O-@b@)KwtIL5#$5`g$>xIi+<?r~_>+CL{>_
zItXj7aE=J03xGgIuQ^`XY47ZW2GJ#~iBVB>h%X8M%;<%{417r^4yj0zK-@dFV*AxY
zb1Uf-VxOQOLa`Z&g&;*ttClwiRmX!oa;u*@jcsiUdo78<H=bKrVU7A6bk0HNKJeaf
znxTpjaZBM4QE+c1-wZFGetjFfv$TLSD0xlgsZO2P@W{wXfX)FWx1D%rWorj&Qb$L}
z($dn%=t}ohKYy%=!mCdf0B`iExc($AOHcE1Fzt5Kx)e>1uCOImo{Gj~(4DFM+b6q;
z2wjh!H~o47pbhKYt52#N0UttUXQCcC4dVMJh+Q0PHld9~>5LBV8SHoZ$KSD*IoWMl
zv1!`d_t61FO2zUl&R~_b_V_IAlLb6%5oOHX&qBCTY&MTI!3xN8#~ebFwMCjXffVGL
zR$Kq)YhHOmHZHF%y-GAMy6<52U`$ffk$8Dd@6>I&|8+x+n%gVPg<#+zI#g6pcn3)>
zz@_1|SOSEamk<DmmbEe0=a~q>2a!{yE?TTZJ3kCXY)v}N)<F(XMmZr)Q!KRH+zyas
zfW00P9uC3IAU`NvjkDnW&rDJOtan`Nn_Ekx5F1)tqQ~qLr`T<xy|6GGcDu;XQ0@gJ
z9}SJA&Rw`r_8YMoRM+B&NH_z@>m!1KjJLX7dUh^-k$ZEz8(i+PJ!u3Y4xo^bw1yIO
zD{qsruU`ePUAxB0`T+J-$PbY$@Uim!RmoUz|1!&ZJtn=5>{F`ymZN%@UFd6f(g(~n
z7(e*g+jDi8Fn|=u^XJb23b_c}aQ3)gxNyR)b<m!9!sf<_@Ag++tiTDT=6M~>Y@7j(
z2C!TnpY(w;ZFW0xuixcJto{&UQlyItxWO7B4`U%E<;O{B=F`&F#faZQNWc<hb%4`%
z_6#-^;*p?4RBNz~;A*{z<mb<gY#m)(AeeFlxr5l1{-w1D2^_tZ8@xDuN@{@mXY<*y
z%$#Y5AJe7^+hcy=$hq7|C^QL&am4T2Kw%?f?EL)w;jmq8R?>UIpzN~=Sb;Y#?adlc
zeR7!gMWF-#!$>i|#t}rLJy0Ma`!fI74ZO@KU`oAw35|84LK-<C`C<*dH+%;<Pw%%+
z?u4#S%&;r6Z}T*_lBd{Qvs6Kzs!|E+3&3A7v5DF=P%4Tq4eDqkBTNRY*ZO+CyLC1h
z=W8%v)_8*l6em)7rU*!vM7VLeZcFcNs7L_`*RVbl$y0859dn^d1JI1X4=&0Q01V1J
zh--~GV<%+uSG9bGq5Af7)%>U^jOuRUp6-D|4}_Y{UM7Xaw6?zdEGe0<lfK-0Z#Yw!
zGpy$YGP<U+tANI46G=vvl7J>G<EoL53Vdt6r;`!*7IPbk7W5T|Xd!FlbQdKcXkHX@
z9NMO6OILvi1MK<DlXxhVM9vnekmg3YKDBE3p|4V+j?ult$~~!Y0V<Ul!Q=;YU*59{
zncU%)imZ``>Vef%f_$}q2E~gcn5?gUGI~xG`XWjBN-RCC7W?oHbv7Ojp%6QAlWZX*
zc&rHDI}!!s*PC&9t#6=5M$|JbCpi!ErYP9@a1(;qm?U93anjq;bObN%yzxqVTX;{I
zFxW2w&MyRJ*Dd5_<vI4<V9|p6*B`|(#JMLBn1)~UIu@1u(||QgJiJoxEaiPIq&K@p
z{&wO5@2S8NwRp^Pd`XZQDYgsKqKg!~R{uD-&Mbzx^ZAQ_?<YP;BPIx?6$nbLDI$1%
zOyj6B<vQyWd$?jkPM}|LgwpX9gD2o2zFu6E_kS|Zy^RpRPR#gX(S3XPwA0l90wG``
z!hlJU;jBb5G2XL(6uI}_3#|QG4wc~0;@Us6R)Eaw2uW;=fyj-&vo4=f8Nnj!2X>8$
zoswlGJ-&?r`Zj0O_1*|LN<5wwa``M&mmL_+$7juYEK%I(+nkk^E1hX83i~aaCg3Gu
zvzj`cf9szInWC={I$j>(X8qE~HCcaEU}F3+`^%affrk<qy1uALu9D1)!CvU*Rl}n(
zeVoI1{FGnldoV}I#y*mx-X)_5M~bZ~ZHoVMb+CMqi6ad@ze%F%(X!-HEwAq7(z(GY
zeZ%fpk(@x!z2M7^;E;?!@}z&MJgP5pnHZIag7R!Ul+kUVMp6Gt-1>2U?WLxmWk47Y
z&o45JmsETjnUV+odpnBrX<iD(psp<Y6u3d_PcdO$)(FiWI~NHm$-dRhLWvMjN&m4x
z$brtNViM#wSPbpnsX?PG-p^a~DKGI1KydN6;Ml=2vO&gtF7SRPS$D_Zy(G@XU?A1#
zFW8P!d)@hGfr<r@+xWdF7S*~ebfqS~UB8rl8@zrBFG`Frf*J|7`4o>rT|vo8-qc`4
zw!z8g7{lts>5_wISwO|}T9fH`B_2?~O88Q?EIMvBM%*FlwvPjUlY(QQr#9(Wd{=KH
zTfjkbmn&M;L&_}@G>0A0Hbe|jWye?OOCVR!{eQWRDokjnn)w{ENwzz@-i+4kzqXI7
z<Ertn42a}(=fmeiA{|um4d>@gHarPXNYT>TN=8f!^&R;@ZGj&4Gjc;ZzkyhbFz0|z
z!Ds2~!+A;~oGVEle?9VAQtbb>VkqZNLqvO!PzO|V{GD4=5O9moy7(njdqM^Q0y2%C
z2a+-}@IdPeM5t7puv(p;2RCQ8%`l4}K%P*Ef4unWmB~m2&=2r0AP9E@XAVeM;FDE(
z?r#Ev5dh8ZME)XL7bbT0i4s#8V467vo<|wUda@|GEuwx^Kd<B2s~W(e{LHM1nTy=E
zEFz?Q4SWLN=s@eBSNH7fMvA8)e~Fx<0I3a!4}RFx)YS9uL>U;q1B?MQB&gTtC4qg;
zDgBIf?G+{jqs{p;VE6p@{*|;@w9!0ZAQbZ5gaYN4LBKdNtGPD;86x0M0J)^KHSRCM
z$ODH-nLSPz3c3XrC{WgZU;^hO6V2YvR<DdN9=@Ji-5nu&>K_58hy!kytXS0aHZzkz
zRYm3VeMlmv!f+jmVv!!PVBKaLkmhH=r**=@Mr~kqw09-Fpb9mvzGeT9MLh3<_kjXY
z`KYEuMaB*2{X<6!K{4T~p1ibl0E+VjD%$^gn>O|6jRuF%Iv&9~OX)CPvEe(%RzRy{
z39BJHJ19slg>QXv@s1=E*9=ju0SoCqbr@0~3@nVhF8SxV*8da@yf{!f*~|eX1~Q@Z
z9xaFXCb%6IwT|zLT^JAl8p_S2c9r(d5_1W<eC7y)I**w>A@68V0BQI_=Y<&tZj|aa
z{i!1dr*`b}%<eg5$dfvpL-8dwEpNNiG9MNh#K=iWYKbRwS@OizbQ%CUd~~jU>coh!
z!WExa&81d60h2ov$|;_Yb2Q{+BFQS&b<)YqyO}w{J&ktunlEqqVb9@VZYV4$2wC`?
z!5@UHW21G0WSMY6Vp*BPl5^DOkB?<!hXsBa_TM@UVLi?>?0l|2__5873$gYKkq?yk
zT&`OaT)|Cjs;-WH#qtMh(~suX(Z=nzv)(87XTReU>D;f}xE<7ui+bP(a}C}&wBwDW
z5oho1s(^wBU6*R4jW`mTk0(PfZ|Ej6Uc!7QQ_cR{MW|(W`oALwmVuO$m+o_YR%&UV
zHT`TxORL4&yS-Sj+?RxNhM5<zIa_Fl_Cxt_fB;%a99U`=XgPFi-n?(`@G36OVlG14
zPwug^b1dNXe$Zs1kXpstyP@aF2t5=DeE%*DO&$!I1X;b9NKofKWD&Wp8JG3tXxrMd
zPs=i+@PigrD`%z*?6nvGhS^0l<<<rvW>;o!Kd8lhS5$O^K)?D?nxuz`2`vGyRiC8q
zD^#j&l%A5t!|}aq9v0;KDseNic2|%pdQfsk{n(xmY6mSMJtP(ep^GRK3(7J?ZLf{r
ztL{Oib{P+}wATyA1nzKy-%^4b@uMfM;xMq-q@*Ve@qQ$dkUIc>0qVdYgAPT!9imQI
zgVx&lI%&hpK=+@A<j)!f2??~tXoNuTJQ*u$z#QBd+{DJXHwLrp+eZb|%5MEVZ)z}_
zQzFTvzZ;S{NW&z^B160fl&5dNk_X>aD5(%Q(!gXYS*Zk01XM{u;nMfcpX*krVut@e
z$H(D;=o3IG41k3RgrYx?>Uo=$RST^v)+Y|3EzL}qIe2hdGb?8|4R?deXdcC71&IBa
z&QSc9^ZSG0p7K<1+kez`n(b3TKFYj42;gI*yI*U#H%&P|YK9XAm*3bLa9Wn7P4wP8
zhir6fPGQ74S(B?jF9HN@Z|xyOCu+*vo?$<0q>p_Wr^|@N@p%rutvF$e<p4zSok+Qq
zPL2X5en25sP~^QOZ^*0Wmn>v8@>)542o6Af1!HYdml2yLDLLb@6!OeNa^Gz%v$rVT
z-SXV>;<e)|%;7CkySUNr($5kzE&>9U*hTlPA*UrJ96Coc<W*6B5zhP%9#y4EK+ptO
zqUw0uT&)8ldEH&lqhorMgcWj^LX*2oEx$I!eJr-zX=wv`ofh+#xu27S`ePi#R2<|Y
zc9W1$;y|C6H<^#(^2<Wqp|F=u{N^*XT4q90Vc8DX`1^@Lun=z+ahIB=|K-i1<`E0)
zbPmwf2ncABrrGb-=za4@72~*ro{*!+df~{(+=gB8Bf*Xb@hg5*v<D4#Awj9E>}^>)
zl?LCe^PmOScu2i_p4LPCZ|;M+`sKQLgUg#yir814o-CD=#6NM@47(KT*3QEr?uFgf
zULJ<4e$VH=$QpFFdX07MdNgqV`aHdSZC$W~3`O}Ag_l~;6G8Kf{cbiXiB6}^@Y<7(
zg^z0eD+NewWC^E*!0Gg)4nDQLW!@F!0YO2z0bPmY)Z(fdgKO<@g>L|yfMz)#{nBKz
zPipi<QGq$DD4lDIUWTcKM;<aIU2sUegw6NSUzrvyg!JU)3BB)|pZ1%-VvnoWMD|%Y
zoL1f=bUiI~;o1E{{ci<X@l$vPLfoTuDaW6~xgI^|tpag@BC6FcS72T)vpzLnrs$K7
z`P||e3_(*Br@0=^RqH>)sYt--B<eXGy^(F7&g2}2U}&%5U}N8*+nwS|ow}*>NyQ1$
zZ`t2dIG8T29*>d`8p#$swW@6x`LVy@MNdgUpc=i=R+9F)U$TFt5Qz;eDdCccw;Ecm
zaco0)D`g4ha@JFuU!|)Yj&Gq0pLb=gkI&zGLH|T9k77xjiN`BoY5VIv1TyNGgX2P8
z%V7tK=4n?~J}gPdYQ6N@-O90t12ahp*e9rc>8xsG>hE3{Ouv<9WwvupkMEm;Qb`p8
zDyHtk86yIUtly6uGb|3RIdKRG6fY!s+}!(f;V#<GD7XaQkIK%ZpP;``o)K7Jp06*x
z5yBFVn{@noCy>`qTOawZU!xH0CnZTt&-K7;aYkNY{Jx7mJV8Pp4pMo9q9@<-d_F%~
z-*26OeKd8yEWQ5sC}sfALKQWW6zkAb<yoSpWzL&%cn0fjH;)%9F_P4)gj0;Kcwd(u
zsP_*4uSHmNSS>^xjN%g@1+Ue9{dy-)YR#yuqnM!{H$~!LYIVE>#TVf7Kb(rYv5ITF
zEF?B*0-6^isb~^7?(%e^<qY)=rr;x4X8Ks&ivHo0SRRGE5_Z=s8^?}v^b|EY!wBs^
zR=C6=VuoLw@Z#v%t^Oj8dIQW1&mb?Lr*i9RcLJW?w@Mww{^g5`^{iZvvN2-x6U3;=
z`$q{~L%x)?ecB*T*AhkbgUa~m2X>ms{OG|U$;Fzi-zWA;7!OQ?TO>aYY;E|-PTMbp
zrjO`Tz$N&GFhvhCVu?NCSbHL<N)k%Ka6!t#aj90(dnrg6-f*YK<-xB)y)4NOw6r0F
z6ntEcKk2j9O6!m?_KFgmpIy#Fud<|nl-yt!Imkow=Y5B{jK?-c3a)e^pEIpac~5S-
z#B6fqQLOTFaCimm5n>iO$Oj(4Cdrw;Hpnu5Pn@Kmn4o_ZS23BILJXS2!vjzju*jC!
zy57kapHHruB@c!<Em6MW<d03TMGw;V8O$*ccfX_E*SWi8YB;wgB{iE(TLT#sNEOTK
zkifG^7RH$HLQQw(UagMsYg1m+>p9363&$U_A^PIcHP~t2XJE50JYz*x0lnGT`Soov
zt8h64HtW*$wC65^TwV)gTK!x5PvgFX?NAwEULXTT$iun4XlyuitK!XwHKnNgS@y*H
z3=EiUH01~*RAeM|u=_I-by)Jzgx18`-Sxwpjp|=gs+f)X2#)gh%}OKv4y!PrG^g9C
za{#NLO}Q#Of)QkEWQ-@gTKU%7Gv%()(xx*_zc6i%dK-_HWE2k-e7`Im+31aL*C%aw
zJLjUC?w5ssp{^uF;`j1f@CxB?7gl!J_475N?{(g3e3G`L{YvauT@?_5oS8E9W_xtX
z?G7oo@JM~!a=jImB^3~fS>@D0P?!Ryqd!e2^8KxipCF4sie3bBjHE4t!h6J^&|iN)
z%A!*a+3T7YllVDBywkID$KgatI3(>dJmdCt`j&>w&~iG%d!0IR*2r#WA3xshbg)X4
zA1fB*yF*y%$&Xjz-zxXv*%Q=FOIW9RrT%u;IhDauV855QkUrR|szTzk)B=$8>`1q%
zyp3-~iS#X6{fl3PA1$$RbAF!4h0lHYf>3x<#5m1K_3X9wtNa&QmfZI~T%T5*l{{Vq
z%TRcMAF1C{w#?ZEHY4sSW~#@vcbHR9P#wQu2YlYp!J}{ZVB2%Afe_ewOd-xk{-g6{
z;WH+6EC?_@$^#4Gqsq+ku47^l&+|Sk1o7d4c;CSmw_^Xq2e<+SE9rTAvhG{mj41s^
z=Pi5mmbZB0v}BE*NfawARk~ybD3tMge0LT5XD=$%^9WhK!tD5LIMJ!xNq0@v4rDF6
z$C^^V_H<D-SM1B<Z(GA=d8qThbgt_kNmWhEE2<Ekptj5y=p%$XthNnnaSyT6378i4
zmXu+hAOLo!hjdA}(oLI9{ev+9fmATgC5qZb!v1-TETG;>`koyn1+AN}_hYo88Lf3Q
zxijhyF!Ju(53=$w=s&cssK?nGi4T7hVN{C5ZTzVxd^cgoZ`+I|@&#Fi1m!GGUwG>$
z6HX*mQinz&F5dDzt1Hec-kn&X(jjcj8?L1PRQpSKW<?oVZ=x*xU>dBmmVTS$Ei~`O
zSOU}be{6b`MF3o)D<@Us^0n^wdoQhi1=)*wV&4{>BQWE%ybR+Ms@YlFENpuzkvSN)
zMMIq6?Z32*u^qnBa3EJfI3ccwR?(w}-%NNFBl!ikOBYkqcC?T!HN{FW^+Zcb)OjGT
zLWPaJJVDyLyJ^0x^NkrsX*}9Fw;^Fe5LzQXzIeA$7u1r1;sxbbm#JOEF0`Qc!zoyY
zivurBkabuz&ZFqCq<PIbyx4=0R}|0HlOj{Dzat(_#B@a8(UFu?rEQiDU~l+1pzl14
zyg}-9&^u?<PsU8luP+_!=qPf(r+N24t6bX<^9DVa&u#dsTL~U`bxdfscjTLwPc}_$
zu_&Z;qc;SKhX@`Z5<=iqWH>ufep5kRQem8=VPj_FAM+={4GW2zk^JSCIa`m?_q&Q2
z4#QJnH6`Va#}62T2ROXS^5|gLO^69G2KK78>&jk_-{*8IXKloXN&O11XrUq}@7Y0W
zW4HjG+G9Cn&;O%&B|2c!;!cg$b(EO|6Q0xQT%0m~ZxxrwUUj@ivRJNH3PJN)be=7I
zcrQO|X*(dxfSN+!BW4KYA}u_Mbv8jRSys#;CN3nFp(cU2(v!d6-hFPzJJ@izy?&@7
zD~mBisLCr%DR2UNjlSKgbKSUYRS?#*_t3*rn<C=7bDciBwv?3rxc}=k9fiX^x`*R3
zgrUJfi-jX^u7BDK?wgsU-#_%0QdQ`8oDd7U<lQI^_-nIq-39w=`or}GMM3b79phP@
zgW}RsE_1KsDIB+Y1N~tsKd%u>gCcF!=%y;Nr_*6fAv3!NQqaHf(yp<INxHt>#Z)1s
zH1T>BCbQw;%elF_Cz2cWE-At(Jj2i4r^4HusNk5aGfQ)(9k%|&C4^P<%BFmsDNUt=
zEDEv)Nl#|-y~wqpW-z^%Nx0a4%(jYT>SD7I4PQhB-tDyK#%xAUxXlh}NeOn0Git_d
zrBwHntL-&3D^7Z{l9t)i5KcW2xaoU#CbYpc(PdtZp77X%oc`ReKpKKpXJD7`Z$wLE
zy6k)WZV&~_$9U#OBFXC4R?Pf=#D>qwwq74jWQN9s*x6R&FY$8-{M)!o`~h{ur=G3~
z^08Ks5&~O&>8BrqVkiy`#)Cu6fD2U|<^1OrzfGF1juEdZ=ri*#!I@d#(1y=f0Cdd*
zlY}+4L=hXU5GQ5R|7li&WUySD&d6B>+bz+qZd?TqOZFn-VXb1k1Jn!!Y%{AuQA2kv
zv+M7D2g7iwNnbnHEIt0`0WzRzA_&jBYqJkG{`p{?(BL-(%FOFG=5v$`jDQVt{~znj
zp6IGQ;0;f%KNZ)-MHGcG3cl)~%)VQYudO&GuSC+55)r8PH%Db1>oPR#9RYKk5U2Zm
zy;C<ksjVWRWQXc0cOlQHOEE^5McjtZ!!dsRqSwDx;XnL%-(T<$^R)jq?_hP-L?56X
z7~f~0i?ZI*jIHZe>f|t0Vcbabf0_43V3m5Jqb&#O%`;)M=2^Lmq{;TvHp?6<Y%O0D
z9uLLp9_RW?e`{65xUW)Idn&Q=b{=mtTrAhr>mN<ll=<C<ib$LB2~-Dr+=!ZI8AEbM
z(Qc%#7Q|$)*)rdZR5`wIp0j~v=ssrv+HB<O@h!NpT&MD@cRZKwmPlfsDKK~3D4r^(
z$m+O{v3j~R@QQcjm=^bq;%$bV^Q;*5p2c;A?W|cGf6fA*laHo7Yq%d8Q>q4DWUsL6
z{)7G$%j3^EPl`M;CvJXJWVm{)%=GaL1?WYrUo(Y_XCeyMvh&<V6NSnzW%n{tOE<>+
ztlk{?N1w)Y+=Y+T87a(i0H@+G**#I3h9XJm=n+ClEy%~?mSCBH@nI~9;1)~QV@M|M
zhi;!b$j^#@Nm=b#*}HoA_!e1ki~gS7watQm+Z3_pt=|}7k+=s-tt9(@22?$Ku#UC=
z6;R>m@pb$YP@x`@o}kXA|IfHK%fGAsisz9(#tm$ehDjC%)4u-l^k{E0+O)g2#7GA!
zVQdx(J~rH<`u2_`?)r=3prCZgfN&gr&)}T86?D9V0(}ln&3lMyS%=q>z+`TK;U-xf
z9L6kSDjctl&$i%ew{Mb}|HWGR;Nm%@6szAlNHjOn&C%Je^To!60)<2^4--rz$Crnz
z`5)qgN3TBIOs0e#DK?CF^b+^TI6Jk^hfcDxk5iA35Xlad2YXL;bN6-2Pm!PMaVD7R
zb<Wv$gP^b?3bRTZAz*Zz(PL1tBp<#kRGP`9GpKG$-XYf!7Z*F(D|VP1vHCFoqHp-Q
z4a+FB7Yd$ii!PJWe|rTzL-DlY`@eOzw+y`c)fq3;RqGAEeOu{ijCvsBE0dU^5$%CQ
z%4<~#C3DeW>ZGd_&<k6f&%`pRqI$R6w{>&#uP9qf0TY`Rp)Y7pnQt@ywqAGs-bB1=
zgS88wJZD;7_HF(?ODrAkL=r>B`1@WKH45Uj$jV#T{vtMF7@wkupJ#ist?4RyY@-pW
zR-`iFCe2L2Eg=^(1b(lcYG&g6Vn_Ya<m@eDPN^TF4GrSNH3B7>KhEIu!$^q+Ol3Up
zh7Qa??ESi*`_b3S+}F|GgKs}CM--V%_&dvi2YbuOYb$%%Zf9<sNgce>lu;4d5*E{O
zNK^1!M*(~iJmpu!)GiH=zCy}8JClo)h0lb3GHdO}=XX3iNfHJR$kWX4^cqMJNIfm-
zfA=^mQGE7EWzgTv-h>?bmeIse(?GntojTHi$YcdZpogKW){OU(j6%Aaf~!VGRgITT
zb68D-SF<1fCZ*osmYSRMy9$qoO>tNxWK&D^Gn-6gXj_ibn_cF1e{Xj1ENM@Q=(3?h
zo%@8?p+QV?W+QDqEpe}EI}qt<`YQBHftvfnTj7N9a~HekmTH}|szMvNc=sds{SEy;
zycK$Jv_P>Wn=pzceg^gSYEuS@+CMImXTO3%?mIK{a%~#)vTj?tGTh(^3o2;++|S!t
zz&Bgr$}Y8UVLmJ<7#Jy&UQuQ6;^o#P)hO>|-Kii8EZ1_r(f5bYsE~R7zE=Nb0m;VS
z36>mYhyp6Vsl_0!M#01vmT`Z6+ide>vt>kGDX&OWRX?w`$T-d0s@D2i<;cmTw!c0t
zne!#D2EX>N*3#1*$}HvBYcTo7O8Lqxr;)4f{`i-jbPi-tb_s8k_~{NX1xiBQa?gI#
zvzg;T=Nv_CR;xOLxcVy3>aM<!*hGbT^02loIh6*lAbD{e6N-<nDI=z5^Owjv8~i`t
zJYRme3EZ{;M|R*cr+Rl*;OjnvS99sv{x0GqO1%`q^)clNG&p&KIMr@gt^z4mwN(!`
z^Y31Vs_yjM>5|#oL=2%>UlC2umo5JMtZ7NAmDc@DqF$lGQZbJ~ZnuEesH|n|63e9c
zcNy|_rY|m|C?ipL7V6;m$&=XxI^>(P((@ugMnzqL)CpA2M@sMK@8U@r?WS%%PRVsA
z&Wu_X_AzE)WMm0}>{Q>J<_Sbq20p6+d$E5-9^2DF=q}n|bSTDsLv)d4&`>=-B`Q@A
ze`*@6#+-hI!sNdHAdgqW6g?R4vq;#S8g6<OPM0mCZKCtGVticj`q0{~Ca2DXN>~ay
z&_opG$>1H7lIGI43~^-0tV6i`<>R$`p{G&hN>6lH#fjNNq#FyfS;HiC&Rs+q(VY~T
zd7-BD<K9tnY+0lG+ofOr?5}g9W86!{WB+p>ZS0;$rM^eLGNpp$`jIO0-Iu?g#G~!-
zibI25(S|TR@!dV#&HZh%DvV{JXH~v#bUPU3E6~58;LSxD&U^a=Nc5_cB3;xe6s12Z
zvU+ykvc;vZE@)s+SVr{&U26cNGB*OA>E?_+5iv^`nz3MeC*W55EoSX;=2ERVsl1kd
z%jXj)J{WTYQw&LAeccZlBJjz0=KErE&Z2rWW}L6`6s5arR!B1x>7HW~6#TmC9C}Ap
z^@TCHq5*(@7eNnt_5u)8Xjc@dJG&=>YGSY`#!oQzdszQU1orIfYFyMK0ho<Y!fcUM
z@`@9tfQB~D%%M;p+2FSdr;dn2-QKaOoI{mUKG9imy{3zg+xmBAj@9oBN<#G9Mi80Y
zeSZ&!N}CSGw^S6%eFdj~obYx1bjuRiL|CpP%52x2A9guE{FYAM+aIYF-PS|UX-JGJ
z=OMiXN_CsAsaXl2Ab{(<h9i8&tCdvKMLm{VBkpkQb^czb9i+bF`o#^9(w*oFsrOfL
z14_?_>`;l3^3wNb>d$TKO(_@GWpm^6bQ-aehQ(j}Jl9!;ubWW#woYG`R%=I0lfeQ+
z1~o%-f_kS%X|7i6?)qq*e6G^UK>4EY`?Q}#0R5H!5n1=RF!1M{T_DSl?}i(h-zP&$
z`S&PYwH}_o3nRgQS(tN@tx^aCCsQ`!Y?JD$9~{h+XkSR%*BG=;W{z@kTnY*LhA^JY
zvEfm=CqUaJIByjnL~Z{*s@D|F>Y$<!q7|`y8Xs-8O-@0@Tv#VN*{Izum>M0EVC#~9
zyS2^ts`=v(Ma@%|f>~`B4QcMFY8iO+2ZXfOoW;Ab9uuEsqqyyiOgHNFQ&eQENy6_Z
zMIv8m@>(N~^15e(!^nxKJsOsN4PGwF?QJ-f?sc}@@&#(9>FG?LP=DRLgutJJcYj)I
z9rG7R5HUuT%VD|li1$0Lj?YgNOLvMxOBXC3*N?B-UO6ZZ`JLL(FCvQzy0e{VII!W<
zLVvq{;xV@p*)92D9)4|*VqbF!Ul|839Is(q<(*b*Rbx#<RzZ5M@9)|+db7H=PK}nU
z8%8qL|HB2KV(c!=CVruw=|Yeb7GFgp?7efkSU?akI#NR71b;&8IzYRR9G|IaX$?|z
zEaFoNiwRj~XXl1joUmlzR9CVea?k%XJ}zfcqL#5Ve6yc~UP@D)hfPyE@BU+6sebF$
zO|x)3T8Q2`U{Dnj;0?cBD@cr%NX_kD?BNvoEs`!gB@kfceW}fK=-JEI&bhab<)z)l
zix}@7cAfYoDP|1rOP;i^OcX#odiVJ2#1AB~Pv;3iK-;{a6a?O?sWHmha!+((^J25*
z&*jgCtgOF9@N*ZIKvy?JP*5(E!<6s^pduMkV~OkdEb1yBs)jA{>xU4o4)Qy$`9UV5
zGWJY4iGA{Cn;S|7kvMTj&tB7Q<5Y`@#%zI?H43SX9~tBU8quMJiP%R%XR{f9iKN)}
zxU4=Ose0SRELW~Q2>`EjYZsd~Qx7F*`IIo}#M!xRhA(p#W^(C&Wvs6MWo6EBSYE`M
zTwVRfJ6;E_vA~%V)K2{o)Xo+@`Bd#CxVec(AHgY^{>9GWg*}PWCcM^euz+j?+<7Zq
z$EGRp{Y{ttJiIv2c{Bc9R7aN~zRzM`N#3_@M}wQiqn}Uaw(a(*QLhfXZ>4<*Ab=um
zQwHvu;w2FqZP|*(#F&uByWbxS7g9Z0*JqjjNAT|{#<6fYnz@eco2!*lZJ%@&ddN^D
z@cJG;E}2yNLl_5vqUzd%$+h2G12H5|4mr846ULn$zHA-rSgk~3M&AU!M+%mcALflG
z^Rg_Dz0rtf{PRnSGc1?7e>NBgdabUX>`xg{JAJaVYhrfpBHo-;?RTrexTjV9<uv!-
zK;=>Boh$gzRK2(k<O3y4Fr^x`FpIbR?axDZexg6q1g5kZ-MsY^u}l{Pgh5NY^;$+v
zPIu<zYV9z9oTE~E&u#4CRuoIHwTX9LQM_QlBP#UZO%A7z5u*pUTXSU8u64@Q=|@1O
zR*!@GBguz=brty#CGHQz{i_jSm%q`@r*_)QF^Ff(&KYQ4<a5eFVwPuc*FtyN7uVB+
zn6@KMSX;R=h!ceK?bq>(M7>>3NOTy6^}}z4s{#nm*EoAmkG}gkK-aK8sbj6%5$(5U
zc6#%<)fp2`F4#k;9+Pt$_!Zer6^9PPmEF-s&$@o`{@$`%d)f2hhu|IRHWpUCuyjiv
zapKZXeqXZ0&puN?s4=fePc&TQR$T4533(3CCAl~DZ5bG@&)<LR`BI!yB;>*rRq8Zj
zVHDUM6cR31Ny%|6j@EQm2;O63+t)72mG;=dj-<5MTAcrEuwbzJV&J@!`BU*ngS=UR
zPO~f1ZxjlxY-7-m;-Nq3`7J%E&FSHR!eotpuyn3aCzg-dV$enqC+NIEBBAxCmT|Vp
z%0pI$3wKx<XlLYuaL6xHiuZ0Yj;guYko=8*=V5IvTqUg8AKj;h9yFM4&u>QLg<c+d
zh7Wol<9fcWGhG1f(|fhqx@ghXY$yB6N}6Pb+}+@uB@n&x71=I-)!7uO78_>fNU3ye
z@Q#-Ey>;8Md~V4P^$5VyO9c=_9L&xwUH_b$n~-%^!X3%oKaldZn~x58JRI>5kPhbi
znVLyiSyBgEc#&fKLlqu}%KT2_3O2)Ec!!Md-)-rR{7xzro}0Y-zUNX)ri0qc<kg|C
z-)4s8t4h%m(G+}c1J{fkaLdtNIyojIccL)c@eEP-(A**NOqd^^o!|zKx8#3A-kY1K
zxsGJFW!q<U4>!5wg|+B~%vitw^2h4_Mr~2#5XCdHm}n`*U-MrIE&j6Ow$H6P7SQjC
z!wdWF&H18eaLyRQx#vJcf^sM5S_F-<W`5)q4e=Dzq+CiVzkSxLV^TAB(sPXnAeqxQ
zQcN9J*=a)v2Ax+O?Yf4PlCzH_Gi-L-79Hrk&JINUb{Zu)FYZxlr0FJQJb?e=$e=ss
zx-5T%y!?Za{_amjkCg|AUd2Vn`e+!qshUtN^bN;<W(kpNmsHZgY6A}fg}Tf(amo`~
ztK7yDb%ZXh1aM&8SE#XtPH9ySzwP819x}r@u=~lE3~_EB{wedLO37<=h*6=EugGhW
zYN#@}XdoujA-r~El842d#}{ww;yCquqs<-=7s{gm(0ltSV?@&<jkIgYMvEmzi{a@n
ztK1!z=bckJmDL;T(>5xbtYR~KruKs8y?s{msUHR?B<EUvo;0)DPSiO{@+{QqUbyxc
zdCyM9iBo^z*d=Hs`yT4@CgBVy3JMA+Z}*scA>+I<^0QC=#yFgL+_^g@pjzzo>quX?
z&c~~X?EIj(8Yj-=%Y8MrrcZr+bhl-s10uQVFN)rq*i^mSawC#Da<Jk$<K=ztt{0I9
zJ0gjBJ<H-QUb{=)Y6M?NaMsTUT+){SWn!_I&}EN)lb=@$Pay|cKyg&^t5>ejR9vU^
zOP%A=V<?;byWn%Q0DYYtp(kP`R2B&)U&7n*DdpVmzbJZ=#NyG|nB01Z2}F(})_Pz#
zK8^Dqr4cbME3BJ@Fuf#-c&Df0=^(AE>C(m%dNJc;Pz-qqVRLc1>r&P9J05eb_3PX}
zyjRQ8f^@7zGR@CvtML}xep+OD>#44)s#DXu&uEI4FDd@;3FMd*S}r(j>W9TU=xSm=
z)$|04Y1+EFlA#%hgUGP6a9rcCOLyGrhqvOS`p<f6Y#t2_me|EP*!jJFWahC!ybe92
zPbepUF;vqv*H<twA%AZ!U_bu5bV}p5>saIRSlSOJce(m_5hx5_-X{GN=Kcv;B#A$v
z%P6GeoPdJYS|j`j>OEFRN}5MUFLzfACyyI4(1;ji?sDlXhe#J3rRKUR$K86i%B2)D
zamlrR``w+bauU)@C5kamxc`($LWibW`DhkgPb$?P2Wm!2a(({6N7BT|V^Ccr!zYfQ
z*AMN>7cW#ZCVvRJZ&`AS4jZ`d)E<#c=6|Kmb0!zczdm98HbvV~x1>XT<uOU!SW9i5
zjtg1cSe?31c8wc-iJkKOzdJZPAv*mj)$FvvxxdF9hGU|wWm*c<hYHM+)2%KxJ~*n~
ziYB`dy6o1!+^?Rv$cTP?YtS;vP*wFRZN)ly%BxpQv@tO;P9h7e$sSNuh3@ju2*(!?
z5&qCA&lkjcc9V^GAU7%6pm1pyhuk2&E>zE!rI4&fkDlE{N3i9w?P;lSZx=;XLf(pN
z?g_JhPI*q?o!OQj<SB5o-Po}#auCA{<c}NvY4_%O`=tBsV$9<+!{-)j3z<SDy9o}Y
z)fx`9&1v`&(wW%fLa9asG%xs+;vtAO!Owk9a|gYj17|c8Zvh@{mGEhOMmq1eRK6AE
z0ltLZ**&Ovr4=*mOw7J#FQl=)+J5Qh81y(rDzPgLkn?(ny_3uzmlhZ69Sn=NbJ~3n
zj3K#Uwqvz*fx*%`xA5&!?e^b(M^Vk;K0SBqLDTvlCCT|VS$B$7ItAa>;uuIu7OwR)
z+;b>wULd;5{dlhk_xrm?E0V>dHK&@14!d_&c{%B8IE%ij{e4;xlg_l#TsHl<Mvpyi
zTvH&iaJiOxxUp>J_3&~<9agI;O)|ZA<ZF6O&98x|nctCVP$CJ<?j%yb&kqg#{PlbI
zv3TOb=$(T#!sSbSqZe6k{QPKgb=$D@n>yW#fjj@Nx-*ZeIgk5zWHbg54JO3gBuN=V
z`%0xTR8qH8Duh&8iPjsM(I&|f?FucoRg3m+ltL=0Zu?%+y{+2!=lwPFoHKLIbIx;~
zKc4fP#~-@Kxo*GvT|V3Q`+2>kMENxQPA+ad;&=Go(|}BwYuoD6dfl%K>WJRA<R9nd
zVrd@aaY|A9Jf6#tsl9&X5zQsD!ffVpSllx8dD95vHKF&X?T++y9Dkc^F0g(c&%USc
z+fhro51S(*Jlq&JNkO^6GDHJuJo|{ByER%fz)l@$oWFJE!NZ4PT0MS&?e^KGFCOor
zKc;-ux1U*)uB;!TJL~tQ_nkR_y|Vj<zC>i&Sa0Ljb=OTQy;hy_B6q!Z_-{w^3!nRX
zZPMBo)p7U0*^Duf`2tPZb92Ib857YeRJZ(I>G0Djdp0HHXS~Z+5u3;=?pnvQ&$P#H
zM$eX<x8zP7Q{oidxf3Tf!8>PDs&Lb_sKZvO*=upj&pAnkYN4+?Z0CiHJ9HA<PHJiK
zSccC=raLP{RLabH;1oq6LR0I(%wAe?+%BK9MoTO<-SV6L#oC{?#7Z4&2OXz8!h7~4
zRGH}L?4Y3I*|M>hfYrlfGOoJg2I$d++LO$JBECm7G^KcbsE~D@_ZmsIX=s-)RW9?1
z7-$&E=Qh$as<E>k3>Z<JHm|b1QI__zys1{H^+D?9j?p^~*}>0hxMb5eciAaAr9QDZ
zBApra;Wv%EOw-xR%{gfcx0naY52%~fZqb{gF&xIX;``ynnN9tLCHvH?e;DpBI-E9f
zMrw=1stq-lR{58j%Hx<OxU@@)_s_*YHml7~TzY?U&xJ099fh2BogXTat<MAn1yQ~N
z3Rm}~?WI+S7g5Ow3b#xayC0*<JCIc>LU|PWVSIDdyI#$Csr-EF;AGc=ed6olbjIs)
zC$i4JeQc=~>fY2|Wph<QDAoe$$KDp1c=c;O(?1Fy**4Ml!c=MKdH%18tZLJ?!h*e5
zhV1Wz_&SmZu8`kuYdaujLKL(TCoMRbLRuM=kQVDnbm0Z}Wlyj|0|RB8SoGUs5zn9b
zzFpZQ;U_AVb*@=8Uo3c>y--y8fOp4F0eqT45LSCKDeWdVm}5MYaHVGa#fpNTjs25X
zFgAa)TcO!m3V+fdhXH~@8`>iw)wtiLRZhM7P~=BkrsnrnA?yXWpZ&mLgU%sZFCmo>
z+IP9@V<Er1tizY#DxuAKKR!CQjC13L&tdChr=BR+;rJ+H)bVppi-(+b1pP<8s)^vM
zNs5tNTm;U{@gzgL(^a(^a3H8J#)Fpusf_*mN5OyVu+73{XZNY1ZFCc#%jl%`Eb4$T
z_#iz#Nv66tTo=SDBNt(~7lX;9^z;X^r^Pi69lBY^PIQx8cHlT*dUSfUIWWleM!wq5
zV`8{G4i2`~NLgp%Hm$zO(i=+TY_Uh`Ud9?gAhKw=c3=sU6UdY`n^A(%*Fx9pI&zjs
zrB+v0t3o@iK5Gs5d;QLq9JO!8g~uqL5CkbMjQB(Md2-qn&8J6!)<Tav^hg`-E~80Q
zk^^Cm?McOWGr?pST4z6B*avA8ji(Xc{4jjsqyX+D;*S!pF_1q}OP3Jt00##bj=0Fr
zcAO88pB!6o9z=d#=fq_N^1_y5>9_t$4sP6gBmYpi<Uc=z<Nv{jC}rkya2=<LZ}4sS
z%8Wd|Yn`_jniaHp-vsg*EU7-w;NquiU_jsX!|d>-$I-$R>{;)_PXz@9U%S6G^E~1x
z0paVVH?IG(qH^he@{V_<+pq8T84vK88tVnDVaR<k*J}=B6{6HNAjV}?1?8!gD_7zQ
zv*O&aa<1h;!*oysLFx2<>kmiPWSv_+X#a5o;VQ#YQBrZQ_QQu`xn&1Kv`?Ot0#}v9
zD>aZwI(<!=<5G$67#VR6ssG7H2L||B0)AIfUjAbMb`8+AO-9^}QE2~Ed8%bpr{>3Z
z{+j4TEJh!w%8Bsw)x@nAaeTD_SJp)V*$Tk5UYuW(Cjx`(rFF}03IcIZ!qaoNkm~Z^
zt0nZ%f4fSq<gQd|x%sNyGC4mmEX>Hjpb`C$JOYPLfmRTVit@%z0}YJ|sC*$jh39Gp
zQXMR`_@o?q$yUoYFz5*uy&`6@XRmu7j5;;##{Cp?&sSBQu2=W1FwESxFzg9s?(tQQ
zz<bY*^$FN1YIUe=12)_Q!tIcYjYj`+MrO&V5P$VL+bsjY!KLReuK|5;k&Sm?_r%4<
z4$sbGs9J$3MVbM_*E{0apTuov0jS#=xnURwuH7Oc*o|bcfVV)qLQu3cM8N510ECip
z96lYEYzu8_@bwM-H%qMuxw<J-EZl74{ghh6l+y=y@zTu-Z~wF(WJbXPq1{_pppoL@
zGQr>hx#*`pGUr{IzAV&BV0h#UB$)Ae?V$b=Q6q?6nU>y>htw>BWk*nkA&|<Q8?P*f
z9LNa>-PJ{p0qt5X*?c!V+<H?9K{7&;g8{uVsJs3oap|%6S1{`+Um1(D40Kf_k5Fpe
z4JB>YNeuiVWh7TAw)0H<B-lyJhD9{}DnR%bzipuEsb}r_%Jo0qfj+=AQ0Hi29o6CN
zoL=v5zCwzpuCO!=AB9vxe&4<ks3E?4`*v*rP;*3AGdLPT-fCzkPR~^;ehR4c_AT6K
zQ?><qs;{q)5@p^<Gz1~x9Q+xq1^QtF_iTu*wHW$F?P5M&uJJm0>n+{w)@0yBW98X-
z#>vs<;BjG)I^E~%+^K%Io4kK8(+Aw%2&%X(4t1a}e9<xe`_XupC=7z1a8LzE!}|{&
z=+rhq!~s(m932!EW@TdTWdftQJ^;MXx-9DfkN}e#cT-^X!HE(VuVs%jM=e%|{-G|r
zN@HVXn(vYN3;7Tm18!y7e{pIJJ4D@k2)`T{B<ZXDk4w9bXlNwOuwrgGE)<&@Eag_c
z?k@|D^+rVhhikuNIwvG5tp*=OK;S7FTEu6J#2$HVx^+feGgRtK@P)9<`naUOmT_OF
z6P9rkk>kvVG$T|Oa=t|Q(q+1wqF(D;=Z%!q6;S0l^)^;UI37D%7@4(PVG!&A^xIz!
zqNh3E;g`2iR`+s2zmG}SJOTN7jSaRmSr`c2LFfa%nLFtILK>lHafJ$9FICToh*r_f
z#Q(Vjn#NwQ+zXZloL!Q$nVhChy24*85|<vgU4!9Mc{ZV!&2&>25fQP9T~U#a_9x^N
zzHfn9PUL6rtwZUczyFd^9jqPbf<T`H0A4)TEu<I(q@8%ezrN@b-1aBV3t>H?8ME;P
z$MD#TZvU7;(sztJL40QYx^*hg7R2p2j_%?mN)%8rUklM>z)a}pyAv3vfWfzcZZ7&>
zzvLKeX^mi|qD^TErg#=K;sn)u|JsPF2_T$G&Ho&1X)#ths-ntX|M!r7KWrz2ib7VF
z)Y|WBzGN2sAYZGhtMm|EIt;K8K?^iap1if$I;;EMQM!aWTDL)?LtsXY`7k}dfPasK
zuq<pi5wM1$w!rG}e=H#;WE}wtwLz;?#?Y#D*i?y{a_*h`M3;DW?!0POnxjoRVEkzD
zLZYJOw}RW(!jds&TZU+pxothYy(YG=zC$*DYJ5zL0?6nVq_6`kTNBQ3ac@Zp{?}S%
z?lH>IQ2|i)gp2mSW>5g%PF$R-g8muHF~AbNe?yD*rPvi3cON|>GS+BfJ9ptit9_X$
z=kiq-r!K?J?4p48L~c`kDm+r3Ui8u6O;P{ZbuWeSr06O+ij>05Wx%<(=pSP!wRGDx
zV9Hdx!4XTYVpugv@Wk2e=Px_~3sT6rhL@N3SeVQ>Y#V)lzMigb0q_@)s)#mc*250(
zrC>OjzrXzJ3*Fh!OEzD0f<ean1LeRG#aWaq+IPA}MU8v+YRW|m;!tfWYrl1~6i)*f
zapO&%4*~;$f^8YNsu_IXUBRcd3<y{_VUn;iny)rlF&l?6rd<m%A$EpPx(y6wKXu4>
z2Y8JQwY6DD{IwGdLWwa9Nrl8CkMv~oWlI~MQEwlnP`KjA<G}06JndZ-5G*1}>N+}O
zANE%g*mdObFJPeht5AULiEJCnBqk5iY+i3+<Icuxr}#ucnn76w>fYw;SqGjK%RRuH
znE?bCU4C@yy5?`A+kVkbA@}hgR%!<iz5-fOT%C>OGLUGepj9<f{Fl$#^?XAAT#69@
zL$G?(6DL4cz8e(egbE5WCm`Jv=Q`Fj^YUi=bjz-ms;4iUuK^kg4NT9(0HF3+KoqO)
z5Eg#dI|}Uhrvv54R1t^x@yqA1g#R_<hY4mHkj5+EONTplddqMXPpkZ?JU{HIxJOjf
zt>e#)XxP&+)&6S%3w`2;8e*=ck~-o7FyxaG5<oRShgK_ic=X;4!hIDNtK=S4mU~}T
zMl2Njr@Idx8~{F!M~mtJBLNPoFigsxJ*$>2h4LF86am45HtMp-{N@RktND&LyxDO{
z09rc`mfjDYH1IZ=(%UQGLM>k1{4VnNMTp#HEFSFo+cl~EXQY}$V4VM}5vtPBO^UR<
zs9io$a}$}2ME7o}_6VqIp@M1<o#H&#r|F(*A+f4x(4c||CqzT(0t|?jp-IKDkILg~
zXei7*)UI~O2c;a*Nj|m%f<?n<8Xg+AA(d9Tz>6{vmF31?Gz3Ev4N)_d5Gq8MB?>!c
zK{>07pa-Q7y)5Xyl5mOu=;K)6eZ@vtU&G=0%Rdf90?_5u^Zw!0jh}8MfIA4AOR+~0
zkcgxLbz$AUJ~@X)M~`IfmpvjPQ0^KAqy<ux2B%KB7Oj><xDwrw3}oELi^vErnj_9}
z1_2T*DTCaV<|4=j&Ey?faWPP2Z5tMXF2I7B;;epH2tTR}NK{B0EEEUu#fI=44a@#q
z3XF=c_Ln73df=dB1q75;(5kAZqjT<>w3X@sz6}0QE$8Hj%3c=)IlQVo0YF+v)RvL|
zh5iN(QP{@;Z=vwD0eN|Oi_;N{<}W5iMMPFE_Yj@9YF6~i?YulWjMZJljzHo1yhR{)
zDDrMg5Aqi#ZXs}pvU1o-ArQs&nj5fjZ%R3%tQ>CNS-gV1&`VT9@*RNsW-{S}sSc38
z6!y6XU0C$>f|-WhGUZx;zcGyqUE3B@N?>jlSb7W=AcKbv9YS4tFFZE3Ayc~u*o>Kp
z0ru!LsL5h^!>>1*xQ^&}08)e)Rq^&V#RAL&b_=MN3<OpHS8BUFE9*JI+e3uC1K?9p
zdw<Oy7dw@e@^fwvW*hU$M)V0+2TTJvZI1ARq|iI_SdHIFMe6}_yf+pGvaF4aDOF`-
z#?Oc_6Ca^Y$J0|Dv|mk&m(jM3+cSQWsAp2I<?R&}O)Tj97^%#R4zbROqo+N4)*b1|
zA1vo&kEYu>8boV7$fAJjldSc}+;{%Dg5x5sH|$!t7uG|`fpR=QE|Ky;it6Hyb#eQ?
zdMeIEdOZUyW_*hxt$C)Hyw`&96~TN$qO`O$H4G906hyE7C)ZeH^@h7ZHoP8CqQ;PL
zw}}S&Mkf%#6Dp7dT?4y(q8;l71i`vkGcc|YdB@A2)Ovu@b$ZEZT%$b)oe%1eAcg2M
zXyz)SLHYqIU9(1~#OkUw6^+FEA=8>9|M`yWVC>=>2oqWRxpsOBv3}a%`zE2K345gE
z;UrSE1{RS)9*<eX7NtAChoTGJhJ*%*3mASwdHiPC+9(g;$Kw};kWg2=<{_&ezA<Zd
zFjw^)c9Ew1xXx&P6{gI@*qBx>Ubja-^&G0(&;v;(VV>MXy(!vQX-I1PBwME-)&TYK
ziI+{*X=1$v7z0>C%RDgRE(7FKfrtU(+f%iACiw#|n_ypeP{7e6LGpM2!stAtlL)CO
zlr~^H(Hc8V76b|AA#HK2IuD;l_FJO^ltM=!tv2-Oc^NFi3|>|Si^nfSuwhV9BhUaP
zwrQZCFFJ(a{7E5IvgOMCrhz*ulxxj)YPFB}uu+rs2SUDQOPXj8jAGqZHR>r&ztiN?
zYZZKS>a6?}B#Y^c*TBfp`SEpL&O}2_)XOW0jn+?|04QM)OdL==G{z#nsY{oiB-G~T
z>P`I}1{$d<;jUlbL8$D&yEQ08blwbW<L6Kc(VG80&ph~s(i0%KDe!5>=ig>GJX32o
ztDA}D;8^(+;R2|3lUY@m!YZZD%(;IKGNaqfOjo*Fk3&)L9V?EeGl#J6&f%w24-C_<
zD7sr}>+0%K7m3y<B`1jp&CU2iaVG^pP)g_MG`-Gz>y6CLivu3h4nBvUVqVt<Ajv|!
zs?(MZ=g-cXMDR%0GZZL{(4ALnN3?^}iV>VTz3(0Mep~Flp7Vy%)3UVaR}X}>>Hht#
z`MF+1T}ox=vB$^V2q`{MG9wsbe)p&>BGuql4^UHLnjG!x{fGm@F{sjx_@f4Mnlri1
zGEBh;L6F0rSMLMhY~p9wV}y*D>4DU^#<6YNTss%jBQ!LWFBt`&2#_XU&YW+>{&U0F
zCWPa&Q&`@JrSrU+p{|M2S<=D}AbzFLT9vjBXENp!OW37nUyyo{u(0sz=}2Q7@gZ&V
zeapE<?iZ+vvqJF1w#XNK-a?pXnh=@0Ygv<JCJQIx1f`{&P?PhQpE$XTHwVci+L0lK
zx7nx_j%YUpdaJQHs}^8KkTY)xkR8lYR#AY^meTgqR$w>H<M2?WJGD$K%~=7I03N&C
z7Uq)a-SF_R!MRBYfgq0;Hcxz=9c~PBOgxsbY80<KB|w4bygt(9%Xx25X0&KNRW6fe
zKw{dnVf#&<vtEy%+@ss&K-|XcPAgdFi~?>*J;i5eGyzJG$ZH{3$tQ+nk^RMPAS7P>
z@h@j^Ft>UxG9d<?#jUnQt1~iNuT-lu8@NPmS4#SqRu{Oru<3sseq<J=y6yXAAmFTz
zFO_jGKxRvJo9d1&+<I1YnXp!$c>vhT)^dAVwrLMzB|1a1cqn(MAZ_6wXoz{JoL#rV
z3O~Y58MVr6!SZ8vC%3^}@X6C>%1alddqXeN)ia2YQ^f+}V-uCAs#ph3S9ZHCdb8Pi
z-eF!umsbTxhFVV-Z{Jymgh5jU;^3#lUKuN+MPOX~6&BIvh2R)_#CP)<fhcMaJ4ZBU
zx3A5Dr?ouA;U3*%bfrp_nLUUE@1=7B2V@nB;Rc~9qF<0dn9n+hlS#GPo6d~84!N|A
z&dyWptJNj(P!j=a{Q3-<yk#Te1_ShJ6iOh+aqfRns?rTjUt-k^zb3N1*%`G?4ClBF
zd5KaM=j&j^nF<5Vsh}W!E4q)!Fa_IIpUW?c`<>ocvttQX*ob0$57W@b4M74P!rU!+
z1dB{(@%PSSW%%^~*Wb06e37<v?z@erwo{ls9#pQ@M6O4t?2ptotjFvcrC-znHcRy!
zY%zkzHoWcby?eicZb2SNJn#uBP#U<n&mlYCZ>A`Vm|e9yyEnWk^}KIOPfcRUy9p}2
zf<KdcDN%0uIhnWt?ZJ2*#;v(MN7wPNOB`RF9zJF=dV7bUp!{$lC$kGho!WZm!#(=F
zMMRsM_Xor;1I^jmDmyhocTw)|R8N&qr365m1%iJk=tdkiK`_@S7Xe#D*w}_<HJ*ne
zflwp?7V2aPcJ7cmX(!QB%6&SWY}IJ<TW99*u<>s5)8@4bPg=Sy+L#q*w_0uBVW$rR
zKIZcl)f!C~PO3<;#2tsG3GIhFC|qm!6L!bx`vKeUe0)B{_wWNVqvbfWPy43uZWDX~
z^O{)qVyWx)we^TUO1HUR3XZ1J!M=ze3Fi0jeJ_&iiUkX7FVGgVungrtOyj@IX1dR2
z-n@A;din-fek~~Fo=!vlfh1{wl8XF5alTJ;{PqF$w5z>%u;BPq8+dFphY3STy`#VX
z4pBT0uahg^Y?ZQoQXxaSS&Dw)8xd4>&`oWD6hv5QJ?D)=EKk*E5TG<06<e+4;Cln-
zV`;)R5C~ufjG_#ohat4$11f7=3?d2{V%N9HUQNiz3+*9>g?lS~K~Mwc6pXqO1Xl{P
z{b`hY5fLV)f=(FKQ)E=zY-ppK*)qd$%tKhIF??5%RPf1n*iJ!r#=5oho7-uOa{*3^
zX>gIs^+)2v4%A;p@OCDROeBz@Ms-7g8Keo97=$E3p3P##7|YnP<2&|i8}{ozE>Oqi
zRh^us^#h6aYutwR#Fg!$%!5<lyBJ94u@*)H5g;Pb?1Ev7pEo9TMt+?|8p`ETd?<<c
zLr?DFRs>z5iEdT)h#V3#N{Ja}>G_95JGHq@>c^auj7MHS*SV1q8{UB_O3wZqeDMIC
z&a!czHH^Ou4Kt=&3vH%4LbpY#WgWMtJ6;Apd?@U5qU+^=8B0xZCcq(fQIauT9<3fi
zw*k<U_9fC&g^aqxg~kgf=8f(AM3Py*P9erRnjtWZD+e}BFV!uKI20{vcJZK+c7DKR
zmVxtCrU$A|L;W-bTqWAe=l&yw<H?G0%sd{!fj?K5>Hwi1cq@n`Hvkko2S4#O^l}9e
z%7WHUs_V2pm0J1r+1M>d_-JTBLwYj-fhv@#rWY567QvxV?IxpS@Y+c00r5)M|GW0=
zN!QJWW{4|RCbFG)5;fr^#h%<?$UJ6)*&&CP2n)jzqT&H0TOFS|d~`vug{ojw#?3}j
z>`BZ1P|)!ZrPoJ+fx3(?x32d@w2Dq=GK-6gv845^Qms{Nwsvc3Y9_yU)}}7mGKQ?=
zJC9eW51bTvmtoVkfYpOEz~tqnpz-&l4D!+q&dGpjZUcczDHo>JN4&LW|7Q|84>YUp
z5EsvwiAFA;12g47yA5Z-$mA!u9>2^x^=+Wfi?>Fx&J7_tODc(`&nD#~*w?MRTq!R^
zf!(AHzv5zlD1yrd^H$v03^^LydZPSEYOSG7en!b@_IXmht{z|nhdZ<4WRCu>scDjB
zd&ch-bIqq=6DRO(GD{Rkir0_(Z$X6@4X8wx5N-^J|J&jhAh0YhL7lH&Z0AypoiB!;
zn$?laS41`0$JclBlr}COPL<+3VeMWNY}`jf+G?_i^eh780;~XdbmJetBDyq2JQuMr
z7E^8jr4;A(8(b1l{TRYrB8a$_+X6+`tp3!pR$O|4c%_qEIA2%Hv7l582#(b(5zV7c
zicE);Gf^)mry`^hA4kvWx`PT+{Rm_*^RP&1jJBakkT@3u4Xvk9h(<nNtuthAz#LzU
zHebLukShC17qd>LEy;T$<7<p{YvTkt8%0<H94C<dj<Pax3>Xa5Jgnh*!6d=cS9~=?
zGCZQZPtz{>G>1~NjD7cSD6o*wPWLQo14{A4bKp<ml5g~Hy!t;q0UKUyO6FWg9_Zkr
oNv6QZjY~NSuah&D|Ke|@+lzj)qn=*hPUDWKYN#X~I(_p$0C;OzW&i*H

diff --git a/Perf-measure.md b/Perf-measure.md
index dc2143c8..3c42e05f 100644
--- a/Perf-measure.md
+++ b/Perf-measure.md
@@ -68,7 +68,7 @@ rm
 #>     }
 #>     .Internal(remove(list, envir, inherits))
 #> }
-#> <bytecode: 0x56191ab34df0>
+#> <bytecode: 0x55c47f4b2a00>
 #> <environment: namespace:base>
 ```
 
@@ -144,8 +144,8 @@ full_join(t_bench_df, t_systime_df, by = "expression")
 #> # A tibble: 2 × 4
 #>   expression bench_mean systime_with_gc systime_with_nogc
 #>   <bch:expr>   <bch:tm>           <dbl>             <dbl>
-#> 1 sqrt(x)       677.2ns           0.629             0.428
-#> 2 x^0.5          2.23µs           2.02              2.00
+#> 1 sqrt(x)      511.16ns           0.441             0.434
+#> 2 x^0.5          2.18µs           1.99              1.99
 ```
 
 The comparison reveals that these two approaches yield quite similar results. Slight differences in exact values is possibly due to differences in the precision of timers used internally by these functions.
@@ -180,10 +180,10 @@ bench::mark(
 #> # A tibble: 4 × 2
 #>   expression      median
 #>   <bch:expr>    <bch:tm>
-#> 1 sqrt(x)         3.02µs
-#> 2 exp(log(x)/2)  12.66µs
-#> 3 x^0.5          18.96µs
-#> 4 x^(1/2)        19.01µs
+#> 1 sqrt(x)         3.06µs
+#> 2 exp(log(x)/2)   12.7µs
+#> 3 x^0.5          18.73µs
+#> 4 x^(1/2)        19.04µs
 ```
 
 The specialized primitive function `sqrt()` (written in `C`) is the fastest way to compute square root.
@@ -205,7 +205,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -218,7 +218,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr       * 1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -226,7 +226,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -244,7 +244,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  profvis     * 0.3.8   2023-05-02 [1] RSPM
 #>  purrr         1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Quotation.md b/Quotation.md
index f71682ea..97da626e 100644
--- a/Quotation.md
+++ b/Quotation.md
@@ -171,7 +171,7 @@ rlang::expr
 #> {
 #>     enexpr(expr)
 #> }
-#> <bytecode: 0x5584f9fd1728>
+#> <bytecode: 0x5595ec2478b0>
 #> <environment: namespace:rlang>
 ```
 
@@ -193,7 +193,7 @@ rlang::enexpr
 #> {
 #>     .Call(ffi_enexpr, substitute(arg), parent.frame())
 #> }
-#> <bytecode: 0x5584f6b2cae0>
+#> <bytecode: 0x5595e8d9f6f0>
 #> <environment: namespace:rlang>
 ```
 
@@ -824,7 +824,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -839,7 +839,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  crayon        1.5.2   2022-09-29 [1] RSPM
 #>  datasets    * 4.3.2   2023-11-01 [3] local
 #>  diffobj       0.3.5   2021-10-05 [1] RSPM
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr       * 1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -849,7 +849,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
 #>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  grid          4.3.2   2023-11-01 [3] local
@@ -872,7 +872,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
 #>  rematch2      2.1.2   2020-05-01 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  scales        1.3.0   2023-11-28 [1] RSPM
diff --git a/R6.md b/R6.md
index 4c63dc0e..fc69979e 100644
--- a/R6.md
+++ b/R6.md
@@ -288,7 +288,7 @@ typeof(myExample)
 #> [1] "environment"
 
 rlang::env_print(myExample)
-#> <environment: 0x5565e0c0a290> [L]
+#> <environment: 0x55e000b67958> [L]
 #> Parent: <environment: empty>
 #> Class: Example, R6
 #> Bindings:
@@ -555,8 +555,8 @@ greetMom()
 gc()
 #> [1] "Closing the file connection!"
 #>           used (Mb) gc trigger (Mb) max used (Mb)
-#> Ncells  746818 39.9    1365334   73  1365334 73.0
-#> Vcells 1372826 10.5    8388608   64  2594870 19.8
+#> Ncells  746827 39.9    1365280   73  1365280 73.0
+#> Vcells 1372827 10.5    8388608   64  2594879 19.8
 ```
 
 ## Session information
@@ -574,7 +574,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       Europe/Berlin
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -586,13 +586,13 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fansi         1.0.6   2023-12-08 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -605,7 +605,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  methods     * 4.3.2   2023-11-01 [3] local
 #>  pillar        1.9.0   2023-03-22 [1] RSPM
 #>  R6          * 2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Rcpp.md b/Rcpp.md
index 7c75ddcc..2a1afee3 100644
--- a/Rcpp.md
+++ b/Rcpp.md
@@ -216,12 +216,12 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression                                      min
 #>   <bch:expr>                                 <bch:tm>
-#> 1 all(c(rep(TRUE, 1000), rep(FALSE, 1000)))    6.13µs
-#> 2 allC(c(rep(TRUE, 1000), rep(FALSE, 1000)))   8.73µs
+#> 1 all(c(rep(TRUE, 1000), rep(FALSE, 1000)))    6.07µs
+#> 2 allC(c(rep(TRUE, 1000), rep(FALSE, 1000)))   8.51µs
 #>     median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1   6.49µs   152211.    15.8KB        0
-#> 2   9.15µs   106881.    18.3KB        0
+#> 1   6.43µs   150391.    15.8KB        0
+#> 2   8.97µs   110025.    18.3KB        0
 ```
 
 - `cumprod()`
@@ -263,8 +263,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression        min   median `itr/sec` mem_alloc
 #>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 cumprod(v1)   89.99ns 101.05ns  8156808.        0B
-#> 2 cumprodC(v1)   1.45µs   1.55µs   612672.    6.62KB
+#> 1 cumprod(v1)     100ns 120.14ns  7160964.        0B
+#> 2 cumprodC(v1)   1.41µs   1.52µs   546730.    6.62KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -310,8 +310,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression       min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 cummin(v1)  120.02ns 131.08ns  5672695.        0B        0
-#> 2 cumminC(v1)   1.56µs   1.87µs   507394.    6.62KB        0
+#> 1 cummin(v1)  129.92ns 149.94ns  5417261.        0B        0
+#> 2 cumminC(v1)   1.63µs   1.91µs   504042.    6.62KB        0
 ```
 
 - `cummaxC()`
@@ -353,8 +353,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression       min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 cummax(v1)  110.01ns 121.07ns  6496158.        0B        0
-#> 2 cummaxC(v1)   1.58µs   1.76µs   545922.    6.62KB        0
+#> 1 cummax(v1)  110.01ns 120.14ns  6575573.        0B        0
+#> 2 cummaxC(v1)   1.57µs   1.71µs   460131.    6.62KB        0
 ```
 
 - `diff()`
@@ -417,8 +417,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression        min   median `itr/sec` mem_alloc
 #>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 diff(v1, 2)    3.88µs   4.46µs   217285.        0B
-#> 2 diffC(v1, 2)   1.89µs   2.13µs   452394.    2.49KB
+#> 1 diff(v1, 2)    3.78µs   4.35µs   218530.        0B
+#> 2 diffC(v1, 2)   1.98µs   2.19µs   440203.    2.49KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -464,8 +464,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression      min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 range(v1)    1.68µs   1.94µs   481017.        0B        0
-#> 2 rangeC(v1)   1.47µs   1.68µs   569929.    6.62KB        0
+#> 1 range(v1)    1.64µs   1.82µs   521325.        0B        0
+#> 2 rangeC(v1)   1.48µs   1.67µs   571723.    6.62KB        0
 ```
 
 - `var()`
@@ -513,8 +513,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression        min   median `itr/sec` mem_alloc
 #>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 var(v1)        7.54µs   8.51µs   111092.        0B
-#> 2 variance(v1)   1.49µs   1.66µs   567349.    6.62KB
+#> 1 var(v1)        7.46µs   8.36µs   116722.        0B
+#> 2 variance(v1)    1.5µs   1.66µs   571095.    6.62KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -695,8 +695,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression              min   median `itr/sec` mem_alloc
 #>   <bch:expr>         <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 median.default(v2)  22.17µs  24.29µs    40480.        0B
-#> 2 medianC(v2)          1.49µs   1.73µs   546971.    2.49KB
+#> 1 median.default(v2)  21.85µs   23.4µs    39476.        0B
+#> 2 medianC(v2)          1.53µs    1.7µs   558136.    2.49KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -746,8 +746,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression          min   median `itr/sec` mem_alloc
 #>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 x1 %in% x2     881.03ns   1.11µs   870819.        0B
-#> 2 matchC(x1, x2)   2.15µs   2.41µs   399261.    6.62KB
+#> 1 x1 %in% x2     910.95ns   1.15µs   825593.        0B
+#> 2 matchC(x1, x2)   2.18µs    2.4µs   405689.    6.62KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -822,8 +822,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression        min   median `itr/sec` mem_alloc
 #>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 unique(v1)      2.1µs   2.41µs   355209.        0B
-#> 2 uniqueC2(v1)   1.63µs   1.85µs   502571.    6.62KB
+#> 1 unique(v1)     2.17µs   2.42µs   392256.        0B
+#> 2 uniqueC2(v1)   1.69µs   1.93µs   483192.    6.62KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -871,8 +871,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression      min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 min(v1)    230.04ns 250.93ns  3402682.        0B        0
-#> 2 minC(v1)     1.42µs   1.56µs   606873.    6.62KB        0
+#> 1 min(v1)    220.03ns 240.98ns  3543775.        0B        0
+#> 2 minC(v1)     1.38µs   1.51µs   626236.    6.62KB        0
 
 max(v1)
 #> [1] 9
@@ -888,8 +888,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression      min   median `itr/sec` mem_alloc `gc/sec`
 #>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>
-#> 1 max(v1)    211.06ns  241.1ns  3455199.        0B        0
-#> 2 maxC(v1)     1.41µs   1.66µs   571011.    6.62KB        0
+#> 1 max(v1)    230.97ns 250.99ns  3388107.        0B        0
+#> 2 maxC(v1)     1.42µs   1.61µs   577581.    6.62KB        0
 ```
 
 1. `which.min()` using `min_element`, or `which.max()` using `max_element`.
@@ -939,8 +939,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression          min   median `itr/sec` mem_alloc
 #>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 which.min(v1)  401.05ns  421.1ns  2181122.        0B
-#> 2 which_minC(v1)   1.44µs    1.6µs   591193.    6.62KB
+#> 1 which.min(v1)   390.1ns 411.06ns  2144208.        0B
+#> 2 which_minC(v1)    1.4µs   1.61µs   594433.    6.62KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -960,8 +960,8 @@ bench::mark(
 #> # A tibble: 2 × 6
 #>   expression          min   median `itr/sec` mem_alloc
 #>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>
-#> 1 which.max(v1)  410.01ns 490.92ns  1870056.        0B
-#> 2 which_maxC(v1)   1.41µs   1.57µs   585441.    6.62KB
+#> 1 which.max(v1)  381.03ns 401.05ns  2223966.        0B
+#> 2 which_maxC(v1)   1.42µs   1.55µs   615294.    6.62KB
 #>   `gc/sec`
 #>      <dbl>
 #> 1        0
@@ -1101,7 +1101,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -1114,13 +1114,13 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fansi         1.0.6   2023-12-08 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -1135,8 +1135,8 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  profmem       0.6.0   2020-12-13 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  Rcpp        * 1.0.11  2023-07-06 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  Rcpp        * 1.0.12  2024-01-09 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/S3.md b/S3.md
index 80ccb997..4af3d9b5 100644
--- a/S3.md
+++ b/S3.md
@@ -579,7 +579,7 @@ t(x)
 t
 #> function (x) 
 #> UseMethod("t")
-#> <bytecode: 0x56119bea5208>
+#> <bytecode: 0x5609d011b1a8>
 #> <environment: namespace:base>
 sloop::is_s3_generic("t")
 #> [1] TRUE
@@ -587,7 +587,7 @@ sloop::is_s3_generic("t")
 t.test
 #> function (x, ...) 
 #> UseMethod("t.test")
-#> <bytecode: 0x561196f41140>
+#> <bytecode: 0x5609cb197120>
 #> <environment: namespace:stats>
 sloop::is_s3_generic("t.test")
 #> [1] TRUE
@@ -1006,7 +1006,7 @@ sloop::s3_get_method("[.Date")
 #> {
 #>     .Date(NextMethod("["), oldClass(x))
 #> }
-#> <bytecode: 0x56119c235db0>
+#> <bytecode: 0x5609d04d4130>
 #> <environment: namespace:base>
 ```
 
@@ -1017,7 +1017,7 @@ The `.Date` function looks like this:
 .Date
 #> function (xx, cl = "Date") 
 #> `class<-`(xx, cl)
-#> <bytecode: 0x561199d84c50>
+#> <bytecode: 0x5609ce3b8768>
 #> <environment: namespace:base>
 ```
 
@@ -1040,7 +1040,7 @@ attributes(x[1])
 #> [1] "subDate" "Date"
 
 x[1]
-#> [1] "2024-01-07"
+#> [1] "2024-01-14"
 ```
 
 
@@ -1409,7 +1409,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -1423,7 +1423,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  crayon        1.5.2   2022-09-29 [1] RSPM
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  dplyr       * 1.1.4   2023-11-17 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
@@ -1431,7 +1431,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
 #>  generics      0.1.3   2022-07-05 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -1446,7 +1446,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/S4.md b/S4.md
index 2320d4c3..206937b8 100644
--- a/S4.md
+++ b/S4.md
@@ -625,7 +625,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -639,14 +639,14 @@ sessioninfo::session_info(include_base = TRUE)
 #>  compiler      4.3.2      2023-11-01 [3] local
 #>  crayon        1.5.2      2022-09-29 [1] RSPM
 #>  datasets    * 4.3.2      2023-11-01 [3] local
-#>  digest        0.6.33     2023-07-07 [1] RSPM
+#>  digest        0.6.34     2024-01-11 [1] RSPM
 #>  downlit       0.4.3      2023-06-29 [1] RSPM
 #>  emo           0.0.0.9000 2023-11-05 [1] Github (hadley/emo@3f03b11)
 #>  evaluate      0.23       2023-11-01 [1] RSPM
 #>  fastmap       1.1.1      2023-02-24 [1] RSPM
 #>  fs            1.6.3      2023-07-20 [1] RSPM
 #>  generics      0.1.3      2022-07-05 [1] RSPM
-#>  glue          1.6.2      2022-02-24 [1] RSPM
+#>  glue          1.7.0      2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2      2023-11-01 [3] local
 #>  grDevices   * 4.3.2      2023-11-01 [3] local
 #>  highr         0.10       2022-12-22 [1] RSPM
@@ -661,7 +661,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  methods     * 4.3.2      2023-11-01 [3] local
 #>  purrr         1.0.2      2023-08-10 [1] RSPM
 #>  R6            2.5.1      2021-08-19 [1] RSPM
-#>  rlang         1.1.2      2023-11-04 [1] RSPM
+#>  rlang         1.1.3      2024-01-10 [1] RSPM
 #>  rmarkdown     2.25       2023-09-18 [1] RSPM
 #>  sass          0.4.8      2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2      2021-12-06 [1] RSPM
diff --git a/Subsetting.md b/Subsetting.md
index 541d4411..a0f3a700 100644
--- a/Subsetting.md
+++ b/Subsetting.md
@@ -418,7 +418,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -430,13 +430,13 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fansi         1.0.6   2023-12-08 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -450,7 +450,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pillar        1.9.0   2023-03-22 [1] RSPM
 #>  pkgconfig     2.0.3   2019-09-22 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Translation.md b/Translation.md
index cb728a3f..30342fec 100644
--- a/Translation.md
+++ b/Translation.md
@@ -322,7 +322,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -334,13 +334,13 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fansi         1.0.6   2023-12-08 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
 #>  fs            1.6.3   2023-07-20 [1] RSPM
-#>  glue          1.6.2   2022-02-24 [1] RSPM
+#>  glue          1.7.0   2024-01-09 [1] RSPM
 #>  graphics    * 4.3.2   2023-11-01 [3] local
 #>  grDevices   * 4.3.2   2023-11-01 [3] local
 #>  htmltools     0.5.7   2023-11-03 [1] RSPM
@@ -354,7 +354,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  pillar        1.9.0   2023-03-22 [1] RSPM
 #>  purrr       * 1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang       * 1.1.2   2023-11-04 [1] RSPM
+#>  rlang       * 1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/Vectors.md b/Vectors.md
index 490f65a3..cbd8dd07 100644
--- a/Vectors.md
+++ b/Vectors.md
@@ -210,7 +210,7 @@ setNames
 #>     names(object) <- nm
 #>     object
 #> }
-#> <bytecode: 0x55c0caac1880>
+#> <bytecode: 0x562d125057d0>
 #> <environment: namespace:stats>
 ```
 
@@ -240,7 +240,7 @@ unname
 #>         dimnames(obj) <- NULL
 #>     obj
 #> }
-#> <bytecode: 0x55c0c9ecc578>
+#> <bytecode: 0x562d11912230>
 #> <environment: namespace:base>
 ```
 
@@ -841,7 +841,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  collate  C.UTF-8
 #>  ctype    C.UTF-8
 #>  tz       UTC
-#>  date     2024-01-07
+#>  date     2024-01-14
 #>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)
 #> 
 #> ─ Packages ───────────────────────────────────────────────
@@ -853,7 +853,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  cli           3.6.2   2023-12-11 [1] RSPM
 #>  compiler      4.3.2   2023-11-01 [3] local
 #>  datasets    * 4.3.2   2023-11-01 [3] local
-#>  digest        0.6.33  2023-07-07 [1] RSPM
+#>  digest        0.6.34  2024-01-11 [1] RSPM
 #>  downlit       0.4.3   2023-06-29 [1] RSPM
 #>  evaluate      0.23    2023-11-01 [1] RSPM
 #>  fastmap       1.1.1   2023-02-24 [1] RSPM
@@ -870,7 +870,7 @@ sessioninfo::session_info(include_base = TRUE)
 #>  methods     * 4.3.2   2023-11-01 [3] local
 #>  purrr         1.0.2   2023-08-10 [1] RSPM
 #>  R6            2.5.1   2021-08-19 [1] RSPM
-#>  rlang         1.1.2   2023-11-04 [1] RSPM
+#>  rlang         1.1.3   2024-01-10 [1] RSPM
 #>  rmarkdown     2.25    2023-09-18 [1] RSPM
 #>  sass          0.4.8   2023-12-06 [1] RSPM
 #>  sessioninfo   1.2.2   2021-12-06 [1] RSPM
diff --git a/base-types.html b/base-types.html
index 3c1ab03b..d29c55e7 100644
--- a/base-types.html
+++ b/base-types.html
@@ -111,7 +111,7 @@ <h1>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/big-picture.html b/big-picture.html
index c4a9fe95..d7ed8700 100644
--- a/big-picture.html
+++ b/big-picture.html
@@ -111,7 +111,7 @@ <h1>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/conditions.html b/conditions.html
index be8b39b6..ea4bf176 100644
--- a/conditions.html
+++ b/conditions.html
@@ -314,7 +314,7 @@ <h2>
 <span><span class="co">#&gt;         return(NULL)</span></span>
 <span><span class="co">#&gt;     })))</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55f2c19fa068&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5605664637c0&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:rlang&gt;</span></span></code></pre></div>
 <p>As mentioned in the function docs:</p>
 <blockquote>
@@ -633,7 +633,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -647,7 +647,7 @@ <h2>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  desc          1.4.3   2023-12-10 [1] RSPM</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr         1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -655,7 +655,7 @@ <h2>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -670,7 +670,7 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  pkgload       1.3.3   2023-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rprojroot     2.0.4   2023-11-05 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
@@ -726,7 +726,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/control-flow.html b/control-flow.html
index 43eea36b..7d414ac5 100644
--- a/control-flow.html
+++ b/control-flow.html
@@ -277,7 +277,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -289,7 +289,7 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
@@ -305,7 +305,7 @@ <h2>
 <span><span class="co">#&gt;  memoise       2.0.1   2021-11-26 [1] RSPM</span></span>
 <span><span class="co">#&gt;  methods     * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -352,7 +352,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/debugging.html b/debugging.html
index b1a1d483..6e901441 100644
--- a/debugging.html
+++ b/debugging.html
@@ -111,7 +111,7 @@ <h1>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/environments.html b/environments.html
index ad81f7df..14ba4201 100644
--- a/environments.html
+++ b/environments.html
@@ -143,15 +143,15 @@ <h2>
 <span><span class="va">e</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rlang.r-lib.org/reference/env.html">env</a></span><span class="op">(</span><span class="op">)</span></span>
 <span><span class="va">e</span><span class="op">$</span><span class="va">loop</span> <span class="op">&lt;-</span> <span class="va">e</span></span>
 <span><span class="fu"><a href="https://rlang.r-lib.org/reference/env_print.html">env_print</a></span><span class="op">(</span><span class="va">e</span><span class="op">)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x5592b255c2e8&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x5653c4908508&gt;</span></span>
 <span><span class="co">#&gt; Parent: &lt;environment: global&gt;</span></span>
 <span><span class="co">#&gt; Bindings:</span></span>
 <span><span class="co">#&gt; • loop: &lt;env&gt;</span></span></code></pre></div>
 <p>The binding <code>loop</code> should have the same memory address as the environment <code>e</code>:</p>
 <div class="sourceCode" id="cb193"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu">lobstr</span><span class="fu">::</span><span class="fu"><a href="https://lobstr.r-lib.org/reference/ref.html">ref</a></span><span class="op">(</span><span class="va">e</span><span class="op">$</span><span class="va">loop</span><span class="op">)</span></span>
-<span><span class="co">#&gt; █ [1:0x5592b255c2e8] &lt;env&gt; </span></span>
-<span><span class="co">#&gt; └─loop = [1:0x5592b255c2e8]</span></span></code></pre></div>
+<span><span class="co">#&gt; █ [1:0x5653c4908508] &lt;env&gt; </span></span>
+<span><span class="co">#&gt; └─loop = [1:0x5653c4908508]</span></span></code></pre></div>
 <p><strong>Q3.</strong> Create a pair of environments as illustrated by this picture.</p>
 <div class="inline-figure"><img src="diagrams/environments/recursive-2.png" width="307"></div>
 <p><strong>A3.</strong> Creating the specified environment:</p>
@@ -164,9 +164,9 @@ <h2>
 <span></span>
 <span><span class="co"># following should be the same</span></span>
 <span><span class="fu">lobstr</span><span class="fu">::</span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addrs</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="va">e1</span>, <span class="va">e2</span><span class="op">$</span><span class="va">deloop</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x5592b4bbb1e8" "0x5592b4bbb1e8"</span></span>
+<span><span class="co">#&gt; [1] "0x5653c6f66620" "0x5653c6f66620"</span></span>
 <span><span class="fu">lobstr</span><span class="fu">::</span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addrs</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="va">e2</span>, <span class="va">e1</span><span class="op">$</span><span class="va">loop</span><span class="op">)</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x5592b4c08948" "0x5592b4c08948"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "0x5653c6fbb9f0" "0x5653c6fbb9f0"</span></span></code></pre></div>
 <p><strong>Q4.</strong> Explain why <code>e[[1]]</code> and <code>e[c("a", "b")]</code> don’t make sense when <code>e</code> is an environment.</p>
 <p><strong>A4.</strong> An environment is a non-linear data structure, and has no concept of ordered elements. Therefore, indexing it (e.g. <code>e[[1]]</code>) doesn’t make sense.</p>
 <p>Subsetting a list or a vector returns a subset of the underlying data structure. For example, subsetting a vector returns another vector. But it’s unclear what subsetting an environment (e.g. <code>e[c("a", "b")]</code>) should return because there is no data structure to contain its returns. It can’t be another environment since environments have reference semantics.</p>
@@ -349,7 +349,7 @@ <h2>
 <span><span class="fu">fget</span><span class="op">(</span><span class="st">"mean"</span>, inherits <span class="op">=</span> <span class="cn">TRUE</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; UseMethod("mean")</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5592aff915a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5653c233ea20&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span>
 <span></span>
 <span><span class="va">mean</span> <span class="op">&lt;-</span> <span class="fl">5</span></span>
@@ -516,7 +516,7 @@ <h2>
 <span><span class="co">#&gt; {</span></span>
 <span><span class="co">#&gt;     parent.frame(n + 1)</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5592b0ab08d0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5653c2e5d500&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:rlang&gt;</span></span></code></pre></div>
 <p>Let’s try it out:</p>
 <ul>
@@ -564,7 +564,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -577,7 +577,7 @@ <h2>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  crayon        1.5.2   2022-09-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr         1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -585,7 +585,7 @@ <h2>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  highr         0.10    2022-12-22 [1] RSPM</span></span>
@@ -602,7 +602,7 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  png           0.1-8   2022-11-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -655,7 +655,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/evaluation.html b/evaluation.html
index 4f2c3fcd..902d8791 100644
--- a/evaluation.html
+++ b/evaluation.html
@@ -122,7 +122,7 @@ <h2>
 <span>    <span class="fu">foo</span><span class="op">(</span><span class="op">)</span></span>
 <span>  <span class="op">}</span></span>
 <span><span class="op">)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x564fa1bed6a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x556694e969e0&gt;</span></span>
 <span><span class="co">#&gt; Parent: &lt;environment: global&gt;</span></span></code></pre></div>
 <p>To specify a custom environment, the <code><a href="https://rdrr.io/r/base/sys.source.html">sys.source()</a></code> function can be used, which provides an <code>envir</code> parameter.</p>
 <hr>
@@ -275,17 +275,17 @@ <h2>
 <span><span class="va">q1</span></span>
 <span><span class="co">#&gt; &lt;quosure&gt;</span></span>
 <span><span class="co">#&gt; expr: ^x</span></span>
-<span><span class="co">#&gt; env:  0x564fa1a3e9a0</span></span>
+<span><span class="co">#&gt; env:  0x556694cebe60</span></span>
 <span><span class="va">q2</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rlang.r-lib.org/reference/new_quosure.html">new_quosure</a></span><span class="op">(</span><span class="fu"><a href="https://rlang.r-lib.org/reference/expr.html">expr</a></span><span class="op">(</span><span class="va">x</span> <span class="op">+</span> <span class="op">!</span><span class="op">!</span><span class="va">q1</span><span class="op">)</span>, <span class="fu"><a href="https://rlang.r-lib.org/reference/env.html">env</a></span><span class="op">(</span>x <span class="op">=</span> <span class="fl">10</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="va">q2</span></span>
 <span><span class="co">#&gt; &lt;quosure&gt;</span></span>
 <span><span class="co">#&gt; expr: ^x + (^x)</span></span>
-<span><span class="co">#&gt; env:  0x564fa20915d8</span></span>
+<span><span class="co">#&gt; env:  0x55669533ac58</span></span>
 <span><span class="va">q3</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rlang.r-lib.org/reference/new_quosure.html">new_quosure</a></span><span class="op">(</span><span class="fu"><a href="https://rlang.r-lib.org/reference/expr.html">expr</a></span><span class="op">(</span><span class="va">x</span> <span class="op">+</span> <span class="op">!</span><span class="op">!</span><span class="va">q2</span><span class="op">)</span>, <span class="fu"><a href="https://rlang.r-lib.org/reference/env.html">env</a></span><span class="op">(</span>x <span class="op">=</span> <span class="fl">100</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="va">q3</span></span>
 <span><span class="co">#&gt; &lt;quosure&gt;</span></span>
 <span><span class="co">#&gt; expr: ^x + (^x + (^x))</span></span>
-<span><span class="co">#&gt; env:  0x564fa23500b0</span></span></code></pre></div>
+<span><span class="co">#&gt; env:  0x5566955fd570</span></span></code></pre></div>
 <p><strong>A1.</strong> Correctly predicted 😉</p>
 <div class="sourceCode" id="cb598"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">q1</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rlang.r-lib.org/reference/new_quosure.html">new_quosure</a></span><span class="op">(</span><span class="fu"><a href="https://rlang.r-lib.org/reference/expr.html">expr</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span>, <span class="fu"><a href="https://rlang.r-lib.org/reference/env.html">env</a></span><span class="op">(</span>x <span class="op">=</span> <span class="fl">1</span><span class="op">)</span><span class="op">)</span></span>
@@ -313,7 +313,7 @@ <h2>
 <span></span>
 <span><span class="va">foo</span> <span class="op">&lt;-</span> <span class="kw">function</span><span class="op">(</span><span class="va">x</span><span class="op">)</span> <span class="fu">enenv</span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
 <span><span class="fu">foo</span><span class="op">(</span><span class="op">)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x564fa32bc708&gt;</span></span></code></pre></div>
+<span><span class="co">#&gt; &lt;environment: 0x55669656a448&gt;</span></span></code></pre></div>
 <hr>
 </div>
 <div id="data-masks-exercises-20.4.6" class="section level2" number="20.3">
@@ -608,7 +608,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -620,13 +620,13 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fansi         1.0.6   2023-12-08 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -640,7 +640,7 @@ <h2>
 <span><span class="co">#&gt;  pillar        1.9.0   2023-03-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr         1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -692,7 +692,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/expressions.html b/expressions.html
index 6c1437c7..d7a6c265 100644
--- a/expressions.html
+++ b/expressions.html
@@ -359,7 +359,7 @@ <h2>
 <code class="sourceCode R"><span><span class="va">mean</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; UseMethod("mean")</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x562fc13895a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5577d9c40a20&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>As mentioned in the respective <a href="If%20the%20function%20uses%20...%20it%E2%80%99s%20not%20possible%20to%20standardise%20all%20arguments.">section</a>:</p>
 <blockquote>
@@ -833,7 +833,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -846,13 +846,13 @@ <h2>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  crayon        1.5.2   2022-09-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fansi         1.0.6   2023-12-08 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -867,7 +867,7 @@ <h2>
 <span><span class="co">#&gt;  pillar        1.9.0   2023-03-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr         1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -918,7 +918,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/function-factories.html b/function-factories.html
index b397185b..800664d9 100644
--- a/function-factories.html
+++ b/function-factories.html
@@ -100,7 +100,7 @@ <h2>
 <code class="sourceCode R"><span><span class="va">force</span></span>
 <span><span class="co">#&gt; function (x) </span></span>
 <span><span class="co">#&gt; x</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x56479c5e3ab0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5590c97aba90&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>Why is it better to <code>force(x)</code> instead of just <code>x</code>?</p>
 <p><strong>A1.</strong> Due to lazy evaluation, argument to a function won’t be evaluated until its value is needed. But sometimes we may want to have eager evaluation, and using <code><a href="https://rdrr.io/r/base/force.html">force()</a></code> makes this intent clearer.</p>
@@ -118,8 +118,8 @@ <h2>
 <span><span class="va">f</span></span>
 <span><span class="co">#&gt; function (v) </span></span>
 <span><span class="co">#&gt; .approxfun(x, y, v, method, yleft, yright, f, na.rm)</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5647a0854cb0&gt;</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x5647a0853ba0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5590cda1fcf8&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x5590cda1e670&gt;</span></span>
 <span><span class="fu">f</span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
 <span><span class="co">#&gt;  [1] -0.7786629 -0.3894764 -2.0337983 -0.9823731  0.2478901</span></span>
 <span><span class="co">#&gt;  [6] -2.1038646 -0.3814180  2.0749198  1.0271384  0.4730142</span></span>
@@ -235,15 +235,15 @@ <h2>
 <span><span class="co">#&gt;     i &lt;- i + 1</span></span>
 <span><span class="co">#&gt;     i</span></span>
 <span><span class="co">#&gt;   }</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x5647a09f9e68&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x5590cdbc7ee0&gt;</span></span>
 <span></span>
 <span><span class="fu">new_counter3</span><span class="op">(</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function() {</span></span>
 <span><span class="co">#&gt;     i &lt;- i + 1</span></span>
 <span><span class="co">#&gt;     i</span></span>
 <span><span class="co">#&gt;   }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5647a0bbe600&gt;</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x5647a0a71c80&gt;</span></span></code></pre></div>
+<span><span class="co">#&gt; &lt;bytecode: 0x5590cdd86650&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x5590cdc39d08&gt;</span></span></code></pre></div>
 <hr>
 </div>
 <div id="graphical-factories-exercises-10.3.4" class="section level2" number="10.2">
@@ -278,7 +278,7 @@ <h2>
 <span><span class="co">#&gt;     }</span></span>
 <span><span class="co">#&gt;     structure(fun, class = "labeller")</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5647a0d500b0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5590cdf1fd70&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:ggplot2&gt;</span></span></code></pre></div>
 <ul>
 <li><code><a href="https://scales.r-lib.org/reference/comma.html">scales::number_format()</a></code></li>
@@ -299,7 +299,7 @@ <h2>
 <span><span class="co">#&gt;             scale_cut = scale_cut, trim = trim, ...)</span></span>
 <span><span class="co">#&gt;     }</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5647a0fa0bc8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5590ce16b2e0&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:scales&gt;</span></span></code></pre></div>
 <p>Both of these functions return formatting functions used to style the facets labels and other labels to have the desired format in <a href="https://ggplot2.tidyverse.org">ggplot2</a> plots.</p>
 <p>For example, using plotmath expression in the facet label:</p>
@@ -365,7 +365,7 @@ <h2>
 <div class="sourceCode" id="cb322"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu">boxcox2</span><span class="op">(</span><span class="fl">1</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function(x) (x^lambda - 1) / lambda</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x56479c998358&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x5590c9ee8238&gt;</span></span>
 <span></span>
 <span><span class="fu">boxcox3</span><span class="op">(</span><span class="va">mtcars</span><span class="op">$</span><span class="va">wt</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function(lambda) {</span></span>
@@ -375,7 +375,7 @@ <h2>
 <span><span class="co">#&gt;       (x^lambda - 1) / lambda</span></span>
 <span><span class="co">#&gt;     }</span></span>
 <span><span class="co">#&gt;   }</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x56479de7f188&gt;</span></span></code></pre></div>
+<span><span class="co">#&gt; &lt;environment: 0x5590c96d5fa0&gt;</span></span></code></pre></div>
 <p>As can be seen:</p>
 <ul>
 <li>in <code>boxcox2()</code>, we can vary <code>x</code> for the same value of <code>lambda</code>, while</li>
@@ -401,12 +401,12 @@ <h2>
 <span><span class="co">#&gt;     col &lt;- df[[var]]</span></span>
 <span><span class="co">#&gt;     col[sample(n, replace = TRUE)]</span></span>
 <span><span class="co">#&gt;   }</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x56479fac0b28&gt;</span></span></code></pre></div>
+<span><span class="co">#&gt; &lt;environment: 0x5590cceb60a0&gt;</span></span></code></pre></div>
 <p>This is why we don’t need to worry about a copy being made because the <code>df</code> in the function environment points to the memory address of the data frame. We can confirm this by comparing their memory addresses:</p>
 <div class="sourceCode" id="cb324"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">boot_permute_env</span> <span class="op">&lt;-</span> <span class="fu">rlang</span><span class="fu">::</span><span class="fu"><a href="https://rlang.r-lib.org/reference/fn_env.html">fn_env</a></span><span class="op">(</span><span class="fu">boot_permute</span><span class="op">(</span><span class="va">mtcars</span>, <span class="st">"mpg"</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="fu">rlang</span><span class="fu">::</span><span class="fu"><a href="https://rlang.r-lib.org/reference/env_print.html">env_print</a></span><span class="op">(</span><span class="va">boot_permute_env</span><span class="op">)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x5647a06ef728&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x5590cd8a9768&gt;</span></span>
 <span><span class="co">#&gt; Parent: &lt;environment: global&gt;</span></span>
 <span><span class="co">#&gt; Bindings:</span></span>
 <span><span class="co">#&gt; • n: &lt;int&gt;</span></span>
@@ -455,8 +455,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 LL1          28.3µs   30.2µs    31979.    12.9KB     41.6</span></span>
-<span><span class="co">#&gt; 2 LL2          14.6µs   15.7µs    60147.        0B     48.2</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 LL1          27.4µs   28.9µs    33688.    12.9KB     43.9</span></span>
+<span><span class="co">#&gt; 2 LL2          14.3µs   14.9µs    63742.        0B     51.0</span></span></code></pre></div>
 <p>As can be seen, the second version is much faster than the first version.</p>
 <p>We can also vary the length of the vector and confirm that across a wide range of vector lengths, this performance advantage is observed.</p>
 <div class="sourceCode" id="cb327"><pre class="downlit sourceCode r">
@@ -477,16 +477,16 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 10 × 5</span></span>
 <span><span class="co">#&gt;    length expression      min   median `itr/sec`</span></span>
 <span><span class="co">#&gt;     &lt;dbl&gt; &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt;  1     10 LL1          39.9µs   42.1µs    22543.</span></span>
-<span><span class="co">#&gt;  2     10 LL2          17.3µs   18.3µs    53968.</span></span>
-<span><span class="co">#&gt;  3     20 LL1            43µs   44.6µs    22159.</span></span>
-<span><span class="co">#&gt;  4     20 LL2          17.1µs     18µs    54815.</span></span>
-<span><span class="co">#&gt;  5     50 LL1          46.8µs   48.3µs    20374.</span></span>
-<span><span class="co">#&gt;  6     50 LL2          16.3µs   17.4µs    56753.</span></span>
-<span><span class="co">#&gt;  7    100 LL1          62.4µs   64.1µs    15369.</span></span>
-<span><span class="co">#&gt;  8    100 LL2          17.6µs   18.4µs    53652.</span></span>
-<span><span class="co">#&gt;  9   1000 LL1         857.4µs    965µs     1081.</span></span>
-<span><span class="co">#&gt; 10   1000 LL2          54.6µs   56.2µs    17530.</span></span>
+<span><span class="co">#&gt;  1     10 LL1          39.4µs   41.1µs    23111.</span></span>
+<span><span class="co">#&gt;  2     10 LL2          17.3µs   17.9µs    54853.</span></span>
+<span><span class="co">#&gt;  3     20 LL1          41.8µs   43.4µs    22623.</span></span>
+<span><span class="co">#&gt;  4     20 LL2          16.5µs   17.4µs    56762.</span></span>
+<span><span class="co">#&gt;  5     50 LL1          46.4µs   47.8µs    20648.</span></span>
+<span><span class="co">#&gt;  6     50 LL2          16.1µs   17.1µs    57875.</span></span>
+<span><span class="co">#&gt;  7    100 LL1          61.5µs   63.3µs    15559.</span></span>
+<span><span class="co">#&gt;  8    100 LL2          17.3µs   18.1µs    54058.</span></span>
+<span><span class="co">#&gt;  9   1000 LL1         855.2µs  901.3µs     1090.</span></span>
+<span><span class="co">#&gt; 10   1000 LL2          53.9µs   55.2µs    17862.</span></span>
 <span></span>
 <span><span class="fu"><a href="https://ggplot2.tidyverse.org/reference/ggplot.html">ggplot</a></span><span class="op">(</span></span>
 <span>  <span class="va">df_bench</span>,</span>
@@ -598,7 +598,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -612,7 +612,7 @@ <h2>
 <span><span class="co">#&gt;  colorspace    2.1-0   2023-01-23 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr         1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -622,7 +622,7 @@ <h2>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
 <span><span class="co">#&gt;  ggplot2     * 3.4.4   2023-10-12 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grid          4.3.2   2023-11-01 [3] local</span></span>
@@ -644,7 +644,7 @@ <h2>
 <span><span class="co">#&gt;  profmem       0.6.0   2020-12-13 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr         1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  scales      * 1.3.0   2023-11-28 [1] RSPM</span></span>
@@ -698,7 +698,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/function-operators.html b/function-operators.html
index de65ce11..507333b7 100644
--- a/function-operators.html
+++ b/function-operators.html
@@ -159,7 +159,7 @@ <h2>
 <span><span class="co">#&gt;         })</span></span>
 <span><span class="co">#&gt;     }</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55d5181c6328&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x559ef73f2028&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:purrr&gt;</span></span></code></pre></div>
 <p>Looking at this code, we can see that <code><a href="https://purrr.tidyverse.org/reference/possibly.html">possibly()</a></code>:</p>
 <ul>
@@ -179,7 +179,7 @@ <h2>
 <span><span class="co">#&gt;     check_bool(quiet)</span></span>
 <span><span class="co">#&gt;     function(...) capture_error(.f(...), otherwise, quiet)</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55d518363bb8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x559ef758cf08&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:purrr&gt;</span></span>
 <span></span>
 <span><span class="fu">purrr</span><span class="fu">:::</span><span class="va">capture_error</span></span>
@@ -191,7 +191,7 @@ <h2>
 <span><span class="co">#&gt;         list(result = otherwise, error = e)</span></span>
 <span><span class="co">#&gt;     })</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55d5183be3f0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x559ef75e9110&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:purrr&gt;</span></span></code></pre></div>
 <p>Looking at this code, we can see that <code><a href="https://purrr.tidyverse.org/reference/safely.html">safely()</a></code>:</p>
 <ul>
@@ -316,10 +316,10 @@ <h2>
 <span></span>
 <span>  <span class="fu"><a href="https://rdrr.io/r/base/cat.html">cat</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/readLines.html">readLines</a></span><span class="op">(</span><span class="va">logfile</span><span class="op">)</span>, sep <span class="op">=</span> <span class="st">"\n"</span><span class="op">)</span></span>
 <span><span class="op">}</span><span class="op">)</span></span>
-<span><span class="co">#&gt; Function created at: 2024-01-07 00:44:00.426587</span></span>
-<span><span class="co">#&gt; Function called at:  2024-01-07 00:44:05.433612</span></span>
-<span><span class="co">#&gt; Function called at:  2024-01-07 00:44:10.439013</span></span>
-<span><span class="co">#&gt; Function called at:  2024-01-07 00:44:18.447574</span></span></code></pre></div>
+<span><span class="co">#&gt; Function created at: 2024-01-14 00:44:29.239652</span></span>
+<span><span class="co">#&gt; Function called at:  2024-01-14 00:44:34.246656</span></span>
+<span><span class="co">#&gt; Function called at:  2024-01-14 00:44:39.251978</span></span>
+<span><span class="co">#&gt; Function called at:  2024-01-14 00:44:47.260402</span></span></code></pre></div>
 <hr>
 <p><strong>Q5.</strong> Modify <code>delay_by()</code> so that instead of delaying by a fixed amount of time, it ensures that a certain amount of time has elapsed since the function was last called. That is, if you called <code>g &lt;- delay_by(1, f); g(); Sys.sleep(2); g()</code> there shouldn’t be an extra delay.</p>
 <p><strong>A5.</strong> Modified version of the function meeting the specified requirements:</p>
@@ -361,7 +361,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -373,7 +373,7 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr         1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -381,7 +381,7 @@ <h2>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -396,7 +396,7 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -447,7 +447,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/functionals.html b/functionals.html
index 8854748f..636ac9f2 100644
--- a/functionals.html
+++ b/functionals.html
@@ -115,7 +115,7 @@ <h2>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/as_mapper.html">as_mapper</a></span><span class="op">(</span><span class="fl">1</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; pluck_raw(x, list(1), .default = NULL)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x55d958cd1430&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x55c80533e1d0&gt;</span></span>
 <span></span>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/map.html">map</a></span><span class="op">(</span><span class="va">x</span>, <span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="fl">2</span>, <span class="fl">1</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [[1]]</span></span>
@@ -126,7 +126,7 @@ <h2>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/as_mapper.html">as_mapper</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="fl">2</span>, <span class="fl">1</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; pluck_raw(x, list(2, 1), .default = NULL)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x55d958db8158&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x55c805424e18&gt;</span></span>
 <span></span>
 <span><span class="co"># mapping by name -----------------------</span></span>
 <span></span>
@@ -144,7 +144,7 @@ <h2>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/as_mapper.html">as_mapper</a></span><span class="op">(</span><span class="st">"m"</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; pluck_raw(x, list("m"), .default = NULL)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x55d958f06330&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x55c805572ff0&gt;</span></span>
 <span></span>
 <span><span class="co"># mixing position and name</span></span>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/map.html">map</a></span><span class="op">(</span><span class="va">y</span>, <span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="fl">2</span>, <span class="st">"m"</span><span class="op">)</span><span class="op">)</span></span>
@@ -156,7 +156,7 @@ <h2>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/as_mapper.html">as_mapper</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="fl">2</span>, <span class="st">"m"</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; pluck_raw(x, list(2, "m"), .default = NULL)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x55d958fec178&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x55c805658e38&gt;</span></span>
 <span></span>
 <span><span class="co"># compact functions ----------------------------</span></span>
 <span></span>
@@ -210,7 +210,7 @@ <h2>
 <span><span class="fu"><a href="https://purrr.tidyverse.org/reference/as_mapper.html">as_mapper</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/stats/Uniform.html">runif</a></span><span class="op">(</span><span class="fl">2</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; pluck_raw(x, list(0.597890264587477, 0.587997315218672), .default = NULL)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x55d959f7d6f8&gt;</span></span></code></pre></div>
+<span><span class="co">#&gt; &lt;environment: 0x55c8065ea348&gt;</span></span></code></pre></div>
 <hr>
 <p><strong>Q3.</strong> Use the appropriate <code><a href="https://purrr.tidyverse.org/reference/map.html">map()</a></code> function to:</p>
 <pre><code>a) Compute the standard deviation of every column in a numeric data frame.
@@ -787,7 +787,7 @@ <h2>
 <span></span>
 <span><span class="va">e</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rlang.r-lib.org/reference/env.html">env</a></span><span class="op">(</span><span class="st">"x"</span> <span class="op">=</span> <span class="fl">1</span>, <span class="st">"y"</span> <span class="op">=</span> <span class="fl">2</span><span class="op">)</span></span>
 <span><span class="fu">rlang</span><span class="fu">::</span><span class="fu"><a href="https://rlang.r-lib.org/reference/env_print.html">env_print</a></span><span class="op">(</span><span class="va">e</span><span class="op">)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x55d9572060a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x55c8037a7ee0&gt;</span></span>
 <span><span class="co">#&gt; Parent: &lt;environment: global&gt;</span></span>
 <span><span class="co">#&gt; Bindings:</span></span>
 <span><span class="co">#&gt; • x: &lt;dbl&gt;</span></span>
@@ -901,7 +901,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -913,7 +913,7 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr         1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -921,7 +921,7 @@ <h2>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  highr         0.10    2022-12-22 [1] RSPM</span></span>
@@ -937,7 +937,7 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -990,7 +990,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/functions.html b/functions.html
index 9c3fb11d..6d97a105 100644
--- a/functions.html
+++ b/functions.html
@@ -99,7 +99,7 @@ <h2>
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/r/base/match.fun.html">match.fun</a></span><span class="op">(</span><span class="st">"mean"</span><span class="op">)</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; UseMethod("mean")</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55734d1505a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55b231834a20&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>But, given a function, it doesn’t make sense to find its name because there can be multiple names bound to the same function.</p>
 <div class="sourceCode" id="cb119"><pre class="downlit sourceCode r">
@@ -365,7 +365,7 @@ <h2>
 <span><span class="va">mean</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; UseMethod("mean")</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55734d1505a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55b231834a20&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span>
 <span></span>
 <span><span class="co"># other package function</span></span>
@@ -374,7 +374,7 @@ <h2>
 <span><span class="co">#&gt; {</span></span>
 <span><span class="co">#&gt;     map_("list", .x, .f, ..., .progress = .progress)</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55734f135980&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55b23381da98&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:purrr&gt;</span></span></code></pre></div>
 <p>There are two exceptions where the enclosing environment won’t be printed:</p>
 <ul>
@@ -530,7 +530,7 @@ <h2>
 <span><span class="op">}</span></span>
 <span></span>
 <span><span class="fu">f2</span><span class="op">(</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x55734d8a0d10" "0x55734d8a0d10"</span></span>
+<span><span class="co">#&gt; [1] "0x55b231f71660" "0x55b231f71660"</span></span>
 <span><span class="co">#&gt; [1] 100</span></span></code></pre></div>
 <p><strong>Q3.</strong> What does this function return? Why? Which principle does it illustrate?</p>
 <div class="sourceCode" id="cb146"><pre class="downlit sourceCode r">
@@ -591,7 +591,7 @@ <h2>
 <span><span class="op">}</span></span>
 <span></span>
 <span><span class="fu">show_time</span><span class="op">(</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "2024-01-07 00:43:46 UTC"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "2024-01-14 00:44:16 UTC"</span></span></code></pre></div>
 <p><strong>A5.</strong> Let’s take this step-by-step.</p>
 <p>The function argument <code>x</code> is missing in the function call. This means that <code>stop("Error!")</code> is evaluated in the function environment, and not global environment.</p>
 <p>But, due to lazy evaluation, the promise <code>stop("Error!")</code> is evaluated only when <code>x</code> is accessed. This happens only when <code>print(x)</code> is called.</p>
@@ -742,7 +742,7 @@ <h2>
 <span><span class="co">#&gt;     on.exit(setwd(old))</span></span>
 <span><span class="co">#&gt;     force(code)</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55735689cc20&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55b23af92cc8&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:withr&gt;</span></span></code></pre></div>
 <p>More importantly, its parameters <code>dir</code> allows temporarily changing working directory to <em>any</em> directory.</p>
 <p><strong>Q4.</strong> Write a function that opens a graphics device, runs the supplied code, and closes the graphics device (always, regardless of whether or not the plotting code works).</p>
@@ -811,7 +811,7 @@ <h2>
 <span><span class="co">#&gt;         invisible(NULL)</span></span>
 <span><span class="co">#&gt;     else rval</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x557356d2cc20&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55b23b421318&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:utils&gt;</span></span></code></pre></div>
 <p>Here are few key differences:</p>
 <ul>
@@ -1070,7 +1070,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -1083,7 +1083,7 @@ <h2>
 <span><span class="co">#&gt;  colorspace    2.1-0   2023-01-23 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr       * 1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -1093,7 +1093,7 @@ <h2>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
 <span><span class="co">#&gt;  ggplot2     * 3.4.4   2023-10-12 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grid          4.3.2   2023-11-01 [3] local</span></span>
@@ -1115,8 +1115,8 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  readr       * 2.1.4   2023-02-10 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  readr       * 2.1.5   2024-01-10 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  scales        1.3.0   2023-11-28 [1] RSPM</span></span>
@@ -1178,7 +1178,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/improving-performance.html b/improving-performance.html
index 18ccc08c..635ced52 100644
--- a/improving-performance.html
+++ b/improving-performance.html
@@ -136,10 +136,10 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 4 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 lm          881.5µs  916.5µs     1045.    1.27MB</span></span>
-<span><span class="co">#&gt; 2 speedglm      1.6ms   1.66ms      601.   75.01MB</span></span>
-<span><span class="co">#&gt; 3 biglm       772.1µs 809.23µs     1174.   589.1KB</span></span>
-<span><span class="co">#&gt; 4 fastLm        993µs   1.02ms      978.    4.48MB</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 lm         856.76µs 886.66µs     1109.    1.27MB</span></span>
+<span><span class="co">#&gt; 2 speedglm     1.53ms   1.63ms      612.   75.01MB</span></span>
+<span><span class="co">#&gt; 3 biglm       753.8µs 788.16µs     1205.   589.1KB</span></span>
+<span><span class="co">#&gt; 4 fastLm     980.87µs   1.01ms      988.    4.48MB</span></span></code></pre></div>
 <p>The results might change depending on the size of the dataset, with the performance benefits accruing bigger the dataset.</p>
 <p>You will have to experiment with different algorithms and find the one that fits the needs of your dataset the best.</p>
 <p><strong>Q2.</strong> What package implements a version of <code><a href="https://rdrr.io/r/base/match.html">match()</a></code> that’s faster for repeated look ups? How much faster is it?</p>
@@ -164,8 +164,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 base         1.18µs   1.24µs   756897.     2.8KB</span></span>
-<span><span class="co">#&gt; 2 fastmatch    1.02µs   1.06µs   904225.    2.66KB</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 base         1.14µs    1.2µs   778382.     2.8KB</span></span>
+<span><span class="co">#&gt; 2 fastmatch    1.01µs   1.06µs   898046.    2.66KB</span></span></code></pre></div>
 <p>But, with a larger vector, <code><a href="https://rdrr.io/pkg/fastmatch/man/fmatch.html">fmatch()</a></code> is orders of magnitude faster! ⚡</p>
 <div class="sourceCode" id="cb651"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">large_vec</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html">c</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/rep.html">rep</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html">c</a></span><span class="op">(</span><span class="st">"a"</span>, <span class="st">"b"</span><span class="op">)</span>, <span class="fl">1e4</span><span class="op">)</span>, <span class="st">"x"</span>, <span class="fu"><a href="https://rdrr.io/r/base/rep.html">rep</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html">c</a></span><span class="op">(</span><span class="st">"m"</span>, <span class="st">"n"</span><span class="op">)</span>, <span class="fl">1e6</span><span class="op">)</span>, <span class="st">"y"</span><span class="op">)</span></span>
@@ -180,8 +180,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 base         20.6ms  21.95ms      43.0    31.4MB</span></span>
-<span><span class="co">#&gt; 2 fastmatch   992.1ns   1.04µs  897837.         0B</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 base         23.3ms  23.29ms      42.9    31.4MB</span></span>
+<span><span class="co">#&gt; 2 fastmatch     981ns   1.03µs  917030.         0B</span></span></code></pre></div>
 <p>We can also look at the hash table:</p>
 <div class="sourceCode" id="cb652"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://rdrr.io/pkg/fastmatch/man/fmatch.html">fmatch.hash</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/c.html">c</a></span><span class="op">(</span><span class="st">"x"</span>, <span class="st">"y"</span><span class="op">)</span>, <span class="va">small_vec</span><span class="op">)</span></span>
@@ -238,10 +238,10 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 4 × 6</span></span>
 <span><span class="co">#&gt;   expression       min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;  &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 as.POSIXct   29.74µs   31.4µs    31531.        0B     0   </span></span>
-<span><span class="co">#&gt; 2 as.POSIXlt   20.59µs  21.79µs    45434.        0B     0   </span></span>
-<span><span class="co">#&gt; 3 ymd_hms       2.25ms   2.33ms      425.    21.5KB     3.43</span></span>
-<span><span class="co">#&gt; 4 fastPOSIXct   1.16µs   1.22µs   766780.        0B     0</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 as.POSIXct   29.69µs  31.64µs    31285.        0B     0   </span></span>
+<span><span class="co">#&gt; 2 as.POSIXlt   20.64µs  21.73µs    45699.        0B     0   </span></span>
+<span><span class="co">#&gt; 3 ymd_hms       2.23ms   2.31ms      432.    21.5KB     3.48</span></span>
+<span><span class="co">#&gt; 4 fastPOSIXct   1.17µs   1.26µs   741714.        0B     0</span></span></code></pre></div>
 <p>There are many more packages that implement a way to convert from string to a date time object. For more, see <a href="https://cran.r-project.org/web/views/TimeSeries.html">CRAN Task View: Time Series Analysis</a></p>
 <p><strong>Q4.</strong> Which packages provide the ability to compute a rolling mean?</p>
 <p><strong>A4.</strong> Here are a few packages and respective functions that provide a way to compute a rolling mean:</p>
@@ -297,7 +297,7 @@ <h2>
 <span><span class="co">#&gt;     else names(z) &lt;- dimnames(x)[[1L]]</span></span>
 <span><span class="co">#&gt;     z</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x563353356400&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5590046cd1a8&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <ul>
 <li>
@@ -307,7 +307,7 @@ <h2>
 <code class="sourceCode R"><span><span class="va">.rowSums</span></span>
 <span><span class="co">#&gt; function (x, m, n, na.rm = FALSE) </span></span>
 <span><span class="co">#&gt; .Internal(rowSums(x, m, n, na.rm))</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x56335cd3f7a8&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55900cb4b718&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>But they have comparable performance:</p>
 <div class="sourceCode" id="cb661"><pre class="downlit sourceCode r">
@@ -320,8 +320,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 rowSums       821µs   1.29ms      859.     859KB</span></span>
-<span><span class="co">#&gt; 2 .rowSums      817µs   1.28ms      833.     859KB</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 rowSums       819µs   1.28ms      888.     859KB</span></span>
+<span><span class="co">#&gt; 2 .rowSums      817µs   1.28ms      816.     859KB</span></span></code></pre></div>
 <p><strong>Q2.</strong> Make a faster version of <code><a href="https://rdrr.io/r/stats/chisq.test.html">chisq.test()</a></code> that only computes the chi-square test statistic when the input is two numeric vectors with no missing values. You can try simplifying <code><a href="https://rdrr.io/r/stats/chisq.test.html">chisq.test()</a></code> or by coding from the <a href="http://en.wikipedia.org/wiki/Pearson%27s_chi-squared_test">mathematical definition</a>.</p>
 <p><strong>A2.</strong> If the function is supposed to accept only two numeric vectors without missing values, then we can make <code><a href="https://rdrr.io/r/stats/chisq.test.html">chisq.test()</a></code> do less work by removing code corresponding to the following :</p>
 <ul>
@@ -379,8 +379,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 base          906µs    926µs     1071.    1.57MB</span></span>
-<span><span class="co">#&gt; 2 custom        706µs    722µs     1371.    1.13MB</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 base          905µs    927µs     1076.    1.57MB</span></span>
+<span><span class="co">#&gt; 2 custom        706µs    724µs     1374.    1.13MB</span></span></code></pre></div>
 <p><strong>Q3.</strong> Can you make a faster version of <code><a href="https://rdrr.io/r/base/table.html">table()</a></code> for the case of an input of two integer vectors with no missing values? Can you use it to speed up your chi-square test?</p>
 <p><strong>A3.</strong> In order to make a leaner version of <code><a href="https://rdrr.io/r/base/table.html">table()</a></code>, we can take a similar approach and trim the unnecessary input checks in light of our new API of accepting just two vectors without missing values. We can remove the following components from the code:</p>
 <ul>
@@ -428,8 +428,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 base          638µs    653µs     1515.     960KB</span></span>
-<span><span class="co">#&gt; 2 custom        354µs    359µs     2730.     488KB</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 base          635µs    652µs     1523.     960KB</span></span>
+<span><span class="co">#&gt; 2 custom        357µs    366µs     2687.     488KB</span></span></code></pre></div>
 <p>We can also use this function in our custom chi-squared test function and see if the performance improves any further:</p>
 <div class="sourceCode" id="cb666"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">my_chisq_test2</span> <span class="op">&lt;-</span> <span class="kw">function</span><span class="op">(</span><span class="va">x</span>, <span class="va">y</span><span class="op">)</span> <span class="op">{</span></span>
@@ -479,8 +479,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 base          912µs    940µs     1057.    1.28MB</span></span>
-<span><span class="co">#&gt; 2 custom        420µs    429µs     2296.  594.45KB</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 base          910µs    935µs     1061.    1.28MB</span></span>
+<span><span class="co">#&gt; 2 custom        422µs    431µs     2291.  594.45KB</span></span></code></pre></div>
 </div>
 <div id="exercises-24.5.1" class="section level2" number="24.3">
 <h2>
@@ -569,8 +569,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 5</span></span>
 <span><span class="co">#&gt;   expression                min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;           &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 crossprod(x, w)[[1]]    901ns    961ns   966191.        0B</span></span>
-<span><span class="co">#&gt; 2 sum(x * w)[[1]]         461ns    511ns  1759060.        0B</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 crossprod(x, w)[[1]]    881ns    932ns  1003910.        0B</span></span>
+<span><span class="co">#&gt; 2 sum(x * w)[[1]]         470ns    521ns  1765588.        0B</span></span></code></pre></div>
 
 </div>
 </div>
@@ -602,7 +602,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/index.html b/index.html
index 7aa4e766..9a6a2737 100644
--- a/index.html
+++ b/index.html
@@ -113,7 +113,7 @@ <h1>About<a class="anchor" aria-label="anchor" href="#about"><i class="fas fa-li
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/index.md b/index.md
index 931bccde..1798c2b2 100644
--- a/index.md
+++ b/index.md
@@ -1,7 +1,7 @@
 --- 
 title: "Advanced R Exercises"
 author: '<a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>'
-date: "2024-01-07"
+date: "2024-01-14"
 site: bookdown::bookdown_site
 documentclass: book
 bibliography: [book.bib, packages.bib]
diff --git a/introduction.html b/introduction.html
index 17cf53a4..c921b765 100644
--- a/introduction.html
+++ b/introduction.html
@@ -111,7 +111,7 @@ <h1>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/measuring-performance.html b/measuring-performance.html
index 40df4ca7..fd4abb86 100644
--- a/measuring-performance.html
+++ b/measuring-performance.html
@@ -131,7 +131,7 @@ <h2>
 <span><span class="co">#&gt;     }</span></span>
 <span><span class="co">#&gt;     .Internal(remove(list, envir, inherits))</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x56191ab34df0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x55c47f4b2a00&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>I still couldn’t figure out why. I would recommend checking out the <a href="https://advanced-r-solutions.rbind.io/measuring-performance.html#profiling">official answer</a>.</p>
 <hr>
@@ -194,8 +194,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 4</span></span>
 <span><span class="co">#&gt;   expression bench_mean systime_with_gc systime_with_nogc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;   &lt;bch:tm&gt;           &lt;dbl&gt;             &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 sqrt(x)       677.2ns           0.629             0.428</span></span>
-<span><span class="co">#&gt; 2 x^0.5          2.23µs           2.02              2.00</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 sqrt(x)      511.16ns           0.441             0.434</span></span>
+<span><span class="co">#&gt; 2 x^0.5          2.18µs           1.99              1.99</span></span></code></pre></div>
 <p>The comparison reveals that these two approaches yield quite similar results. Slight differences in exact values is possibly due to differences in the precision of timers used internally by these functions.</p>
 <hr>
 <p><strong>Q2.</strong> Here are two other ways to compute the square root of a vector. Which do you think will be fastest? Which will be slowest? Use microbenchmarking to test your answers.</p>
@@ -219,10 +219,10 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 4 × 2</span></span>
 <span><span class="co">#&gt;   expression      median</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;    &lt;bch:tm&gt;</span></span>
-<span><span class="co">#&gt; 1 sqrt(x)         3.02µs</span></span>
-<span><span class="co">#&gt; 2 exp(log(x)/2)  12.66µs</span></span>
-<span><span class="co">#&gt; 3 x^0.5          18.96µs</span></span>
-<span><span class="co">#&gt; 4 x^(1/2)        19.01µs</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 sqrt(x)         3.06µs</span></span>
+<span><span class="co">#&gt; 2 exp(log(x)/2)   12.7µs</span></span>
+<span><span class="co">#&gt; 3 x^0.5          18.73µs</span></span>
+<span><span class="co">#&gt; 4 x^(1/2)        19.04µs</span></span></code></pre></div>
 <p>The specialized primitive function <code><a href="https://rdrr.io/r/base/MathFun.html">sqrt()</a></code> (written in <code>C</code>) is the fastest way to compute square root.</p>
 <hr>
 </div>
@@ -242,7 +242,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -255,7 +255,7 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr       * 1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -263,7 +263,7 @@ <h2>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -281,7 +281,7 @@ <h2>
 <span><span class="co">#&gt;  profvis     * 0.3.8   2023-05-02 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr         1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -334,7 +334,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/names-and-values.html b/names-and-values.html
index e8a70a9a..12bf86a2 100644
--- a/names-and-values.html
+++ b/names-and-values.html
@@ -104,11 +104,11 @@ <h2>
 <div class="sourceCode" id="cb3"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">obj_addrs</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addrs</a></span><span class="op">(</span><span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="va">a</span>, <span class="va">b</span>, <span class="va">c</span><span class="op">)</span><span class="op">)</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/unique.html">unique</a></span><span class="op">(</span><span class="va">obj_addrs</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x56426e6d12c8"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "0x55a3a4e030e8"</span></span></code></pre></div>
 <p>Except <code>d</code>, which is a different object, even if it has the same value as <code>a</code>, <code>b</code>, and <code>c</code>:</p>
 <div class="sourceCode" id="cb4"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addr</a></span><span class="op">(</span><span class="va">d</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x56426e38afc8"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "0x55a3a4ab9088"</span></span></code></pre></div>
 <hr>
 <p><strong>Q2.</strong> The following code accesses the mean function in multiple ways. Do they all point to the same underlying function object? Verify this with <code><a href="https://lobstr.r-lib.org/reference/obj_addr.html">lobstr::obj_addr()</a></code>.</p>
 <div class="sourceCode" id="cb5"><pre class="downlit sourceCode r">
@@ -128,7 +128,7 @@ <h2>
 <span><span class="op">)</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/unique.html">unique</a></span><span class="op">(</span><span class="va">obj_addrs</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x56426c0b3500"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "0x55a3a27e2978"</span></span></code></pre></div>
 <hr>
 <p><strong>Q3.</strong> By default, base R data import functions, like <code><a href="https://rdrr.io/r/utils/read.table.html">read.csv()</a></code>, will automatically convert non-syntactic names to syntactic ones. Why might this be problematic? What option allows you to suppress this behaviour?</p>
 <p><strong>A3.</strong> The conversion of non-syntactic names to syntactic ones can sometimes corrupt the data. Some datasets may require non-syntactic names.</p>
@@ -170,7 +170,7 @@ <h2>
 <code class="sourceCode R"><span><span class="va">x</span> <span class="op">&lt;-</span> <span class="fl">1</span><span class="op">:</span><span class="fl">10</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">tracemem</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "&lt;0x5642701b6628&gt;"</span></span>
+<span><span class="co">#&gt; [1] "&lt;0x55a3a68f2660&gt;"</span></span>
 <span></span>
 <span><span class="va">x</span> <span class="op">&lt;-</span> <span class="va">x</span> <span class="op">+</span> <span class="fl">1</span></span>
 <span></span>
@@ -178,10 +178,10 @@ <h2>
 <p>But since the object created in memory by <code>1:10</code> is not assigned a name, it can’t be addressed or modified from R, and so there is nothing to trace.</p>
 <div class="sourceCode" id="cb10"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addr</a></span><span class="op">(</span><span class="fl">1</span><span class="op">:</span><span class="fl">10</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x56426fc8b0f8"</span></span>
+<span><span class="co">#&gt; [1] "0x55a3a63c3300"</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">tracemem</a></span><span class="op">(</span><span class="fl">1</span><span class="op">:</span><span class="fl">10</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "&lt;0x56426fcf77a0&gt;"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "&lt;0x55a3a64337d8&gt;"</span></span></code></pre></div>
 <hr>
 <p><strong>Q2.</strong> Explain why <code><a href="https://rdrr.io/r/base/tracemem.html">tracemem()</a></code> shows two copies when you run this code. Hint: carefully look at the difference between this code and the code shown earlier in the section.</p>
 <div class="sourceCode" id="cb11"><pre class="downlit sourceCode r">
@@ -196,11 +196,11 @@ <h2>
 <span><span class="fu"><a href="https://rdrr.io/r/base/typeof.html">typeof</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [1] "integer"</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">tracemem</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "&lt;0x56427053bad8&gt;"</span></span>
+<span><span class="co">#&gt; [1] "&lt;0x55a3a6c72ec8&gt;"</span></span>
 <span></span>
 <span><span class="va">x</span><span class="op">[[</span><span class="fl">3</span><span class="op">]</span><span class="op">]</span> <span class="op">&lt;-</span> <span class="fl">4</span></span>
-<span><span class="co">#&gt; tracemem[0x56427053bad8 -&gt; 0x564270667558]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local </span></span>
-<span><span class="co">#&gt; tracemem[0x564270667558 -&gt; 0x564270675188]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local</span></span>
+<span><span class="co">#&gt; tracemem[0x55a3a6c72ec8 -&gt; 0x55a3a6d9e948]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local </span></span>
+<span><span class="co">#&gt; tracemem[0x55a3a6d9e948 -&gt; 0x55a3a6dae488]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">untracemem</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/typeof.html">typeof</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
@@ -211,10 +211,10 @@ <h2>
 <span><span class="fu"><a href="https://rdrr.io/r/base/typeof.html">typeof</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [1] "integer"</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">tracemem</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "&lt;0x564270b34198&gt;"</span></span>
+<span><span class="co">#&gt; [1] "&lt;0x55a3a726f3c8&gt;"</span></span>
 <span></span>
 <span><span class="va">x</span><span class="op">[[</span><span class="fl">3</span><span class="op">]</span><span class="op">]</span> <span class="op">&lt;-</span> <span class="fl">4L</span></span>
-<span><span class="co">#&gt; tracemem[0x564270b34198 -&gt; 0x564270c5fe18]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local</span></span>
+<span><span class="co">#&gt; tracemem[0x55a3a726f3c8 -&gt; 0x55a3a739b048]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local</span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">untracemem</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/typeof.html">typeof</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
@@ -236,20 +236,20 @@ <h2>
 <span><span class="va">c</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="va">b</span>, <span class="va">a</span>, <span class="fl">1</span><span class="op">:</span><span class="fl">10</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/ref.html">ref</a></span><span class="op">(</span><span class="va">a</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1:0x56427131bcc8] &lt;int&gt;</span></span>
+<span><span class="co">#&gt; [1:0x55a3a7a51fb0] &lt;int&gt;</span></span>
 <span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/ref.html">ref</a></span><span class="op">(</span><span class="va">b</span><span class="op">)</span></span>
-<span><span class="co">#&gt; █ [1:0x5642718493e8] &lt;list&gt; </span></span>
-<span><span class="co">#&gt; ├─[2:0x56427131bcc8] &lt;int&gt; </span></span>
-<span><span class="co">#&gt; └─[2:0x56427131bcc8]</span></span>
+<span><span class="co">#&gt; █ [1:0x55a3a7f807d8] &lt;list&gt; </span></span>
+<span><span class="co">#&gt; ├─[2:0x55a3a7a51fb0] &lt;int&gt; </span></span>
+<span><span class="co">#&gt; └─[2:0x55a3a7a51fb0]</span></span>
 <span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/ref.html">ref</a></span><span class="op">(</span><span class="va">c</span><span class="op">)</span></span>
-<span><span class="co">#&gt; █ [1:0x5642718cfda8] &lt;list&gt; </span></span>
-<span><span class="co">#&gt; ├─█ [2:0x5642718493e8] &lt;list&gt; </span></span>
-<span><span class="co">#&gt; │ ├─[3:0x56427131bcc8] &lt;int&gt; </span></span>
-<span><span class="co">#&gt; │ └─[3:0x56427131bcc8] </span></span>
-<span><span class="co">#&gt; ├─[3:0x56427131bcc8] </span></span>
-<span><span class="co">#&gt; └─[4:0x5642718d2178] &lt;int&gt;</span></span></code></pre></div>
+<span><span class="co">#&gt; █ [1:0x55a3a80090f8] &lt;list&gt; </span></span>
+<span><span class="co">#&gt; ├─█ [2:0x55a3a7f807d8] &lt;list&gt; </span></span>
+<span><span class="co">#&gt; │ ├─[3:0x55a3a7a51fb0] &lt;int&gt; </span></span>
+<span><span class="co">#&gt; │ └─[3:0x55a3a7a51fb0] </span></span>
+<span><span class="co">#&gt; ├─[3:0x55a3a7a51fb0] </span></span>
+<span><span class="co">#&gt; └─[4:0x55a3a800e1b0] &lt;int&gt;</span></span></code></pre></div>
 <p>Here is what we learn:</p>
 <ul>
 <li>The name <code>a</code> references object <code>1:10</code> in the memory.</li>
@@ -269,7 +269,7 @@ <h2>
 <span><span class="co">#&gt; [[1]]</span></span>
 <span><span class="co">#&gt;  [1]  1  2  3  4  5  6  7  8  9 10</span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addr</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x56426f689e78"</span></span>
+<span><span class="co">#&gt; [1] "0x55a3a5c2f658"</span></span>
 <span></span>
 <span><span class="va">x</span><span class="op">[[</span><span class="fl">2</span><span class="op">]</span><span class="op">]</span> <span class="op">&lt;-</span> <span class="va">x</span></span>
 <span><span class="va">x</span></span>
@@ -280,13 +280,13 @@ <h2>
 <span><span class="co">#&gt; [[2]][[1]]</span></span>
 <span><span class="co">#&gt;  [1]  1  2  3  4  5  6  7  8  9 10</span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addr</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x56426fe84148"</span></span>
+<span><span class="co">#&gt; [1] "0x55a3a65bf378"</span></span>
 <span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/ref.html">ref</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; █ [1:0x56426fe84148] &lt;list&gt; </span></span>
-<span><span class="co">#&gt; ├─[2:0x56426eee5b38] &lt;int&gt; </span></span>
-<span><span class="co">#&gt; └─█ [3:0x56426f689e78] &lt;list&gt; </span></span>
-<span><span class="co">#&gt;   └─[2:0x56426eee5b38]</span></span></code></pre></div>
+<span><span class="co">#&gt; █ [1:0x55a3a65bf378] &lt;list&gt; </span></span>
+<span><span class="co">#&gt; ├─[2:0x55a3a56843b0] &lt;int&gt; </span></span>
+<span><span class="co">#&gt; └─█ [3:0x55a3a5c2f658] &lt;list&gt; </span></span>
+<span><span class="co">#&gt;   └─[2:0x55a3a56843b0]</span></span></code></pre></div>
 <p>I don’t have access to OmniGraffle software, so I am including here the figure from the <a href="https://advanced-r-solutions.rbind.io/names-and-values.html#copy-on-modify">official solution manual</a>:</p>
 <div class="inline-figure"><img src="https://raw.githubusercontent.com/Tazinho/Advanced-R-Solutions/main/images/names_values/copy_on_modify_fig2.png" width="180pt"></div>
 <hr>
@@ -397,16 +397,16 @@ <h2>
 <code class="sourceCode R"><span><span class="va">x</span> <span class="op">&lt;-</span> <span class="fu"><a href="https://rdrr.io/r/base/list.html">list</a></span><span class="op">(</span><span class="op">)</span></span>
 <span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addr</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x5642702ece68"</span></span>
+<span><span class="co">#&gt; [1] "0x55a3a6a23ce8"</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/tracemem.html">tracemem</a></span><span class="op">(</span><span class="va">x</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "&lt;0x5642702ece68&gt;"</span></span>
+<span><span class="co">#&gt; [1] "&lt;0x55a3a6a23ce8&gt;"</span></span>
 <span></span>
 <span><span class="va">x</span><span class="op">[[</span><span class="fl">1</span><span class="op">]</span><span class="op">]</span> <span class="op">&lt;-</span> <span class="va">x</span></span>
-<span><span class="co">#&gt; tracemem[0x5642702ece68 -&gt; 0x56426fbe3420]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local</span></span>
+<span><span class="co">#&gt; tracemem[0x55a3a6a23ce8 -&gt; 0x55a3a6319f90]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call &lt;Anonymous&gt; evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file &lt;Anonymous&gt; &lt;Anonymous&gt; do.call eval eval eval eval eval.parent local</span></span>
 <span></span>
 <span><span class="fu"><a href="https://lobstr.r-lib.org/reference/obj_addr.html">obj_addr</a></span><span class="op">(</span><span class="va">x</span><span class="op">[[</span><span class="fl">1</span><span class="op">]</span><span class="op">]</span><span class="op">)</span></span>
-<span><span class="co">#&gt; [1] "0x5642702ece68"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "0x55a3a6a23ce8"</span></span></code></pre></div>
 <hr>
 <p><strong>Q2.</strong> Wrap the two methods for subtracting medians into two functions, then use the ‘bench’ package to carefully compare their speeds. How does performance change as the number of columns increase?</p>
 <p><strong>A2.</strong> Let’s first microbenchmark functions that do and do not create copies for varying lengths of number of columns.</p>
@@ -507,7 +507,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -522,7 +522,7 @@ <h2>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  crayon        1.5.2   2022-09-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr       * 1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -533,7 +533,7 @@ <h2>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
 <span><span class="co">#&gt;  ggplot2     * 3.4.4   2023-10-12 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grid          4.3.2   2023-11-01 [3] local</span></span>
@@ -558,8 +558,8 @@ <h2>
 <span><span class="co">#&gt;  profmem       0.6.0   2020-12-13 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  readr       * 2.1.4   2023-02-10 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  readr       * 2.1.5   2024-01-10 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  scales        1.3.0   2023-11-28 [1] RSPM</span></span>
@@ -619,7 +619,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/quasiquotation.html b/quasiquotation.html
index 99562fd6..292e55bd 100644
--- a/quasiquotation.html
+++ b/quasiquotation.html
@@ -218,7 +218,7 @@ <h2>
 <span><span class="co">#&gt; {</span></span>
 <span><span class="co">#&gt;     enexpr(expr)</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5584f9fd1728&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5595ec2478b0&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:rlang&gt;</span></span></code></pre></div>
 <p>For example:</p>
 <div class="sourceCode" id="cb548"><pre class="downlit sourceCode r">
@@ -232,7 +232,7 @@ <h2>
 <span><span class="co">#&gt; {</span></span>
 <span><span class="co">#&gt;     .Call(ffi_enexpr, substitute(arg), parent.frame())</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x5584f6b2cae0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5595e8d9f6f0&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:rlang&gt;</span></span></code></pre></div>
 <hr>
 <p><strong>Q2.</strong> Compare and contrast the following two functions. Can you predict the output before running them?</p>
@@ -742,7 +742,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -757,7 +757,7 @@ <h2>
 <span><span class="co">#&gt;  crayon        1.5.2   2022-09-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  diffobj       0.3.5   2021-10-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr       * 1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -767,7 +767,7 @@ <h2>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
 <span><span class="co">#&gt;  ggplot2     * 3.4.4   2023-10-12 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grid          4.3.2   2023-11-01 [3] local</span></span>
@@ -790,7 +790,7 @@ <h2>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rematch2      2.1.2   2020-05-01 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  scales        1.3.0   2023-11-28 [1] RSPM</span></span>
@@ -846,7 +846,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/r6.html b/r6.html
index f53c8c2b..52e8db1e 100644
--- a/r6.html
+++ b/r6.html
@@ -302,7 +302,7 @@ <h2>
 <span><span class="co">#&gt; [1] "environment"</span></span>
 <span></span>
 <span><span class="fu">rlang</span><span class="fu">::</span><span class="fu"><a href="https://rlang.r-lib.org/reference/env_print.html">env_print</a></span><span class="op">(</span><span class="va">myExample</span><span class="op">)</span></span>
-<span><span class="co">#&gt; &lt;environment: 0x5565e0c0a290&gt; [L]</span></span>
+<span><span class="co">#&gt; &lt;environment: 0x55e000b67958&gt; [L]</span></span>
 <span><span class="co">#&gt; Parent: &lt;environment: empty&gt;</span></span>
 <span><span class="co">#&gt; Class: Example, R6</span></span>
 <span><span class="co">#&gt; Bindings:</span></span>
@@ -529,8 +529,8 @@ <h2>
 <span><span class="fu"><a href="https://rdrr.io/r/base/gc.html">gc</a></span><span class="op">(</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [1] "Closing the file connection!"</span></span>
 <span><span class="co">#&gt;           used (Mb) gc trigger (Mb) max used (Mb)</span></span>
-<span><span class="co">#&gt; Ncells  746818 39.9    1365334   73  1365334 73.0</span></span>
-<span><span class="co">#&gt; Vcells 1372826 10.5    8388608   64  2594870 19.8</span></span></code></pre></div>
+<span><span class="co">#&gt; Ncells  746827 39.9    1365280   73  1365280 73.0</span></span>
+<span><span class="co">#&gt; Vcells 1372827 10.5    8388608   64  2594879 19.8</span></span></code></pre></div>
 </div>
 <div id="session-information-11" class="section level2" number="14.4">
 <h2>
@@ -548,7 +548,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       Europe/Berlin</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -560,13 +560,13 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fansi         1.0.6   2023-12-08 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -579,7 +579,7 @@ <h2>
 <span><span class="co">#&gt;  methods     * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  pillar        1.9.0   2023-03-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6          * 2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -629,7 +629,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/rewriting-r-code-in-c.html b/rewriting-r-code-in-c.html
index c86e7a48..72e63170 100644
--- a/rewriting-r-code-in-c.html
+++ b/rewriting-r-code-in-c.html
@@ -261,12 +261,12 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression                                      min</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;                                 &lt;bch:tm&gt;</span></span>
-<span><span class="co">#&gt; 1 all(c(rep(TRUE, 1000), rep(FALSE, 1000)))    6.13µs</span></span>
-<span><span class="co">#&gt; 2 allC(c(rep(TRUE, 1000), rep(FALSE, 1000)))   8.73µs</span></span>
+<span><span class="co">#&gt; 1 all(c(rep(TRUE, 1000), rep(FALSE, 1000)))    6.07µs</span></span>
+<span><span class="co">#&gt; 2 allC(c(rep(TRUE, 1000), rep(FALSE, 1000)))   8.51µs</span></span>
 <span><span class="co">#&gt;     median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1   6.49µs   152211.    15.8KB        0</span></span>
-<span><span class="co">#&gt; 2   9.15µs   106881.    18.3KB        0</span></span></code></pre></div>
+<span><span class="co">#&gt; 1   6.43µs   150391.    15.8KB        0</span></span>
+<span><span class="co">#&gt; 2   8.97µs   110025.    18.3KB        0</span></span></code></pre></div>
 <ul>
 <li><code><a href="https://rdrr.io/r/base/cumsum.html">cumprod()</a></code></li>
 </ul>
@@ -301,8 +301,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression        min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;   &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 cumprod(v1)   89.99ns 101.05ns  8156808.        0B</span></span>
-<span><span class="co">#&gt; 2 cumprodC(v1)   1.45µs   1.55µs   612672.    6.62KB</span></span>
+<span><span class="co">#&gt; 1 cumprod(v1)     100ns 120.14ns  7160964.        0B</span></span>
+<span><span class="co">#&gt; 2 cumprodC(v1)   1.41µs   1.52µs   546730.    6.62KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -342,8 +342,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression       min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;  &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 cummin(v1)  120.02ns 131.08ns  5672695.        0B        0</span></span>
-<span><span class="co">#&gt; 2 cumminC(v1)   1.56µs   1.87µs   507394.    6.62KB        0</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 cummin(v1)  129.92ns 149.94ns  5417261.        0B        0</span></span>
+<span><span class="co">#&gt; 2 cumminC(v1)   1.63µs   1.91µs   504042.    6.62KB        0</span></span></code></pre></div>
 <ul>
 <li><code>cummaxC()</code></li>
 </ul>
@@ -379,8 +379,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression       min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;  &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 cummax(v1)  110.01ns 121.07ns  6496158.        0B        0</span></span>
-<span><span class="co">#&gt; 2 cummaxC(v1)   1.58µs   1.76µs   545922.    6.62KB        0</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 cummax(v1)  110.01ns 120.14ns  6575573.        0B        0</span></span>
+<span><span class="co">#&gt; 2 cummaxC(v1)   1.57µs   1.71µs   460131.    6.62KB        0</span></span></code></pre></div>
 <ul>
 <li><code><a href="https://rdrr.io/r/base/diff.html">diff()</a></code></li>
 </ul>
@@ -437,8 +437,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression        min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;   &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 diff(v1, 2)    3.88µs   4.46µs   217285.        0B</span></span>
-<span><span class="co">#&gt; 2 diffC(v1, 2)   1.89µs   2.13µs   452394.    2.49KB</span></span>
+<span><span class="co">#&gt; 1 diff(v1, 2)    3.78µs   4.35µs   218530.        0B</span></span>
+<span><span class="co">#&gt; 2 diffC(v1, 2)   1.98µs   2.19µs   440203.    2.49KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -478,8 +478,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 range(v1)    1.68µs   1.94µs   481017.        0B        0</span></span>
-<span><span class="co">#&gt; 2 rangeC(v1)   1.47µs   1.68µs   569929.    6.62KB        0</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 range(v1)    1.64µs   1.82µs   521325.        0B        0</span></span>
+<span><span class="co">#&gt; 2 rangeC(v1)   1.48µs   1.67µs   571723.    6.62KB        0</span></span></code></pre></div>
 <ul>
 <li><code><a href="https://rdrr.io/r/stats/cor.html">var()</a></code></li>
 </ul>
@@ -520,8 +520,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression        min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;   &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 var(v1)        7.54µs   8.51µs   111092.        0B</span></span>
-<span><span class="co">#&gt; 2 variance(v1)   1.49µs   1.66µs   567349.    6.62KB</span></span>
+<span><span class="co">#&gt; 1 var(v1)        7.46µs   8.36µs   116722.        0B</span></span>
+<span><span class="co">#&gt; 2 variance(v1)    1.5µs   1.66µs   571095.    6.62KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -680,8 +680,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression              min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;         &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 median.default(v2)  22.17µs  24.29µs    40480.        0B</span></span>
-<span><span class="co">#&gt; 2 medianC(v2)          1.49µs   1.73µs   546971.    2.49KB</span></span>
+<span><span class="co">#&gt; 1 median.default(v2)  21.85µs   23.4µs    39476.        0B</span></span>
+<span><span class="co">#&gt; 2 medianC(v2)          1.53µs    1.7µs   558136.    2.49KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -726,8 +726,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression          min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;     &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 x1 %in% x2     881.03ns   1.11µs   870819.        0B</span></span>
-<span><span class="co">#&gt; 2 matchC(x1, x2)   2.15µs   2.41µs   399261.    6.62KB</span></span>
+<span><span class="co">#&gt; 1 x1 %in% x2     910.95ns   1.15µs   825593.        0B</span></span>
+<span><span class="co">#&gt; 2 matchC(x1, x2)   2.18µs    2.4µs   405689.    6.62KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -788,8 +788,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression        min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;   &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 unique(v1)      2.1µs   2.41µs   355209.        0B</span></span>
-<span><span class="co">#&gt; 2 uniqueC2(v1)   1.63µs   1.85µs   502571.    6.62KB</span></span>
+<span><span class="co">#&gt; 1 unique(v1)     2.17µs   2.42µs   392256.        0B</span></span>
+<span><span class="co">#&gt; 2 uniqueC2(v1)   1.69µs   1.93µs   483192.    6.62KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -832,8 +832,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 min(v1)    230.04ns 250.93ns  3402682.        0B        0</span></span>
-<span><span class="co">#&gt; 2 minC(v1)     1.42µs   1.56µs   606873.    6.62KB        0</span></span>
+<span><span class="co">#&gt; 1 min(v1)    220.03ns 240.98ns  3543775.        0B        0</span></span>
+<span><span class="co">#&gt; 2 minC(v1)     1.38µs   1.51µs   626236.    6.62KB        0</span></span>
 <span></span>
 <span><span class="fu"><a href="https://rdrr.io/r/base/Extremes.html">max</a></span><span class="op">(</span><span class="va">v1</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [1] 9</span></span>
@@ -849,8 +849,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression      min   median `itr/sec` mem_alloc `gc/sec`</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt; &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;    &lt;dbl&gt;</span></span>
-<span><span class="co">#&gt; 1 max(v1)    211.06ns  241.1ns  3455199.        0B        0</span></span>
-<span><span class="co">#&gt; 2 maxC(v1)     1.41µs   1.66µs   571011.    6.62KB        0</span></span></code></pre></div>
+<span><span class="co">#&gt; 1 max(v1)    230.97ns 250.99ns  3388107.        0B        0</span></span>
+<span><span class="co">#&gt; 2 maxC(v1)     1.42µs   1.61µs   577581.    6.62KB        0</span></span></code></pre></div>
 <ol style="list-style-type: decimal">
 <li>
 <code><a href="https://rdrr.io/r/base/which.min.html">which.min()</a></code> using <code>min_element</code>, or <code><a href="https://rdrr.io/r/base/which.min.html">which.max()</a></code> using <code>max_element</code>.</li>
@@ -894,8 +894,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression          min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;     &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 which.min(v1)  401.05ns  421.1ns  2181122.        0B</span></span>
-<span><span class="co">#&gt; 2 which_minC(v1)   1.44µs    1.6µs   591193.    6.62KB</span></span>
+<span><span class="co">#&gt; 1 which.min(v1)   390.1ns 411.06ns  2144208.        0B</span></span>
+<span><span class="co">#&gt; 2 which_minC(v1)    1.4µs   1.61µs   594433.    6.62KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -915,8 +915,8 @@ <h2>
 <span><span class="co">#&gt; # A tibble: 2 × 6</span></span>
 <span><span class="co">#&gt;   expression          min   median `itr/sec` mem_alloc</span></span>
 <span><span class="co">#&gt;   &lt;bch:expr&gt;     &lt;bch:tm&gt; &lt;bch:tm&gt;     &lt;dbl&gt; &lt;bch:byt&gt;</span></span>
-<span><span class="co">#&gt; 1 which.max(v1)  410.01ns 490.92ns  1870056.        0B</span></span>
-<span><span class="co">#&gt; 2 which_maxC(v1)   1.41µs   1.57µs   585441.    6.62KB</span></span>
+<span><span class="co">#&gt; 1 which.max(v1)  381.03ns 401.05ns  2223966.        0B</span></span>
+<span><span class="co">#&gt; 2 which_maxC(v1)   1.42µs   1.55µs   615294.    6.62KB</span></span>
 <span><span class="co">#&gt;   `gc/sec`</span></span>
 <span><span class="co">#&gt;      &lt;dbl&gt;</span></span>
 <span><span class="co">#&gt; 1        0</span></span>
@@ -1039,7 +1039,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -1052,13 +1052,13 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fansi         1.0.6   2023-12-08 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -1073,8 +1073,8 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  profmem       0.6.0   2020-12-13 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  Rcpp        * 1.0.11  2023-07-06 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  Rcpp        * 1.0.12  2024-01-09 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -1138,7 +1138,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/s3.html b/s3.html
index 24d37b1a..846fda39 100644
--- a/s3.html
+++ b/s3.html
@@ -512,7 +512,7 @@ <h2>
 <code class="sourceCode R"><span><span class="va">t</span></span>
 <span><span class="co">#&gt; function (x) </span></span>
 <span><span class="co">#&gt; UseMethod("t")</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x56119bea5208&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5609d011b1a8&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span>
 <span><span class="fu">sloop</span><span class="fu">::</span><span class="fu"><a href="https://sloop.r-lib.org/reference/is_s3_generic.html">is_s3_generic</a></span><span class="op">(</span><span class="st">"t"</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [1] TRUE</span></span>
@@ -520,7 +520,7 @@ <h2>
 <span><span class="va">t.test</span></span>
 <span><span class="co">#&gt; function (x, ...) </span></span>
 <span><span class="co">#&gt; UseMethod("t.test")</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x561196f41140&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5609cb197120&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:stats&gt;</span></span>
 <span><span class="fu">sloop</span><span class="fu">::</span><span class="fu"><a href="https://sloop.r-lib.org/reference/is_s3_generic.html">is_s3_generic</a></span><span class="op">(</span><span class="st">"t.test"</span><span class="op">)</span></span>
 <span><span class="co">#&gt; [1] TRUE</span></span></code></pre></div>
@@ -848,14 +848,14 @@ <h2>
 <span><span class="co">#&gt; {</span></span>
 <span><span class="co">#&gt;     .Date(NextMethod("["), oldClass(x))</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x56119c235db0&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5609d04d4130&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>The <code>.Date</code> function looks like this:</p>
 <div class="sourceCode" id="cb402"><pre class="downlit sourceCode r">
 <code class="sourceCode R"><span><span class="va">.Date</span></span>
 <span><span class="co">#&gt; function (xx, cl = "Date") </span></span>
 <span><span class="co">#&gt; `class&lt;-`(xx, cl)</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x561199d84c50&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x5609ce3b8768&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p>Here, <code>oldClass</code> is the same as <code><a href="https://rdrr.io/r/base/class.html">class()</a></code>.</p>
 <p>Therefore, by reading this code, we can surmise that:</p>
@@ -875,7 +875,7 @@ <h2>
 <span><span class="co">#&gt; [1] "subDate" "Date"</span></span>
 <span></span>
 <span><span class="va">x</span><span class="op">[</span><span class="fl">1</span><span class="op">]</span></span>
-<span><span class="co">#&gt; [1] "2024-01-07"</span></span></code></pre></div>
+<span><span class="co">#&gt; [1] "2024-01-14"</span></span></code></pre></div>
 <p><strong>Q2.</strong> R has two classes for representing date time data, <code>POSIXct</code> and <code>POSIXlt</code>, which both inherit from <code>POSIXt</code>. Which generics have different behaviours for the two classes? Which generics share the same behaviour?</p>
 <p><strong>A2.</strong> First, let’s demonstrate that <code>POSIXct</code> and <code>POSIXlt</code> are indeed subclasses and <code>POSIXt</code> is the superclass.</p>
 <div class="sourceCode" id="cb404"><pre class="downlit sourceCode r">
@@ -1166,7 +1166,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -1180,7 +1180,7 @@ <h2>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  crayon        1.5.2   2022-09-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  dplyr       * 1.1.4   2023-11-17 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
@@ -1188,7 +1188,7 @@ <h2>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3   2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -1203,7 +1203,7 @@ <h2>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -1260,7 +1260,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/s4.html b/s4.html
index 538fa606..341ecfbf 100644
--- a/s4.html
+++ b/s4.html
@@ -582,7 +582,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -596,14 +596,14 @@ <h2>
 <span><span class="co">#&gt;  compiler      4.3.2      2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  crayon        1.5.2      2022-09-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2      2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33     2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34     2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3      2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  emo           0.0.0.9000 2023-11-05 [1] Github (hadley/emo@3f03b11)</span></span>
 <span><span class="co">#&gt;  evaluate      0.23       2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1      2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3      2023-07-20 [1] RSPM</span></span>
 <span><span class="co">#&gt;  generics      0.1.3      2022-07-05 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2      2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0      2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2      2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2      2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  highr         0.10       2022-12-22 [1] RSPM</span></span>
@@ -618,7 +618,7 @@ <h2>
 <span><span class="co">#&gt;  methods     * 4.3.2      2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  purrr         1.0.2      2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1      2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2      2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3      2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25       2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8      2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2      2021-12-06 [1] RSPM</span></span>
@@ -672,7 +672,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/search.json b/search.json
index b314223f..bd650704 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"index.html","id":"about","chapter":"About","heading":"About","text":"book provides solutions exercises Hadley Wickham’s Advanced R (2nd edition) book.started working book part process learn solving book’s exercises. comparing solutions official solutions manual, realized solutions took different approaches least explained differently. ’m sharing solutions case others might find another perspective explanation official solution manual helpful building understanding.Although tried make sure solutions correct, blame inaccuracies lies solely . ’d much appreciate suggestions corrections.","code":""},{"path":"introduction.html","id":"introduction","chapter":"1 Introduction","heading":"1 Introduction","text":"exercises.","code":""},{"path":"names-and-values.html","id":"names-and-values","chapter":"2 Names and values","heading":"2 Names and values","text":"Loading needed libraries:","code":"\nlibrary(lobstr)"},{"path":"names-and-values.html","id":"binding-basics-exercise-2.2.2","chapter":"2 Names and values","heading":"2.1 Binding basics (Exercise 2.2.2)","text":"Q1. Explain relationship , b, c d following code:A1. names (, b, c) values point object memory, can seen identical memory addresses:Except d, different object, even value , b, c:Q2. following code accesses mean function multiple ways. point underlying function object? Verify lobstr::obj_addr().A2. listed function calls point underlying function object memory, shown object’s memory address:Q3. default, base R data import functions, like read.csv(), automatically convert non-syntactic names syntactic ones. might problematic? option allows suppress behaviour?A3. conversion non-syntactic names syntactic ones can sometimes corrupt data. datasets may require non-syntactic names.suppress behavior, one can set check.names = FALSE.Q4. rules make.names() use convert non-syntactic names syntactic ones?A4. make.names() uses following rules convert non-syntactic names syntactic ones:prepends non-syntactic names Xit converts invalid characters (like @) .adds . suffix name reserved keywordQ5. slightly simplified rules govern syntactic names. .123e1 syntactic name? Read ?make.names full details.A5. .123e1 syntacti name parsed number, string:docs mention (emphasis mine):syntactically valid name consists letters, numbers dot underline characters starts letter dot followed number.","code":"\na <- 1:10\nb <- a\nc <- b\nd <- 1:10\nobj_addrs <- obj_addrs(list(a, b, c))\nunique(obj_addrs)\n#> [1] \"0x56426e6d12c8\"\nobj_addr(d)\n#> [1] \"0x56426e38afc8\"\nmean\nbase::mean\nget(\"mean\")\nevalq(mean)\nmatch.fun(\"mean\")\nobj_addrs <- obj_addrs(list(\n  mean,\n  base::mean,\n  get(\"mean\"),\n  evalq(mean),\n  match.fun(\"mean\")\n))\n\nunique(obj_addrs)\n#> [1] \"0x56426c0b3500\"\nmake.names(c(\"123abc\", \"@me\", \"_yu\", \"  gh\", \"else\"))\n#> [1] \"X123abc\" \"X.me\"    \"X_yu\"    \"X..gh\"   \"else.\"\ntypeof(.123e1)\n#> [1] \"double\""},{"path":"names-and-values.html","id":"copy-on-modify-exercise-2.3.6","chapter":"2 Names and values","heading":"2.2 Copy-on-modify (Exercise 2.3.6)","text":"Q1. tracemem(1:10) useful?A1. tracemem() traces copying objects R. example:since object created memory 1:10 assigned name, can’t addressed modified R, nothing trace.Q2. Explain tracemem() shows two copies run code. Hint: carefully look difference code code shown earlier section.A2. initial atomic vector type integer, 4 (4L) type double. new copy created.Trying integer create another copy:understand still produces copy, explanation official solutions manual:Please aware running code RStudio result additional copies reference environment pane.Q3. Sketch relationship following objects:A3. can understand relationship objects looking memory addresses:learn:name references object 1:10 memory.name b bound list two references memory address .name c also bound list references b, 1:10 object (bound name).Q4. happens run code?Draw picture.A4.don’t access OmniGraffle software, including figure official solution manual:","code":"\nx <- 1:10\n\ntracemem(x)\n#> [1] \"<0x5642701b6628>\"\n\nx <- x + 1\n\nuntracemem(x)\nobj_addr(1:10)\n#> [1] \"0x56426fc8b0f8\"\n\ntracemem(1:10)\n#> [1] \"<0x56426fcf77a0>\"\nx <- c(1L, 2L, 3L)\ntracemem(x)\n\nx[[3]] <- 4\nuntracemem(x)\nx <- c(1L, 2L, 3L)\ntypeof(x)\n#> [1] \"integer\"\ntracemem(x)\n#> [1] \"<0x56427053bad8>\"\n\nx[[3]] <- 4\n#> tracemem[0x56427053bad8 -> 0x564270667558]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local \n#> tracemem[0x564270667558 -> 0x564270675188]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local\nuntracemem(x)\n\ntypeof(x)\n#> [1] \"double\"\nx <- c(1L, 2L, 3L)\ntypeof(x)\n#> [1] \"integer\"\ntracemem(x)\n#> [1] \"<0x564270b34198>\"\n\nx[[3]] <- 4L\n#> tracemem[0x564270b34198 -> 0x564270c5fe18]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local\nuntracemem(x)\n\ntypeof(x)\n#> [1] \"integer\"\na <- 1:10\nb <- list(a, a)\nc <- list(b, a, 1:10)\na <- 1:10\nb <- list(a, a)\nc <- list(b, a, 1:10)\n\nref(a)\n#> [1:0x56427131bcc8] <int>\n\nref(b)\n#> █ [1:0x5642718493e8] <list> \n#> ├─[2:0x56427131bcc8] <int> \n#> └─[2:0x56427131bcc8]\n\nref(c)\n#> █ [1:0x5642718cfda8] <list> \n#> ├─█ [2:0x5642718493e8] <list> \n#> │ ├─[3:0x56427131bcc8] <int> \n#> │ └─[3:0x56427131bcc8] \n#> ├─[3:0x56427131bcc8] \n#> └─[4:0x5642718d2178] <int>\nx <- list(1:10)\nx[[2]] <- x\nx <- list(1:10)\nx\n#> [[1]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\nobj_addr(x)\n#> [1] \"0x56426f689e78\"\n\nx[[2]] <- x\nx\n#> [[1]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\n#> \n#> [[2]]\n#> [[2]][[1]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\nobj_addr(x)\n#> [1] \"0x56426fe84148\"\n\nref(x)\n#> █ [1:0x56426fe84148] <list> \n#> ├─[2:0x56426eee5b38] <int> \n#> └─█ [3:0x56426f689e78] <list> \n#>   └─[2:0x56426eee5b38]"},{"path":"names-and-values.html","id":"object-size-exercise-2.4.1","chapter":"2 Names and values","heading":"2.3 Object size (Exercise 2.4.1)","text":"Q1. following example, object.size(y) obj_size(y) radically different? Consult documentation object.size().A1. mentioned docs object.size():function…detect elements list shared.sizes different:Q2. Take following list. size somewhat misleading?A2. functions externally created objects R, always available part base packages, doesn’t make much sense measure size never going available.Q3. Predict output following code:A3. Correctly predicted 😉Key pieces information keep mind make correct predictions:Size empty vectorSize single double: 8 bytesCopy--modify semantics","code":"\ny <- rep(list(runif(1e4)), 100)\n\nobject.size(y)\nobj_size(y)\ny <- rep(list(runif(1e4)), 100)\n\nobject.size(y)\n#> 8005648 bytes\n\nobj_size(y)\n#> 80.90 kB\nfuns <- list(mean, sd, var)\nobj_size(funs)\nfuns <- list(mean, sd, var)\nobj_size(funs)\n#> 17.55 kB\na <- runif(1e6)\nobj_size(a)\n\nb <- list(a, a)\nobj_size(b)\nobj_size(a, b)\n\nb[[1]][[1]] <- 10\nobj_size(b)\nobj_size(a, b)\n\nb[[2]][[1]] <- 10\nobj_size(b)\nobj_size(a, b)\na <- runif(1e6)\nobj_size(a)\n#> 8.00 MB\n\nb <- list(a, a)\nobj_size(b)\n#> 8.00 MB\nobj_size(a, b)\n#> 8.00 MB\n\nb[[1]][[1]] <- 10\nobj_size(b)\n#> 16.00 MB\nobj_size(a, b)\n#> 16.00 MB\n\nb[[2]][[1]] <- 10\nobj_size(b)\n#> 16.00 MB\nobj_size(a, b)\n#> 24.00 MB\nobj_size(double())\n#> 48 B\nobj_size(double(1))\n#> 56 B"},{"path":"names-and-values.html","id":"modify-in-place-exercise-2.5.3","chapter":"2 Names and values","heading":"2.4 Modify-in-place (Exercise 2.5.3)","text":"Q1. Explain following code doesn’t create circular list.A1. Copy--modify prevents creation circular list.Q2. Wrap two methods subtracting medians two functions, use ‘bench’ package carefully compare speeds. performance change number columns increase?A2. Let’s first microbenchmark functions create copies varying lengths number columns.Plotting benchmarks reveals performance gets increasingly worse number data frames increases:Q3. happens attempt use tracemem() environment?A3. doesn’t work documentation tracemem() makes clear :useful trace NULL, environments, promises, weak references, external pointer objects, duplicated","code":"\nx <- list()\nx[[1]] <- x\nx <- list()\n\nobj_addr(x)\n#> [1] \"0x5642702ece68\"\n\ntracemem(x)\n#> [1] \"<0x5642702ece68>\"\n\nx[[1]] <- x\n#> tracemem[0x5642702ece68 -> 0x56426fbe3420]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local\n\nobj_addr(x[[1]])\n#> [1] \"0x5642702ece68\"\nlibrary(bench)\nlibrary(tidyverse)\n\ngenerateDataFrame <- function(ncol) {\n  as.data.frame(matrix(runif(100 * ncol), nrow = 100))\n}\n\nwithCopy <- function(ncol) {\n  x <- generateDataFrame(ncol)\n  medians <- vapply(x, median, numeric(1))\n\n  for (i in seq_along(medians)) {\n    x[[i]] <- x[[i]] - medians[[i]]\n  }\n\n  return(x)\n}\n\nwithoutCopy <- function(ncol) {\n  x <- generateDataFrame(ncol)\n  medians <- vapply(x, median, numeric(1))\n\n  y <- as.list(x)\n\n  for (i in seq_along(medians)) {\n    y[[i]] <- y[[i]] - medians[[i]]\n  }\n\n  return(y)\n}\n\nbenchComparison <- function(ncol) {\n  bench::mark(\n    withCopy(ncol),\n    withoutCopy(ncol),\n    iterations = 100,\n    check = FALSE\n  ) %>%\n    dplyr::select(expression:total_time)\n}\n\nnColList <- list(1, 10, 50, 100, 250, 500, 1000)\n\nnames(nColList) <- as.character(nColList)\n\nbenchDf <- purrr::map_dfr(\n  .x = nColList,\n  .f = benchComparison,\n  .id = \"nColumns\"\n)\nggplot(\n  benchDf,\n  aes(\n    x = as.numeric(nColumns),\n    y = median,\n    group = as.character(expression),\n    color = as.character(expression)\n  )\n) +\n  geom_line() +\n  labs(\n    x = \"Number of Columns\",\n    y = \"Median Execution Time (ms)\",\n    colour = \"Type of function\"\n  )\ne <- rlang::env(a = 1, b = \"3\")\ntracemem(e)\n#> Error in tracemem(e): 'tracemem' is not useful for promise and environment objects"},{"path":"names-and-values.html","id":"session-information","chapter":"2 Names and values","heading":"2.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench       * 1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  farver        2.1.1   2022-07-06 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  forcats     * 1.0.0   2023-01-29 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  hms           1.1.3   2023-03-21 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  labeling      0.4.3   2023-08-29 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr      * 1.1.2   2022-06-22 [1] RSPM\n#>  lubridate   * 1.9.3   2023-09-27 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  prettyunits   1.2.0   2023-09-24 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  readr       * 2.1.4   2023-02-10 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales        1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  stringi       1.8.3   2023-12-11 [1] RSPM\n#>  stringr     * 1.5.1   2023-11-14 [1] RSPM\n#>  tibble      * 3.2.1   2023-03-20 [1] RSPM\n#>  tidyr       * 1.3.0   2023-01-24 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tidyverse   * 2.0.0   2023-02-22 [1] RSPM\n#>  timechange    0.2.0   2023-01-11 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  tzdb          0.4.0   2023-05-12 [1] RSPM\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"vectors.html","id":"vectors","chapter":"3 Vectors","heading":"3 Vectors","text":"","code":""},{"path":"vectors.html","id":"atomic-vectors-exercises-3.2.5","chapter":"3 Vectors","heading":"3.1 Atomic vectors (Exercises 3.2.5)","text":"Q1. create raw complex scalars? (See ?raw ?complex.)A1. R, scalars nothing vectors length 1, can created using constructor.Raw vectorsThe raw type holds raw bytes, can created using charToRaw(). example,alternative use .raw():Complex vectorsComplex vectors used represent (surprise!) complex numbers.Example complex scalar:Q2. Test knowledge vector coercion rules predicting output following uses c():A2. vector coercion rules dictate data type smaller size converted data type bigger size.Q3. 1 == \"1\" true? -1 < FALSE true? \"one\" < 2 false?A3. coercion rules vectors reveal comparisons return results .Q4. default missing value, NA, logical vector? ’s special logical vectors? (Hint: think c(FALSE, NA_character_).)A4. \"logical\" type lowest coercion hierarchy.NA defaulting type (e.g. \"numeric\") mean time missing element vector, rest elements converted type higher hierarchy, problematic types lower hierarchy.Q5. Precisely .atomic(), .numeric(), .vector() test ?A5. Let’s discuss one--one..atomic()function checks object vector atomic type (NULL).Quoting docs:.atomic true atomic types (“logical”, “integer”, “numeric”, “complex”, “character” “raw”) NULL..numeric()documentation says:.numeric return true base type class double integer values can reasonably regarded numericTherefore, function checks double integer base types types based top types (factor, Date, POSIXt, difftime)..vector()per documentation:.vector returns TRUE x vector specified mode attributes names. returns FALSE otherwise.Thus, function can incorrectif object attributes names.better way check vector:","code":"\nx <- \"A string\"\n\n(y <- charToRaw(x))\n#> [1] 41 20 73 74 72 69 6e 67\n\ntypeof(y)\n#> [1] \"raw\"\nas.raw(\"–\") # en-dash\n#> Warning: NAs introduced by coercion\n#> Warning: out-of-range values treated as 0 in coercion to\n#> raw\n#> [1] 00\nas.raw(\"—\") # em-dash\n#> Warning: NAs introduced by coercion\n\n#> Warning: out-of-range values treated as 0 in coercion to\n#> raw\n#> [1] 00\n(x <- complex(length.out = 1, real = 1, imaginary = 8))\n#> [1] 1+8i\n\ntypeof(x)\n#> [1] \"complex\"\nc(1, FALSE)\nc(\"a\", 1)\nc(TRUE, 1L)\nc(1, FALSE)\n#> [1] 1 0\n\nc(\"a\", 1)\n#> [1] \"a\" \"1\"\n\nc(TRUE, 1L)\n#> [1] 1 1\n1 == \"1\"\n#> [1] TRUE\n\nc(1, \"1\")\n#> [1] \"1\" \"1\"\n-1 < FALSE\n#> [1] TRUE\n\nc(-1, FALSE)\n#> [1] -1  0\n\"one\" < 2\n#> [1] FALSE\n\nc(\"one\", 2)\n#> [1] \"one\" \"2\"\n\nsort(c(\"one\", 2))\n#> [1] \"2\"   \"one\"\ntypeof(NA)\n#> [1] \"logical\"\n\nc(FALSE, NA_character_)\n#> [1] \"FALSE\" NA\nis.atomic(NULL)\n#> [1] TRUE\n\nis.atomic(list(NULL))\n#> [1] FALSE\nis.numeric(1L)\n#> [1] TRUE\n\nis.numeric(factor(1L))\n#> [1] FALSE\nx <- c(\"x\" = 1, \"y\" = 2)\n\nis.vector(x)\n#> [1] TRUE\n\nattr(x, \"m\") <- \"abcdef\"\n\nis.vector(x)\n#> [1] FALSE\nis.null(dim(x))\n#> [1] TRUE"},{"path":"vectors.html","id":"attributes-exercises-3.3.4","chapter":"3 Vectors","heading":"3.2 Attributes (Exercises 3.3.4)","text":"Q1. setNames() implemented? unname() implemented? Read source code.A1. Let’s look implementations functions.setNames()Given function signature, can see , first argument given, result still named vector.unname()unname() removes existing names (dimnames) setting NULL.Q2. dim() return applied 1-dimensional vector? might use NROW() NCOL()?A2. Dimensions 1-dimensional vector NULL. example,NROW() NCOL() helpful getting dimensions 1D vectors treating matrices dataframes.Q3. describe following three objects? makes different 1:5?A3. x1, x2, x3 one-dimensional arrays, different “orientations”, mentally visualize .x1 5 entries third dimension, x2 second dimension, x1 first dimension.Q4. early draft used code illustrate structure():print object don’t see comment attribute. ? attribute missing, something else special ? (Hint: try using help.)A4. ?attributes (emphasis mine):Note attributes (namely class, comment, dim, dimnames, names, row.names tsp) treated specially restrictions values can set.","code":"\nsetNames\n#> function (object = nm, nm) \n#> {\n#>     names(object) <- nm\n#>     object\n#> }\n#> <bytecode: 0x55c0caac1880>\n#> <environment: namespace:stats>\nsetNames(, c(\"a\", \"b\"))\n#>   a   b \n#> \"a\" \"b\"\n\nsetNames(c(1, 2), c(\"a\", \"b\"))\n#> a b \n#> 1 2\nunname\n#> function (obj, force = FALSE) \n#> {\n#>     if (!is.null(names(obj))) \n#>         names(obj) <- NULL\n#>     if (!is.null(dimnames(obj)) && (force || !is.data.frame(obj))) \n#>         dimnames(obj) <- NULL\n#>     obj\n#> }\n#> <bytecode: 0x55c0c9ecc578>\n#> <environment: namespace:base>\nunname(setNames(, c(\"a\", \"b\")))\n#> [1] \"a\" \"b\"\ndim(c(1, 2))\n#> NULL\n# example-1\nx <- character(0)\n\ndim(x)\n#> NULL\n\nnrow(x)\n#> NULL\nNROW(x)\n#> [1] 0\n\nncol(x)\n#> NULL\nNCOL(x)\n#> [1] 1\n\n# example-2\ny <- 1:4\n\ndim(y)\n#> NULL\n\nnrow(y)\n#> NULL\nNROW(y)\n#> [1] 4\n\nncol(y)\n#> NULL\nNCOL(y)\n#> [1] 1\nx1 <- array(1:5, c(1, 1, 5))\nx2 <- array(1:5, c(1, 5, 1))\nx3 <- array(1:5, c(5, 1, 1))\nstructure(1:5, comment = \"my attribute\")\n#> [1] 1 2 3 4 5\nstructure(1:5, x = \"my attribute\")\n#> [1] 1 2 3 4 5\n#> attr(,\"x\")\n#> [1] \"my attribute\"\n\nstructure(1:5, comment = \"my attribute\")\n#> [1] 1 2 3 4 5"},{"path":"vectors.html","id":"s3-atomic-vectors-exercises-3.4.5","chapter":"3 Vectors","heading":"3.3 S3 atomic vectors (Exercises 3.4.5)","text":"Q1. sort object table() return? type? attributes ? dimensionality change tabulate variables?A1. table() returns array integer type dimensions scale number variables present.Q2. happens factor modify levels?A2. levels change underlying integer values remain .Q3. code ? f2 f3 differ f1?A3. code:f2: underlying integers reversed, levels remain unchanged.f3: levels underlying integers reversed.","code":"\n(x <- table(mtcars$am))\n#> \n#>  0  1 \n#> 19 13\n(y <- table(mtcars$am, mtcars$cyl))\n#>    \n#>      4  6  8\n#>   0  3  4 12\n#>   1  8  3  2\n(z <- table(mtcars$am, mtcars$cyl, mtcars$vs))\n#> , ,  = 0\n#> \n#>    \n#>      4  6  8\n#>   0  0  0 12\n#>   1  1  3  2\n#> \n#> , ,  = 1\n#> \n#>    \n#>      4  6  8\n#>   0  3  4  0\n#>   1  7  0  0\n\n# type\npurrr::map(list(x, y, z), typeof)\n#> [[1]]\n#> [1] \"integer\"\n#> \n#> [[2]]\n#> [1] \"integer\"\n#> \n#> [[3]]\n#> [1] \"integer\"\n\n# attributes\npurrr::map(list(x, y, z), attributes)\n#> [[1]]\n#> [[1]]$dim\n#> [1] 2\n#> \n#> [[1]]$dimnames\n#> [[1]]$dimnames[[1]]\n#> [1] \"0\" \"1\"\n#> \n#> \n#> [[1]]$class\n#> [1] \"table\"\n#> \n#> \n#> [[2]]\n#> [[2]]$dim\n#> [1] 2 3\n#> \n#> [[2]]$dimnames\n#> [[2]]$dimnames[[1]]\n#> [1] \"0\" \"1\"\n#> \n#> [[2]]$dimnames[[2]]\n#> [1] \"4\" \"6\" \"8\"\n#> \n#> \n#> [[2]]$class\n#> [1] \"table\"\n#> \n#> \n#> [[3]]\n#> [[3]]$dim\n#> [1] 2 3 2\n#> \n#> [[3]]$dimnames\n#> [[3]]$dimnames[[1]]\n#> [1] \"0\" \"1\"\n#> \n#> [[3]]$dimnames[[2]]\n#> [1] \"4\" \"6\" \"8\"\n#> \n#> [[3]]$dimnames[[3]]\n#> [1] \"0\" \"1\"\n#> \n#> \n#> [[3]]$class\n#> [1] \"table\"\nf1 <- factor(letters)\nlevels(f1) <- rev(levels(f1))\nf1 <- factor(letters)\nf1\n#>  [1] a b c d e f g h i j k l m n o p q r s t u v w x y z\n#> 26 Levels: a b c d e f g h i j k l m n o p q r s t u ... z\nas.integer(f1)\n#>  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18\n#> [19] 19 20 21 22 23 24 25 26\n\nlevels(f1) <- rev(levels(f1))\nf1\n#>  [1] z y x w v u t s r q p o n m l k j i h g f e d c b a\n#> 26 Levels: z y x w v u t s r q p o n m l k j i h g f ... a\nas.integer(f1)\n#>  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18\n#> [19] 19 20 21 22 23 24 25 26\nf2 <- rev(factor(letters))\nf3 <- factor(letters, levels = rev(letters))\nf2 <- rev(factor(letters))\nf2\n#>  [1] z y x w v u t s r q p o n m l k j i h g f e d c b a\n#> 26 Levels: a b c d e f g h i j k l m n o p q r s t u ... z\nas.integer(f2)\n#>  [1] 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10  9\n#> [19]  8  7  6  5  4  3  2  1\nf3 <- factor(letters, levels = rev(letters))\nf3\n#>  [1] a b c d e f g h i j k l m n o p q r s t u v w x y z\n#> 26 Levels: z y x w v u t s r q p o n m l k j i h g f ... a\nas.integer(f3)\n#>  [1] 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10  9\n#> [19]  8  7  6  5  4  3  2  1"},{"path":"vectors.html","id":"lists-exercises-3.5.4","chapter":"3 Vectors","heading":"3.4 Lists (Exercises 3.5.4)","text":"Q1. List ways list differs atomic vector.A1. table comparison:Q2. need use unlist() convert list atomic vector? doesn’t .vector() work?A2. list already (generic) vector, .vector() going change anything, .atomic.vector. Thus, need use unlist().Q3. Compare contrast c() unlist() combining date date-time single vector.A3. Let’s first create date datetime objectAnd check attributes underlying double representation:Behavior c()Since S3 method c() dispatches first argument, resulting class vector going first argument. , attributes lost.Behavior unlist()removes attributes left underlying double representations objects.","code":"\nx <- list(a = 1, b = 2)\n\nis.vector(x)\n#> [1] TRUE\nis.atomic(x)\n#> [1] FALSE\n\n# still a list\nas.vector(x)\n#> $a\n#> [1] 1\n#> \n#> $b\n#> [1] 2\n\n# now a vector\nunlist(x)\n#> a b \n#> 1 2\ndate <- as.Date(\"1947-08-15\")\ndatetime <- as.POSIXct(\"1950-01-26 00:01\", tz = \"UTC\")\nattributes(date)\n#> $class\n#> [1] \"Date\"\nattributes(datetime)\n#> $class\n#> [1] \"POSIXct\" \"POSIXt\" \n#> \n#> $tzone\n#> [1] \"UTC\"\n\nas.double(date) # number of days since the Unix epoch 1970-01-01\n#> [1] -8175\nas.double(datetime) # number of seconds since then\n#> [1] -628991940\nc(date, datetime)\n#> [1] \"1947-08-15\" \"1950-01-26\"\n\nattributes(c(date, datetime))\n#> $class\n#> [1] \"Date\"\n\nc(datetime, date)\n#> [1] \"1950-01-26 00:01:00 UTC\" \"1947-08-15 00:00:00 UTC\"\n\nattributes(c(datetime, date))\n#> $class\n#> [1] \"POSIXct\" \"POSIXt\" \n#> \n#> $tzone\n#> [1] \"UTC\"\nunlist(list(date, datetime))\n#> [1]      -8175 -628991940\n\nunlist(list(datetime, date))\n#> [1] -628991940      -8175"},{"path":"vectors.html","id":"data-frames-and-tibbles-exercises-3.6.8","chapter":"3 Vectors","heading":"3.5 Data frames and tibbles (Exercises 3.6.8)","text":"Q1. Can data frame zero rows? zero columns?A1. Data frame 0 rows possible. basically list vector length 0.Data frame 0 columns also possible. empty list., finally, data frame 0 rows columns also possible:Although, might common create data frames, can results subsetting. example,Q2. happens attempt set rownames unique?A2. attempt set data frame rownames unique, work.Q3. df data frame, can say t(df), t(t(df))? Perform experiments, making sure try different column types.A3. Transposing data frame:transforms matrixcoerces elements typeQ4. .matrix() applied data frame columns different types? differ data.matrix()?A4. return type .matrix() depends data frame column types.docs .matrix() mention:method data frames return character matrix atomic columns non-(numeric/logical/complex) column, applying .vector factors format non-character columns. Otherwise usual coercion hierarchy (logical < integer < double < complex) used, e.g. -logical data frames coerced logical matrix, mixed logical-integer give integer matrix, etc.Let’s experiment:hand, data.matrix() always returns numeric matrix.documentation data.matrix():Return matrix obtained converting variables data frame numeric mode binding together columns matrix. Factors ordered factors replaced internal codes. […] Character columns first converted factors integers.Let’s experiment:","code":"\ndata.frame(x = numeric(0))\n#> [1] x\n#> <0 rows> (or 0-length row.names)\ndata.frame(row.names = 1)\n#> data frame with 0 columns and 1 row\ndata.frame()\n#> data frame with 0 columns and 0 rows\n\ndim(data.frame())\n#> [1] 0 0\nBOD[0, ]\n#> [1] Time   demand\n#> <0 rows> (or 0-length row.names)\n\nBOD[, 0]\n#> data frame with 0 columns and 6 rows\n\nBOD[0, 0]\n#> data frame with 0 columns and 0 rows\ndata.frame(row.names = c(1, 1))\n#> Error in data.frame(row.names = c(1, 1)): duplicate row.names: 1\n# original\n(df <- head(iris))\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1          5.1         3.5          1.4         0.2  setosa\n#> 2          4.9         3.0          1.4         0.2  setosa\n#> 3          4.7         3.2          1.3         0.2  setosa\n#> 4          4.6         3.1          1.5         0.2  setosa\n#> 5          5.0         3.6          1.4         0.2  setosa\n#> 6          5.4         3.9          1.7         0.4  setosa\n\n# transpose\nt(df)\n#>              1        2        3        4        5       \n#> Sepal.Length \"5.1\"    \"4.9\"    \"4.7\"    \"4.6\"    \"5.0\"   \n#> Sepal.Width  \"3.5\"    \"3.0\"    \"3.2\"    \"3.1\"    \"3.6\"   \n#> Petal.Length \"1.4\"    \"1.4\"    \"1.3\"    \"1.5\"    \"1.4\"   \n#> Petal.Width  \"0.2\"    \"0.2\"    \"0.2\"    \"0.2\"    \"0.2\"   \n#> Species      \"setosa\" \"setosa\" \"setosa\" \"setosa\" \"setosa\"\n#>              6       \n#> Sepal.Length \"5.4\"   \n#> Sepal.Width  \"3.9\"   \n#> Petal.Length \"1.7\"   \n#> Petal.Width  \"0.4\"   \n#> Species      \"setosa\"\n\n# transpose of a transpose\nt(t(df))\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width\n#> 1 \"5.1\"        \"3.5\"       \"1.4\"        \"0.2\"      \n#> 2 \"4.9\"        \"3.0\"       \"1.4\"        \"0.2\"      \n#> 3 \"4.7\"        \"3.2\"       \"1.3\"        \"0.2\"      \n#> 4 \"4.6\"        \"3.1\"       \"1.5\"        \"0.2\"      \n#> 5 \"5.0\"        \"3.6\"       \"1.4\"        \"0.2\"      \n#> 6 \"5.4\"        \"3.9\"       \"1.7\"        \"0.4\"      \n#>   Species \n#> 1 \"setosa\"\n#> 2 \"setosa\"\n#> 3 \"setosa\"\n#> 4 \"setosa\"\n#> 5 \"setosa\"\n#> 6 \"setosa\"\n\n# is it a dataframe?\nis.data.frame(df)\n#> [1] TRUE\nis.data.frame(t(df))\n#> [1] FALSE\nis.data.frame(t(t(df)))\n#> [1] FALSE\n\n# check type\ntypeof(df)\n#> [1] \"list\"\ntypeof(t(df))\n#> [1] \"character\"\ntypeof(t(t(df)))\n#> [1] \"character\"\n\n# check dimensions\ndim(df)\n#> [1] 6 5\ndim(t(df))\n#> [1] 5 6\ndim(t(t(df)))\n#> [1] 6 5\n# example with mixed types (coerced to character)\n(df <- head(iris))\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1          5.1         3.5          1.4         0.2  setosa\n#> 2          4.9         3.0          1.4         0.2  setosa\n#> 3          4.7         3.2          1.3         0.2  setosa\n#> 4          4.6         3.1          1.5         0.2  setosa\n#> 5          5.0         3.6          1.4         0.2  setosa\n#> 6          5.4         3.9          1.7         0.4  setosa\n\nas.matrix(df)\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width\n#> 1 \"5.1\"        \"3.5\"       \"1.4\"        \"0.2\"      \n#> 2 \"4.9\"        \"3.0\"       \"1.4\"        \"0.2\"      \n#> 3 \"4.7\"        \"3.2\"       \"1.3\"        \"0.2\"      \n#> 4 \"4.6\"        \"3.1\"       \"1.5\"        \"0.2\"      \n#> 5 \"5.0\"        \"3.6\"       \"1.4\"        \"0.2\"      \n#> 6 \"5.4\"        \"3.9\"       \"1.7\"        \"0.4\"      \n#>   Species \n#> 1 \"setosa\"\n#> 2 \"setosa\"\n#> 3 \"setosa\"\n#> 4 \"setosa\"\n#> 5 \"setosa\"\n#> 6 \"setosa\"\n\nstr(as.matrix(df))\n#>  chr [1:6, 1:5] \"5.1\" \"4.9\" \"4.7\" \"4.6\" \"5.0\" \"5.4\" ...\n#>  - attr(*, \"dimnames\")=List of 2\n#>   ..$ : chr [1:6] \"1\" \"2\" \"3\" \"4\" ...\n#>   ..$ : chr [1:5] \"Sepal.Length\" \"Sepal.Width\" \"Petal.Length\" \"Petal.Width\" ...\n\n# another example (no such coercion)\nBOD\n#>   Time demand\n#> 1    1    8.3\n#> 2    2   10.3\n#> 3    3   19.0\n#> 4    4   16.0\n#> 5    5   15.6\n#> 6    7   19.8\n\nas.matrix(BOD)\n#>      Time demand\n#> [1,]    1    8.3\n#> [2,]    2   10.3\n#> [3,]    3   19.0\n#> [4,]    4   16.0\n#> [5,]    5   15.6\n#> [6,]    7   19.8\ndata.matrix(df)\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1          5.1         3.5          1.4         0.2       1\n#> 2          4.9         3.0          1.4         0.2       1\n#> 3          4.7         3.2          1.3         0.2       1\n#> 4          4.6         3.1          1.5         0.2       1\n#> 5          5.0         3.6          1.4         0.2       1\n#> 6          5.4         3.9          1.7         0.4       1\n\nstr(data.matrix(df))\n#>  num [1:6, 1:5] 5.1 4.9 4.7 4.6 5 5.4 3.5 3 3.2 3.1 ...\n#>  - attr(*, \"dimnames\")=List of 2\n#>   ..$ : chr [1:6] \"1\" \"2\" \"3\" \"4\" ...\n#>   ..$ : chr [1:5] \"Sepal.Length\" \"Sepal.Width\" \"Petal.Length\" \"Petal.Width\" ..."},{"path":"vectors.html","id":"session-information-1","chapter":"3 Vectors","heading":"3.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"subsetting.html","id":"subsetting","chapter":"4 Subsetting","heading":"4 Subsetting","text":"Attaching needed libraries:","code":"\nlibrary(tibble)"},{"path":"subsetting.html","id":"selecting-multiple-elements-exercises-4.2.6","chapter":"4 Subsetting","heading":"4.1 Selecting multiple elements (Exercises 4.2.6)","text":"Q1. Fix following common data frame subsetting errors:A1. Fixed versions commands:Q2. following code yield five missing values?A2. two reasons:default type NA R logical type.R recycles indexes match length vector.Q3. upper.tri() return? subsetting matrix work? need additional subsetting rules describe behaviour?A3. documentation upper.tri() states-Returns matrix logicals size given matrix entries TRUE upper triangleWhen used matrix subsetting, elements corresponding TRUE subsetting matrix selected. , instead matrix, returns vector:Q4. mtcars[1:20] return error? differ similar mtcars[1:20, ]?A4. indexed like list, data frame columns given indices selected.mtcars[1:20] doesn’t work 11 columns mtcars dataset.hand, mtcars[1:20, ] indexes dataframe like matrix, indeed 20 rows mtcars, columns rows selected.Q5. Implement function extracts diagonal entries matrix (behave like diag(x) x matrix).A5. can combine existing functions advantage:Q6. df[.na(df)] <- 0 ? work?A6. expression replaces every instance NA df 0..na(df) produces matrix logical values, provides way subsetting.","code":"mtcars[mtcars$cyl = 4, ]\nmtcars[-1:4, ]\nmtcars[mtcars$cyl <= 5]\nmtcars[mtcars$cyl == 4 | 6, ]\n# `==` instead of `=`\nmtcars[mtcars$cyl == 4, ]\n\n# `-(1:4)` instead of `-1:4`\nmtcars[-(1:4), ]\n\n# `,` was missing\nmtcars[mtcars$cyl <= 5, ]\n\n# correct subsetting syntax\nmtcars[mtcars$cyl == 4 | mtcars$cyl == 6, ]\nmtcars[mtcars$cyl %in% c(4, 6), ]\nx <- 1:5\nx[NA]\n#> [1] NA NA NA NA NA\ntypeof(NA)\n#> [1] \"logical\"\nx <- 1:5\nx[c(TRUE, FALSE)] # recycled to c(TRUE, FALSE, TRUE, FALSE, TRUE)\n#> [1] 1 3 5\nx <- outer(1:5, 1:5, FUN = \"*\")\nx[upper.tri(x)]\n(x <- outer(1:5, 1:5, FUN = \"*\"))\n#>      [,1] [,2] [,3] [,4] [,5]\n#> [1,]    1    2    3    4    5\n#> [2,]    2    4    6    8   10\n#> [3,]    3    6    9   12   15\n#> [4,]    4    8   12   16   20\n#> [5,]    5   10   15   20   25\n\nupper.tri(x)\n#>       [,1]  [,2]  [,3]  [,4]  [,5]\n#> [1,] FALSE  TRUE  TRUE  TRUE  TRUE\n#> [2,] FALSE FALSE  TRUE  TRUE  TRUE\n#> [3,] FALSE FALSE FALSE  TRUE  TRUE\n#> [4,] FALSE FALSE FALSE FALSE  TRUE\n#> [5,] FALSE FALSE FALSE FALSE FALSE\nx[upper.tri(x)]\n#>  [1]  2  3  6  4  8 12  5 10 15 20\nhead(mtcars[1:2])\n#>                    mpg cyl\n#> Mazda RX4         21.0   6\n#> Mazda RX4 Wag     21.0   6\n#> Datsun 710        22.8   4\n#> Hornet 4 Drive    21.4   6\n#> Hornet Sportabout 18.7   8\n#> Valiant           18.1   6\nnrow(mtcars[1:20, ])\n#> [1] 20\nx[!upper.tri(x) & !lower.tri(x)]\n#> [1]  1  4  9 16 25\n\ndiag(x)\n#> [1]  1  4  9 16 25\n(df <- tibble(x = c(1, 2, NA), y = c(NA, 5, NA)))\n#> # A tibble: 3 × 2\n#>       x     y\n#>   <dbl> <dbl>\n#> 1     1    NA\n#> 2     2     5\n#> 3    NA    NA\n\nis.na(df)\n#>          x     y\n#> [1,] FALSE  TRUE\n#> [2,] FALSE FALSE\n#> [3,]  TRUE  TRUE\n\nclass(is.na(df))\n#> [1] \"matrix\" \"array\""},{"path":"subsetting.html","id":"selecting-a-single-element-exercises-4.3.5","chapter":"4 Subsetting","heading":"4.2 Selecting a single element (Exercises 4.3.5)","text":"Q1. Brainstorm many ways possible extract third value cyl variable mtcars dataset.A1. Possible ways extract third value cyl variable mtcars dataset:Q2. Given linear model, e.g., mod <- lm(mpg ~ wt, data = mtcars), extract residual degrees freedom. extract R squared model summary (summary(mod))A2. Given objects class lm lists, can use subsetting operators extract elements want.extracting residual degrees freedomextracting R squared model summary","code":"\nmtcars[[\"cyl\"]][[3]]\n#> [1] 4\nmtcars[[c(2, 3)]]\n#> [1] 4\nmtcars[3, ][[\"cyl\"]]\n#> [1] 4\nmtcars[3, ]$cyl\n#> [1] 4\nmtcars[3, \"cyl\"]\n#> [1] 4\nmtcars[, \"cyl\"][[3]]\n#> [1] 4\nmtcars[3, 2]\n#> [1] 4\nmtcars$cyl[[3]]\n#> [1] 4\nmod <- lm(mpg ~ wt, data = mtcars)\nclass(mod)\n#> [1] \"lm\"\ntypeof(mod)\n#> [1] \"list\"\nmod$df.residual \n#> [1] 30\nmod[[\"df.residual\"]]\n#> [1] 30\nsummary(mod)$r.squared\n#> [1] 0.7528328\nsummary(mod)[[\"r.squared\"]]\n#> [1] 0.7528328"},{"path":"subsetting.html","id":"applications-exercises-4.5.9","chapter":"4 Subsetting","heading":"4.3 Applications (Exercises 4.5.9)","text":"Q1. randomly permute columns data frame? (important technique random forests.) Can simultaneously permute rows columns one step?A1. Let’s create small data frame work .randomly permute columns data frame, can combine [ sample() follows:randomly permute columnsrandomly permute rowsrandomly permute columns rowsQ2. select random sample m rows data frame? sample contiguous (.e., initial row, final row, every row )?A2. Let’s create small data frame work .select random sample m rows data frame, can combine [ sample() follows:random non-contiguous sample m rows data framerandom contiguous sample m rows data frameQ3. put columns data frame alphabetical order?A3. can sort columns data frame alphabetical order using [ order():","code":"\ndf <- head(mtcars)\n\n# original\ndf\n#>                    mpg cyl disp  hp drat    wt  qsec vs am\n#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1\n#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1\n#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1\n#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0\n#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0\n#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0\n#>                   gear carb\n#> Mazda RX4            4    4\n#> Mazda RX4 Wag        4    4\n#> Datsun 710           4    1\n#> Hornet 4 Drive       3    1\n#> Hornet Sportabout    3    2\n#> Valiant              3    1\ndf[sample.int(ncol(df))]\n#>                   drat    wt carb am  qsec vs  hp  mpg disp\n#> Mazda RX4         3.90 2.620    4  1 16.46  0 110 21.0  160\n#> Mazda RX4 Wag     3.90 2.875    4  1 17.02  0 110 21.0  160\n#> Datsun 710        3.85 2.320    1  1 18.61  1  93 22.8  108\n#> Hornet 4 Drive    3.08 3.215    1  0 19.44  1 110 21.4  258\n#> Hornet Sportabout 3.15 3.440    2  0 17.02  0 175 18.7  360\n#> Valiant           2.76 3.460    1  0 20.22  1 105 18.1  225\n#>                   cyl gear\n#> Mazda RX4           6    4\n#> Mazda RX4 Wag       6    4\n#> Datsun 710          4    4\n#> Hornet 4 Drive      6    3\n#> Hornet Sportabout   8    3\n#> Valiant             6    3\ndf[sample.int(nrow(df)), ]\n#>                    mpg cyl disp  hp drat    wt  qsec vs am\n#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1\n#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1\n#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1\n#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0\n#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0\n#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0\n#>                   gear carb\n#> Datsun 710           4    1\n#> Mazda RX4 Wag        4    4\n#> Mazda RX4            4    4\n#> Hornet Sportabout    3    2\n#> Hornet 4 Drive       3    1\n#> Valiant              3    1\ndf[sample.int(nrow(df)), sample.int(ncol(df))]\n#>                    qsec vs gear am    wt drat carb disp  hp\n#> Mazda RX4         16.46  0    4  1 2.620 3.90    4  160 110\n#> Hornet 4 Drive    19.44  1    3  0 3.215 3.08    1  258 110\n#> Datsun 710        18.61  1    4  1 2.320 3.85    1  108  93\n#> Mazda RX4 Wag     17.02  0    4  1 2.875 3.90    4  160 110\n#> Valiant           20.22  1    3  0 3.460 2.76    1  225 105\n#> Hornet Sportabout 17.02  0    3  0 3.440 3.15    2  360 175\n#>                    mpg cyl\n#> Mazda RX4         21.0   6\n#> Hornet 4 Drive    21.4   6\n#> Datsun 710        22.8   4\n#> Mazda RX4 Wag     21.0   6\n#> Valiant           18.1   6\n#> Hornet Sportabout 18.7   8\ndf <- head(mtcars)\n\n# original\ndf\n#>                    mpg cyl disp  hp drat    wt  qsec vs am\n#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1\n#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1\n#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1\n#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0\n#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0\n#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0\n#>                   gear carb\n#> Mazda RX4            4    4\n#> Mazda RX4 Wag        4    4\n#> Datsun 710           4    1\n#> Hornet 4 Drive       3    1\n#> Hornet Sportabout    3    2\n#> Valiant              3    1\n\n# number of rows to sample\nm <- 2L\ndf[sample(nrow(df), m), ]\n#>                mpg cyl disp  hp drat    wt  qsec vs am gear\n#> Valiant       18.1   6  225 105 2.76 3.460 20.22  1  0    3\n#> Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4\n#>               carb\n#> Valiant          1\n#> Mazda RX4 Wag    4\n# select a random starting position from available number of rows\nstart_row <- sample(nrow(df) - m + 1, size = 1)\n\n# adjust ending position while avoiding off-by-one error\nend_row <- start_row + m - 1\n\ndf[start_row:end_row, ]\n#>               mpg cyl disp  hp drat    wt  qsec vs am gear\n#> Mazda RX4      21   6  160 110  3.9 2.620 16.46  0  1    4\n#> Mazda RX4 Wag  21   6  160 110  3.9 2.875 17.02  0  1    4\n#>               carb\n#> Mazda RX4        4\n#> Mazda RX4 Wag    4\n# columns in original order\nnames(mtcars)\n#>  [1] \"mpg\"  \"cyl\"  \"disp\" \"hp\"   \"drat\" \"wt\"   \"qsec\" \"vs\"  \n#>  [9] \"am\"   \"gear\" \"carb\"\n\n# columns in alphabetical order\nnames(mtcars[order(names(mtcars))])\n#>  [1] \"am\"   \"carb\" \"cyl\"  \"disp\" \"drat\" \"gear\" \"hp\"   \"mpg\" \n#>  [9] \"qsec\" \"vs\"   \"wt\""},{"path":"subsetting.html","id":"session-information-2","chapter":"4 Subsetting","heading":"4.4 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble      * 3.2.1   2023-03-20 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"control-flow.html","id":"control-flow","chapter":"5 Control flow","heading":"5 Control flow","text":"","code":""},{"path":"control-flow.html","id":"choices-exercises-5.2.4","chapter":"5 Control flow","heading":"5.1 Choices (Exercises 5.2.4)","text":"Q1. type vector following calls ifelse() return?Read documentation write rules words.A1. rules call ifelse() might return:type unstable, .e. type return depend type condition true (yes , .e.):works cases test argument evaluates logical type:test argument logical type, NA, return NA:test argument doesn’t resolve logical type, try coerce output logical type:also clarified docs function:vector length attributes (including dimensions \"class\") test data values values yes . mode answer coerced logical accommodate first values taken yes values taken .Q2. following code work?A2. code works conditional expressions () - even though numeric type - can successfully coerced logical type.","code":"\nifelse(TRUE, 1, \"no\")\nifelse(FALSE, 1, \"no\")\nifelse(NA, 1, \"no\")\nifelse(TRUE, 1, \"no\") # `numeric` returned\n#> [1] 1\nifelse(FALSE, 1, \"no\") # `character` returned\n#> [1] \"no\"\nifelse(NA_real_, 1, \"no\")\n#> [1] NA\nifelse(NaN, 1, \"no\")\n#> [1] NA\nifelse(NA, 1, \"no\")\n#> [1] NA\n# will work\nifelse(\"TRUE\", 1, \"no\")\n#> [1] 1\nifelse(\"false\", 1, \"no\")\n#> [1] \"no\"\n\n# won't work\nifelse(\"tRuE\", 1, \"no\")\n#> [1] NA\nifelse(NaN, 1, \"no\")\n#> [1] NA\nx <- 1:10\nif (length(x)) \"not empty\" else \"empty\"\n#> [1] \"not empty\"\n\nx <- numeric()\nif (length(x)) \"not empty\" else \"empty\"\n#> [1] \"empty\"\nas.logical(length(1:10))\n#> [1] TRUE\n\nas.logical(length(numeric()))\n#> [1] FALSE"},{"path":"control-flow.html","id":"loops-exercises-5.3.3","chapter":"5 Control flow","heading":"5.2 Loops (Exercises 5.3.3)","text":"Q1. code succeed without errors warnings?A1. works 1:length(x) works positive negative directions.case, since x length 0, go 1 0.Additionally, since --bound (OOB) value atomic vectors NA, related operations OOB values also produce NA.way avoid unintended behavior use seq_along() instead:Q2. following code evaluated, can say vector iterated?A2. iterator variable x initially takes values vector xs. can check printing x iteration:worth noting x updated iteration; otherwise, take increasingly bigger values xs, loop never end executing.Q3. following code tell index updated?A3. () loop index updated beginning iteration. Otherwise, encounter infinite loop.Also, worth contrasting behavior () loop () loop:","code":"\nx <- numeric()\nout <- vector(\"list\", length(x))\nfor (i in 1:length(x)) {\n  out[i] <- x[i]^2\n}\nout\n1:2\n#> [1] 1 2\n1:0\n#> [1] 1 0\n1:-3\n#> [1]  1  0 -1 -2 -3\nx <- numeric()\nout <- vector(\"list\", length(x))\n\nfor (i in 1:length(x)) {\n  print(paste(\"i:\", i, \", x[i]:\", x[i], \", out[i]:\", out[i]))\n\n  out[i] <- x[i]^2\n}\n#> [1] \"i: 1 , x[i]: NA , out[i]: NULL\"\n#> [1] \"i: 0 , x[i]:  , out[i]: \"\n\nout\n#> [[1]]\n#> [1] NA\nx <- numeric()\nout <- vector(\"list\", length(x))\n\nfor (i in seq_along(x)) {\n  out[i] <- x[i]^2\n}\n\nout\n#> list()\nxs <- c(1, 2, 3)\nfor (x in xs) {\n  xs <- c(xs, x * 2)\n}\nxs\n#> [1] 1 2 3 2 4 6\nxs <- c(1, 2, 3)\nfor (x in xs) {\n  cat(\"x:\", x, \"\\n\")\n  xs <- c(xs, x * 2)\n  cat(\"xs:\", paste(xs), \"\\n\")\n}\n#> x: 1 \n#> xs: 1 2 3 2 \n#> x: 2 \n#> xs: 1 2 3 2 4 \n#> x: 3 \n#> xs: 1 2 3 2 4 6\nfor (i in 1:3) {\n  i <- i * 2\n  print(i)\n}\n#> [1] 2\n#> [1] 4\n#> [1] 6\nfor (i in 1:3) {\n  cat(\"before: \", i, \"\\n\")\n  i <- i * 2\n  cat(\"after:  \", i, \"\\n\")\n}\n#> before:  1 \n#> after:   2 \n#> before:  2 \n#> after:   4 \n#> before:  3 \n#> after:   6\ni <- 1\nwhile (i < 4) {\n  cat(\"before: \", i, \"\\n\")\n  i <- i * 2\n  cat(\"after:  \", i, \"\\n\")\n}\n#> before:  1 \n#> after:   2 \n#> before:  2 \n#> after:   4"},{"path":"control-flow.html","id":"session-information-3","chapter":"5 Control flow","heading":"5.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"functions.html","id":"functions","chapter":"6 Functions","heading":"6 Functions","text":"Attaching needed libraries:","code":"\nlibrary(tidyverse, warn.conflicts = FALSE)"},{"path":"functions.html","id":"function-fundamentals-exercises-6.2.5","chapter":"6 Functions","heading":"6.1 Function fundamentals (Exercises 6.2.5)","text":"Q1. Given name, like \"mean\", match.fun() lets find function. Given function, can find name? doesn’t make sense R?A1. Given name, match.fun() lets find function., given function, doesn’t make sense find name can multiple names bound function.Q2. ’s possible (although typically useful) call anonymous function. two approaches correct? ?A2. first expression correct since function evaluate 3(), syntactically allowed since literals can’t treated like functions.correct way call anonymous function.Q3. good rule thumb anonymous function fit one line shouldn’t need use {}. Review code. used anonymous function instead named function? used named function instead anonymous function?A3. Self activity.Q4. function allows tell object function? function allows tell function primitive function?A4. Use .function() check object function:Use .primitive() check function primitive:Q5. code makes list functions base package.Use answer following questions:base function arguments?base function arguments?many base functions arguments? ’s special functions?many base functions arguments? ’s special functions?adapt code find primitive functions?adapt code find primitive functions?A5. provided code following:base function arguments?can use formals() extract number arguments, function returns NULL primitive functions.Therefore, focus non-primitive functions.scan() function arguments.many base functions arguments? ’s special functions?time writing, 47 base (non-primitive) functions arguments.adapt code find primitive functions?Q6. three important components function?A6. Except primitive functions, functions 3 important components:formals()body()environment()Q7. printing function show environment created ?A7. package functions print environment:two exceptions enclosing environment won’t printed:primitive functionsfunctions created global environment","code":"\nmatch.fun(\"mean\")\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x55734d1505a8>\n#> <environment: namespace:base>\nf1 <- function(x) mean(x)\nf2 <- f1\n\nmatch.fun(\"f1\")\n#> function(x) mean(x)\n\nmatch.fun(\"f2\")\n#> function(x) mean(x)\nfunction(x) 3()\n#> function(x) 3()\n(function(x) 3)()\n#> [1] 3\nf <- (function(x) 3())\nf\n#> function(x) 3()\nf()\n#> Error in f(): attempt to apply non-function\n\nrlang::is_syntactic_literal(3)\n#> [1] TRUE\ng <- (function(x) 3)\ng\n#> function(x) 3\ng()\n#> [1] 3\n# these are functions\nf <- function(x) 3\nis.function(mean)\n#> [1] TRUE\nis.function(f)\n#> [1] TRUE\n\n# these aren't\nis.function(\"x\")\n#> [1] FALSE\nis.function(new.env())\n#> [1] FALSE\n# primitive\nis.primitive(sum)\n#> [1] TRUE\nis.primitive(`+`)\n#> [1] TRUE\n\n# not primitive\nis.primitive(mean)\n#> [1] FALSE\nis.primitive(read.csv)\n#> [1] FALSE\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\nformals(\"!\")\n#> NULL\n\nlength(formals(\"!\"))\n#> [1] 0\nfuns <- purrr::discard(funs, is.primitive)\ndf_formals <- purrr::map_df(funs, ~ length(formals(.))) %>%\n  tidyr::pivot_longer(\n    cols = dplyr::everything(),\n    names_to = \"function\",\n    values_to = \"argumentCount\"\n  ) %>%\n  dplyr::arrange(desc(argumentCount))\n\ndf_formals\n#> # A tibble: 1,137 × 2\n#>    `function`       argumentCount\n#>    <chr>                    <int>\n#>  1 scan                        22\n#>  2 format.default              16\n#>  3 source                      16\n#>  4 formatC                     15\n#>  5 library                     13\n#>  6 merge.data.frame            13\n#>  7 prettyNum                   13\n#>  8 system2                     11\n#>  9 print.default               10\n#> 10 save                        10\n#> # ℹ 1,127 more rows\ndplyr::filter(df_formals, argumentCount == 0)\n#> # A tibble: 47 × 2\n#>    `function`               argumentCount\n#>    <chr>                            <int>\n#>  1 .First.sys                           0\n#>  2 .NotYetImplemented                   0\n#>  3 .OptRequireMethods                   0\n#>  4 .standard_regexps                    0\n#>  5 .tryResumeInterrupt                  0\n#>  6 closeAllConnections                  0\n#>  7 contributors                         0\n#>  8 Cstack_info                          0\n#>  9 default.stringsAsFactors             0\n#> 10 extSoftVersion                       0\n#> # ℹ 37 more rows\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\nprimitives <- Filter(is.primitive, funs)\n\nlength(primitives)\n#> [1] 205\n\nnames(primitives)\n#>   [1] \"-\"                    \":\"                   \n#>   [3] \"::\"                   \":::\"                 \n#>   [5] \"!\"                    \"!=\"                  \n#>   [7] \"...elt\"               \"...length\"           \n#>   [9] \"...names\"             \".C\"                  \n#>  [11] \".cache_class\"         \".Call\"               \n#>  [13] \".Call.graphics\"       \".class2\"             \n#>  [15] \".External\"            \".External.graphics\"  \n#>  [17] \".External2\"           \".Fortran\"            \n#>  [19] \".Internal\"            \".isMethodsDispatchOn\"\n#>  [21] \".Primitive\"           \".primTrace\"          \n#>  [23] \".primUntrace\"         \".subset\"             \n#>  [25] \".subset2\"             \"(\"                   \n#>  [27] \"[\"                    \"[[\"                  \n#>  [29] \"[[<-\"                 \"[<-\"                 \n#>  [31] \"{\"                    \"@\"                   \n#>  [33] \"@<-\"                  \"*\"                   \n#>  [35] \"/\"                    \"&\"                   \n#>  [37] \"&&\"                   \"%*%\"                 \n#>  [39] \"%/%\"                  \"%%\"                  \n#>  [41] \"^\"                    \"+\"                   \n#>  [43] \"<\"                    \"<-\"                  \n#>  [45] \"<<-\"                  \"<=\"                  \n#>  [47] \"=\"                    \"==\"                  \n#>  [49] \">\"                    \">=\"                  \n#>  [51] \"|\"                    \"||\"                  \n#>  [53] \"~\"                    \"$\"                   \n#>  [55] \"$<-\"                  \"abs\"                 \n#>  [57] \"acos\"                 \"acosh\"               \n#>  [59] \"all\"                  \"any\"                 \n#>  [61] \"anyNA\"                \"Arg\"                 \n#>  [63] \"as.call\"              \"as.character\"        \n#>  [65] \"as.complex\"           \"as.double\"           \n#>  [67] \"as.environment\"       \"as.integer\"          \n#>  [69] \"as.logical\"           \"as.numeric\"          \n#>  [71] \"as.raw\"               \"asin\"                \n#>  [73] \"asinh\"                \"atan\"                \n#>  [75] \"atanh\"                \"attr\"                \n#>  [77] \"attr<-\"               \"attributes\"          \n#>  [79] \"attributes<-\"         \"baseenv\"             \n#>  [81] \"break\"                \"browser\"             \n#>  [83] \"c\"                    \"call\"                \n#>  [85] \"ceiling\"              \"class\"               \n#>  [87] \"class<-\"              \"Conj\"                \n#>  [89] \"cos\"                  \"cosh\"                \n#>  [91] \"cospi\"                \"cummax\"              \n#>  [93] \"cummin\"               \"cumprod\"             \n#>  [95] \"cumsum\"               \"digamma\"             \n#>  [97] \"dim\"                  \"dim<-\"               \n#>  [99] \"dimnames\"             \"dimnames<-\"          \n#> [101] \"emptyenv\"             \"enc2native\"          \n#> [103] \"enc2utf8\"             \"environment<-\"       \n#> [105] \"exp\"                  \"expm1\"               \n#> [107] \"expression\"           \"floor\"               \n#> [109] \"for\"                  \"forceAndCall\"        \n#> [111] \"function\"             \"gamma\"               \n#> [113] \"gc.time\"              \"globalenv\"           \n#> [115] \"if\"                   \"Im\"                  \n#> [117] \"interactive\"          \"invisible\"           \n#> [119] \"is.array\"             \"is.atomic\"           \n#> [121] \"is.call\"              \"is.character\"        \n#> [123] \"is.complex\"           \"is.double\"           \n#> [125] \"is.environment\"       \"is.expression\"       \n#> [127] \"is.finite\"            \"is.function\"         \n#> [129] \"is.infinite\"          \"is.integer\"          \n#> [131] \"is.language\"          \"is.list\"             \n#> [133] \"is.logical\"           \"is.matrix\"           \n#> [135] \"is.na\"                \"is.name\"             \n#> [137] \"is.nan\"               \"is.null\"             \n#> [139] \"is.numeric\"           \"is.object\"           \n#> [141] \"is.pairlist\"          \"is.raw\"              \n#> [143] \"is.recursive\"         \"is.single\"           \n#> [145] \"is.symbol\"            \"isS4\"                \n#> [147] \"lazyLoadDBfetch\"      \"length\"              \n#> [149] \"length<-\"             \"levels<-\"            \n#> [151] \"lgamma\"               \"list\"                \n#> [153] \"log\"                  \"log10\"               \n#> [155] \"log1p\"                \"log2\"                \n#> [157] \"max\"                  \"min\"                 \n#> [159] \"missing\"              \"Mod\"                 \n#> [161] \"names\"                \"names<-\"             \n#> [163] \"nargs\"                \"next\"                \n#> [165] \"nzchar\"               \"oldClass\"            \n#> [167] \"oldClass<-\"           \"on.exit\"             \n#> [169] \"pos.to.env\"           \"proc.time\"           \n#> [171] \"prod\"                 \"quote\"               \n#> [173] \"range\"                \"Re\"                  \n#> [175] \"rep\"                  \"repeat\"              \n#> [177] \"retracemem\"           \"return\"              \n#> [179] \"round\"                \"seq_along\"           \n#> [181] \"seq_len\"              \"seq.int\"             \n#> [183] \"sign\"                 \"signif\"              \n#> [185] \"sin\"                  \"sinh\"                \n#> [187] \"sinpi\"                \"sqrt\"                \n#> [189] \"standardGeneric\"      \"storage.mode<-\"      \n#> [191] \"substitute\"           \"sum\"                 \n#> [193] \"switch\"               \"tan\"                 \n#> [195] \"tanh\"                 \"tanpi\"               \n#> [197] \"tracemem\"             \"trigamma\"            \n#> [199] \"trunc\"                \"unCfillPOSIXlt\"      \n#> [201] \"unclass\"              \"untracemem\"          \n#> [203] \"UseMethod\"            \"while\"               \n#> [205] \"xtfrm\"\n# base\nmean\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x55734d1505a8>\n#> <environment: namespace:base>\n\n# other package function\npurrr::map\n#> function (.x, .f, ..., .progress = FALSE) \n#> {\n#>     map_(\"list\", .x, .f, ..., .progress = .progress)\n#> }\n#> <bytecode: 0x55734f135980>\n#> <environment: namespace:purrr>\nsum\n#> function (..., na.rm = FALSE)  .Primitive(\"sum\")\nf <- function(x) mean(x)\nf\n#> function(x) mean(x)"},{"path":"functions.html","id":"lexical-scoping-exercises-6.4.5","chapter":"6 Functions","heading":"6.2 Lexical scoping (Exercises 6.4.5)","text":"Q1. following code return? ? Describe three c’s interpreted.A1. c(c = c):first c interpreted function call c()second c name vector elementthird c variable value 10You can also see lexical analysis expression:Q2. four principles govern R looks values?A2. Principles govern R looks values:Name masking (names defined inside function mask names defined outside function)Name masking (names defined inside function mask names defined outside function)Functions vs. variables (rule also applies function names)Functions vs. variables (rule also applies function names)fresh start (every time function called, new environment created host execution)fresh start (every time function called, new environment created host execution)Dynamic look-(R looks values function run, function created)Dynamic look-(R looks values function run, function created)Q3. following function return? Make prediction running code .A3. Correctly predicted 😉Although multiple f() functions, order evaluation goes inside outside x^2 evaluated first f(x) * 2 evaluated last. results 202 (= ((10 ^ 2) + 1) * 2).","code":"\nc <- 10\nc(c = c)\nc <- 10\nc(c = c)\n#>  c \n#> 10\np_expr <- parse(text = \"c(c = c)\", keep.source = TRUE)\ngetParseData(p_expr) %>% select(token, text)\n#>                   token text\n#> 12                 expr     \n#> 1  SYMBOL_FUNCTION_CALL    c\n#> 3                  expr     \n#> 2                   '('    (\n#> 4            SYMBOL_SUB    c\n#> 5                EQ_SUB    =\n#> 6                SYMBOL    c\n#> 8                  expr     \n#> 7                   ')'    )\nf <- function(x) {\n  f <- function(x) {\n    f <- function() {\n      x^2\n    }\n    f() + 1\n  }\n  f(x) * 2\n}\nf(10)\nf <- function(x) {\n  f <- function(x) {\n    f <- function() {\n      x^2\n    }\n    f() + 1\n  }\n  f(x) * 2\n}\n\nf(10)\n#> [1] 202"},{"path":"functions.html","id":"lazy-evaluation-exercises-6.5.4","chapter":"6 Functions","heading":"6.3 Lazy evaluation (Exercises 6.5.4)","text":"Q1. important property && makes x_ok() work?different code? behaviour undesirable ?A1. && evaluates left right short-circuit evaluation, .e., first operand TRUE, R short-circuit even look second operand.Replacing && & undesirable performs element-wise logical comparisons returns vector values always useful decision (TRUE, FALSE, NA).Q2. function return? ? principle illustrate?A2. function returns 100 due lazy evaluation.function execution environment encounters x, evaluates argument x = z since name z already bound value 100 environment, x also bound value.can check looking memory addresses:Q3. function return? ? principle illustrate?A3. Let’s first look function returns:name masking. function call c(x, y), x accessed function environment, following promise evaluated function environment:, thus y gets assigned 1, x 2, since last value scope.Therefore, neither promise y = 0 global assignment y <- 10 ever consulted find value y.Q4. hist(), default value xlim range(breaks), default value breaks \"Sturges\", andExplain hist() works get correct xlim value.A4. xlim defines range histogram’s x-axis.default xlim = range(breaks) breaks = \"Sturges\" arguments reveal function uses Sturges’ algorithm compute number breaks.see implementation, run sloop::s3_get_method(\"hist.default\").hist() ensures chosen algorithm returns numeric vector containing least two unique elements xlim computed.Q5. Explain function works. confusing?A5. Let’s take step--step.function argument x missing function call. means stop(\"Error!\") evaluated function environment, global environment., due lazy evaluation, promise stop(\"Error!\") evaluated x accessed. happens print(x) called.print(x) leads x evaluated, evaluates stop function environment. , function environment, base::stop() masked locally defined stop() function, returns Sys.time() output.Q6. many arguments required calling library()?A6. Going solely signature,looks like following arguments required:, reality, one argument required: package. function internally checks arguments missing adjusts accordingly.better arguments NULL instead missing; avoid confusion.","code":"\nx_ok <- function(x) {\n  !is.null(x) && length(x) == 1 && x > 0\n}\n\nx_ok(NULL)\nx_ok(1)\nx_ok(1:3)\nx_ok <- function(x) {\n  !is.null(x) & length(x) == 1 & x > 0\n}\n\nx_ok(NULL)\nx_ok(1)\nx_ok(1:3)\nx_ok <- function(x) {\n  !is.null(x) && length(x) == 1 && x > 0\n}\n\nx_ok(NULL)\n#> [1] FALSE\n\nx_ok(1)\n#> [1] TRUE\n\nx_ok(1:3)\n#> [1] FALSE\nx_ok <- function(x) {\n  !is.null(x) & length(x) == 1 & x > 0\n}\n\nx_ok(NULL)\n#> logical(0)\n\nx_ok(1)\n#> [1] TRUE\n\nx_ok(1:3)\n#> [1] FALSE FALSE FALSE\nf2 <- function(x = z) {\n  z <- 100\n  x\n}\nf2()\nf2 <- function(x = z) {\n  z <- 100\n  print(lobstr::obj_addrs(list(x, z)))\n  x\n}\n\nf2()\n#> [1] \"0x55734d8a0d10\" \"0x55734d8a0d10\"\n#> [1] 100\ny <- 10\nf1 <- function(x =\n                 {\n                   y <- 1\n                   2\n                 },\n               y = 0) {\n  c(x, y)\n}\nf1()\ny\ny <- 10\nf1 <- function(x =\n                 {\n                   y <- 1\n                   2\n                 },\n               y = 0) {\n  c(x, y)\n}\nf1()\n#> [1] 2 1\ny\n#> [1] 10\nx <- {\n  y <- 1\n  2\n}\nrange(\"Sturges\")\n#> [1] \"Sturges\" \"Sturges\"\nhist(mtcars$wt, xlim = c(1, 6))\nnclass.Sturges(mtcars$wt)\n#> [1] 6\nshow_time <- function(x = stop(\"Error!\")) {\n  stop <- function(...) Sys.time()\n  print(x)\n}\n\nshow_time()\n#> [1] \"2024-01-07 00:43:46 UTC\"\nformals(library)\n#> $package\n#> \n#> \n#> $help\n#> \n#> \n#> $pos\n#> [1] 2\n#> \n#> $lib.loc\n#> NULL\n#> \n#> $character.only\n#> [1] FALSE\n#> \n#> $logical.return\n#> [1] FALSE\n#> \n#> $warn.conflicts\n#> \n#> \n#> $quietly\n#> [1] FALSE\n#> \n#> $verbose\n#> getOption(\"verbose\")\n#> \n#> $mask.ok\n#> \n#> \n#> $exclude\n#> \n#> \n#> $include.only\n#> \n#> \n#> $attach.required\n#> missing(include.only)\nformals(library) %>%\n  purrr::discard(is.null) %>%\n  purrr::map_lgl(~ .x == \"\") %>%\n  purrr::keep(~ isTRUE(.x)) %>%\n  names()\n#> [1] \"package\"        \"help\"           \"warn.conflicts\"\n#> [4] \"mask.ok\"        \"exclude\"        \"include.only\""},{"path":"functions.html","id":"dot-dot-dot-exercises-6.6.1","chapter":"6 Functions","heading":"6.4 ... (dot-dot-dot) (Exercises 6.6.1)","text":"Q1. Explain following results:A1. Let’s look arguments functions:can seen, sum() function doesn’t na.omit argument. , input na.omit = TRUE treated 1 (logical implicitly coerced numeric), thus results. , expression evaluates sum(1, 2, 3, 1).mean() function, one parameter (x) ’s matched first argument (1). , expression evaluates mean(1).Q2. Explain find documentation named arguments following function call:A2. Typing ?plot console, see documentation, also shows signature:Since ... passed par(), can look ?par docs:.docs parameters interest reside .Q3. plot(1:10, col = \"red\") colour points, axes labels? Read source code plot.default() find .A3. Source code can found .plot.default() passes ... localTitle(), passes title().title() four parts: main, sub, xlab, ylab.single argument col work ambiguous element apply argument .","code":"\nsum(1, 2, 3)\n#> [1] 6\nmean(1, 2, 3)\n#> [1] 1\n\nsum(1, 2, 3, na.omit = TRUE)\n#> [1] 7\nmean(1, 2, 3, na.omit = TRUE)\n#> [1] 1\nstr(sum)\n#> function (..., na.rm = FALSE)\nstr(mean)\n#> function (x, ...)\nplot(1:10, col = \"red\", pch = 20, xlab = \"x\", col.lab = \"blue\")#> function (x, y, ...)#> function (..., no.readonly = FALSE)\nlocalTitle <- function(..., col, bg, pch, cex, lty, lwd) title(...)\n\ntitle <- function(main = NULL, sub = NULL, xlab = NULL, ylab = NULL,\n                  line = NA, outer = FALSE, ...) {\n  main <- as.graphicsAnnot(main)\n  sub <- as.graphicsAnnot(sub)\n  xlab <- as.graphicsAnnot(xlab)\n  ylab <- as.graphicsAnnot(ylab)\n  .External.graphics(C_title, main, sub, xlab, ylab, line, outer, ...)\n  invisible()\n}"},{"path":"functions.html","id":"exiting-a-function-exercises-6.7.5","chapter":"6 Functions","heading":"6.5 Exiting a function (Exercises 6.7.5)","text":"Q1. load() return? don’t normally see values?A1. load() function reloads datasets saved using save() function:normally don’t see value function loads datasets invisibly.can change setting verbose = TRUE:Q2. write.table() return? useful?A2. write.table() writes data frame file returns NULL invisibly.helpful function invisibly returned actual object written file, used.Q3. chdir parameter source() compare with_dir()? might prefer one ?A3. chdir parameter source() described :TRUE file pathname, R working directory temporarily changed directory containing file evaluatingThat , chdir allows changing working directory temporarily directory containing file sourced:withr::with_dir() temporarily changes current working directory:importantly, parameters dir allows temporarily changing working directory directory.Q4. Write function opens graphics device, runs supplied code, closes graphics device (always, regardless whether plotting code works).A4. function opens graphics device, runs supplied code, closes graphics device:Q5. can use .exit() implement simple version capture.output().Compare capture.output() capture.output2(). functions differ? features removed make key ideas easier see? rewritten key ideas ’re easier understand?A5. capture.output() significantly complex, can seen definition:key differences:capture.output() uses print() function print console:capture.output() can capture messages well:capture.output() takes account visibility expression:","code":"\nsave(iris, file = \"my_iris.rda\")\nload(\"my_iris.rda\")\nload(\"my_iris.rda\", verbose = TRUE)\n#> Loading objects:\n#>   iris\n\n# cleanup\nunlink(\"my_iris.rda\")\nwrite.table(BOD, file = \"BOD.csv\")\n# cleanup\nunlink(\"BOD.csv\")\nwithr::with_dir\n#> function (new, code) \n#> {\n#>     old <- setwd(dir = new)\n#>     on.exit(setwd(old))\n#>     force(code)\n#> }\n#> <bytecode: 0x55735689cc20>\n#> <environment: namespace:withr>\nwith_png_device <- function(filename, code, ...) {\n  grDevices::png(filename = filename, ...)\n  on.exit(grDevices::dev.off(), add = TRUE)\n\n  force(code)\n}\ncapture.output2 <- function(code) {\n  temp <- tempfile()\n  on.exit(file.remove(temp), add = TRUE, after = TRUE)\n\n  sink(temp)\n  on.exit(sink(), add = TRUE, after = TRUE)\n\n  force(code)\n  readLines(temp)\n}\n\ncapture.output2(cat(\"a\", \"b\", \"c\", sep = \"\\n\"))\n#> [1] \"a\" \"b\" \"c\"\ncapture.output\n#> function (..., file = NULL, append = FALSE, type = c(\"output\", \n#>     \"message\"), split = FALSE) \n#> {\n#>     type <- match.arg(type)\n#>     rval <- NULL\n#>     closeit <- TRUE\n#>     if (is.null(file)) \n#>         file <- textConnection(\"rval\", \"w\", local = TRUE)\n#>     else if (is.character(file)) \n#>         file <- file(file, if (append) \n#>             \"a\"\n#>         else \"w\")\n#>     else if (inherits(file, \"connection\")) {\n#>         if (!isOpen(file)) \n#>             open(file, if (append) \n#>                 \"a\"\n#>             else \"w\")\n#>         else closeit <- FALSE\n#>     }\n#>     else stop(\"'file' must be NULL, a character string or a connection\")\n#>     sink(file, type = type, split = split)\n#>     on.exit({\n#>         sink(type = type, split = split)\n#>         if (closeit) close(file)\n#>     })\n#>     for (i in seq_len(...length())) {\n#>         out <- withVisible(...elt(i))\n#>         if (out$visible) \n#>             print(out$value)\n#>     }\n#>     on.exit()\n#>     sink(type = type, split = split)\n#>     if (closeit) \n#>         close(file)\n#>     if (is.null(rval)) \n#>         invisible(NULL)\n#>     else rval\n#> }\n#> <bytecode: 0x557356d2cc20>\n#> <environment: namespace:utils>\ncapture.output(1)\n#> [1] \"[1] 1\"\n\ncapture.output2(1)\n#> character(0)\ncapture.output(message(\"Hi there!\"), \"a\", type = \"message\")\n#> Hi there!\n#> [1] \"a\"\n#> character(0)\ncapture.output(1, invisible(2), 3)\n#> [1] \"[1] 1\" \"[1] 3\""},{"path":"functions.html","id":"function-forms-exercises-6.8.6","chapter":"6 Functions","heading":"6.6 Function forms (Exercises 6.8.6)","text":"Q1. Rewrite following code snippets prefix form:A1. Prefix forms code snippets:Q2. Clarify following list odd function calls:A2. functions don’t dots (...) parameters, argument matching takes place following steps:exact matching named argumentspartial matchingposition-basedQ3. Explain following code fails:A3. provided book, replacement function defined :Let’s re-write provided code prefix format understand doesn’t work:Although works:following doesn’t code evaluates :get<- function R.Q4. Create replacement function modifies random location vector.A4. replacement function modifies random location vector:Let’s try :Q5. Write version + pastes inputs together character vectors behaves usual otherwise. words, make code work:A5. Infix operator re-create desired output:Q6. Create list replacement functions found base package. ones primitive functions? (Hint: use apropos().)A6. Replacement functions always <- end names., using apropos(), can find replacement functions search paths filter ones don’t belong {base} package:primitive replacement functions can listed using .primitive():Q7. valid names user-created infix functions?A7. mentioned respective section book:names infix functions flexible regular R functions: can contain sequence characters except %.Q8. Create infix xor() operator.A8. Exclusive logical operation TRUE arguments differ (one TRUE, FALSE).can create infix operator exclusive like :function vectorized inputs underlying logical operators vectorized.Q9. Create infix versions set functions intersect(), union(), setdiff(). might call %n%, %u%, %/% match conventions mathematics.A9. required infix operators can created following:can check outputs agree underlying functions:","code":"\n1 + 2 + 3\n\n1 + (2 + 3)\n\nif (length(x) <= 5) x[[5]] else x[[n]]\n# The binary `+`  operator has left to right associative property.\n`+`(`+`(1, 2), 3)\n\n`+`(1, `(`(`+`(2, 3)))\n\n`if`(cond = `<=`(length(x), 5), cons.expr = `[[`(x, 5), alt.expr = `[[`(x, n))\nx <- sample(replace = TRUE, 20, x = c(1:10, NA))\ny <- runif(min = 0, max = 1, 20)\ncor(m = \"k\", y = y, u = \"p\", x = x)\nmodify(get(\"x\"), 1) <- 10\n#> Error: target of assignment expands to non-language object\n`modify<-` <- function(x, position, value) {\n  x[position] <- value\n  x\n}\nget(\"x\") <- `modify<-`(x = get(\"x\"), position = 1, value = 10)\nx <- 5\n`modify<-`(x = get(\"x\"), position = 1, value = 10)\n#> [1] 10\n`get<-`(\"x\", 10)\n#> Error in `get<-`(\"x\", 10): could not find function \"get<-\"\n`random_modify<-` <- function(x, value) {\n  random_index <- sample(seq_along(x), size = 1)\n  x[random_index] <- value\n  return(x)\n}\nx1 <- rep(\"a\", 10)\nrandom_modify(x1) <- \"X\"\nx1\n#>  [1] \"a\" \"a\" \"a\" \"a\" \"X\" \"a\" \"a\" \"a\" \"a\" \"a\"\n\nx2 <- rep(\"a\", 10)\nrandom_modify(x2) <- \"Y\"\nx2\n#>  [1] \"a\" \"a\" \"a\" \"a\" \"a\" \"Y\" \"a\" \"a\" \"a\" \"a\"\n\nx3 <- rep(0, 15)\nrandom_modify(x3) <- -4\nx3\n#>  [1]  0  0  0  0 -4  0  0  0  0  0  0  0  0  0  0\n\nx4 <- rep(0, 15)\nrandom_modify(x4) <- -1\nx4\n#>  [1]  0  0  0  0  0  0  0  0  0  0  0  0 -1  0  0\n1 + 2\n#> [1] 3\n\n\"a\" + \"b\"\n#> [1] \"ab\"\n`+` <- function(x, y) {\n  if (is.character(x) || is.character(y)) {\n    paste0(x, y)\n  } else {\n    base::`+`(x, y)\n  }\n}\n\n1 + 2\n#> [1] 3\n\n\"a\" + \"b\"\n#> [1] \"ab\"\n\nrm(\"+\", envir = .GlobalEnv)\nls_replacement <- apropos(\"<-\", where = TRUE, mode = \"function\")\n\nbase_index <- which(grepl(\"base\", searchpaths()))\n\nls_replacement <- ls_replacement[which(names(ls_replacement) == as.character(base_index))]\n\nunname(ls_replacement)\n#>  [1] \".rowNamesDF<-\"           \"[[<-\"                   \n#>  [3] \"[[<-.data.frame\"         \"[[<-.factor\"            \n#>  [5] \"[[<-.numeric_version\"    \"[[<-.POSIXlt\"           \n#>  [7] \"[<-\"                     \"[<-.data.frame\"         \n#>  [9] \"[<-.Date\"                \"[<-.difftime\"           \n#> [11] \"[<-.factor\"              \"[<-.numeric_version\"    \n#> [13] \"[<-.POSIXct\"             \"[<-.POSIXlt\"            \n#> [15] \"@<-\"                     \"<-\"                     \n#> [17] \"<<-\"                     \"$<-\"                    \n#> [19] \"$<-.data.frame\"          \"$<-.POSIXlt\"            \n#> [21] \"attr<-\"                  \"attributes<-\"           \n#> [23] \"body<-\"                  \"class<-\"                \n#> [25] \"colnames<-\"              \"comment<-\"              \n#> [27] \"diag<-\"                  \"dim<-\"                  \n#> [29] \"dimnames<-\"              \"dimnames<-.data.frame\"  \n#> [31] \"Encoding<-\"              \"environment<-\"          \n#> [33] \"formals<-\"               \"is.na<-\"                \n#> [35] \"is.na<-.default\"         \"is.na<-.factor\"         \n#> [37] \"is.na<-.numeric_version\" \"length<-\"               \n#> [39] \"length<-.Date\"           \"length<-.difftime\"      \n#> [41] \"length<-.factor\"         \"length<-.POSIXct\"       \n#> [43] \"length<-.POSIXlt\"        \"levels<-\"               \n#> [45] \"levels<-.factor\"         \"mode<-\"                 \n#> [47] \"mostattributes<-\"        \"names<-\"                \n#> [49] \"names<-.POSIXlt\"         \"oldClass<-\"             \n#> [51] \"parent.env<-\"            \"regmatches<-\"           \n#> [53] \"row.names<-\"             \"row.names<-.data.frame\" \n#> [55] \"row.names<-.default\"     \"rownames<-\"             \n#> [57] \"split<-\"                 \"split<-.data.frame\"     \n#> [59] \"split<-.default\"         \"storage.mode<-\"         \n#> [61] \"substr<-\"                \"substring<-\"            \n#> [63] \"units<-\"                 \"units<-.difftime\"\nmget(ls_replacement, envir = baseenv()) %>%\n  purrr::keep(is.primitive) %>%\n  names()\n#>  [1] \"[[<-\"           \"[<-\"            \"@<-\"           \n#>  [4] \"<-\"             \"<<-\"            \"$<-\"           \n#>  [7] \"attr<-\"         \"attributes<-\"   \"class<-\"       \n#> [10] \"dim<-\"          \"dimnames<-\"     \"environment<-\" \n#> [13] \"length<-\"       \"levels<-\"       \"names<-\"       \n#> [16] \"oldClass<-\"     \"storage.mode<-\"\nlv1 <- c(TRUE, FALSE, TRUE, FALSE)\nlv2 <- c(TRUE, TRUE, FALSE, FALSE)\n\nxor(lv1, lv2)\n#> [1] FALSE  TRUE  TRUE FALSE\n`%xor%` <- function(x, y) {\n  !((x & y) | !(x | y))\n}\n\nlv1 %xor% lv2\n#> [1] FALSE  TRUE  TRUE FALSE\n\nTRUE %xor% TRUE\n#> [1] FALSE\n`%n%` <- function(x, y) {\n  intersect(x, y)\n}\n\n`%u%` <- function(x, y) {\n  union(x, y)\n}\n\n`%/%` <- function(x, y) {\n  setdiff(x, y)\n}\n(x <- c(sort(sample(1:20, 9)), NA))\n#>  [1]  4  7  8  9 11 13 15 16 20 NA\n(y <- c(sort(sample(3:23, 7)), NA))\n#> [1]  9 10 13 15 17 19 20 NA\n\nidentical(intersect(x, y), x %n% y)\n#> [1] TRUE\nidentical(union(x, y), x %u% y)\n#> [1] TRUE\nidentical(setdiff(x, y), x %/% y)\n#> [1] TRUE"},{"path":"functions.html","id":"session-information-4","chapter":"6 Functions","heading":"6.7 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  forcats     * 1.0.0   2023-01-29 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  hms           1.1.3   2023-03-21 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr        1.1.2   2022-06-22 [1] RSPM\n#>  lubridate   * 1.9.3   2023-09-27 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  readr       * 2.1.4   2023-02-10 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales        1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  stringi       1.8.3   2023-12-11 [1] RSPM\n#>  stringr     * 1.5.1   2023-11-14 [1] RSPM\n#>  tibble      * 3.2.1   2023-03-20 [1] RSPM\n#>  tidyr       * 1.3.0   2023-01-24 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tidyverse   * 2.0.0   2023-02-22 [1] RSPM\n#>  timechange    0.2.0   2023-01-11 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  tzdb          0.4.0   2023-05-12 [1] RSPM\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"environments.html","id":"environments","chapter":"7 Environments","heading":"7 Environments","text":"Loading needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)"},{"path":"environments.html","id":"environment-basics-exercises-7.2.7","chapter":"7 Environments","heading":"7.1 Environment basics (Exercises 7.2.7)","text":"Q1. List three ways environment differs list.A1. mentioned book, ways environments differ lists:Q2. Create environment illustrated picture.A2. Creating environment illustrated picture:binding loop memory address environment e:Q3. Create pair environments illustrated picture.A3. Creating specified environment:Q4. Explain e[[1]] e[c(\"\", \"b\")] don’t make sense e environment.A4. environment non-linear data structure, concept ordered elements. Therefore, indexing (e.g. e[[1]]) doesn’t make sense.Subsetting list vector returns subset underlying data structure. example, subsetting vector returns another vector. ’s unclear subsetting environment (e.g. e[c(\"\", \"b\")]) return data structure contain returns. can’t another environment since environments reference semantics.Q5. Create version env_poke() bind new names, never re-bind old names. programming languages , known single assignment languages.A5. Create version env_poke() doesn’t allow re-binding old names:Making sure behaves expected:Contrast behavior following:Q6. function ? differ <<- might prefer ?A6. downside <<- create new binding doesn’t exist given environment, something may wish:rebind() function let us know binding doesn’t exist, much safer:","code":"\nlibrary(rlang)\n\ne <- env()\ne$loop <- e\nenv_print(e)\n#> <environment: 0x5592b255c2e8>\n#> Parent: <environment: global>\n#> Bindings:\n#> • loop: <env>\nlobstr::ref(e$loop)\n#> █ [1:0x5592b255c2e8] <env> \n#> └─loop = [1:0x5592b255c2e8]\ne1 <- env()\ne2 <- env()\n\ne1$loop <- e2\ne2$deloop <- e1\n\n# following should be the same\nlobstr::obj_addrs(list(e1, e2$deloop))\n#> [1] \"0x5592b4bbb1e8\" \"0x5592b4bbb1e8\"\nlobstr::obj_addrs(list(e2, e1$loop))\n#> [1] \"0x5592b4c08948\" \"0x5592b4c08948\"\nenv_poke2 <- function(env, nm, value) {\n  if (env_has(env, nm)) {\n    abort(\"Can't re-bind existing names.\")\n  }\n\n  env_poke(env, nm, value)\n}\ne <- env(a = 1, b = 2, c = 3)\n\n# re-binding old names not allowed\nenv_poke2(e, \"b\", 4)\n#> Error in `env_poke2()`:\n#> ! Can't re-bind existing names.\n\n# binding new names allowed\nenv_poke2(e, \"d\", 8)\ne$d\n#> [1] 8\ne <- env(a = 1, b = 2, c = 3)\n\ne$b\n#> [1] 2\n\n# re-binding old names allowed\nenv_poke(e, \"b\", 4)\ne$b\n#> [1] 4\nrebind <- function(name, value, env = caller_env()) {\n  if (identical(env, empty_env())) {\n    stop(\"Can't find `\", name, \"`\", call. = FALSE)\n  } else if (env_has(env, name)) {\n    env_poke(env, name, value)\n  } else {\n    rebind(name, value, env_parent(env))\n  }\n}\nrebind(\"a\", 10)\n#> Error: Can't find `a`\na <- 5\nrebind(\"a\", 10)\na\n#> [1] 10\n# `x` doesn't exist\nexists(\"x\")\n#> [1] FALSE\n\n# so `<<-` will create one for us\n{\n  x <<- 5\n}\n\n# in the global environment\nenv_has(global_env(), \"x\")\n#>    x \n#> TRUE\nx\n#> [1] 5\nrebind <- function(name, value, env = caller_env()) {\n  if (identical(env, empty_env())) {\n    stop(\"Can't find `\", name, \"`\", call. = FALSE)\n  } else if (env_has(env, name)) {\n    env_poke(env, name, value)\n  } else {\n    rebind(name, value, env_parent(env))\n  }\n}\n\n# doesn't exist\nexists(\"abc\")\n#> [1] FALSE\n\n# so function will produce an error instead of creating it for us\nrebind(\"abc\", 10)\n#> Error: Can't find `abc`\n\n# but it will work as expected when the variable already exists\nabc <- 5\nrebind(\"abc\", 10)\nabc\n#> [1] 10"},{"path":"environments.html","id":"recursing-over-environments-exercises-7.3.1","chapter":"7 Environments","heading":"7.2 Recursing over environments (Exercises 7.3.1)","text":"Q1. Modify () return environments contain binding name. Carefully think type object function need return.A1. modified version () returns environments contain binding name.Since anticipate one environment, dynamically update list time environment specified binding found. important initialize empty list since signifies given binding found environments.Let’s try :Q2. Write function called fget() finds function objects. two arguments, name env, obey regular scoping rules functions: ’s object matching name ’s function, look parent. added challenge, also add inherits argument controls whether function recurses parents looks one environment.A2. function recursively looks function objects:Let’s try :","code":"\nwhere <- function(name, env = caller_env()) {\n  env_list <- list()\n\n  while (!identical(env, empty_env())) {\n    if (env_has(env, name)) {\n      env_list <- append(env_list, env)\n    }\n\n    env <- env_parent(env)\n  }\n\n  return(env_list)\n}\nwhere(\"yyy\")\n#> list()\n\nx <- 5\nwhere(\"x\")\n#> [[1]]\n#> <environment: R_GlobalEnv>\n\nwhere(\"mean\")\n#> [[1]]\n#> <environment: base>\n\nlibrary(dplyr, warn.conflicts = FALSE)\nwhere(\"filter\")\n#> [[1]]\n#> <environment: package:dplyr>\n#> attr(,\"name\")\n#> [1] \"package:dplyr\"\n#> attr(,\"path\")\n#> [1] \"/home/runner/work/_temp/Library/dplyr\"\n#> \n#> [[2]]\n#> <environment: package:stats>\n#> attr(,\"name\")\n#> [1] \"package:stats\"\n#> attr(,\"path\")\n#> [1] \"/opt/R/4.3.2/lib/R/library/stats\"\ndetach(\"package:dplyr\")\nfget <- function(name, env = caller_env(), inherits = FALSE) {\n  # we need only function objects\n  f_value <- mget(name,\n    envir = env,\n    mode = \"function\",\n    inherits = FALSE, # since we have our custom argument\n    ifnotfound = list(NULL)\n  )\n\n  if (!is.null(f_value[[1]])) {\n    # success case\n    f_value[[1]]\n  } else {\n    if (inherits && !identical(env, empty_env())) {\n      # recursive case\n      env <- env_parent(env)\n      fget(name, env, inherits = TRUE)\n    } else {\n      # base case\n      stop(\"No function objects with matching name was found.\", call. = FALSE)\n    }\n  }\n}\nfget(\"mean\", inherits = FALSE)\n#> Error: No function objects with matching name was found.\n\nfget(\"mean\", inherits = TRUE)\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x5592aff915a8>\n#> <environment: namespace:base>\n\nmean <- 5\nfget(\"mean\", inherits = FALSE)\n#> Error: No function objects with matching name was found.\n\nmean <- function() NULL\nfget(\"mean\", inherits = FALSE)\n#> function() NULL\nrm(\"mean\")"},{"path":"environments.html","id":"special-environments-exercises-7.4.5","chapter":"7 Environments","heading":"7.3 Special environments (Exercises 7.4.5)","text":"Q1. search_envs() different env_parents(global_env())?A1. search_envs() lists chain environments currently attached search path contains exported functions packages. search path always ends {base} package environment. search path also includes global environment.env_parents() lists parent environments empty environment. course, global environment included list.Q2. Draw diagram shows enclosing environments function:A2. don’t access graphics software used create diagrams book, linking diagram official solutions manual, also find detailed description figure:Q3. Write enhanced version str() provides information functions. Show function found environment defined .A3. write required function, can first re-purpose fget() function wrote return environment found enclosing environment:Let’s try :can now write new version str() wrapper around function. need foresee users might enter function name either symbol string.Let’s first try base::mean():variant present global environment:","code":"\nsearch_envs()\n#>  [[1]] $ <env: global>\n#>  [[2]] $ <env: package:rlang>\n#>  [[3]] $ <env: package:magrittr>\n#>  [[4]] $ <env: package:stats>\n#>  [[5]] $ <env: package:graphics>\n#>  [[6]] $ <env: package:grDevices>\n#>  [[7]] $ <env: package:utils>\n#>  [[8]] $ <env: package:datasets>\n#>  [[9]] $ <env: package:methods>\n#> [[10]] $ <env: Autoloads>\n#> [[11]] $ <env: package:base>\nenv_parents(global_env())\n#>  [[1]] $ <env: package:rlang>\n#>  [[2]] $ <env: package:magrittr>\n#>  [[3]] $ <env: package:stats>\n#>  [[4]] $ <env: package:graphics>\n#>  [[5]] $ <env: package:grDevices>\n#>  [[6]] $ <env: package:utils>\n#>  [[7]] $ <env: package:datasets>\n#>  [[8]] $ <env: package:methods>\n#>  [[9]] $ <env: Autoloads>\n#> [[10]] $ <env: package:base>\n#> [[11]] $ <env: empty>\nf1 <- function(x1) {\n  f2 <- function(x2) {\n    f3 <- function(x3) {\n      x1 + x2 + x3\n    }\n    f3(3)\n  }\n  f2(2)\n}\nf1(1)\nfget2 <- function(name, env = caller_env()) {\n  # we need only function objects\n  f_value <- mget(name,\n    envir = env,\n    mode = \"function\",\n    inherits = FALSE,\n    ifnotfound = list(NULL)\n  )\n\n  if (!is.null(f_value[[1]])) {\n    # success case\n    list(\n      \"where\" = env,\n      \"enclosing\" = fn_env(f_value[[1]])\n    )\n  } else {\n    if (!identical(env, empty_env())) {\n      # recursive case\n      env <- env_parent(env)\n      fget2(name, env)\n    } else {\n      # base case\n      stop(\"No function objects with matching name was found.\", call. = FALSE)\n    }\n  }\n}\nfget2(\"mean\")\n#> $where\n#> <environment: base>\n#> \n#> $enclosing\n#> <environment: namespace:base>\n\nmean <- function() NULL\nfget2(\"mean\")\n#> $where\n#> <environment: R_GlobalEnv>\n#> \n#> $enclosing\n#> <environment: R_GlobalEnv>\nrm(\"mean\")\nstr_function <- function(.f) {\n  fget2(as_string(ensym(.f)))\n}\nstr_function(mean)\n#> $where\n#> <environment: base>\n#> \n#> $enclosing\n#> <environment: namespace:base>\n\nstr_function(\"mean\")\n#> $where\n#> <environment: base>\n#> \n#> $enclosing\n#> <environment: namespace:base>\nmean <- function() NULL\n\nstr_function(mean)\n#> $where\n#> <environment: R_GlobalEnv>\n#> \n#> $enclosing\n#> <environment: R_GlobalEnv>\n\nstr_function(\"mean\")\n#> $where\n#> <environment: R_GlobalEnv>\n#> \n#> $enclosing\n#> <environment: R_GlobalEnv>\n\nrm(\"mean\")"},{"path":"environments.html","id":"call-stacks-exercises-7.5.5","chapter":"7 Environments","heading":"7.4 Call stacks (Exercises 7.5.5)","text":"Q1. Write function lists variables defined environment called. return results ls().A1. function lists variables defined environment called:workhorse rlang::caller_env(), let’s also look definition:Let’s try :global environment:function environment:","code":"\n# let's first remove everything that exists in the global environment right now\n# to test with only newly defined objects\nrm(list = ls())\nrm(.Random.seed, envir = globalenv())\n\nls_env <- function(env = rlang::caller_env()) {\n  sort(rlang::env_names(env))\n}\nrlang::caller_env\n#> function (n = 1) \n#> {\n#>     parent.frame(n + 1)\n#> }\n#> <bytecode: 0x5592b0ab08d0>\n#> <environment: namespace:rlang>\nx <- \"a\"\ny <- 1\n\nls_env()\n#> [1] \"ls_env\" \"x\"      \"y\"\n\nls()\n#> [1] \"ls_env\" \"x\"      \"y\"\nfoo <- function() {\n  a <- \"x\"\n  b <- 2\n\n  print(ls_env())\n\n  print(ls())\n}\n\nfoo()\n#> [1] \"a\" \"b\"\n#> [1] \"a\" \"b\""},{"path":"environments.html","id":"session-information-5","chapter":"7 Environments","heading":"7.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr        1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  png           0.1-8   2022-11-29 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"conditions.html","id":"conditions","chapter":"8 Conditions","heading":"8 Conditions","text":"Attaching needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)\nlibrary(testthat, warn.conflicts = FALSE)"},{"path":"conditions.html","id":"signalling-conditions-exercises-8.2.4","chapter":"8 Conditions","heading":"8.1 Signalling conditions (Exercises 8.2.4)","text":"Q1. Write wrapper around file.remove() throws error file deleted exist.A1. Let’s first create wrapper function around file.remove() throws error file deleted exist.Let’s first create file can delete immediately.function fail files provided don’t exist:work expected file exists:Q2. appendLF argument message() ? related cat()?A2. mentioned docs message(), appendLF argument decides:messages given character string newline appended?TRUE (default value), final newline regarded part message:FALSE, messages concatenated:hand, cat() converts arguments character vectors concatenates single character vector default:order get message()-like default behavior outputs, can set sep = \"\\n\":","code":"\nfileRemove <- function(...) {\n  existing_files <- fs::file_exists(...)\n\n  if (!all(existing_files)) {\n    stop(\n      cat(\n        \"The following files to be deleted don't exist:\",\n        names(existing_files[!existing_files]),\n        sep = \"\\n\"\n      ),\n      call. = FALSE\n    )\n  }\n\n  file.remove(...)\n}\nfs::file_create(\"random.R\")\nfileRemove(c(\"random.R\", \"XYZ.csv\"))\n#> The following files to be deleted don't exist:\n#> XYZ.csv\n#> Error:\nfileRemove(\"random.R\")\n#> [1] TRUE\nfoo <- function(appendLF) {\n  message(\"Beetle\", appendLF = appendLF)\n  message(\"Juice\", appendLF = appendLF)\n}\n\nfoo(appendLF = TRUE)\n#> Beetle\n#> Juice\nfoo <- function(appendLF) {\n  message(\"Beetle\", appendLF = appendLF)\n  message(\"Juice\", appendLF = appendLF)\n}\n\nfoo(appendLF = FALSE)\n#> BeetleJuice\nfoo <- function() {\n  cat(\"Beetle\")\n  cat(\"Juice\")\n}\n\nfoo()\n#> BeetleJuice\nfoo <- function() {\n  cat(\"Beetle\", sep = \"\\n\")\n  cat(\"Juice\", sep = \"\\n\")\n}\n\nfoo()\n#> Beetle\n#> Juice"},{"path":"conditions.html","id":"handling-conditions-exercises-8.4.5","chapter":"8 Conditions","heading":"8.2 Handling conditions (Exercises 8.4.5)","text":"Q1. extra information condition generated abort() contain compared condition generated stop() .e. ’s difference two objects? Read help ?abort learn .A1. Compared base::stop(), rlang::abort() contains two additional pieces information:trace: traceback capturing sequence calls lead current functionparent: Information another condition used parent create chained condition.Q2. Predict results evaluating following codeA2. Correctly predicted 😉first three pieces code straightforward:last piece code challenging one illustrates tryCatch() works. docs:several handlers supplied single tryCatch first one considered recent second.Q3. Explain results running code:A3. surprising part output b last c.happens inner calling handler doesn’t handle message, bubbles outer calling handler.Q4. Read source code catch_cnd() explain works.A4. Let’s look source code catch_cnd():mentioned function docs:small wrapper around tryCatch() captures condition signalled evaluating argument.classes argument allows character vector condition classes catch, complex tidy evaluation generates necessary condition (; otherwise NULL).Q5. rewrite show_condition() use single handler?A5. source code rlang::catch_cond() gives us clue can .Conditions also class attribute, can use determine handler match condition.Let’s try new version examples used original version:","code":"\ncatch_cnd(stop(\"An error\"))\ncatch_cnd(abort(\"An error\"))\nlibrary(rlang)\n\nstopInfo <- catch_cnd(stop(\"An error\"))\nabortInfo <- catch_cnd(abort(\"An error\"))\n\nstr(stopInfo)\n#> List of 2\n#>  $ message: chr \"An error\"\n#>  $ call   : language force(expr)\n#>  - attr(*, \"class\")= chr [1:3] \"simpleError\" \"error\" \"condition\"\n\nstr(abortInfo)\n#> List of 5\n#>  $ message: chr \"An error\"\n#>  $ trace  :Classes 'rlang_trace', 'rlib_trace', 'tbl' and 'data.frame':  8 obs. of  6 variables:\n#>   ..$ call       :List of 8\n#>   .. ..$ : language catch_cnd(abort(\"An error\"))\n#>   .. ..$ : language eval_bare(rlang::expr(tryCatch(!!!handlers, {     force(expr) ...\n#>   .. ..$ : language tryCatch(condition = `<fn>`, {     force(expr) ...\n#>   .. ..$ : language tryCatchList(expr, classes, parentenv, handlers)\n#>   .. ..$ : language tryCatchOne(expr, names, parentenv, handlers[[1L]])\n#>   .. ..$ : language doTryCatch(return(expr), name, parentenv, handler)\n#>   .. ..$ : language force(expr)\n#>   .. ..$ : language abort(\"An error\")\n#>   ..$ parent     : int [1:8] 0 1 1 3 4 5 1 0\n#>   ..$ visible    : logi [1:8] FALSE FALSE FALSE FALSE FALSE FALSE ...\n#>   ..$ namespace  : chr [1:8] \"rlang\" \"rlang\" \"base\" \"base\" ...\n#>   ..$ scope      : chr [1:8] \"::\" \"::\" \"::\" \"local\" ...\n#>   ..$ error_frame: logi [1:8] FALSE FALSE FALSE FALSE FALSE FALSE ...\n#>   ..- attr(*, \"version\")= int 2\n#>  $ parent : NULL\n#>  $ rlang  :List of 1\n#>   ..$ inherit: logi TRUE\n#>  $ call   : NULL\n#>  - attr(*, \"class\")= chr [1:3] \"rlang_error\" \"error\" \"condition\"\nshow_condition <- function(code) {\n  tryCatch(\n    error = function(cnd) \"error\",\n    warning = function(cnd) \"warning\",\n    message = function(cnd) \"message\",\n    {\n      code\n      NULL\n    }\n  )\n}\n\nshow_condition(stop(\"!\"))\nshow_condition(10)\nshow_condition(warning(\"?!\"))\nshow_condition({\n  10\n  message(\"?\")\n  warning(\"?!\")\n})\nshow_condition <- function(code) {\n  tryCatch(\n    error = function(cnd) \"error\",\n    warning = function(cnd) \"warning\",\n    message = function(cnd) \"message\",\n    {\n      code\n      NULL\n    }\n  )\n}\n\nshow_condition(stop(\"!\"))\n#> [1] \"error\"\nshow_condition(10)\n#> NULL\nshow_condition(warning(\"?!\"))\n#> [1] \"warning\"\nshow_condition({\n  10\n  message(\"?\")\n  warning(\"?!\")\n})\n#> [1] \"message\"\nwithCallingHandlers(\n  message = function(cnd) message(\"b\"),\n  withCallingHandlers(\n    message = function(cnd) message(\"a\"),\n    message(\"c\")\n  )\n)\n#> b\n#> a\n#> b\n#> c\nrlang::catch_cnd\n#> function (expr, classes = \"condition\") \n#> {\n#>     stopifnot(is_character(classes))\n#>     handlers <- rep_named(classes, list(identity))\n#>     eval_bare(rlang::expr(tryCatch(!!!handlers, {\n#>         force(expr)\n#>         return(NULL)\n#>     })))\n#> }\n#> <bytecode: 0x55f2c19fa068>\n#> <environment: namespace:rlang>\ncatch_cnd(10)\n#> NULL\n\ncatch_cnd(abort(message = \"an error\", class = \"class1\"))\n#> <error/class1>\n#> Error:\n#> ! an error\n#> ---\n#> Backtrace:\n#> ▆\nshow_condition2 <- function(code) {\n  tryCatch(\n    condition = function(cnd) {\n      if (inherits(cnd, \"error\")) {\n        return(\"error\")\n      }\n      if (inherits(cnd, \"warning\")) {\n        return(\"warning\")\n      }\n      if (inherits(cnd, \"message\")) {\n        return(\"message\")\n      }\n    },\n    {\n      code\n      NULL\n    }\n  )\n}\nshow_condition2(stop(\"!\"))\n#> [1] \"error\"\nshow_condition2(10)\n#> NULL\nshow_condition2(warning(\"?!\"))\n#> [1] \"warning\"\nshow_condition2({\n  10\n  message(\"?\")\n  warning(\"?!\")\n})\n#> [1] \"message\""},{"path":"conditions.html","id":"custom-conditions-exercises-8.5.4","chapter":"8 Conditions","heading":"8.3 Custom conditions (Exercises 8.5.4)","text":"Q1. Inside package, ’s occasionally useful check package installed using . Write function checks package installed (requireNamespace(\"pkg\", quietly = FALSE)) , throws custom condition includes package name metadata.A1. desired function:reference, also see source code following functions:rlang::is_installed()insight::check_if_installed()Q2. Inside package often need stop error something right. packages depend package might tempted check errors unit tests. help packages avoid relying error message part user interface rather API might change without notice?A2. example, let’s say another package developer wanted use check_if_pkg_installed() function just wrote.developer using package can write unit test like :dissuade developers rely error messages check errors, can instead provide custom condition, can used unit testing instead:unit test :test wouldn’t fail even decided change exact message.","code":"\nabort_missing_package <- function(pkg) {\n  msg <- glue::glue(\"Problem loading `{pkg}` package, which is missing and must be installed.\")\n\n  abort(\"error_missing_package\",\n    message = msg,\n    pkg = pkg\n  )\n}\n\ncheck_if_pkg_installed <- function(pkg) {\n  if (!requireNamespace(pkg, quietly = TRUE)) {\n    abort_missing_package(pkg)\n  }\n\n  TRUE\n}\n\ncheck_if_pkg_installed(\"xyz123\")\n#> Error in `abort_missing_package()`:\n#> ! Problem loading `xyz123` package, which is missing and must be installed.\ncheck_if_pkg_installed(\"dplyr\")\n#> [1] TRUE\nexpect_error(\n  check_if_pkg_installed(\"xyz123\"),\n  \"Problem loading `xyz123` package, which is missing and must be installed.\"\n)\ne <- catch_cnd(check_if_pkg_installed(\"xyz123\"))\n\ninherits(e, \"error_missing_package\")\n#> [1] TRUE\nexpect_s3_class(e, \"error_missing_package\")"},{"path":"conditions.html","id":"applications-exercises-8.6.6","chapter":"8 Conditions","heading":"8.4 Applications (Exercises 8.6.6)","text":"Q1. Create suppressConditions() works like suppressMessages() suppressWarnings() suppresses everything. Think carefully handle errors.A1. create desired suppressConditions(), just need create equivalent suppressWarnings() suppressMessages() errors. suppress error message, can handle errors within tryCatch() return error object invisibly:Let’s try see works expected:condition messages now suppressed, note assign error object variable, can still extract useful information debugging:Q2. Compare following two implementations message2error(). main advantage withCallingHandlers() scenario? (Hint: look carefully traceback.)A2. withCallingHandlers(), condition handler called signaling function , , therefore, provides detailed call stack.tryCatch(), signalling function terminates condition raised, doesn’t provide detailed call stack.Q3. modify catch_cnds() definition wanted recreate original intermingling warnings messages?A3. Actually, won’t modify anything function defined chapter, since supports box.nothing additional here5! 😅Q4. catching interrupts dangerous? Run code find .A4. function catches interrupt way stop bottles_of_beer(), way usually stop using interrupt!RStudio IDE, can snap loop terminating R session.shows catching interrupt dangerous can result poor user experience.","code":"\nsuppressErrors <- function(expr) {\n  tryCatch(\n    error = function(cnd) invisible(cnd),\n    expr\n  )\n}\n\nsuppressConditions <- function(expr) {\n  suppressErrors(suppressWarnings(suppressMessages(expr)))\n}\nsuppressConditions(1)\n#> [1] 1\n\nsuppressConditions({\n  message(\"I'm messaging you\")\n  warning(\"I'm warning you\")\n})\n\nsuppressConditions({\n  stop(\"I'm stopping this\")\n})\ne <- suppressConditions({\n  stop(\"I'm stopping this\")\n})\n\ne\n#> <simpleError in withCallingHandlers(expr, message = function(c) if (inherits(c,     classes)) tryInvokeRestart(\"muffleMessage\")): I'm stopping this>\nmessage2error <- function(code) {\n  withCallingHandlers(code, message = function(e) stop(e))\n}\nmessage2error <- function(code) {\n  tryCatch(code, message = function(e) stop(e))\n}\nmessage2error1 <- function(code) {\n  withCallingHandlers(code, message = function(e) stop(\"error\"))\n}\n\nmessage2error1({\n  1\n  message(\"hidden error\")\n  NULL\n})\n#> Error in (function (e) : error\n\ntraceback()\n#> 9: stop(\"error\") at #2\n#> 8: (function (e)\n#>    stop(\"error\"))(list(message = \"hidden error\\n\",\n#>      call = message(\"hidden error\")))\n#> 7: signalCondition(cond)\n#> 6: doWithOneRestart(return(expr), restart)\n#> 5: withOneRestart(expr, restarts[[1L]])\n#> 4: withRestarts({\n#>        signalCondition(cond)\n#>        defaultHandler(cond)\n#>    }, muffleMessage = function() NULL)\n#> 3: message(\"hidden error\") at #1\n#> 2: withCallingHandlers(code,\n#>      message = function(e) stop(\"error\")) at #2\n#> 1: message2error1({\n#>        1\n#>        message(\"hidden error\")\n#>        NULL\n#>    })\nmessage2error2 <- function(code) {\n  tryCatch(code, message = function(e) (stop(\"error\")))\n}\n\nmessage2error2({\n  1\n  stop(\"hidden error\")\n  NULL\n})\n#> Error in value[[3L]](cond) : error\n\ntraceback()\n#> 6: stop(\"error\") at #2\n#> 5: value[[3L]](cond)\n#> 4: tryCatchOne(expr, names, parentenv, handlers[[1L]])\n#> 3: tryCatchList(expr, classes, parentenv, handlers)\n#> 2: tryCatch(code, message = function(e) (stop(\"error\"))) at #2\n#> 1: message2error2({\n#>        1\n#>        message(\"hidden error\")\n#>        NULL\n#>    })\ncatch_cnds <- function(expr) {\n  conds <- list()\n  add_cond <- function(cnd) {\n    conds <<- append(conds, list(cnd))\n    cnd_muffle(cnd)\n  }\n\n  withCallingHandlers(\n    message = add_cond,\n    warning = add_cond,\n    expr\n  )\n\n  conds\n}\n\ncatch_cnds({\n  inform(\"a\")\n  warn(\"b\")\n  inform(\"c\")\n})\n#> [[1]]\n#> <message/rlang_message>\n#> Message:\n#> a\n#> \n#> [[2]]\n#> <warning/rlang_warning>\n#> Warning:\n#> b\n#> \n#> [[3]]\n#> <message/rlang_message>\n#> Message:\n#> c\nbottles_of_beer <- function(i = 99) {\n  message(\n    \"There are \", i, \" bottles of beer on the wall, \",\n    i, \" bottles of beer.\"\n  )\n  while (i > 0) {\n    tryCatch(\n      Sys.sleep(1),\n      interrupt = function(err) {\n        i <<- i - 1\n        if (i > 0) {\n          message(\n            \"Take one down, pass it around, \", i,\n            \" bottle\", if (i > 1) \"s\", \" of beer on the wall.\"\n          )\n        }\n      }\n    )\n  }\n  message(\n    \"No more bottles of beer on the wall, \",\n    \"no more bottles of beer.\"\n  )\n}\nbottles_of_beer()\n#> There are 99 bottles of beer on the wall, 99 bottles of beer.\n#> Take one down, pass it around, 98 bottles of beer on the wall.\n#> Take one down, pass it around, 97 bottles of beer on the wall.\n#> Take one down, pass it around, 96 bottles of beer on the wall.\n#> Take one down, pass it around, 95 bottles of beer on the wall.\n#> Take one down, pass it around, 94 bottles of beer on the wall.\n#> Take one down, pass it around, 93 bottles of beer on the wall.\n#> Take one down, pass it around, 92 bottles of beer on the wall.\n#> Take one down, pass it around, 91 bottles of beer on the wall.\n#> ..."},{"path":"conditions.html","id":"session-information-6","chapter":"8 Conditions","heading":"8.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  brio          1.1.4   2023-12-10 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  desc          1.4.3   2023-12-10 [1] RSPM\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  pkgload       1.3.3   2023-09-22 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  rprojroot     2.0.4   2023-11-05 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  testthat    * 3.2.1   2023-12-02 [1] RSPM\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"functionals.html","id":"functionals","chapter":"9 Functionals","heading":"9 Functionals","text":"Attaching needed libraries:","code":"\nlibrary(purrr, warn.conflicts = FALSE)"},{"path":"functionals.html","id":"my-first-functional-map-exercises-9.2.6","chapter":"9 Functionals","heading":"9.1 My first functional: map() (Exercises 9.2.6)","text":"Q1. Use as_mapper() explore purrr generates anonymous functions integer, character, list helpers. helper allows extract attributes? Read documentation find .A1. Let’s handle two parts question separately.as_mapper() purrr-generated anonymous functions:Looking experimentation map() as_mapper(), can see , depending type input, as_mapper() creates extractor function using pluck().can extract attributes using purrr::attr_getter():Q2. map(1:3, ~ runif(2)) useful pattern generating random numbers, map(1:3, runif(2)) . ? Can explain returns result ?A2. shown as_mapper() outputs , second call appropriate generating random numbers translates pluck() function indices plucking taken randomly generated numbers, valid accessors get NULLs return.Q3. Use appropriate map() function :A3. Using appropriate map() function :Compute standard deviation every column numeric data frame:Compute standard deviation every numeric column mixed data frame:Compute number levels every factor data frame:Q4. following code simulates performance t-test non-normal data. Extract p-value test, visualise.A4.Extract p-value test:Visualise extracted p-values:Q5. following code uses map nested inside another map apply function every element nested list. fail, need make work?A5. function fails call effectively evaluates following:triple() one parameter (x), execution fails.fixed version:Q6. Use map() fit linear models mtcars dataset using formulas stored list:A6. Fitting linear models mtcars dataset using provided formulas:Q7. Fit model mpg ~ disp bootstrap replicates mtcars list , extract \\(R^2\\) model fit (Hint: can compute \\(R^2\\) summary().)A7. can done using map_dbl():","code":"\n# mapping by position -----------------------\n\nx <- list(1, list(2, 3, list(1, 2)))\n\nmap(x, 1)\n#> [[1]]\n#> [1] 1\n#> \n#> [[2]]\n#> [1] 2\nas_mapper(1)\n#> function (x, ...) \n#> pluck_raw(x, list(1), .default = NULL)\n#> <environment: 0x55d958cd1430>\n\nmap(x, list(2, 1))\n#> [[1]]\n#> NULL\n#> \n#> [[2]]\n#> [1] 3\nas_mapper(list(2, 1))\n#> function (x, ...) \n#> pluck_raw(x, list(2, 1), .default = NULL)\n#> <environment: 0x55d958db8158>\n\n# mapping by name -----------------------\n\ny <- list(\n  list(m = \"a\", list(1, m = \"mo\")),\n  list(n = \"b\", list(2, n = \"no\"))\n)\n\nmap(y, \"m\")\n#> [[1]]\n#> [1] \"a\"\n#> \n#> [[2]]\n#> NULL\nas_mapper(\"m\")\n#> function (x, ...) \n#> pluck_raw(x, list(\"m\"), .default = NULL)\n#> <environment: 0x55d958f06330>\n\n# mixing position and name\nmap(y, list(2, \"m\"))\n#> [[1]]\n#> [1] \"mo\"\n#> \n#> [[2]]\n#> NULL\nas_mapper(list(2, \"m\"))\n#> function (x, ...) \n#> pluck_raw(x, list(2, \"m\"), .default = NULL)\n#> <environment: 0x55d958fec178>\n\n# compact functions ----------------------------\n\nmap(y, ~ length(.x))\n#> [[1]]\n#> [1] 2\n#> \n#> [[2]]\n#> [1] 2\nas_mapper(~ length(.x))\n#> <lambda>\n#> function (..., .x = ..1, .y = ..2, . = ..1) \n#> length(.x)\n#> attr(,\"class\")\n#> [1] \"rlang_lambda_function\" \"function\"\npluck(Titanic, attr_getter(\"class\"))\n#> [1] \"table\"\nmap(1:3, ~ runif(2))\n#> [[1]]\n#> [1] 0.2180892 0.9876342\n#> \n#> [[2]]\n#> [1] 0.3484619 0.3810470\n#> \n#> [[3]]\n#> [1] 0.02098596 0.74972687\nas_mapper(~ runif(2))\n#> <lambda>\n#> function (..., .x = ..1, .y = ..2, . = ..1) \n#> runif(2)\n#> attr(,\"class\")\n#> [1] \"rlang_lambda_function\" \"function\"\n\nmap(1:3, runif(2))\n#> [[1]]\n#> [1] 1\n#> \n#> [[2]]\n#> [1] 2\n#> \n#> [[3]]\n#> [1] 3\nas_mapper(runif(2))\n#> function (x, ...) \n#> pluck_raw(x, list(0.597890264587477, 0.587997315218672), .default = NULL)\n#> <environment: 0x55d959f7d6f8>a) Compute the standard deviation of every column in a numeric data frame.\n\na) Compute the standard deviation of every numeric column in a mixed data frame. (Hint: you'll need to do it in two steps.)\n\na) Compute the number of levels for every factor in a data frame.\nmap_dbl(mtcars, sd)\n#>         mpg         cyl        disp          hp        drat \n#>   6.0269481   1.7859216 123.9386938  68.5628685   0.5346787 \n#>          wt        qsec          vs          am        gear \n#>   0.9784574   1.7869432   0.5040161   0.4989909   0.7378041 \n#>        carb \n#>   1.6152000\nkeep(iris, is.numeric) %>%\n  map_dbl(sd)\n#> Sepal.Length  Sepal.Width Petal.Length  Petal.Width \n#>    0.8280661    0.4358663    1.7652982    0.7622377\nmodify_if(dplyr::starwars, is.character, as.factor) %>%\n  keep(is.factor) %>%\n  map_int(~ length(levels(.)))\n#>       name hair_color skin_color  eye_color        sex \n#>         87         11         31         15          4 \n#>     gender  homeworld    species \n#>          2         48         37\ntrials <- map(1:100, ~ t.test(rpois(10, 10), rpois(7, 10)))\ntrials <- map(1:100, ~ t.test(rpois(10, 10), rpois(7, 10)))\n\n(p <- map_dbl(trials, \"p.value\"))\n#>   [1] 0.81695628 0.53177360 0.94750819 0.41026769 0.34655294\n#>   [6] 0.05300287 0.56479901 0.85936864 0.77517391 0.64321161\n#>  [11] 0.84462914 0.54144946 0.63070476 0.20325827 0.39824435\n#>  [16] 0.67052432 0.39932663 0.44437632 0.51645941 0.96578745\n#>  [21] 0.70219557 0.69931716 0.23946786 0.55100566 0.76028958\n#>  [26] 0.38105366 0.64544126 0.15379307 0.86945196 0.09965658\n#>  [31] 0.96425489 0.54239108 0.38985789 0.59019282 0.96247907\n#>  [36] 0.54997487 0.66111391 0.30961551 0.10897334 0.55049635\n#>  [41] 0.93882405 0.14836866 0.44307287 0.61583610 0.37284284\n#>  [46] 0.38559622 0.42935767 0.26059293 0.07831619 0.93768396\n#>  [51] 0.48459268 0.73571291 0.30288560 0.68521609 0.06374636\n#>  [56] 0.11007808 0.98758443 0.17831882 0.94471538 0.19711729\n#>  [61] 0.02094185 0.12370745 0.23247837 0.93842382 0.19160550\n#>  [66] 0.49005550 0.98146240 0.09034183 0.94912080 0.55857523\n#>  [71] 0.24692070 0.63658206 0.14290966 0.10309770 0.89516449\n#>  [76] 0.25660092 0.16943034 0.41199780 0.82721280 0.74017418\n#>  [81] 0.43724631 0.55944024 0.93615100 0.68788872 0.01416627\n#>  [86] 0.60120497 0.54125910 0.91581929 0.78949327 0.57887371\n#>  [91] 0.83217542 0.90108906 0.97474727 0.99129282 0.54436155\n#>  [96] 0.74159859 0.06534957 0.10834529 0.19737786 0.93750342\nplot(p)\n\nhist(p)\nx <- list(\n  list(1, c(3, 9)),\n  list(c(3, 6), 7, c(4, 7, 6))\n)\n\ntriple <- function(x) x * 3\nmap(x, map, .f = triple)\n#> Error in `map()`:\n#> ℹ In index: 1.\n#> Caused by error in `.f()`:\n#> ! unused argument (function (.x, .f, ..., .progress = FALSE) \n#> {\n#>     map_(\"list\", .x, .f, ..., .progress = .progress)\n#> })\nmap(.x = x, .f = ~ triple(x = .x, map))\nx <- list(\n  list(1, c(3, 9)),\n  list(c(3, 6), 7, c(4, 7, 6))\n)\n\ntriple <- function(x) x * 3\nmap(x, .f = ~ map(.x, ~ triple(.x)))\n#> [[1]]\n#> [[1]][[1]]\n#> [1] 3\n#> \n#> [[1]][[2]]\n#> [1]  9 27\n#> \n#> \n#> [[2]]\n#> [[2]][[1]]\n#> [1]  9 18\n#> \n#> [[2]][[2]]\n#> [1] 21\n#> \n#> [[2]][[3]]\n#> [1] 12 21 18\nformulas <- list(\n  mpg ~ disp,\n  mpg ~ I(1 / disp),\n  mpg ~ disp + wt,\n  mpg ~ I(1 / disp) + wt\n)\nformulas <- list(\n  mpg ~ disp,\n  mpg ~ I(1 / disp),\n  mpg ~ disp + wt,\n  mpg ~ I(1 / disp) + wt\n)\n\nmap(formulas, ~ lm(formula = ., data = mtcars))\n#> [[1]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)         disp  \n#>    29.59985     -0.04122  \n#> \n#> \n#> [[2]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)    I(1/disp)  \n#>       10.75      1557.67  \n#> \n#> \n#> [[3]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)         disp           wt  \n#>    34.96055     -0.01772     -3.35083  \n#> \n#> \n#> [[4]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)    I(1/disp)           wt  \n#>      19.024     1142.560       -1.798\nbootstrap <- function(df) {\n  df[sample(nrow(df), replace = TRUE), , drop = FALSE]\n}\n\nbootstraps <- map(1:10, ~ bootstrap(mtcars))\nbootstrap <- function(df) {\n  df[sample(nrow(df), replace = TRUE), , drop = FALSE]\n}\n\nbootstraps <- map(1:10, ~ bootstrap(mtcars))\n\nbootstraps %>%\n  map(~ lm(mpg ~ disp, data = .x)) %>%\n  map(summary) %>%\n  map_dbl(\"r.squared\")\n#>  [1] 0.7864562 0.8110818 0.7956331 0.7632399 0.7967824\n#>  [6] 0.7364226 0.7203027 0.6653252 0.7732780 0.6753329"},{"path":"functionals.html","id":"map-variants-exercises-9.4.6","chapter":"9 Functionals","heading":"9.2 Map variants (Exercises 9.4.6)","text":"Q1. Explain results modify(mtcars, 1).A1. modify() returns object type input. Since input data frame certain dimensions .f = 1 translates plucking first element column, returns data frame dimensions plucked element recycled across rows.Q2. Rewrite following code use iwalk() instead walk2(). advantages disadvantages?A2. Let’s first rewrite provided code using iwalk():advantage using iwalk() need now deal single variable (cyls) instead two (cyls paths).disadvantage code difficult reason :\nwalk2(), ’s explicit .x (= cyls) .y (= paths) correspond , iwalk() (.e., .x = cyls .y = names(cyls)) .y argument “invisible”.Q3. Explain following code transforms data frame using functions stored list.Compare contrast map2() approach map() approach:A3. map2() supplies functions stored trans anonymous functions via placeholder f, names columns specified mtcars[nm] supplied var argument anonymous function. Note function iterating indices vectors transformations column names.map() approach, function iterating indices vectors column names.latter approach can’t afford passing arguments placeholders anonymous function.Q4. write.csv() return, .e. happens use map2() instead walk2()?A4. use map2(), work, print NULLs console every list element.","code":"\nhead(modify(mtcars, 1))\n#>   mpg cyl disp  hp drat   wt  qsec vs am gear carb\n#> 1  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 2  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 3  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 4  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 5  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 6  21   6  160 110  3.9 2.62 16.46  0  1    4    4\ncyls <- split(mtcars, mtcars$cyl)\npaths <- file.path(temp, paste0(\"cyl-\", names(cyls), \".csv\"))\nwalk2(cyls, paths, write.csv)\ncyls <- split(mtcars, mtcars$cyl)\nnames(cyls) <- file.path(temp, paste0(\"cyl-\", names(cyls), \".csv\"))\niwalk(cyls, ~ write.csv(.x, .y))\ntrans <- list(\n  disp = function(x) x * 0.0163871,\n  am = function(x) factor(x, labels = c(\"auto\", \"manual\"))\n)\n\nnm <- names(trans)\nmtcars[nm] <- map2(trans, mtcars[nm], function(f, var) f(var))\nmtcars[nm] <- map(nm, ~ trans[[.x]](mtcars[[.x]]))\ntrans <- list(\n  disp = function(x) x * 0.0163871,\n  am = function(x) factor(x, labels = c(\"auto\", \"manual\"))\n)\n\nnm <- names(trans)\nmtcars[nm] <- map2(trans, mtcars[nm], function(f, var) f(var))\nmtcars[nm] <- map(nm, ~ trans[[.x]](mtcars[[.x]]))\nwithr::with_tempdir(\n  code = {\n    ls <- split(mtcars, mtcars$cyl)\n    nm <- names(ls)\n    map2(ls, nm, write.csv)\n  }\n)\n#> $`4`\n#> NULL\n#> \n#> $`6`\n#> NULL\n#> \n#> $`8`\n#> NULL"},{"path":"functionals.html","id":"predicate-functionals-exercises-9.6.3","chapter":"9 Functionals","heading":"9.3 Predicate functionals (Exercises 9.6.3)","text":"Q1. isn’t .na() predicate function? base R function closest predicate version .na()?A1. mentioned docs:predicate function returns single TRUE FALSE..na() function return logical scalar, instead returns vector thus isn’t predicate function.closest equivalent predicate function base-R anyNA() function.Q2. simple_reduce() problem x length 0 length 1. Describe source problem might go fixing .A2. supplied function struggles inputs length 0 1 function tries subscript --bound values.problem can solved adding init argument, supplies default initial value:Let’s try :Depending function, can provide different init argument:Q3. Implement span() function Haskell: given list x predicate function f, span(x, f) returns location longest sequential run elements predicate true. (Hint: might find rle() helpful.)A3. Implementation span():Testing :Testing twice:Q4. Implement arg_max(). take function vector inputs, return elements input function returns highest value. example, arg_max(-10:5, function(x) x ^ 2) return -10. arg_max(-5:5, function(x) x ^ 2) return c(-5, 5). Also implement matching arg_min() function.A4. implementations specified functions:Implementing arg_max()Implementing arg_min()Q5. function scales vector falls range [0, 1]. apply every column data frame? apply every numeric column data frame?A5. use purrr package apply function. Key thing keep mind data frame list atomic vectors equal length.Applying function every column data frame: use anscombe example since numeric columns.Applying function every numeric column data frame: use iris example since columns numeric type.","code":"\n# contrast the following behavior of predicate functions\nis.character(c(\"x\", 2))\n#> [1] TRUE\nis.null(c(3, NULL))\n#> [1] FALSE\n\n# with this behavior\nis.na(c(NA, 1))\n#> [1]  TRUE FALSE\nanyNA(c(NA, 1))\n#> [1] TRUE\nsimple_reduce <- function(x, f) {\n  out <- x[[1]]\n  for (i in seq(2, length(x))) {\n    out <- f(out, x[[i]])\n  }\n  out\n}\nsimple_reduce(numeric(), sum)\n#> Error in x[[1]]: subscript out of bounds\nsimple_reduce(1, sum)\n#> Error in x[[i]]: subscript out of bounds\nsimple_reduce(1:3, sum)\n#> [1] 6\nsimple_reduce2 <- function(x, f, init = 0) {\n  # initializer will become the first value\n  if (length(x) == 0L) {\n    return(init)\n  }\n\n  if (length(x) == 1L) {\n    return(x[[1L]])\n  }\n\n  out <- x[[1]]\n\n  for (i in seq(2, length(x))) {\n    out <- f(out, x[[i]])\n  }\n\n  out\n}\nsimple_reduce2(numeric(), sum)\n#> [1] 0\nsimple_reduce2(1, sum)\n#> [1] 1\nsimple_reduce2(1:3, sum)\n#> [1] 6\nsimple_reduce2(numeric(), `*`, init = 1)\n#> [1] 1\nsimple_reduce2(1, `*`, init = 1)\n#> [1] 1\nsimple_reduce2(1:3, `*`, init = 1)\n#> [1] 6\nspan <- function(x, f) {\n  running_lengths <- purrr::map_lgl(x, ~ f(.x)) %>% rle()\n\n  df <- dplyr::tibble(\n    \"lengths\" = running_lengths$lengths,\n    \"values\" = running_lengths$values\n  ) %>%\n    dplyr::mutate(rowid = dplyr::row_number()) %>%\n    dplyr::filter(values)\n\n  # no sequence where condition is `TRUE`\n  if (nrow(df) == 0L) {\n    return(integer())\n  }\n\n  # only single sequence where condition is `TRUE`\n  if (nrow(df) == 1L) {\n    return((df$rowid):(df$lengths - 1 + df$rowid))\n  }\n\n  # multiple sequences where condition is `TRUE`; select max one\n  if (nrow(df) > 1L) {\n    df <- dplyr::filter(df, lengths == max(lengths))\n    return((df$rowid):(df$lengths - 1 + df$rowid))\n  }\n}\nspan(c(0, 0, 0, 0, 0), is.na)\n#> integer(0)\nspan(c(NA, 0, NA, NA, NA), is.na)\n#> [1] 3 4 5\nspan(c(NA, 0, 0, 0, 0), is.na)\n#> [1] 1\nspan(c(NA, NA, 0, 0, 0), is.na)\n#> [1] 1 2\nspan(c(3, 1, 2, 4, 5, 6), function(x) x > 3)\n#> [1] 2 3 4\nspan(c(3, 1, 2, 4, 5, 6), function(x) x > 9)\n#> integer(0)\nspan(c(3, 1, 2, 4, 5, 6), function(x) x == 3)\n#> [1] 1\nspan(c(3, 1, 2, 4, 5, 6), function(x) x %in% c(2, 4))\n#> [1] 2 3\narg_max <- function(.x, .f) {\n  df <- dplyr::tibble(\n    original = .x,\n    transformed = purrr::map_dbl(.x, .f)\n  )\n\n  dplyr::filter(df, transformed == max(transformed))[[\"original\"]]\n}\n\narg_max(-10:5, function(x) x^2)\n#> [1] -10\narg_max(-5:5, function(x) x^2)\n#> [1] -5  5\narg_min <- function(.x, .f) {\n  df <- dplyr::tibble(\n    original = .x,\n    transformed = purrr::map_dbl(.x, .f)\n  )\n\n  dplyr::filter(df, transformed == min(transformed))[[\"original\"]]\n}\n\narg_min(-10:5, function(x) x^2)\n#> [1] 0\narg_min(-5:5, function(x) x^2)\n#> [1] 0\nscale01 <- function(x) {\n  rng <- range(x, na.rm = TRUE)\n  (x - rng[1]) / (rng[2] - rng[1])\n}\npurrr::map_df(head(anscombe), .f = scale01)\n#> # A tibble: 6 × 8\n#>      x1    x2    x3    x4    y1     y2     y3    y4\n#>   <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> <dbl>\n#> 1 0.333 0.333 0.333   NaN 0.362 0.897  0.116  0.266\n#> 2 0     0     0       NaN 0     0.0345 0      0    \n#> 3 0.833 0.833 0.833   NaN 0.209 0.552  1      0.633\n#> 4 0.167 0.167 0.167   NaN 0.618 0.578  0.0570 1    \n#> 5 0.5   0.5   0.5     NaN 0.458 1      0.174  0.880\n#> 6 1     1     1       NaN 1     0      0.347  0.416\npurrr::modify_if(head(iris), .p = is.numeric, .f = scale01)\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1        0.625   0.5555556         0.25           0  setosa\n#> 2        0.375   0.0000000         0.25           0  setosa\n#> 3        0.125   0.2222222         0.00           0  setosa\n#> 4        0.000   0.1111111         0.50           0  setosa\n#> 5        0.500   0.6666667         0.25           0  setosa\n#> 6        1.000   1.0000000         1.00           1  setosa"},{"path":"functionals.html","id":"base-functionals-exercises-9.7.3","chapter":"9 Functionals","heading":"9.4 Base functionals (Exercises 9.7.3)","text":"Q1. apply() arrange output? Read documentation perform experiments.A1. Let’s prepare array apply function different margins:can seen, apply() returns outputs organised first margins operated , results.Q2. eapply() rapply() ? purrr equivalents?A2. Let’s consider one--one.eapply()mentioned documentation:eapply() applies FUN named values environment returns results list.example:purrr doesn’t function iterate environments.rapply()rapply() recursive version lapply flexibility result structured (= “..”).example:purrr something similar modify_tree().Q3. Challenge: read fixed point algorithm. Complete exercises using R.A3. mentioned suggested reading material:number \\(x\\) called fixed point function \\(f\\) \\(x\\) satisfies equation \\(f(x) = x\\). functions \\(f\\) can locate fixed point beginning initial guess applying \\(f\\) repeatedly, \\(f(x), f(f(x)), f(f(f(x))), ...\\) value change much. Using idea, can devise procedure fixed-point takes inputs function initial guess produces approximation fixed point function.Let’s first implement fixed-point algorithm:Let’s check works expected:solve one exercise reading material. Rest beyond scope solution manual.Show golden ratio \\(\\phi\\) fixed point transformation \\(x \\mapsto 1 + 1/x\\), use fact compute \\(\\phi\\) means fixed-point procedure.","code":"\n(m <- as.array(table(mtcars$cyl, mtcars$am, mtcars$vs)))\n#> , ,  = 0\n#> \n#>    \n#>     auto manual\n#>   4    0      1\n#>   6    0      3\n#>   8   12      2\n#> \n#> , ,  = 1\n#> \n#>    \n#>     auto manual\n#>   4    3      7\n#>   6    4      0\n#>   8    0      0\n\n# rows\napply(m, 1, function(x) x^2)\n#>       \n#>         4  6   8\n#>   [1,]  0  0 144\n#>   [2,]  1  9   4\n#>   [3,]  9 16   0\n#>   [4,] 49  0   0\n\n# columns\napply(m, 2, function(x) x^2)\n#>       \n#>        auto manual\n#>   [1,]    0      1\n#>   [2,]    0      9\n#>   [3,]  144      4\n#>   [4,]    9     49\n#>   [5,]   16      0\n#>   [6,]    0      0\n\n# rows and columns\napply(m, c(1, 2), function(x) x^2)\n#> , ,  = auto\n#> \n#>    \n#>     4  6   8\n#>   0 0  0 144\n#>   1 9 16   0\n#> \n#> , ,  = manual\n#> \n#>    \n#>      4 6 8\n#>   0  1 9 4\n#>   1 49 0 0\nlibrary(rlang)\n#> \n#> Attaching package: 'rlang'\n#> The following objects are masked from 'package:purrr':\n#> \n#>     %@%, flatten, flatten_chr, flatten_dbl,\n#>     flatten_int, flatten_lgl, flatten_raw, invoke,\n#>     splice\n#> The following object is masked from 'package:magrittr':\n#> \n#>     set_names\n\ne <- env(\"x\" = 1, \"y\" = 2)\nrlang::env_print(e)\n#> <environment: 0x55d9572060a8>\n#> Parent: <environment: global>\n#> Bindings:\n#> • x: <dbl>\n#> • y: <dbl>\n\neapply(e, as.character)\n#> $x\n#> [1] \"1\"\n#> \n#> $y\n#> [1] \"2\"\nX <- list(list(a = TRUE, b = list(c = c(4L, 3.2))), d = 9.0)\n\nrapply(X, as.character, classes = \"numeric\", how = \"replace\")\n#> [[1]]\n#> [[1]]$a\n#> [1] TRUE\n#> \n#> [[1]]$b\n#> [[1]]$b$c\n#> [1] \"4\"   \"3.2\"\n#> \n#> \n#> \n#> $d\n#> [1] \"9\"\nX <- list(list(a = TRUE, b = list(c = c(4L, 3.2))), d = 9.0)\n\npurrr::modify_tree(X, leaf = length)\n#> [[1]]\n#> [[1]]$a\n#> [1] 1\n#> \n#> [[1]]$b\n#> [[1]]$b$c\n#> [1] 2\n#> \n#> \n#> \n#> $d\n#> [1] 1\nclose_enough <- function(x1, x2, tolerance = 0.001) {\n  if (abs(x1 - x2) < tolerance) {\n    return(TRUE)\n  } else {\n    return(FALSE)\n  }\n}\n\nfind_fixed_point <- function(.f, .guess, tolerance = 0.001) {\n  .next <- .f(.guess)\n  is_close_enough <- close_enough(.next, .guess, tol = tolerance)\n\n  if (is_close_enough) {\n    return(.next)\n  } else {\n    find_fixed_point(.f, .next, tolerance)\n  }\n}\nfind_fixed_point(cos, 1.0)\n#> [1] 0.7387603\n\n# cos(x) = x\ncos(find_fixed_point(cos, 1.0))\n#> [1] 0.7393039\ngolden_ratio_f <- function(x) 1 + (1 / x)\n\nfind_fixed_point(golden_ratio_f, 1.0)\n#> [1] 1.618182"},{"path":"functionals.html","id":"session-information-7","chapter":"9 Functionals","heading":"9.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"function-factories.html","id":"function-factories","chapter":"10 Function factories","heading":"10 Function factories","text":"Attaching needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)\nlibrary(ggplot2, warn.conflicts = FALSE)"},{"path":"function-factories.html","id":"factory-fundamentals-exercises-10.2.6","chapter":"10 Function factories","heading":"10.1 Factory fundamentals (Exercises 10.2.6)","text":"Q1. definition force() simple:better force(x) instead just x?A1. Due lazy evaluation, argument function won’t evaluated value needed. sometimes may want eager evaluation, using force() makes intent clearer.Q2. Base R contains two function factories, approxfun() ecdf(). Read documentation experiment figure functions return.A2. two function factories-approxfun()function factory returns function performing linear (constant) interpolation.ecdf()function factory computes empirical cumulative distribution function.Q3. Create function pick() takes index, , argument returns function argument x subsets x .A3. write desired function, just need make sure argument eagerly evaluated.Testing specified test cases:Q4. Create function creates functions compute ithcentral moment numeric vector. can test running following code:A4. following function satisfied specified requirements:Testing specified test cases:Q5. happens don’t use closure? Make predictions, verify code .A5. case closures used context, counts stored global variable, can modified processes even deleted.Q6. happens use <- instead <<-? Make predictions, verify code .A6. case, function always return 1.","code":"\nforce\n#> function (x) \n#> x\n#> <bytecode: 0x56479c5e3ab0>\n#> <environment: namespace:base>\nx <- 1:10\ny <- rnorm(10)\nf <- approxfun(x, y)\nf\n#> function (v) \n#> .approxfun(x, y, v, method, yleft, yright, f, na.rm)\n#> <bytecode: 0x5647a0854cb0>\n#> <environment: 0x5647a0853ba0>\nf(x)\n#>  [1] -0.7786629 -0.3894764 -2.0337983 -0.9823731  0.2478901\n#>  [6] -2.1038646 -0.3814180  2.0749198  1.0271384  0.4730142\ncurve(f(x), 0, 11)\nx <- rnorm(12)\nf <- ecdf(x)\nf\n#> Empirical CDF \n#> Call: ecdf(x)\n#>  x[1:12] = -1.8793, -1.3221, -1.2392,  ..., 1.1604, 1.7956\nf(seq(-2, 2, by = 0.1))\n#>  [1] 0.00000000 0.00000000 0.08333333 0.08333333 0.08333333\n#>  [6] 0.08333333 0.08333333 0.16666667 0.25000000 0.25000000\n#> [11] 0.33333333 0.33333333 0.33333333 0.41666667 0.41666667\n#> [16] 0.41666667 0.41666667 0.50000000 0.58333333 0.58333333\n#> [21] 0.66666667 0.75000000 0.75000000 0.75000000 0.75000000\n#> [26] 0.75000000 0.75000000 0.75000000 0.75000000 0.83333333\n#> [31] 0.83333333 0.83333333 0.91666667 0.91666667 0.91666667\n#> [36] 0.91666667 0.91666667 0.91666667 1.00000000 1.00000000\n#> [41] 1.00000000\npick(1)(x)\n# should be equivalent to\nx[[1]]\n\nlapply(mtcars, pick(5))\n# should be equivalent to\nlapply(mtcars, function(x) x[[5]])\npick <- function(i) {\n  force(i)\n  function(x) x[[i]]\n}\nx <- list(\"a\", \"b\", \"c\")\nidentical(x[[1]], pick(1)(x))\n#> [1] TRUE\n\nidentical(\n  lapply(mtcars, pick(5)),\n  lapply(mtcars, function(x) x[[5]])\n)\n#> [1] TRUE\nm1 <- moment(1)\nm2 <- moment(2)\nx <- runif(100)\nstopifnot(all.equal(m1(x), 0))\nstopifnot(all.equal(m2(x), var(x) * 99 / 100))\nmoment <- function(k) {\n  force(k)\n\n  function(x) (sum((x - mean(x))^k)) / length(x)\n}\nm1 <- moment(1)\nm2 <- moment(2)\nx <- runif(100)\n\nstopifnot(all.equal(m1(x), 0))\nstopifnot(all.equal(m2(x), var(x) * 99 / 100))\ni <- 0\nnew_counter2 <- function() {\n  i <<- i + 1\n  i\n}\nnew_counter2()\n#> [1] 1\n\nnew_counter2()\n#> [1] 2\n\nnew_counter2()\n#> [1] 3\n\ni <- 20\nnew_counter2()\n#> [1] 21\nnew_counter3 <- function() {\n  i <- 0\n  function() {\n    i <- i + 1\n    i\n  }\n}\nnew_counter3()\n#> function() {\n#>     i <- i + 1\n#>     i\n#>   }\n#> <environment: 0x5647a09f9e68>\n\nnew_counter3()\n#> function() {\n#>     i <- i + 1\n#>     i\n#>   }\n#> <bytecode: 0x5647a0bbe600>\n#> <environment: 0x5647a0a71c80>"},{"path":"function-factories.html","id":"graphical-factories-exercises-10.3.4","chapter":"10 Function factories","heading":"10.2 Graphical factories (Exercises 10.3.4)","text":"Q1. Compare contrast ggplot2::label_bquote() scales::number_format().A1. compare contrast, let’s first look source code functions:ggplot2::label_bquote()scales::number_format()functions return formatting functions used style facets labels labels desired format ggplot2 plots.example, using plotmath expression facet label:display axes labels desired format:ggplot2::label_bquote() adds additional class returned function.scales::number_format() function simple pass-method forces evaluation parameters passes underlying scales::number() function.","code":"\nggplot2::label_bquote\n#> function (rows = NULL, cols = NULL, default) \n#> {\n#>     cols_quoted <- substitute(cols)\n#>     rows_quoted <- substitute(rows)\n#>     call_env <- env_parent()\n#>     fun <- function(labels) {\n#>         quoted <- resolve_labeller(rows_quoted, cols_quoted, \n#>             labels)\n#>         if (is.null(quoted)) {\n#>             return(label_value(labels))\n#>         }\n#>         evaluate <- function(...) {\n#>             params <- list(...)\n#>             params <- as_environment(params, call_env)\n#>             eval(substitute(bquote(expr, params), list(expr = quoted)))\n#>         }\n#>         list(inject(mapply(evaluate, !!!labels, SIMPLIFY = FALSE)))\n#>     }\n#>     structure(fun, class = \"labeller\")\n#> }\n#> <bytecode: 0x5647a0d500b0>\n#> <environment: namespace:ggplot2>\nscales::number_format\n#> function (accuracy = NULL, scale = 1, prefix = \"\", suffix = \"\", \n#>     big.mark = \" \", decimal.mark = \".\", style_positive = c(\"none\", \n#>         \"plus\", \"space\"), style_negative = c(\"hyphen\", \"minus\", \n#>         \"parens\"), scale_cut = NULL, trim = TRUE, ...) \n#> {\n#>     force_all(accuracy, scale, prefix, suffix, big.mark, decimal.mark, \n#>         style_positive, style_negative, scale_cut, trim, ...)\n#>     function(x) {\n#>         number(x, accuracy = accuracy, scale = scale, prefix = prefix, \n#>             suffix = suffix, big.mark = big.mark, decimal.mark = decimal.mark, \n#>             style_positive = style_positive, style_negative = style_negative, \n#>             scale_cut = scale_cut, trim = trim, ...)\n#>     }\n#> }\n#> <bytecode: 0x5647a0fa0bc8>\n#> <environment: namespace:scales>\nlibrary(ggplot2)\n\np <- ggplot(mtcars, aes(wt, mpg)) +\n  geom_point()\np + facet_grid(. ~ vs, labeller = label_bquote(cols = alpha^.(vs)))\nlibrary(scales)\n\nggplot(mtcars, aes(wt, mpg)) +\n  geom_point() +\n  scale_y_continuous(labels = number_format(accuracy = 0.01, decimal.mark = \",\"))"},{"path":"function-factories.html","id":"statistical-factories-exercises-10.4.4","chapter":"10 Function factories","heading":"10.3 Statistical factories (Exercises 10.4.4)","text":"Q1. boot_model(), don’t need force evaluation df model?A1. don’t need force evaluation df model arguments automatically evaluated lm():Q2. might formulate Box-Cox transformation like ?A2. see formulate transformation like , can compare one mentioned book:Let’s look one example :can seen:boxcox2(), can vary x value lambda, whilein boxcox3(), can vary lambda vector.Thus, boxcox3() can handy exploring different transformations across inputs.Q3. don’t need worry boot_permute() stores copy data inside function generates?A3. look source code generated function factory, notice exact data frame (mtcars) referenced:don’t need worry copy made df function environment points memory address data frame. can confirm comparing memory addresses:can also check values bindings entered function factory:Q4. much time ll_poisson2() save compared ll_poisson1()? Use bench::mark() see much faster optimisation occurs. changing length x change results?A4. Let’s first compare performance functions example book:can seen, second version much faster first version.can also vary length vector confirm across wide range vector lengths, performance advantage observed.","code":"\nboot_model <- function(df, formula) {\n  mod <- lm(formula, data = df)\n  fitted <- unname(fitted(mod))\n  resid <- unname(resid(mod))\n  rm(mod)\n\n  function() {\n    fitted + sample(resid)\n  }\n}\nboxcox3 <- function(x) {\n  function(lambda) {\n    if (lambda == 0) {\n      log(x)\n    } else {\n      (x^lambda - 1) / lambda\n    }\n  }\n}\nboxcox2 <- function(lambda) {\n  if (lambda == 0) {\n    function(x) log(x)\n  } else {\n    function(x) (x^lambda - 1) / lambda\n  }\n}\nboxcox2(1)\n#> function(x) (x^lambda - 1) / lambda\n#> <environment: 0x56479c998358>\n\nboxcox3(mtcars$wt)\n#> function(lambda) {\n#>     if (lambda == 0) {\n#>       log(x)\n#>     } else {\n#>       (x^lambda - 1) / lambda\n#>     }\n#>   }\n#> <environment: 0x56479de7f188>\nboot_permute <- function(df, var) {\n  n <- nrow(df)\n  force(var)\n\n  function() {\n    col <- df[[var]]\n    col[sample(n, replace = TRUE)]\n  }\n}\n\nboot_permute(mtcars, \"mpg\")\n#> function() {\n#>     col <- df[[var]]\n#>     col[sample(n, replace = TRUE)]\n#>   }\n#> <environment: 0x56479fac0b28>\nboot_permute_env <- rlang::fn_env(boot_permute(mtcars, \"mpg\"))\nrlang::env_print(boot_permute_env)\n#> <environment: 0x5647a06ef728>\n#> Parent: <environment: global>\n#> Bindings:\n#> • n: <int>\n#> • df: <df[,11]>\n#> • var: <chr>\n\nidentical(\n  lobstr::obj_addr(boot_permute_env$df),\n  lobstr::obj_addr(mtcars)\n)\n#> [1] TRUE\nidentical(boot_permute_env$df, mtcars)\n#> [1] TRUE\nidentical(boot_permute_env$var, \"mpg\")\n#> [1] TRUE\nll_poisson1 <- function(x) {\n  n <- length(x)\n\n  function(lambda) {\n    log(lambda) * sum(x) - n * lambda - sum(lfactorial(x))\n  }\n}\n\nll_poisson2 <- function(x) {\n  n <- length(x)\n  sum_x <- sum(x)\n  c <- sum(lfactorial(x))\n\n  function(lambda) {\n    log(lambda) * sum_x - n * lambda - c\n  }\n}\n\nx1 <- c(41, 30, 31, 38, 29, 24, 30, 29, 31, 38)\n\nbench::mark(\n  \"LL1\" = optimise(ll_poisson1(x1), c(0, 100), maximum = TRUE),\n  \"LL2\" = optimise(ll_poisson2(x1), c(0, 100), maximum = TRUE)\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 LL1          28.3µs   30.2µs    31979.    12.9KB     41.6\n#> 2 LL2          14.6µs   15.7µs    60147.        0B     48.2\ngenerate_ll_benches <- function(n) {\n  x_vec <- sample.int(n, n)\n\n  bench::mark(\n    \"LL1\" = optimise(ll_poisson1(x_vec), c(0, 100), maximum = TRUE),\n    \"LL2\" = optimise(ll_poisson2(x_vec), c(0, 100), maximum = TRUE)\n  )[1:4] %>%\n    dplyr::mutate(length = n, .before = expression)\n}\n\n(df_bench <- purrr::map_dfr(\n  .x = c(10, 20, 50, 100, 1000),\n  .f = ~ generate_ll_benches(n = .x)\n))\n#> # A tibble: 10 × 5\n#>    length expression      min   median `itr/sec`\n#>     <dbl> <bch:expr> <bch:tm> <bch:tm>     <dbl>\n#>  1     10 LL1          39.9µs   42.1µs    22543.\n#>  2     10 LL2          17.3µs   18.3µs    53968.\n#>  3     20 LL1            43µs   44.6µs    22159.\n#>  4     20 LL2          17.1µs     18µs    54815.\n#>  5     50 LL1          46.8µs   48.3µs    20374.\n#>  6     50 LL2          16.3µs   17.4µs    56753.\n#>  7    100 LL1          62.4µs   64.1µs    15369.\n#>  8    100 LL2          17.6µs   18.4µs    53652.\n#>  9   1000 LL1         857.4µs    965µs     1081.\n#> 10   1000 LL2          54.6µs   56.2µs    17530.\n\nggplot(\n  df_bench,\n  aes(\n    x = as.numeric(length),\n    y = median,\n    group = as.character(expression),\n    color = as.character(expression)\n  )\n) +\n  geom_point() +\n  geom_line() +\n  labs(\n    x = \"Vector length\",\n    y = \"Median Execution Time\",\n    colour = \"Function used\"\n  )"},{"path":"function-factories.html","id":"function-factories-functionals-exercises-10.5.1","chapter":"10 Function factories","heading":"10.4 Function factories + functionals (Exercises 10.5.1)","text":"Q1. following commands equivalent (x, f(z))?A1. depends whether () used data frame list.Q2. Compare contrast effects env_bind() vs. attach() following code.A2. Let’s compare contrast effects env_bind() vs. attach().attach() adds funs search path. Since functions names functions {base} package, attached names mask ones {base} package.env_bind() adds functions funs global environment, instead masking names {base} package.Note \"funs\" output.","code":"(a) `x$f(x$z)`.\n(b) `f(x$z)`.\n(c) `x$f(z)`.\n(d) `f(z)`.\n(e) It depends.\nf <- mean\nz <- 1\nx <- list(f = mean, z = 1)\n\nidentical(with(x, f(z)), x$f(x$z))\n#> [1] TRUE\n\nidentical(with(x, f(z)), f(x$z))\n#> [1] TRUE\n\nidentical(with(x, f(z)), x$f(z))\n#> [1] TRUE\n\nidentical(with(x, f(z)), f(z))\n#> [1] TRUE\nfuns <- list(\n  mean = function(x) mean(x, na.rm = TRUE),\n  sum = function(x) sum(x, na.rm = TRUE)\n)\n\nattach(funs)\n#> The following objects are masked from package:base:\n#> \n#>     mean, sum\n\nmean\n#> function(x) mean(x, na.rm = TRUE)\nhead(search())\n#> [1] \".GlobalEnv\"       \"funs\"             \"package:scales\"  \n#> [4] \"package:ggplot2\"  \"package:rlang\"    \"package:magrittr\"\n\nmean <- function(x) stop(\"Hi!\")\nmean\n#> function(x) stop(\"Hi!\")\nhead(search())\n#> [1] \".GlobalEnv\"       \"funs\"             \"package:scales\"  \n#> [4] \"package:ggplot2\"  \"package:rlang\"    \"package:magrittr\"\n\ndetach(funs)\nenv_bind(globalenv(), !!!funs)\nmean\n#> function(x) mean(x, na.rm = TRUE)\n\nmean <- function(x) stop(\"Hi!\")\nmean\n#> function(x) stop(\"Hi!\")\nenv_unbind(globalenv(), names(funs))"},{"path":"function-factories.html","id":"session-information-8","chapter":"10 Function factories","heading":"10.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench         1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  farver        2.1.1   2022-07-06 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  labeling      0.4.3   2023-08-29 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr        1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales      * 1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"function-operators.html","id":"function-operators","chapter":"11 Function operators","heading":"11 Function operators","text":"Attaching needed libraries:","code":"\nlibrary(purrr, warn.conflicts = FALSE)"},{"path":"function-operators.html","id":"existing-function-operators-exercises-11.2.3","chapter":"11 Function operators","heading":"11.1 Existing function operators (Exercises 11.2.3)","text":"Q1. Base R provides function operator form Vectorize(). ? might use ?A1. Vectorize() function creates function vectorizes action provided function specified arguments (.e., acts element vector). see utility solving problem otherwise difficult solve.problem find indices matching numeric values given threshold creating hybrid following functions:%% (doesn’t provide way provide tolerance comparing numeric values),dplyr::near() (vectorized element-wise thus expects two vectors equal length)Let’s use :Note needed create new function neither existing functions want.solved complex task using Vectorize() function!Q2. Read source code possibly(). work?A2. Let’s look source code function:Looking code, can see possibly():uses tryCatch() error handlinghas parameter otherwise specify default value case error occurshas parameter quiet suppress error message (needed)Q3. Read source code safely(). work?A3. Let’s look source code function:Looking code, can see safely():uses list save results (function executes successfully) error (fails)uses tryCatch() error handlinghas parameter otherwise specify default value case error occurshas parameter quiet suppress error message (needed)","code":"\nwhich_near <- function(x, y, tolerance) {\n  # Vectorize `dplyr::near()` function only over the `y` argument.\n  # `Vectorize()` is a function operator and will return a function.\n  customNear <- Vectorize(dplyr::near, vectorize.args = c(\"y\"), SIMPLIFY = FALSE)\n\n  # Apply the vectorized function to vector arguments and then check where the\n  # comparisons are equal (i.e. `TRUE`) using `which()`.\n  #\n  # Use `compact()` to remove empty elements from the resulting list.\n  index_list <- purrr::compact(purrr::map(customNear(x, y, tol = tolerance), which))\n\n  # If there are any matches, return the indices as an atomic vector of integers.\n  if (length(index_list) > 0L) {\n    index_vector <- purrr::simplify(index_list, \"integer\")\n    return(index_vector)\n  }\n\n  # If there are no matches\n  return(integer(0L))\n}\nx1 <- c(2.1, 3.3, 8.45, 8, 6)\nx2 <- c(6, 8.40, 3)\n\nwhich_near(x1, x2, tolerance = 0.1)\n#> [1] 5 3\nwhich(x1 %in% x2)\n#> [1] 5\n\nwhich(dplyr::near(x1, x2, tol = 0.1))\n#> Warning in x - y: longer object length is not a multiple of\n#> shorter object length\n#> integer(0)\npossibly\n#> function (.f, otherwise = NULL, quiet = TRUE) \n#> {\n#>     .f <- as_mapper(.f)\n#>     force(otherwise)\n#>     check_bool(quiet)\n#>     function(...) {\n#>         tryCatch(.f(...), error = function(e) {\n#>             if (!quiet) \n#>                 message(\"Error: \", conditionMessage(e))\n#>             otherwise\n#>         })\n#>     }\n#> }\n#> <bytecode: 0x55d5181c6328>\n#> <environment: namespace:purrr>\nsafely\n#> function (.f, otherwise = NULL, quiet = TRUE) \n#> {\n#>     .f <- as_mapper(.f)\n#>     force(otherwise)\n#>     check_bool(quiet)\n#>     function(...) capture_error(.f(...), otherwise, quiet)\n#> }\n#> <bytecode: 0x55d518363bb8>\n#> <environment: namespace:purrr>\n\npurrr:::capture_error\n#> function (code, otherwise = NULL, quiet = TRUE) \n#> {\n#>     tryCatch(list(result = code, error = NULL), error = function(e) {\n#>         if (!quiet) \n#>             message(\"Error: \", conditionMessage(e))\n#>         list(result = otherwise, error = e)\n#>     })\n#> }\n#> <bytecode: 0x55d5183be3f0>\n#> <environment: namespace:purrr>"},{"path":"function-operators.html","id":"case-study-creating-your-own-function-operators-exercises-11.3.1","chapter":"11 Function operators","heading":"11.2 Case study: Creating your own function operators (Exercises 11.3.1)","text":"Q1. Weigh pros cons download.file %>% dot_every(10) %>% delay_by(0.1) versus download.file %>% delay_by(0.1) %>% dot_every(10).A1. Although chains piped operations produce number dots need amount time, subtle difference .download.file %>% dot_every(10) %>% delay_by(0.1), printing dot also delayed, first dot printed 10th URL download starts.download.file %>% delay_by(0.1) %>% dot_every(10), first dot printed 9th download finished, 10th download starts short delay.Q2. memoise download.file()? ?A2. Since download.file() meant download files Internet, memoising recommended following reasons:Memoization helpful giving input function returns output. necessarily case webpages since constantly change, may continue “download” outdated version webpage.Memoization helpful giving input function returns output. necessarily case webpages since constantly change, may continue “download” outdated version webpage.Memoization works caching results, can take significant amount memory.Memoization works caching results, can take significant amount memory.Q3. Create function operator reports whenever file created deleted working directory, using dir() setdiff(). global function effects might want track?A3. First, let’s create helper functions compare print added removed filenames:can write function operator use create functions necessary tracking:Let’s try :global function effects might want track:working directoryenvironment variablesconnectionslibrary pathsgraphics devicesetc.Q4. Write function operator logs timestamp message file every time function run.A4. following function operator logs timestamp message file every time function run:Q5. Modify delay_by() instead delaying fixed amount time, ensures certain amount time elapsed since function last called. , called g <- delay_by(1, f); g(); Sys.sleep(2); g() shouldn’t extra delay.A5. Modified version function meeting specified requirements:","code":"\nprint_multiple_entries <- function(header, entries) {\n  message(paste0(header, \":\\n\"), paste0(entries, collapse = \"\\n\"))\n}\n\nfile_comparator <- function(old, new) {\n  if (setequal(old, new)) {\n    return()\n  }\n\n  removed <- setdiff(old, new)\n  added <- setdiff(new, old)\n\n  if (length(removed) > 0L) print_multiple_entries(\"- File removed\", removed)\n  if (length(added) > 0L) print_multiple_entries(\"- File added\", added)\n}\ndir_tracker <- function(f) {\n  force(f)\n  function(...) {\n    old_files <- dir()\n    on.exit(file_comparator(old_files, dir()), add = TRUE)\n\n    f(...)\n  }\n}\n\nfile_creation_tracker <- dir_tracker(file.create)\nfile_deletion_tracker <- dir_tracker(file.remove)\nfile_creation_tracker(c(\"a.txt\", \"b.txt\"))\n#> - File added:\n#> a.txt\n#> b.txt\n#> [1] TRUE TRUE\n\nfile_deletion_tracker(c(\"a.txt\", \"b.txt\"))\n#> - File removed:\n#> a.txt\n#> b.txt\n#> [1] TRUE TRUE\n# helper function to write to a file connection\nwrite_line <- function(filepath, ...) {\n  cat(..., \"\\n\", sep = \"\", file = filepath, append = TRUE)\n}\n\n# function operator\nlogger <- function(f, filepath) {\n  force(f)\n  force(filepath)\n\n  write_line(filepath, \"Function created at: \", as.character(Sys.time()))\n\n  function(...) {\n    write_line(filepath, \"Function called at:  \", as.character(Sys.time()))\n    f(...)\n  }\n}\n\n# check that the function works as expected with a tempfile\nwithr::with_tempfile(\"logfile\", code = {\n  logged_runif <- logger(runif, logfile)\n\n  Sys.sleep(sample.int(10, 1))\n  logged_runif(1)\n\n  Sys.sleep(sample.int(10, 1))\n  logged_runif(2)\n\n  Sys.sleep(sample.int(10, 1))\n  logged_runif(3)\n\n  cat(readLines(logfile), sep = \"\\n\")\n})\n#> Function created at: 2024-01-07 00:44:00.426587\n#> Function called at:  2024-01-07 00:44:05.433612\n#> Function called at:  2024-01-07 00:44:10.439013\n#> Function called at:  2024-01-07 00:44:18.447574\ndelay_by_atleast <- function(f, amount) {\n  force(f)\n  force(amount)\n\n  # the last time the function was run\n  last_time <- NULL\n\n  function(...) {\n    if (!is.null(last_time)) {\n      wait <- (last_time - Sys.time()) + amount\n      if (wait > 0) Sys.sleep(wait)\n    }\n\n    # update the time in the parent frame for the next run when the function finishes\n    on.exit(last_time <<- Sys.time())\n\n    f(...)\n  }\n}"},{"path":"function-operators.html","id":"session-information-9","chapter":"11 Function operators","heading":"11.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"base-types.html","id":"base-types","chapter":"12 Base Types","heading":"12 Base Types","text":"exercises.","code":""},{"path":"s3.html","id":"s3","chapter":"13 S3","heading":"13 S3","text":"Attaching needed libraries:","code":"\nlibrary(sloop, warn.conflicts = FALSE)\nlibrary(dplyr, warn.conflicts = FALSE)\nlibrary(purrr, warn.conflicts = FALSE)"},{"path":"s3.html","id":"basics-exercises-13.2.1","chapter":"13 S3","heading":"13.1 Basics (Exercises 13.2.1)","text":"Q1. Describe difference t.test() t.data.frame(). function called?A1. difference t.test() t.data.frame() following:t.test() generic function perform t-test.t.test() generic function perform t-test.t.data.frame() method generic t() (matrix transform function) dispatched data.frame objects.t.data.frame() method generic t() (matrix transform function) dispatched data.frame objects.can also confirm function types using ftype():Q2. Make list commonly used base R functions contain . name S3 methods.A2. common R functions . S3 methods:.equal().* functions (like .data.frame(), .numeric(), etc.)install.packages().exit()\netc.example,Q3. .data.frame.data.frame() method ? confusing? avoid confusion code?A3. ’s S3 method generic .data.frame().can seen methods supported generic:Given number .s name, quite confusing figure name generic name class.Q4. Describe difference behaviour two calls.A4. difference behaviour specified calls.unclassing, mean generic dispatches .Date method:unclassing, mean generic dispatches .numeric method:Q5. class object following code return? base type built ? attributes use?A5. object based base type closure6, type function.class ecdf, superclasses.Apart class, following attributes:Q6. class object following code return? base type built ? attributes use?A6. object based base type integer.class table.Apart class, following attributes:","code":"\nftype(t.test)\n#> [1] \"S3\"      \"generic\"\nftype(t.data.frame)\n#> [1] \"S3\"     \"method\"\nftype(as.data.frame)\n#> [1] \"S3\"      \"generic\"\nftype(on.exit)\n#> [1] \"primitive\"\nftype(as.data.frame.data.frame)\n#> [1] \"S3\"     \"method\"\ns3_methods_generic(\"as.data.frame\") %>%\n  dplyr::filter(class == \"data.frame\")\n#> # A tibble: 1 × 4\n#>   generic       class      visible source\n#>   <chr>         <chr>      <lgl>   <chr> \n#> 1 as.data.frame data.frame TRUE    base\nset.seed(1014)\nsome_days <- as.Date(\"2017-01-31\") + sample(10, 5)\nmean(some_days)\n#> [1] \"2017-02-06\"\nmean(unclass(some_days))\n#> [1] 17203.4\nsome_days <- as.Date(\"2017-01-31\") + sample(10, 5)\n\nsome_days\n#> [1] \"2017-02-06\" \"2017-02-09\" \"2017-02-05\" \"2017-02-08\"\n#> [5] \"2017-02-07\"\n\ns3_dispatch(mean(some_days))\n#> => mean.Date\n#>  * mean.default\n\nmean(some_days)\n#> [1] \"2017-02-07\"\nunclass(some_days)\n#> [1] 17203 17206 17202 17205 17204\n\nmean(unclass(some_days))\n#> [1] 17204\n\ns3_dispatch(mean(unclass(some_days)))\n#>    mean.double\n#>    mean.numeric\n#> => mean.default\nx <- ecdf(rpois(100, 10))\nx\nx <- ecdf(rpois(100, 10))\nx\n#> Empirical CDF \n#> Call: ecdf(rpois(100, 10))\n#>  x[1:18] =      2,      3,      4,  ...,     18,     19\n\notype(x)\n#> [1] \"S3\"\ntypeof(x)\n#> [1] \"closure\"\ns3_class(x)\n#> [1] \"ecdf\"     \"stepfun\"  \"function\"\nattributes(x)\n#> $class\n#> [1] \"ecdf\"     \"stepfun\"  \"function\"\n#> \n#> $call\n#> ecdf(rpois(100, 10))\nx <- table(rpois(100, 5))\nx\nx <- table(rpois(100, 5))\nx\n#> \n#>  1  2  3  4  5  6  7  8  9 10 \n#>  7  7 18 13 14 14 16  4  4  3\n\notype(x)\n#> [1] \"S3\"\ntypeof(x)\n#> [1] \"integer\"\ns3_class(x)\n#> [1] \"table\"\nattributes(x)\n#> $dim\n#> [1] 10\n#> \n#> $dimnames\n#> $dimnames[[1]]\n#>  [1] \"1\"  \"2\"  \"3\"  \"4\"  \"5\"  \"6\"  \"7\"  \"8\"  \"9\"  \"10\"\n#> \n#> \n#> $class\n#> [1] \"table\""},{"path":"s3.html","id":"classes-exercises-13.3.4","chapter":"13 S3","heading":"13.2 Classes (Exercises 13.3.4)","text":"Q1. Write constructor data.frame objects. base type data frame built ? attributes use? restrictions placed individual elements? names?A1. data frame built top named list atomic vectors attributes row names:restriction imposed individual elements need length. Additionally, names need syntactically valid unique.Let’s try :Q2. Enhance factor() helper better behaviour one values found levels. base::factor() situation?A2. one values found levels, values converted NA base::factor():new constructor, can throw error inform user:Let’s try :Q3. Carefully read source code factor(). constructor ?A3. source code factor() can read .number ways base version flexible.allows labeling values:checks levels duplicated.levels argument can NULL.Q4. Factors optional “contrasts” attribute. Read help C(), briefly describe purpose attribute. type ? Rewrite new_factor() constructor include attribute.A4. Categorical variables typically encoded dummy variables regression models default level compared first factor level. Contrats provide flexible way comparisons.can set \"contrasts\" attribute factor using stats::C().Alternatively, can set \"contrasts\" attribute using matrix (?contrasts):[Contrasts] can matrix one row level factor suitable function like contr.poly character string giving name functionThe constructor provided book:can updated also support contrasts:Q5. Read documentation utils::.roman(). write constructor class? need validator? might helper ?A5. utils::.roman() converts Indo-Arabic numerals Roman numerals. Removing class also reveals implemented using base type integer:Therefore, can create simple constructor create new instance class:docs mention following:numbers 1 3899 unique representation roman numbers, hence others result .roman(NA).Therefore, can warn user return NA validator function:helper function can coerce entered input integer type convenience:Let’s try :","code":"\nunclass(data.frame())\n#> named list()\n#> attr(,\"row.names\")\n#> integer(0)\nnew_data_frame <- function(x = list(), row.names = character()) {\n  # row names should be character\n  if (!all(is.character(row.names))) {\n    stop(\"Row name should be of `chracter` type.\", call. = FALSE)\n  }\n\n  # all elements should have the same length\n  unique_element_lengths <- unique(purrr::map_int(x, length))\n  if (length(unique_element_lengths) > 1L) {\n    stop(\"All list elements in `x` should have same length.\", call. = FALSE)\n  }\n\n  # if not provided, generate row names\n  # this is necessary if there is at least one element in the list\n  if (length(x) > 0L && length(row.names) == 0L) {\n    row.names <- .set_row_names(unique_element_lengths)\n  }\n\n  structure(x, class = \"data.frame\", row.names = row.names)\n}\nnew_data_frame(list(\"x\" = 1, \"y\" = c(2, 3)))\n#> Error: All list elements in `x` should have same length.\n\nnew_data_frame(list(\"x\" = 1, \"y\" = c(2)), row.names = 1L)\n#> Error: Row name should be of `chracter` type.\n\nnew_data_frame(list())\n#> data frame with 0 columns and 0 rows\n\nnew_data_frame(list(\"x\" = 1, \"y\" = 2))\n#>   x y\n#> 1 1 2\n\nnew_data_frame(list(\"x\" = 1, \"y\" = 2), row.names = \"row-1\")\n#>       x y\n#> row-1 1 2\nbase::factor(c(\"a\", \"b\", \"c\"), levels = c(\"a\", \"c\"))\n#> [1] a    <NA> c   \n#> Levels: a c\nnew_factor <- function(x = integer(), levels = character()) {\n  stopifnot(is.integer(x))\n  stopifnot(is.character(levels))\n\n  structure(\n    x,\n    levels = levels,\n    class = \"factor\"\n  )\n}\n\nvalidate_factor <- function(x) {\n  values <- unclass(x)\n  levels <- attr(x, \"levels\")\n\n  if (!all(!is.na(values) & values > 0)) {\n    stop(\n      \"All `x` values must be non-missing and greater than zero\",\n      call. = FALSE\n    )\n  }\n\n  if (length(levels) < max(values)) {\n    stop(\n      \"There must be at least as many `levels` as possible values in `x`\",\n      call. = FALSE\n    )\n  }\n\n  x\n}\n\ncreate_factor <- function(x = character(), levels = unique(x)) {\n  ind <- match(x, levels)\n\n  if (any(is.na(ind))) {\n    missing_values <- x[which(is.na(match(x, levels)))]\n\n    stop(\n      paste0(\n        \"Following values from `x` are not present in `levels`:\\n\",\n        paste0(missing_values, collapse = \"\\n\")\n      ),\n      call. = FALSE\n    )\n  }\n\n  validate_factor(new_factor(ind, levels))\n}\ncreate_factor(c(\"a\", \"b\", \"c\"), levels = c(\"a\", \"c\"))\n#> Error: Following values from `x` are not present in `levels`:\n#> b\n\ncreate_factor(c(\"a\", \"b\", \"c\"), levels = c(\"a\", \"b\", \"c\"))\n#> [1] a b c\n#> Levels: a b c\nx <- c(\"a\", \"b\", \"b\")\nlevels <- c(\"a\", \"b\", \"c\")\nlabels <- c(\"one\", \"two\", \"three\")\n\nfactor(x, levels = levels, labels = labels)\n#> [1] one two two\n#> Levels: one two three\nx <- c(\"a\", \"b\", \"b\")\nlevels <- c(\"a\", \"b\", \"b\")\n\nfactor(x, levels = levels)\n#> Error in `levels<-`(`*tmp*`, value = as.character(levels)): factor level [3] is duplicated\n\ncreate_factor(x, levels = levels)\n#> [1] a b b\n#> Levels: a b b\n#> Warning in print.factor(x): duplicated level [3] in factor\nx <- c(\"a\", \"b\", \"b\")\n\nfactor(x, levels = NULL)\n#> [1] <NA> <NA> <NA>\n#> Levels:\n\ncreate_factor(x, levels = NULL)\n#> Error: Following values from `x` are not present in `levels`:\n#> a\n#> b\n#> b\nnew_factor <- function(x = integer(), levels = character()) {\n  stopifnot(is.integer(x))\n  stopifnot(is.character(levels))\n\n  structure(\n    x,\n    levels = levels,\n    class = \"factor\"\n  )\n}\nnew_factor <- function(x = integer(),\n                       levels = character(),\n                       contrasts = NULL) {\n  stopifnot(is.integer(x))\n  stopifnot(is.character(levels))\n\n  if (!is.null(contrasts)) {\n    stopifnot(is.matrix(contrasts) && is.numeric(contrasts))\n  }\n\n  structure(\n    x,\n    levels = levels,\n    class = \"factor\",\n    contrasts = contrasts\n  )\n}\nas.roman(1)\n#> [1] I\n\ntypeof(unclass(as.roman(1)))\n#> [1] \"integer\"\nnew_roman <- function(x = integer()) {\n  stopifnot(is.integer(x))\n\n  structure(x, class = \"roman\")\n}\nas.roman(10000)\n#> [1] <NA>\nvalidate_new_roman <- function(x) {\n  int_values <- unclass(x)\n\n  if (any(int_values < 1L | int_values > 3899L)) {\n    warning(\n      \"Integer should be between 1 and 3899. Returning `NA` otherwise.\",\n      call. = FALSE\n    )\n  }\n\n  x\n}\nroman <- function(x = integer()) {\n  x <- as.integer(x)\n\n  validate_new_roman(new_roman(x))\n}\nroman(1)\n#> [1] I\n\nroman(c(5, 20, 100, 150, 100000))\n#> Warning: Integer should be between 1 and 3899. Returning\n#> `NA` otherwise.\n#> [1] V    XX   C    CL   <NA>"},{"path":"s3.html","id":"generics-and-methods-exercises-13.4.4","chapter":"13 S3","heading":"13.3 Generics and methods (Exercises 13.4.4)","text":"Q1. Read source code t() t.test() confirm t.test() S3 generic S3 method. happens create object class test call t() ? ?A1. Looking source code functions, can see generic, can confirm using sloop:Looking S3 dispatch, can see since R can’t find S3 method test class generic function t(), dispatches default method, converts structure matrix:behaviour can observed vector:Q2. generics table class methods ?A2. table class methods following generics:Q3. generics ecdf class methods ?A3. ecdf class methods following generics:Q4. base generic greatest number defined methods?A4. answer question, first, let’s list functions base retain generics.Now ’s simple matter counting number methods per generic ordering data frame descending order count:reveals base generic function methods print().Q5. Carefully read documentation UseMethod() explain following code returns results . two usual rules function evaluation UseMethod() violate?A5. called directly, g.default() method takes x value argument y global environment:, g() function called, takes x argument, comes function environment:docs ?UseMethod() clarify case:local variables defined call UseMethod retainedThat , UseMethod() calls g.default(), variables defined inside generic also available g.default() method. arguments supplied function passed , however, affected code inside generic.Two rules function evaluation violated UseMethod():Name maskingA fresh startQ6. arguments [? hard question answer?A6. difficult say many formal arguments subsetting [ operator generic function methods vectors, matrices, arrays, lists, etc., different methods different number arguments:can sample see wide variation number formal arguments:","code":"\nx <- structure(1:10, class = \"test\")\nt(x)\nt\n#> function (x) \n#> UseMethod(\"t\")\n#> <bytecode: 0x56119bea5208>\n#> <environment: namespace:base>\nsloop::is_s3_generic(\"t\")\n#> [1] TRUE\n\nt.test\n#> function (x, ...) \n#> UseMethod(\"t.test\")\n#> <bytecode: 0x561196f41140>\n#> <environment: namespace:stats>\nsloop::is_s3_generic(\"t.test\")\n#> [1] TRUE\nx <- structure(1:10, class = \"test\")\nt(x)\n#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]\n#> [1,]    1    2    3    4    5    6    7    8    9    10\n#> attr(,\"class\")\n#> [1] \"test\"\ns3_dispatch(t(x))\n#> => t.test\n#>  * t.default\nt(1:10)\n#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]\n#> [1,]    1    2    3    4    5    6    7    8    9    10\ns3_methods_class(\"table\")\n#> # A tibble: 11 × 4\n#>    generic       class visible source             \n#>    <chr>         <chr> <lgl>   <chr>              \n#>  1 [             table TRUE    base               \n#>  2 aperm         table TRUE    base               \n#>  3 as_tibble     table FALSE   registered S3method\n#>  4 as.data.frame table TRUE    base               \n#>  5 Axis          table FALSE   registered S3method\n#>  6 lines         table FALSE   registered S3method\n#>  7 plot          table FALSE   registered S3method\n#>  8 points        table FALSE   registered S3method\n#>  9 print         table TRUE    base               \n#> 10 summary       table TRUE    base               \n#> 11 tail          table FALSE   registered S3method\ns3_methods_class(\"ecdf\")\n#> # A tibble: 4 × 4\n#>   generic  class visible source             \n#>   <chr>    <chr> <lgl>   <chr>              \n#> 1 plot     ecdf  TRUE    stats              \n#> 2 print    ecdf  FALSE   registered S3method\n#> 3 quantile ecdf  FALSE   registered S3method\n#> 4 summary  ecdf  FALSE   registered S3method\n# getting all functions names\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\n\n# extracting only generics\ngenFuns <- names(funs) %>%\n  purrr::keep(~ sloop::is_s3_generic(.x))\npurrr::map_dfr(\n  genFuns,\n  ~ s3_methods_generic(.)\n) %>%\n  dplyr::group_by(generic) %>%\n  dplyr::tally() %>%\n  dplyr::arrange(desc(n))\n#> # A tibble: 122 × 2\n#>    generic           n\n#>    <chr>         <int>\n#>  1 print           289\n#>  2 format          130\n#>  3 [                53\n#>  4 summary          39\n#>  5 as.character     38\n#>  6 as.data.frame    32\n#>  7 plot             30\n#>  8 [[               26\n#>  9 [<-              17\n#> 10 $                15\n#> # ℹ 112 more rows\ng <- function(x) {\n  x <- 10\n  y <- 10\n  UseMethod(\"g\")\n}\ng.default <- function(x) c(x = x, y = y)\nx <- 1\ny <- 1\ng(x)\n#>  x  y \n#>  1 10\ng.default(x)\n#> x y \n#> 1 1\ng(x)\n#>  x  y \n#>  1 10\ns3_methods_generic(\"[\") %>%\n  dplyr::filter(source == \"base\")\n#> # A tibble: 17 × 4\n#>    generic class           visible source\n#>    <chr>   <chr>           <lgl>   <chr> \n#>  1 [       AsIs            TRUE    base  \n#>  2 [       data.frame      TRUE    base  \n#>  3 [       Date            TRUE    base  \n#>  4 [       difftime        TRUE    base  \n#>  5 [       Dlist           TRUE    base  \n#>  6 [       DLLInfoList     TRUE    base  \n#>  7 [       factor          TRUE    base  \n#>  8 [       hexmode         TRUE    base  \n#>  9 [       listof          TRUE    base  \n#> 10 [       noquote         TRUE    base  \n#> 11 [       numeric_version TRUE    base  \n#> 12 [       octmode         TRUE    base  \n#> 13 [       POSIXct         TRUE    base  \n#> 14 [       POSIXlt         TRUE    base  \n#> 15 [       simple.list     TRUE    base  \n#> 16 [       table           TRUE    base  \n#> 17 [       warnings        TRUE    base\n# table\nnames(formals(`[.table`))\n#> [1] \"x\"    \"i\"    \"j\"    \"...\"  \"drop\"\n\n# Date\nnames(formals(`[.Date`))\n#> [1] \"x\"    \"...\"  \"drop\"\n\n# data frame\nnames(formals(`[.data.frame`))\n#> [1] \"x\"    \"i\"    \"j\"    \"drop\"\n\n# etc."},{"path":"s3.html","id":"object-styles-exercises-13.5.1","chapter":"13 S3","heading":"13.4 Object styles (Exercises 13.5.1)","text":"Q1. Categorise objects returned lm(), factor(), table(), .Date(), .POSIXct() ecdf(), ordered(), () styles described .A1. Objects returned functions can categorized follows:Vector style objects (length represents . observations)factor()table().Date().POSIXct()ordered()Record style objects (equi-length vectors represent object components)None.Dataframe style objects (Record style two-dimensions)None.Scalar objects (list represent single thing)lm() (represent one regression model)ecdf() (represents one distribution)() special:\njust adds new class object indicate treated .Therefore, object style superclass’ object style.Q2. constructor function lm objects, new_lm(), look like? Use ?lm experimentation figure required fields types.A2. lm object scalar object, .e. object contains named list atomic vectors varying lengths types represent single thing (regression model).Based information, can write new constructor object:","code":"\nfactor_obj <- factor(c(\"a\", \"b\"))\nlength(factor_obj)\n#> [1] 2\nlength(unclass(factor_obj))\n#> [1] 2\ntab_object <- table(mtcars$am)\nlength(tab_object)\n#> [1] 2\nlength(unlist(tab_object))\n#> [1] 2\ndate_obj <- as.Date(\"02/27/92\", \"%m/%d/%y\")\nlength(date_obj)\n#> [1] 1\nlength(unclass(date_obj))\n#> [1] 1\nposix_obj <- as.POSIXct(1472562988, origin = \"1960-01-01\")\nlength(posix_obj)\n#> [1] 1\nlength(unclass(posix_obj))\n#> [1] 1\nordered_obj <- ordered(factor(c(\"a\", \"b\")))\nlength(ordered_obj)\n#> [1] 2\nlength(unclass(ordered_obj))\n#> [1] 2\nlm_obj <- lm(wt ~ mpg, mtcars)\nlength(lm_obj)\n#> [1] 12\nlength(unclass(lm_obj))\n#> [1] 12\necdf_obj <- ecdf(rnorm(12))\nlength(ecdf_obj)\n#> [1] 1\nlength(unclass(ecdf_obj))\n#> [1] 1\nx <- ecdf(rnorm(12))\nclass(x)\n#> [1] \"ecdf\"     \"stepfun\"  \"function\"\nclass(I(x))\n#> [1] \"AsIs\"     \"ecdf\"     \"stepfun\"  \"function\"\nmod <- lm(wt ~ mpg, mtcars)\n\ntypeof(mod)\n#> [1] \"list\"\n\nattributes(mod)\n#> $names\n#>  [1] \"coefficients\"  \"residuals\"     \"effects\"      \n#>  [4] \"rank\"          \"fitted.values\" \"assign\"       \n#>  [7] \"qr\"            \"df.residual\"   \"xlevels\"      \n#> [10] \"call\"          \"terms\"         \"model\"        \n#> \n#> $class\n#> [1] \"lm\"\n\npurrr::map_chr(unclass(mod), typeof)\n#>  coefficients     residuals       effects          rank \n#>      \"double\"      \"double\"      \"double\"     \"integer\" \n#> fitted.values        assign            qr   df.residual \n#>      \"double\"     \"integer\"        \"list\"     \"integer\" \n#>       xlevels          call         terms         model \n#>        \"list\"    \"language\"    \"language\"        \"list\"\n\npurrr::map_int(unclass(mod), length)\n#>  coefficients     residuals       effects          rank \n#>             2            32            32             1 \n#> fitted.values        assign            qr   df.residual \n#>            32             2             5             1 \n#>       xlevels          call         terms         model \n#>             0             3             3             2\nnew_lm <- function(coefficients,\n                   residuals,\n                   effects,\n                   rank,\n                   fitted.values,\n                   assign,\n                   qr,\n                   df.residual,\n                   xlevels,\n                   call,\n                   terms,\n                   model) {\n  stopifnot(\n    is.double(coefficients),\n    is.double(residuals),\n    is.double(effects),\n    is.integer(rank),\n    is.double(fitted.values),\n    is.integer(assign),\n    is.list(qr),\n    is.integer(df.residual),\n    is.list(xlevels),\n    is.language(call),\n    is.language(terms),\n    is.list(model)\n  )\n\n  structure(\n    list(\n      coefficients  = coefficients,\n      residuals     = residuals,\n      effects       = effects,\n      rank          = rank,\n      fitted.values = fitted.values,\n      assign        = assign,\n      qr            = qr,\n      df.residual   = df.residual,\n      xlevels       = xlevels,\n      call          = call,\n      terms         = terms,\n      model         = model\n    ),\n    class = \"lm\"\n  )\n}"},{"path":"s3.html","id":"inheritance-exercises-13.6.3","chapter":"13 S3","heading":"13.5 Inheritance (Exercises 13.6.3)","text":"Q1. [.Date support subclasses? fail support subclasses?A1. [.Date method defined follows:.Date function looks like :, oldClass class().Therefore, reading code, can surmise :[.Date supports subclasses preserving class input.[.Date fails support subclasses preserving attributes input.example,Q2. R two classes representing date time data, POSIXct POSIXlt, inherit POSIXt. generics different behaviours two classes? generics share behaviour?A2. First, let’s demonstrate POSIXct POSIXlt indeed subclasses POSIXt superclass.Remember way S3 method dispatch works, generic method superclass, method also inherited subclass.can extract vector generics supported sub- super-classes:Methods specific subclasses:Let’s see example:Methods inherited subclasses superclass:Let’s see one example generic:Q3. expect code return? actually return? ?A3. Naively, expect code return \"a1\", actually returns \"a2\":S3 dispatch explains :mentioned book, UseMethod() functiontracks list potential next methods special variable, means modifying object ’s dispatched upon impact method gets called next.special variable .Class:.Class character vector classes used find next method. NextMethod adds attribute “previous” .Class giving .Class last used dispatch, shifts .Class along used dispatch., can print .Class confirm adding new class x indeed doesn’t change .Class, therefore dispatch occurs \"a2\" class:","code":"\nsloop::s3_get_method(\"[.Date\")\n#> function (x, ..., drop = TRUE) \n#> {\n#>     .Date(NextMethod(\"[\"), oldClass(x))\n#> }\n#> <bytecode: 0x56119c235db0>\n#> <environment: namespace:base>\n.Date\n#> function (xx, cl = \"Date\") \n#> `class<-`(xx, cl)\n#> <bytecode: 0x561199d84c50>\n#> <environment: namespace:base>\nx <- structure(Sys.Date(), name = \"myName\", class = c(\"subDate\", \"Date\"))\n\n# `$name` is gone\nattributes(x[1])\n#> $class\n#> [1] \"subDate\" \"Date\"\n\nx[1]\n#> [1] \"2024-01-07\"\ndt_lt <- as.POSIXlt(Sys.time(), \"GMT\")\nclass(dt_lt)\n#> [1] \"POSIXlt\" \"POSIXt\"\n\ndt_ct <- as.POSIXct(Sys.time(), \"GMT\")\nclass(dt_ct)\n#> [1] \"POSIXct\" \"POSIXt\"\n\ndt_t <- structure(dt_ct, class = \"POSIXt\")\nclass(dt_t)\n#> [1] \"POSIXt\"\n(t_generics <- s3_methods_class(\"POSIXt\")$generic)\n#>  [1] \"-\"            \"+\"            \"all.equal\"   \n#>  [4] \"as.character\" \"Axis\"         \"cut\"         \n#>  [7] \"diff\"         \"hist\"         \"is.numeric\"  \n#> [10] \"julian\"       \"Math\"         \"months\"      \n#> [13] \"Ops\"          \"pretty\"       \"quantile\"    \n#> [16] \"quarters\"     \"round\"        \"seq\"         \n#> [19] \"str\"          \"trunc\"        \"weekdays\"\n\n(lt_generics <- s3_methods_class(\"POSIXlt\")$generic)\n#>  [1] \"[\"             \"[[\"            \"[[<-\"         \n#>  [4] \"[<-\"           \"$<-\"           \"anyNA\"        \n#>  [7] \"as.data.frame\" \"as.Date\"       \"as.double\"    \n#> [10] \"as.list\"       \"as.matrix\"     \"as.POSIXct\"   \n#> [13] \"as.vector\"     \"c\"             \"duplicated\"   \n#> [16] \"format\"        \"is.finite\"     \"is.infinite\"  \n#> [19] \"is.na\"         \"is.nan\"        \"length\"       \n#> [22] \"length<-\"      \"mean\"          \"names\"        \n#> [25] \"names<-\"       \"print\"         \"rep\"          \n#> [28] \"sort\"          \"summary\"       \"Summary\"      \n#> [31] \"unique\"        \"weighted.mean\" \"xtfrm\"\n\n(ct_generics <- s3_methods_class(\"POSIXct\")$generic)\n#>  [1] \"[\"             \"[[\"            \"[<-\"          \n#>  [4] \"as.data.frame\" \"as.Date\"       \"as.list\"      \n#>  [7] \"as.POSIXlt\"    \"c\"             \"format\"       \n#> [10] \"length<-\"      \"mean\"          \"print\"        \n#> [13] \"rep\"           \"split\"         \"summary\"      \n#> [16] \"Summary\"       \"weighted.mean\" \"xtfrm\"\nunion(lt_generics, ct_generics)\n#>  [1] \"[\"             \"[[\"            \"[[<-\"         \n#>  [4] \"[<-\"           \"$<-\"           \"anyNA\"        \n#>  [7] \"as.data.frame\" \"as.Date\"       \"as.double\"    \n#> [10] \"as.list\"       \"as.matrix\"     \"as.POSIXct\"   \n#> [13] \"as.vector\"     \"c\"             \"duplicated\"   \n#> [16] \"format\"        \"is.finite\"     \"is.infinite\"  \n#> [19] \"is.na\"         \"is.nan\"        \"length\"       \n#> [22] \"length<-\"      \"mean\"          \"names\"        \n#> [25] \"names<-\"       \"print\"         \"rep\"          \n#> [28] \"sort\"          \"summary\"       \"Summary\"      \n#> [31] \"unique\"        \"weighted.mean\" \"xtfrm\"        \n#> [34] \"as.POSIXlt\"    \"split\"\ns3_dispatch(is.na(dt_lt))\n#> => is.na.POSIXlt\n#>    is.na.POSIXt\n#>    is.na.default\n#>  * is.na (internal)\n\ns3_dispatch(is.na(dt_ct))\n#>    is.na.POSIXct\n#>    is.na.POSIXt\n#>    is.na.default\n#> => is.na (internal)\n\ns3_dispatch(is.na(dt_t))\n#>    is.na.POSIXt\n#>    is.na.default\n#> => is.na (internal)\nsetdiff(t_generics, union(lt_generics, ct_generics))\n#>  [1] \"-\"            \"+\"            \"all.equal\"   \n#>  [4] \"as.character\" \"Axis\"         \"cut\"         \n#>  [7] \"diff\"         \"hist\"         \"is.numeric\"  \n#> [10] \"julian\"       \"Math\"         \"months\"      \n#> [13] \"Ops\"          \"pretty\"       \"quantile\"    \n#> [16] \"quarters\"     \"round\"        \"seq\"         \n#> [19] \"str\"          \"trunc\"        \"weekdays\"\ns3_dispatch(is.numeric(dt_lt))\n#>    is.numeric.POSIXlt\n#> => is.numeric.POSIXt\n#>    is.numeric.default\n#>  * is.numeric (internal)\n\ns3_dispatch(is.numeric(dt_ct))\n#>    is.numeric.POSIXct\n#> => is.numeric.POSIXt\n#>    is.numeric.default\n#>  * is.numeric (internal)\n\ns3_dispatch(is.numeric(dt_t))\n#> => is.numeric.POSIXt\n#>    is.numeric.default\n#>  * is.numeric (internal)\ngeneric2 <- function(x) UseMethod(\"generic2\")\ngeneric2.a1 <- function(x) \"a1\"\ngeneric2.a2 <- function(x) \"a2\"\ngeneric2.b <- function(x) {\n  class(x) <- \"a1\"\n  NextMethod()\n}\n\ngeneric2(structure(list(), class = c(\"b\", \"a2\")))\ngeneric2 <- function(x) UseMethod(\"generic2\")\ngeneric2.a1 <- function(x) \"a1\"\ngeneric2.a2 <- function(x) \"a2\"\ngeneric2.b <- function(x) {\n  class(x) <- \"a1\"\n  NextMethod()\n}\n\ngeneric2(structure(list(), class = c(\"b\", \"a2\")))\n#> [1] \"a2\"\nsloop::s3_dispatch(generic2(structure(list(), class = c(\"b\", \"a2\"))))\n#> => generic2.b\n#> -> generic2.a2\n#>    generic2.default\ngeneric2.b <- function(x) {\n  message(paste0(\"before: \", paste0(.Class, collapse = \", \")))\n  class(x) <- \"a1\"\n  message(paste0(\"after: \", paste0(.Class, collapse = \", \")))\n\n  NextMethod()\n}\n\ninvisible(generic2(structure(list(), class = c(\"b\", \"a2\"))))\n#> before: b, a2\n#> after: b, a2"},{"path":"s3.html","id":"dispatch-details-exercises-13.7.5","chapter":"13 S3","heading":"13.6 Dispatch details (Exercises 13.7.5)","text":"Q1. Explain differences dispatch :A1. differences dispatch due classes arguments:x1 implicit class integer inherits numeric, x2 explicitly assigned class integer.Q2. classes method Math group generic base R? Read source code. methods work?A2. following classes method Math group generic base R:Reading source code methods:Math.factor() Math.Date() provide error message:Math.data.frame() defined follows (except first line code, deliberately added):can surmised code: method checks elements expected type., applies generic (tracked via environment variable .Generic) element list atomic vectors makes data frame:, produces error:Q3. Math.difftime() complicated described. ?A3. Math.difftime() source code looks like following:group generic bit complicated produces error generics, works others.","code":"\nlength.integer <- function(x) 10\n\nx1 <- 1:5\nclass(x1)\n#> [1] \"integer\"\ns3_dispatch(length(x1))\n#>  * length.integer\n#>    length.numeric\n#>    length.default\n#> => length (internal)\n\nx2 <- structure(x1, class = \"integer\")\nclass(x2)\n#> [1] \"integer\"\ns3_dispatch(length(x2))\n#> => length.integer\n#>    length.default\n#>  * length (internal)\ns3_class(x1)\n#> [1] \"integer\" \"numeric\"\n\ns3_class(x2)\n#> [1] \"integer\"\ns3_methods_generic(\"Math\") %>%\n  dplyr::filter(source == \"base\")\n#> # A tibble: 5 × 4\n#>   generic class      visible source\n#>   <chr>   <chr>      <lgl>   <chr> \n#> 1 Math    data.frame TRUE    base  \n#> 2 Math    Date       TRUE    base  \n#> 3 Math    difftime   TRUE    base  \n#> 4 Math    factor     TRUE    base  \n#> 5 Math    POSIXt     TRUE    base\nMath.factor <- function(x, ...) {\n  stop(gettextf(\"%s not meaningful for factors\", sQuote(.Generic)))\n}\n\nMath.Date <- function(x, ...) {\n  stop(gettextf(\"%s not defined for \\\"Date\\\" objects\", .Generic),\n    domain = NA\n  )\n}\nMath.data.frame <- function(x, ...) {\n  message(paste0(\"Environment variable `.Generic` set to: \", .Generic))\n\n  mode.ok <- vapply(x, function(x) {\n    is.numeric(x) || is.logical(x) || is.complex(x)\n  }, NA)\n\n  if (all(mode.ok)) {\n    x[] <- lapply(X = x, FUN = .Generic, ...)\n    return(x)\n  } else {\n    vnames <- names(x)\n    if (is.null(vnames)) vnames <- seq_along(x)\n    stop(\n      \"non-numeric-alike variable(s) in data frame: \",\n      paste(vnames[!mode.ok], collapse = \", \")\n    )\n  }\n}\ndf1 <- data.frame(x = 1:2, y = 3:4)\nsqrt(df1)\n#> Environment variable `.Generic` set to: sqrt\n#>          x        y\n#> 1 1.000000 1.732051\n#> 2 1.414214 2.000000\ndf2 <- data.frame(x = c(TRUE, FALSE), y = c(\"a\", \"b\"))\nabs(df2)\n#> Environment variable `.Generic` set to: abs\n#> Error in Math.data.frame(df2): non-numeric-alike variable(s) in data frame: y\nMath.difftime <- function(x, ...) {\n  switch(.Generic,\n    \"abs\" = ,\n    \"sign\" = ,\n    \"floor\" = ,\n    \"ceiling\" = ,\n    \"trunc\" = ,\n    \"round\" = ,\n    \"signif\" = {\n      units <- attr(x, \"units\")\n      .difftime(NextMethod(), units)\n    },\n    ### otherwise :\n    stop(gettextf(\"'%s' not defined for \\\"difftime\\\" objects\", .Generic),\n      domain = NA\n    )\n  )\n}"},{"path":"s3.html","id":"session-information-10","chapter":"13 S3","heading":"13.7 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  codetools     0.2-19  2023-02-01 [3] CRAN (R 4.3.2)\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  sloop       * 1.0.1   2019-02-17 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"r6.html","id":"r6","chapter":"14 R6","heading":"14 R6","text":"Loading needed libraries:","code":"\nlibrary(R6)"},{"path":"r6.html","id":"classes-and-methods-exercises-14.2.6","chapter":"14 R6","heading":"14.1 Classes and methods (Exercises 14.2.6)","text":"Q1. Create bank account R6 class stores balance allows deposit withdraw money. Create subclass throws error attempt go overdraft. Create another subclass allows go overdraft, charges fee. Create superclass make sure works expected.A1. First, let’s create bank account R6 class stores balance allows deposit withdraw money:Let’s try :Create subclass errors attempt overdraw:Let’s try :Now let’s create subclass charges fee account overdrawn:Let’s try :Q2. Create R6 class represents shuffled deck cards. able draw cards deck $draw(n), return cards deck reshuffle $reshuffle(). Use following code make vector cards.A2. Let’s create needed class represents shuffled deck cards:Let’s try :Q3. can’t model bank account deck cards S3 class?A3. can’t model bank account deck cards S3 class instances classes immutable.hand, R6 classes encapsulate data represent state, can change course object’s lifecycle. words, objects mutable well-suited model bank account.Q4. Create R6 class allows get set current time zone. can access current time zone Sys.timezone() set Sys.setenv(TZ = \"newtimezone\"). setting time zone, make sure new time zone list provided OlsonNames().A4. R6 class manages current time zone:Let’s try :Q5. Create R6 class manages current working directory. $get() $set() methods.A5. R6 class manages current working directory:Let’s create instance class check methods work expected:Q6. can’t model time zone current working directory S3 class?A6. answer Q3:Objects represent real-life entities need mutable S3 class instances mutable.Q7. base type R6 objects built top ? attributes ?A7. Let’s create example class create instance class:R6 objects built top environment:class attribute, character vector \"R6\" last element superclasses elements:","code":"\nlibrary(R6)\n\nbankAccount <- R6::R6Class(\n  \"bankAccount\",\n  public = list(\n    balance = 0,\n    initialize = function(balance) {\n      self$balance <- balance\n    },\n    deposit = function(amount) {\n      self$balance <- self$balance + amount\n      message(paste0(\"Current balance is: \", self$balance))\n      invisible(self)\n    },\n    withdraw = function(amount) {\n      self$balance <- self$balance - amount\n      message(paste0(\"Current balance is: \", self$balance))\n      invisible(self)\n    }\n  )\n)\nindra <- bankAccount$new(balance = 100)\n\nindra$deposit(20)\n#> Current balance is: 120\n\nindra$withdraw(10)\n#> Current balance is: 110\nbankAccountStrict <- R6::R6Class(\n  \"bankAccountStrict\",\n  inherit = bankAccount,\n  public = list(\n    withdraw = function(amount) {\n      if (self$balance - amount < 0) {\n        stop(\n          paste0(\"Can't withdraw more than your current balance: \", self$balance),\n          call. = FALSE\n        )\n      }\n\n      super$withdraw(amount)\n    }\n  )\n)\nPritesh <- bankAccountStrict$new(balance = 100)\n\nPritesh$deposit(20)\n#> Current balance is: 120\n\nPritesh$withdraw(150)\n#> Error: Can't withdraw more than your current balance: 120\nbankAccountFee <- R6::R6Class(\n  \"bankAccountFee\",\n  inherit = bankAccount,\n  public = list(\n    withdraw = function(amount) {\n      super$withdraw(amount)\n\n      if (self$balance) {\n        self$balance <- self$balance - 10\n        message(\"You're withdrawing more than your current balance. You will be charged a fee of 10 euros.\")\n      }\n    }\n  )\n)\nMangesh <- bankAccountFee$new(balance = 100)\n\nMangesh$deposit(20)\n#> Current balance is: 120\n\nMangesh$withdraw(150)\n#> Current balance is: -30\n#> You're withdrawing more than your current balance. You will be charged a fee of 10 euros.\nsuit <- c(\"♠\", \"♥\", \"♦\", \"♣\")\nvalue <- c(\"A\", 2:10, \"J\", \"Q\", \"K\")\ncards <- paste0(rep(value, 4), suit)\nsuit <- c(\"♠\", \"♥\", \"♦\", \"♣\")\nvalue <- c(\"A\", 2:10, \"J\", \"Q\", \"K\")\ncards <- paste(rep(value, 4), suit)\n\nDeck <- R6::R6Class(\n  \"Deck\",\n  public = list(\n    initialize = function(deck) {\n      private$cards <- sample(deck)\n    },\n    draw = function(n) {\n      if (n > length(private$cards)) {\n        stop(\n          paste0(\"Can't draw more than remaining number of cards: \", length(private$cards)),\n          call. = FALSE\n        )\n      }\n\n      drawn_cards <- sample(private$cards, n)\n      private$cards <- private$cards[-which(private$cards %in% drawn_cards)]\n      message(paste0(\"Remaining number of cards: \", length(private$cards)))\n\n      return(drawn_cards)\n    },\n    reshuffle = function() {\n      private$cards <- sample(private$cards)\n      invisible(self)\n    }\n  ),\n  private = list(\n    cards = NULL\n  )\n)\nmyDeck <- Deck$new(cards)\n\nmyDeck$draw(4)\n#> Remaining number of cards: 48\n#> [1] \"2 ♠\"  \"10 ♦\" \"9 ♦\"  \"3 ♦\"\n\nmyDeck$reshuffle()$draw(5)\n#> Remaining number of cards: 43\n#> [1] \"6 ♦\"  \"10 ♥\" \"2 ♥\"  \"A ♥\"  \"8 ♥\"\n\nmyDeck$draw(50)\n#> Error: Can't draw more than remaining number of cards: 43\nCurrentTimeZone <- R6::R6Class(\"CurrentTimeZone\",\n  public = list(\n    setTimeZone = function(tz) {\n      stopifnot(tz %in% OlsonNames())\n      Sys.setenv(TZ = tz)\n    },\n    getTimeZone = function() {\n      Sys.timezone()\n    }\n  )\n)\nmyCurrentTimeZone <- CurrentTimeZone$new()\n\nmyCurrentTimeZone$getTimeZone()\n#> [1] \"UTC\"\n\nmyCurrentTimeZone$setTimeZone(\"Asia/Kolkata\")\nmyCurrentTimeZone$getTimeZone()\n#> [1] \"Asia/Kolkata\"\n\nmyCurrentTimeZone$setTimeZone(\"Europe/Berlin\")\nManageDirectory <- R6::R6Class(\"ManageDirectory\",\n  public = list(\n    setWorkingDirectory = function(dir) {\n      setwd(dir)\n    },\n    getWorkingDirectory = function() {\n      getwd()\n    }\n  )\n)\nmyDirManager <- ManageDirectory$new()\n\n# current working directory\nmyDirManager$getWorkingDirectory()\n\n# change and check if that worked\nmyDirManager$setWorkingDirectory(\"..\")\nmyDirManager$getWorkingDirectory()\n\n# revert this change\nmyDirManager$setWorkingDirectory(\"/Advanced-R-exercises\")\nExample <- R6::R6Class(\"Example\")\nmyExample <- Example$new()\ntypeof(myExample)\n#> [1] \"environment\"\n\nrlang::env_print(myExample)\n#> <environment: 0x5565e0c0a290> [L]\n#> Parent: <environment: empty>\n#> Class: Example, R6\n#> Bindings:\n#> • .__enclos_env__: <env>\n#> • clone: <fn> [L]\nattributes(myExample)\n#> $class\n#> [1] \"Example\" \"R6\""},{"path":"r6.html","id":"controlling-access-exercises-14.3.3","chapter":"14 R6","heading":"14.2 Controlling access (Exercises 14.3.3)","text":"Q1. Create bank account class prevents directly setting account balance, can still withdraw deposit . Throw error attempt go overdraft.A1. bank account class satisfies specified requirements:Let’s check works expected:Q2. Create class write-$password field. $check_password(password) method returns TRUE FALSE, way view complete password.A2. implementation class needed properties:, course, everything possible:Q3. Extend Rando class another active binding allows access previous random value. Ensure active binding way access value.A3. modified version Rando class meet specified requirements:Let’s try :Q4. Can subclasses access private fields/methods parent? Perform experiment find .A4. Unlike common OOP languages (e.g. C++), R6 subclasses (derived classes) also access private methods superclass (base class).instance, following example, Duck class private method $quack(), subclass Mallard can access using super$quack().","code":"\nSafeBankAccount <- R6::R6Class(\n  classname = \"SafeBankAccount\",\n  public = list(\n    deposit = function(deposit_amount) {\n      private$.balance <- private$.balance + deposit_amount\n      print(paste(\"Current balance:\", private$.balance))\n\n      invisible(self)\n    },\n    withdraw = function(withdrawal_amount) {\n      if (withdrawal_amount > private$.balance) {\n        stop(\"You can't withdraw more than your current balance.\", call. = FALSE)\n      }\n\n      private$.balance <- private$.balance - withdrawal_amount\n      print(paste(\"Current balance:\", private$.balance))\n\n      invisible(self)\n    }\n  ),\n  private = list(\n    .balance = 0\n  )\n)\nmySafeBankAccount <- SafeBankAccount$new()\n\nmySafeBankAccount$deposit(100)\n#> [1] \"Current balance: 100\"\n\nmySafeBankAccount$withdraw(50)\n#> [1] \"Current balance: 50\"\n\nmySafeBankAccount$withdraw(100)\n#> Error: You can't withdraw more than your current balance.\nlibrary(R6)\n\ncheckCredentials <- R6Class(\n  \"checkCredentials\",\n  public = list(\n    # setter\n    set_password = function(password) {\n      private$.password <- password\n    },\n\n    # checker\n    check_password = function(password) {\n      if (is.null(private$.password)) {\n        stop(\"No password set to check against.\")\n      }\n\n      identical(password, private$.password)\n    },\n\n    # the default print method prints the private fields as well\n    print = function() {\n      cat(\"Password: XXXX\")\n\n      # for method chaining\n      invisible(self)\n    }\n  ),\n  private = list(\n    .password = NULL\n  )\n)\n\nmyCheck <- checkCredentials$new()\n\nmyCheck$set_password(\"1234\")\nprint(myCheck)\n#> Password: XXXX\n\nmyCheck$check_password(\"abcd\")\n#> [1] FALSE\nmyCheck$check_password(\"1234\")\n#> [1] TRUE\nmyCheck$.__enclos_env__$private$.password\n#> [1] \"1234\"\nRando <- R6::R6Class(\"Rando\",\n  active = list(\n    random = function(value) {\n      if (missing(value)) {\n        newValue <- runif(1)\n        private$.previousRandom <- private$.currentRandom\n        private$.currentRandom <- newValue\n        return(private$.currentRandom)\n      } else {\n        stop(\"Can't set `$random`\", call. = FALSE)\n      }\n    },\n    previousRandom = function(value) {\n      if (missing(value)) {\n        if (is.null(private$.previousRandom)) {\n          message(\"No random value has been generated yet.\")\n        } else {\n          return(private$.previousRandom)\n        }\n      } else {\n        stop(\"Can't set `$previousRandom`\", call. = FALSE)\n      }\n    }\n  ),\n  private = list(\n    .currentRandom = NULL,\n    .previousRandom = NULL\n  )\n)\nmyRando <- Rando$new()\n\n# first time\nmyRando$random\n#> [1] 0.5549124\nmyRando$previousRandom\n#> No random value has been generated yet.\n#> NULL\n\n# second time\nmyRando$random\n#> [1] 0.3482785\nmyRando$previousRandom\n#> [1] 0.5549124\n\n# third time\nmyRando$random\n#> [1] 0.2187275\nmyRando$previousRandom\n#> [1] 0.3482785\nDuck <- R6Class(\"Duck\",\n  private = list(quack = function() print(\"Quack Quack\"))\n)\n\nMallard <- R6Class(\"Mallard\",\n  inherit = Duck,\n  public = list(quack = function() super$quack())\n)\n\nmyMallard <- Mallard$new()\nmyMallard$quack()\n#> [1] \"Quack Quack\""},{"path":"r6.html","id":"reference-semantics-exercises-14.4.4","chapter":"14 R6","heading":"14.3 Reference semantics (Exercises 14.4.4)","text":"Q1. Create class allows write line specified file. open connection file $initialize(), append line using cat() $append_line(), close connection $finalize().A1. class allows write line specified file:Let’s check works expected:","code":"\nfileEditor <- R6Class(\n  \"fileEditor\",\n  public = list(\n    initialize = function(filePath) {\n      private$.connection <- file(filePath, open = \"wt\")\n    },\n    append_line = function(text) {\n      cat(\n        text,\n        file = private$.connection,\n        sep = \"\\n\",\n        append = TRUE\n      )\n    }\n  ),\n  private = list(\n    .connection = NULL,\n    # according to R6 docs, the destructor method should be private\n    finalize = function() {\n      print(\"Closing the file connection!\")\n      close(private$.connection)\n    }\n  )\n)\ngreetMom <- function() {\n  f <- tempfile()\n  myfileEditor <- fileEditor$new(f)\n\n  readLines(f)\n\n  myfileEditor$append_line(\"Hi mom!\")\n  myfileEditor$append_line(\"It's a beautiful day!\")\n\n  readLines(f)\n}\n\ngreetMom()\n#> [1] \"Hi mom!\"               \"It's a beautiful day!\"\n\n# force garbage collection\ngc()\n#> [1] \"Closing the file connection!\"\n#>           used (Mb) gc trigger (Mb) max used (Mb)\n#> Ncells  746818 39.9    1365334   73  1365334 73.0\n#> Vcells 1372826 10.5    8388608   64  2594870 19.8"},{"path":"r6.html","id":"session-information-11","chapter":"14 R6","heading":"14.4 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       Europe/Berlin\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  R6          * 2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"s4.html","id":"s4","chapter":"15 S4","heading":"15 S4","text":"","code":""},{"path":"s4.html","id":"basics-exercises-15.2.1","chapter":"15 S4","heading":"15.1 Basics (Exercises 15.2.1)","text":"Q1. lubridate::period() returns S4 class. slots ? class slot? accessors provide?A1. Let’s first create instance Period class:following slots:Additionally, base type slot (numeric) can seen str() output:lubridate package provides accessors slots:Q2. ways can find help method? Read ?\"?\" summarise details.A2. \"?\" operator allows access documentation three ways. demonstrate different ways access documentation, let’s define new S4 class.Ways access documentation:general documentation generic can found ?topic:expression type?topic look overall documentation methods function f.","code":"\nlibrary(lubridate)\nx <- lubridate::period(c(2, 43, 6), c(\"hour\", \"second\", \"minute\"))\nx\n#> [1] \"2H 6M 43S\"\nslotNames(x)\n#> [1] \".Data\"  \"year\"   \"month\"  \"day\"    \"hour\"   \"minute\"\nstr(x)\n#> Formal class 'Period' [package \"lubridate\"] with 6 slots\n#>   ..@ .Data : num 43\n#>   ..@ year  : num 0\n#>   ..@ month : num 0\n#>   ..@ day   : num 0\n#>   ..@ hour  : num 2\n#>   ..@ minute: num 6\nyear(x)\n#> [1] 0\nmonth(x)\n#> [1] 0\nday(x)\n#> [1] 0\nhour(x)\n#> [1] 2\nminute(x)\n#> [1] 6\nsecond(x)\n#> [1] 43\npow <- function(x, exp) c(x, exp)\nsetGeneric(\"pow\")\n#> [1] \"pow\"\nsetMethod(\"pow\", c(\"numeric\", \"numeric\"), function(x, exp) x^exp)\n?pow\n?pow # produces the function documentation\n\nmethods?pow # looks for the overall methods documentation"},{"path":"s4.html","id":"classes-exercises-15.3.6","chapter":"15 S4","heading":"15.2 Classes (Exercises 15.3.6)","text":"Q1. Extend Person class fields match utils::person(). Think slots need, class slot , ’ll need check validity method.A1. code extends Person class described book match closely utils::person().Let’s make sure validation works expected:Q2. happens define new S4 class doesn’t slots? (Hint: read virtual classes ?setClass.)A2. define new S4 class doesn’t slots, create virtual classes:can’t create instance class:useful? mentioned ?setClass docs:Classes exist actual objects can created, virtual classes.common useful form virtual class class union, virtual class defined call setClassUnion() rather call setClass().virtual classes can still inherited:addition specifying slots, another way create virtual classes:Calls setClass() also create virtual class, either Class argument supplied (slots superclasses) contains= argument includes special class name \"VIRTUAL\".Q3. Imagine going reimplement factors, dates, data frames S4. Sketch setClass() calls use define classes. Think appropriate slots prototype.A3. reimplementation following classes S4 might definitions like following.factorFor simplicity, won’t provide options factor() provides. Note x pseudo-class accept objects type.DateJust like base-R version, integer values.data.frameThe tricky part supporting ... argument data.frame(). , can let users pass (named) list.","code":"\nsetClass(\"Person\",\n  slots = c(\n    age     = \"numeric\",\n    given   = \"character\",\n    family  = \"character\",\n    middle  = \"character\",\n    email   = \"character\",\n    role    = \"character\",\n    comment = \"character\"\n  ),\n  prototype = list(\n    age     = NA_real_,\n    given   = NA_character_,\n    family  = NA_character_,\n    middle  = NA_character_,\n    email   = NA_character_,\n    role    = NA_character_,\n    comment = NA_character_\n  )\n)\n\n# Helper function to create an instance of the `Person` class\nPerson <- function(given,\n                   family,\n                   middle = NA_character_,\n                   age = NA_real_,\n                   email = NA_character_,\n                   role = NA_character_,\n                   comment = NA_character_) {\n  age <- as.double(age)\n\n  new(\"Person\",\n    age     = age,\n    given   = given,\n    family  = family,\n    middle  = middle,\n    email   = email,\n    role    = role,\n    comment = comment\n  )\n}\n\n# Validator to ensure that each slot is of length one and that the specified\n# role is one of the possible roles\nsetValidity(\"Person\", function(object) {\n  invalid_length <- NULL\n  slot_lengths <- c(\n    length(object@age),\n    length(object@given),\n    length(object@middle),\n    length(object@family),\n    length(object@email),\n    length(object@comment)\n  )\n\n  if (any(slot_lengths > 1L)) {\n    invalid_length <- \"\\nFollowing slots must be of length 1:\\n @age, @given, @family, @middle, @email, @comment\"\n  }\n\n  possible_roles <- c(\n    NA_character_, \"aut\", \"com\", \"cph\", \"cre\", \"ctb\", \"ctr\", \"dtc\", \"fnd\", \"rev\", \"ths\", \"trl\"\n  )\n\n  if (any(!object@role %in% possible_roles)) {\n    invalid_length <- paste(\n      invalid_length,\n      \"\\nSlot @role(s) must be one of the following:\\n\",\n      paste(possible_roles, collapse = \", \")\n    )\n  }\n\n  if (!is.null(invalid_length)) {\n    return(invalid_length)\n  } else {\n    return(TRUE)\n  }\n})\n#> Class \"Person\" [in \".GlobalEnv\"]\n#> \n#> Slots:\n#>                                                         \n#> Name:        age     given    family    middle     email\n#> Class:   numeric character character character character\n#>                           \n#> Name:       role   comment\n#> Class: character character\n# length of first argument not 1\nPerson(c(\"Indrajeet\", \"Surendra\"), \"Patil\")\n#> Error in validObject(.Object): invalid class \"Person\" object: \n#> Following slots must be of length 1:\n#>  @age, @given, @family, @middle, @email, @comment\n\n# role not recognized\nPerson(\"Indrajeet\", \"Patil\", role = \"xyz\")\n#> Error in validObject(.Object): invalid class \"Person\" object:  \n#> Slot @role(s) must be one of the following:\n#>  NA, aut, com, cph, cre, ctb, ctr, dtc, fnd, rev, ths, trl\n\n# all okay\nPerson(\"Indrajeet\", \"Patil\", role = c(\"aut\", \"cph\"))\n#> An object of class \"Person\"\n#> Slot \"age\":\n#> [1] NA\n#> \n#> Slot \"given\":\n#> [1] \"Indrajeet\"\n#> \n#> Slot \"family\":\n#> [1] \"Patil\"\n#> \n#> Slot \"middle\":\n#> [1] NA\n#> \n#> Slot \"email\":\n#> [1] NA\n#> \n#> Slot \"role\":\n#> [1] \"aut\" \"cph\"\n#> \n#> Slot \"comment\":\n#> [1] NA\nsetClass(\"Empty\")\n\nisVirtualClass(\"Empty\")\n#> [1] TRUE\nnew(\"Empty\")\n#> Error in new(\"Empty\"): trying to generate an object from a virtual class (\"Empty\")\nsetClass(\"Nothing\", contains = \"Empty\")\nsetClass(\"Factor\",\n  slots = c(\n    x       = \"ANY\",\n    levels  = \"character\",\n    ordered = \"logical\"\n  ),\n  prototype = list(\n    x       = character(),\n    levels  = character(),\n    ordered = FALSE\n  )\n)\n\nnew(\"Factor\", x = letters[1:3], levels = LETTERS[1:3])\n#> An object of class \"Factor\"\n#> Slot \"x\":\n#> [1] \"a\" \"b\" \"c\"\n#> \n#> Slot \"levels\":\n#> [1] \"A\" \"B\" \"C\"\n#> \n#> Slot \"ordered\":\n#> [1] FALSE\n\nnew(\"Factor\", x = 1:3, levels = letters[1:3])\n#> An object of class \"Factor\"\n#> Slot \"x\":\n#> [1] 1 2 3\n#> \n#> Slot \"levels\":\n#> [1] \"a\" \"b\" \"c\"\n#> \n#> Slot \"ordered\":\n#> [1] FALSE\n\nnew(\"Factor\", x = c(TRUE, FALSE, TRUE), levels = c(\"x\", \"y\", \"x\"))\n#> An object of class \"Factor\"\n#> Slot \"x\":\n#> [1]  TRUE FALSE  TRUE\n#> \n#> Slot \"levels\":\n#> [1] \"x\" \"y\" \"x\"\n#> \n#> Slot \"ordered\":\n#> [1] FALSE\nsetClass(\"Date2\",\n  slots = list(\n    data = \"integer\"\n  ),\n  prototype = list(\n    data = integer()\n  )\n)\n\nnew(\"Date2\", data = 1342L)\n#> An object of class \"Date2\"\n#> Slot \"data\":\n#> [1] 1342\nsetClass(\"DataFrame\",\n  slots = c(\n    data      = \"list\",\n    row.names = \"character\"\n  ),\n  prototype = list(\n    data      = list(),\n    row.names = character(0L)\n  )\n)\n\nnew(\"DataFrame\", data = list(x = c(\"a\", \"b\"), y = c(1L, 2L)))\n#> An object of class \"DataFrame\"\n#> Slot \"data\":\n#> $x\n#> [1] \"a\" \"b\"\n#> \n#> $y\n#> [1] 1 2\n#> \n#> \n#> Slot \"row.names\":\n#> character(0)"},{"path":"s4.html","id":"generics-and-methods-exercises-15.4.5","chapter":"15 S4","heading":"15.3 Generics and methods (Exercises 15.4.5)","text":"Q1. Add age() accessors Person class.A1. first define generic method class:Q2. definition generic, necessary repeat name generic twice?A2. Let’s look generic just defined; generic name \"age\" repeated twice.:\"age\" passed argument name provides name genericthe \"age\" passed argument def supplies method dispatchThis reminiscent defined S3 generic, also repeat name twice:Q3. show() method defined Section Show method use (object)[[1]]? (Hint: try printing employee subclass.)A3. wish define show() method specific class, need disregard super-/sub-classes.Always using first element ensures method defined class question:Q4. happens define method different argument names generic?A4. Let’s experiment method defined Q1. study behavior.original method worked expected since argument name generic method matched:case, either get warning get error depending many arguments specified:","code":"\nIndra <- Person(\"Indrajeet\", \"Patil\", role = c(\"aut\", \"cph\"), age = 34)\n\nsetGeneric(\"age\", function(x) standardGeneric(\"age\"))\n#> [1] \"age\"\nsetMethod(\"age\", \"Person\", function(x) x@age)\n\nage(Indra)\n#> [1] 34\nsetGeneric(name = \"age\", def = function(x) standardGeneric(\"age\"))\nage <- function(x) {\n  UseMethod(\"age\")\n}\nAlice <- new(\"Employee\")\n\nis(Alice)\n#> [1] \"Employee\" \"Person\"\n\nis(Alice)[[1]]\n#> [1] \"Employee\"\nsetMethod(\"age\", \"Person\", function(x) x@age)\nsetMethod(\"age\", \"Person\", function(object) object@age)\n#> Warning: For function 'age', signature 'Person': argument\n#> in method definition changed from (object) to (x)\n\nsetMethod(\"age\", \"Person\", function(object, x) object@age)\n#> Error in rematchDefinition(definition, fdef, mnames, fnames, signature): methods can add arguments to the generic 'age' only if '...' is an argument to the generic\n\nsetMethod(\"age\", \"Person\", function(...) ...elt(1)@age)\n#> Warning: For function 'age', signature 'Person': argument\n#> in method definition changed from (...) to (x)\n\nsetMethod(\"age\", \"Person\", function(x, ...) x@age)\n#> Error in rematchDefinition(definition, fdef, mnames, fnames, signature): methods can add arguments to the generic 'age' only if '...' is an argument to the generic"},{"path":"s4.html","id":"method-dispatch-exercises-15.5.5","chapter":"15 S4","heading":"15.4 Method dispatch (Exercises 15.5.5)","text":"Q1. Draw method graph f(😅, 😽).A1. don’t prepare visual illustrations used book, linking illustration official solution manual:Q2. Draw method graph f(😃, 😉, 😙).A2. don’t prepare visual illustrations used book, linking illustration official solution manual:Q3. Take last example shows multiple dispatch two classes use multiple inheritance. happens define method terminal classes? method dispatch save us much work ?A3. one class distance 2 terminal nodes four distance 1 two terminal nodes , introduce ambiguity.Method dispatch save us much work resolve ambiguity define five methods (one per class combination).","code":""},{"path":"s4.html","id":"s4-and-s3-exercises-15.6.3","chapter":"15 S4","heading":"15.5 S4 and S3 (Exercises 15.6.3)","text":"Q1. full setOldClass() definition look like ordered factor (.e. add slots prototype definition )?A1. can register old-style/S3 ordered class formally defined class using setOldClass().Let’s use see works expected.Q2. Define length method Person class.A2. Person class can used create objects represent multiple people, let’s say length() method returns many persons object.can define S3 method class:Alternatively, can also write S4 method:","code":"\nsetClass(\"factor\",\n  contains = \"integer\",\n  slots = c(\n    levels = \"character\"\n  ),\n  prototype = structure(\n    integer(),\n    levels = character()\n  )\n)\nsetOldClass(\"factor\", S4Class = \"factor\")\n#> Warning in rm(list = what, pos = classWhere): object\n#> '.__C__factor' not found\n\nsetClass(\"Ordered\",\n  contains = \"factor\",\n  slots = c(\n    levels  = \"character\",\n    ordered = \"logical\"\n  ),\n  prototype = structure(\n    integer(),\n    levels  = character(),\n    ordered = logical()\n  )\n)\n\nsetOldClass(\"ordered\", S4Class = \"Ordered\")\nx <- new(\"Ordered\", 1L:4L, levels = letters[1:4], ordered = TRUE)\n\nx\n#> Object of class \"Ordered\"\n#> [1] a b c d\n#> Levels: a b c d\n#> Slot \"ordered\":\n#> [1] TRUE\n\nstr(x)\n#> Formal class 'Ordered' [package \".GlobalEnv\"] with 4 slots\n#>   ..@ .Data   : int [1:4] 1 2 3 4\n#>   ..@ levels  : chr [1:4] \"a\" \"b\" \"c\" \"d\"\n#>   ..@ ordered : logi TRUE\n#>   ..@ .S3Class: chr \"factor\"\n\nclass(x)\n#> [1] \"Ordered\"\n#> attr(,\"package\")\n#> [1] \".GlobalEnv\"\nFriends <- new(\"Person\", name = c(\"Vishu\", \"Aditi\"))\nlength.Person <- function(x) length(x@name)\n\nlength(Friends)\n#> [1] 2\nsetMethod(\"length\", \"Person\", function(x) length(x@name))\n\nlength(Friends)\n#> [1] 2"},{"path":"s4.html","id":"session-information-12","chapter":"15 S4","heading":"15.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version    date (UTC) lib source\n#>  assertthat    0.2.1      2019-03-21 [1] RSPM\n#>  base        * 4.3.2      2023-11-01 [3] local\n#>  bookdown      0.37       2023-12-01 [1] RSPM\n#>  bslib         0.6.1      2023-11-28 [1] RSPM\n#>  cachem        1.0.8      2023-05-01 [1] RSPM\n#>  cli           3.6.2      2023-12-11 [1] RSPM\n#>  compiler      4.3.2      2023-11-01 [3] local\n#>  crayon        1.5.2      2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2      2023-11-01 [3] local\n#>  digest        0.6.33     2023-07-07 [1] RSPM\n#>  downlit       0.4.3      2023-06-29 [1] RSPM\n#>  emo           0.0.0.9000 2023-11-05 [1] Github (hadley/emo@3f03b11)\n#>  evaluate      0.23       2023-11-01 [1] RSPM\n#>  fastmap       1.1.1      2023-02-24 [1] RSPM\n#>  fs            1.6.3      2023-07-20 [1] RSPM\n#>  generics      0.1.3      2022-07-05 [1] RSPM\n#>  glue          1.6.2      2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2      2023-11-01 [3] local\n#>  grDevices   * 4.3.2      2023-11-01 [3] local\n#>  highr         0.10       2022-12-22 [1] RSPM\n#>  htmltools     0.5.7      2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4      2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8      2023-12-04 [1] RSPM\n#>  knitr         1.45       2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4      2023-11-07 [1] RSPM\n#>  lubridate   * 1.9.3      2023-09-27 [1] RSPM\n#>  magrittr    * 2.0.3      2022-03-30 [1] RSPM\n#>  memoise       2.0.1      2021-11-26 [1] RSPM\n#>  methods     * 4.3.2      2023-11-01 [3] local\n#>  purrr         1.0.2      2023-08-10 [1] RSPM\n#>  R6            2.5.1      2021-08-19 [1] RSPM\n#>  rlang         1.1.2      2023-11-04 [1] RSPM\n#>  rmarkdown     2.25       2023-09-18 [1] RSPM\n#>  sass          0.4.8      2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2      2021-12-06 [1] RSPM\n#>  stats       * 4.3.2      2023-11-01 [3] local\n#>  stringi       1.8.3      2023-12-11 [1] RSPM\n#>  stringr       1.5.1      2023-11-14 [1] RSPM\n#>  timechange    0.2.0      2023-01-11 [1] RSPM\n#>  tools         4.3.2      2023-11-01 [3] local\n#>  utils       * 4.3.2      2023-11-01 [3] local\n#>  vctrs         0.6.5      2023-12-01 [1] RSPM\n#>  withr         2.5.2      2023-10-30 [1] RSPM\n#>  xfun          0.41       2023-11-01 [1] RSPM\n#>  xml2          1.3.6      2023-12-04 [1] RSPM\n#>  yaml          2.3.8      2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"trade-offs.html","id":"trade-offs","chapter":"16 Trade-offs","heading":"16 Trade-offs","text":"exercises.","code":""},{"path":"big-picture.html","id":"big-picture","chapter":"17 Big Picture","heading":"17 Big Picture","text":"exercises.","code":""},{"path":"expressions.html","id":"expressions","chapter":"18 Expressions","heading":"18 Expressions","text":"Attaching needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)\nlibrary(lobstr, warn.conflicts = FALSE)"},{"path":"expressions.html","id":"abstract-syntax-trees-exercises-18.2.4","chapter":"18 Expressions","heading":"18.1 Abstract syntax trees (Exercises 18.2.4)","text":"Q1. Reconstruct code represented trees :A1. reconstructed code.can confirm drawing ASTs :Q2. Draw following trees hand check answers ast().A2. Successfully drawn hand. Checking using ast():Q3. ’s happening ASTs ? (Hint: carefully read ?\"^\".)A3. str2expression() helps make sense ASTs.non-syntactic names parsed names. Thus, backticks removed AST.mentioned docs ^:** translated parser ^rightward assignment parsed leftward assignment:Q4. special AST ?A4. mentioned section:Like objects R, functions can also possess number additional attributes(). One attribute used base R srcref, short source reference. points source code used create function. srcref used printing , unlike body(), contains code comments formatting.Therefore, last leaf AST, although specified function call, represents source reference attribute.Q5. call tree statement multiple else conditions look like? ?A5. nothing special tree. just shows nested loop structure inherent code multiple else statements.","code":"#> █─f \n#> └─█─g \n#>   └─█─h\n#> █─`+` \n#> ├─█─`+` \n#> │ ├─1 \n#> │ └─2 \n#> └─3\n#> █─`*` \n#> ├─█─`(` \n#> │ └─█─`+` \n#> │   ├─x \n#> │   └─y \n#> └─z\nf(g(h()))\n1 + 2 + 3\n(x + y) * z\nast(f(g(h())))\n#> █─f \n#> └─█─g \n#>   └─█─h\n\nast(1 + 2 + 3)\n#> █─`+` \n#> ├─█─`+` \n#> │ ├─1 \n#> │ └─2 \n#> └─3\n\nast((x + y) * z)\n#> █─`*` \n#> ├─█─`(` \n#> │ └─█─`+` \n#> │   ├─x \n#> │   └─y \n#> └─z\nf(g(h(i(1, 2, 3))))\nf(1, g(2, h(3, i())))\nf(g(1, 2), h(3, i(4, 5)))\nast(f(g(h(i(1, 2, 3)))))\n#> █─f \n#> └─█─g \n#>   └─█─h \n#>     └─█─i \n#>       ├─1 \n#>       ├─2 \n#>       └─3\n\nast(f(1, g(2, h(3, i()))))\n#> █─f \n#> ├─1 \n#> └─█─g \n#>   ├─2 \n#>   └─█─h \n#>     ├─3 \n#>     └─█─i\n\nast(f(g(1, 2), h(3, i(4, 5))))\n#> █─f \n#> ├─█─g \n#> │ ├─1 \n#> │ └─2 \n#> └─█─h \n#>   ├─3 \n#>   └─█─i \n#>     ├─4 \n#>     └─5\nast(`x` + `y`)\n#> █─`+` \n#> ├─x \n#> └─y\nast(x**y)\n#> █─`^` \n#> ├─x \n#> └─y\nast(1 -> x)\n#> █─`<-` \n#> ├─x \n#> └─1\nstr2expression(\"`x` + `y`\")\n#> expression(x + y)\nstr2expression(\"x**y\")\n#> expression(x^y)\nstr2expression(\"1 -> x\")\n#> expression(x <- 1)\nast(function(x = 1, y = 2) {})\n#> █─`function` \n#> ├─█─x = 1 \n#> │ └─y = 2 \n#> ├─█─`{` \n#> └─<inline srcref>\nast(if (FALSE) 1 else if (FALSE) 2 else if (FALSE) 3 else 4)\n#> █─`if` \n#> ├─FALSE \n#> ├─1 \n#> └─█─`if` \n#>   ├─FALSE \n#>   ├─2 \n#>   └─█─`if` \n#>     ├─FALSE \n#>     ├─3 \n#>     └─4"},{"path":"expressions.html","id":"expressions-exercises-18.3.5","chapter":"18 Expressions","heading":"18.2 Expressions (Exercises 18.3.5)","text":"Q1. two six types atomic vector can’t appear expression? ? Similarly, can’t create expression contains atomic vector length greater one?A1. six types atomic vectors, two can’t appear expression : complex raw.Complex numbers created via function call (using +), can seen AST:Similarly, raw vectors (using raw()):Contrast atomic vectors:reason, can’t create expression contains atomic vector length greater one since function call uses c() function:Q2. happens subset call object remove first element? e.g. expr(read.csv(\"foo.csv\", header = TRUE))[-1]. ?A2. captured function call like following creates call object:mentioned respective section:first element call object function position.Therefore, first element call object removed, next one moves function position, get observed output:Q3. Describe differences following call objects.A4. differences constructed call objects due different type arguments supplied first two parameters call2() function.Types arguments supplied .fn:Types arguments supplied dynamic dots:following outputs can understood using following properties:.fn argument closure, function inlined constructed function callwhen x symbol, value passed function callImportantly, constructed call objects evaluate give result:Q4. call_standardise() doesn’t work well following calls. ? makes mean() special?A4. ellipsis mean() function signature:mentioned respective section:function uses ... ’s possible standardise arguments.mean() S3 generic dots passed underlying S3 methods., output can improved using specific method. example:Q5. code make sense?A5. doesn’t make sense first position call object reserved function (function position), assigning names element just ignored R:Q6. Construct expression (x > 1) \"\" else \"b\" using multiple calls call2(). code structure reflect structure AST?A6. Using multiple calls construct required expression:construction follows prefix form expression, revealed AST:","code":"\nx_complex <- expr(1 + 1i)\ntypeof(x_complex)\n#> [1] \"language\"\n\nast(1 + 1i)\n#> █─`+` \n#> ├─1 \n#> └─1i\nx_raw <- expr(raw(2))\ntypeof(x_raw)\n#> [1] \"language\"\n\nast(raw(2))\n#> █─raw \n#> └─2\nx_int <- expr(2L)\ntypeof(x_int)\n#> [1] \"integer\"\n\nast(2L)\n#> 2L\nx_vec <- expr(c(1, 2))\ntypeof(x_vec)\n#> [1] \"language\"\n\nast(c(1, 2))\n#> █─c \n#> ├─1 \n#> └─2\nexpr(read.csv(\"foo.csv\", header = TRUE))\n#> read.csv(\"foo.csv\", header = TRUE)\n\ntypeof(expr(read.csv(\"foo.csv\", header = TRUE)))\n#> [1] \"language\"\nexpr(read.csv(\"foo.csv\", header = TRUE))[-1]\n#> \"foo.csv\"(header = TRUE)\nx <- 1:10\ncall2(median, x, na.rm = TRUE)\ncall2(expr(median), x, na.rm = TRUE)\ncall2(median, expr(x), na.rm = TRUE)\ncall2(expr(median), expr(x), na.rm = TRUE)\ntypeof(median)\n#> [1] \"closure\"\ntypeof(expr(median))\n#> [1] \"symbol\"\nx <- 1:10\ntypeof(x)\n#> [1] \"integer\"\ntypeof(expr(x))\n#> [1] \"symbol\"\nx <- 1:10\n\ncall2(median, x, na.rm = TRUE)\n#> (function (x, na.rm = FALSE, ...) \n#> UseMethod(\"median\"))(1:10, na.rm = TRUE)\n\ncall2(expr(median), x, na.rm = TRUE)\n#> median(1:10, na.rm = TRUE)\n\ncall2(median, expr(x), na.rm = TRUE)\n#> (function (x, na.rm = FALSE, ...) \n#> UseMethod(\"median\"))(x, na.rm = TRUE)\n\ncall2(expr(median), expr(x), na.rm = TRUE)\n#> median(x, na.rm = TRUE)\nx <- 1:10\n\neval(call2(median, x, na.rm = TRUE))\n#> [1] 5.5\n\neval(call2(expr(median), x, na.rm = TRUE))\n#> [1] 5.5\n\neval(call2(median, expr(x), na.rm = TRUE))\n#> [1] 5.5\n\neval(call2(expr(median), expr(x), na.rm = TRUE))\n#> [1] 5.5\ncall_standardise(quote(mean(1:10, na.rm = TRUE)))\n#> Warning: `call_standardise()` is deprecated as of rlang 0.4.11\n#> This warning is displayed once every 8 hours.\n#> mean(x = 1:10, na.rm = TRUE)\ncall_standardise(quote(mean(n = T, 1:10)))\n#> mean(x = 1:10, n = T)\ncall_standardise(quote(mean(x = 1:10, , TRUE)))\n#> mean(x = 1:10, , TRUE)\nmean\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x562fc13895a8>\n#> <environment: namespace:base>\ncall_standardise(quote(mean.default(n = T, 1:10)))\n#> mean.default(x = 1:10, na.rm = T)\nx <- expr(foo(x = 1))\nnames(x) <- c(\"x\", \"y\")\nx <- expr(foo(x = 1))\nx\n#> foo(x = 1)\n\nnames(x) <- c(\"x\", \"y\")\nx\n#> foo(y = 1)\nx <- 5\ncall_obj1 <- call2(\">\", expr(x), 1)\ncall_obj1\n#> x > 1\n\ncall_obj2 <- call2(\"if\", cond = call_obj1, cons.expr = \"a\", alt.expr = \"b\")\ncall_obj2\n#> if (x > 1) \"a\" else \"b\"\nast(if (x > 1) \"a\" else \"b\")\n#> █─`if` \n#> ├─█─`>` \n#> │ ├─x \n#> │ └─1 \n#> ├─\"a\" \n#> └─\"b\""},{"path":"expressions.html","id":"parsing-and-grammar-exercises-18.4.4","chapter":"18 Expressions","heading":"18.3 Parsing and grammar (Exercises 18.4.4)","text":"Q1. R uses parentheses two slightly different ways illustrated two calls:Compare contrast two uses referencing AST.A1. Let’s first look AST:, can see ( used two separate ways:function right \"`(`\"part prefix syntax (f()), AST f((1)), see one \"`(`\" (first use case), f(), part function syntax (second use case).Q2. = can also used two ways. Construct simple example shows uses.A2. simple example illustrating = can also used two ways:assignmentfor named arguments function callsWe can also look AST:Q3. -2^2 yield 4 -4? ?A3. expression -2^2 evaluates -4 operator ^ higher precedence unary - operator:can also seen AST:less confusing way write :Q4. !1 + !1 return? ?A3. expression !1 + !1 evaluates FALSE.! operator higher precedence unary + operator. Thus, !1 evaluates FALSE, added 1 + FALSE, evaluates 1, logically negated !1, FALSE.can easily seen AST:Q5. x1 <- x2 <- x3 <- 0 work? Describe two reasons.A5. two reasons following works expected:<- operator right associative.Therefore, order assignment :<- operator invisibly returns assigned value.easy surmise AST:Q6. Compare ASTs x + y %+% z x ^ y %+% z. learned precedence custom infix functions?A6. Looking ASTs expressions,can say custom infix operator %+% :higher precedence + operatorlower precedence ^ operatorQ7. happens call parse_expr() string generates multiple expressions? e.g. parse_expr(\"x + 1; y + 1\")A7. produced error:expected based docs:parse_expr() returns one expression. text contains one expression (separated semicolons new lines), error issued.instead need use parse_exprs():Q8. happens attempt parse invalid expression? e.g. \"+\" \"f())\".A8. invalid expression produces error:Since underlying parse() function produces error:Q9. deparse() produces vectors input long. example, following call produces vector length two:expr_text() instead?A9. difference deparse() expr_text() latter turns (possibly multi-line) expression single string.Q10. pairwise.t.test() assumes deparse() always returns length one character vector. Can construct input violates expectation? happens?A10 Since R 4.0, possible violate expectation since new implementation produces single string matter input:New function deparse1() produces one string, wrapping deparse(), used typically deparse1(substitute(*))","code":"\nf((1))\n`(`(1 + 1)\nast(f((1)))\n#> █─f \n#> └─█─`(` \n#>   └─1\nast(`(`(1 + 1))\n#> █─`(` \n#> └─█─`+` \n#>   ├─1 \n#>   └─1\nm <- mean(x = 1)\nast({\n  m <- mean(x = 1)\n})\n#> █─`{` \n#> └─█─`<-` \n#>   ├─m \n#>   └─█─mean \n#>     └─x = 1\n-2^2\n#> [1] -4\nast(-2^2)\n#> █─`-` \n#> └─█─`^` \n#>   ├─2 \n#>   └─2\n-(2^2)\n#> [1] -4\nast(!1 + !1)\n#> █─`!` \n#> └─█─`+` \n#>   ├─1 \n#>   └─█─`!` \n#>     └─1\nx1 <- x2 <- x3 <- 0\n(x3 <- 0)\n(x2 <- x3)\n(x1 <- x2)\n(x <- 1)\n#> [1] 1\nast(x1 <- x2 <- x3 <- 0)\n#> █─`<-` \n#> ├─x1 \n#> └─█─`<-` \n#>   ├─x2 \n#>   └─█─`<-` \n#>     ├─x3 \n#>     └─0\nast(x + y %+% z)\n#> █─`+` \n#> ├─x \n#> └─█─`%+%` \n#>   ├─y \n#>   └─z\n\nast(x^y %+% z)\n#> █─`%+%` \n#> ├─█─`^` \n#> │ ├─x \n#> │ └─y \n#> └─z\nparse_expr(\"x + 1; y + 1\")\n#> Error in `parse_expr()`:\n#> ! `x` must contain exactly 1 expression, not 2.\nparse_exprs(\"x + 1; y + 1\")\n#> [[1]]\n#> x + 1\n#> \n#> [[2]]\n#> y + 1\nparse_expr(\"a +\")\n#> Error in parse(text = x, keep.source = FALSE): <text>:2:0: unexpected end of input\n#> 1: a +\n#>    ^\n\nparse_expr(\"f())\")\n#> Error in parse(text = x, keep.source = FALSE): <text>:1:4: unexpected ')'\n#> 1: f())\n#>        ^\nparse(text = \"a +\")\n#> Error in parse(text = \"a +\"): <text>:2:0: unexpected end of input\n#> 1: a +\n#>    ^\n\nparse(text = \"f())\")\n#> Error in parse(text = \"f())\"): <text>:1:4: unexpected ')'\n#> 1: f())\n#>        ^\nexpr <- expr(g(a + b + c + d + e + f + g + h + i + j + k + l +\n  m + n + o + p + q + r + s + t + u + v + w + x + y + z))\ndeparse(expr)\nexpr <- expr(g(a + b + c + d + e + f + g + h + i + j + k + l +\n  m + n + o + p + q + r + s + t + u + v + w + x + y + z))\n\ndeparse(expr)\n#> [1] \"g(a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + \"\n#> [2] \"    p + q + r + s + t + u + v + w + x + y + z)\"\n\nexpr_text(expr)\n#> [1] \"g(a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + \\n    p + q + r + s + t + u + v + w + x + y + z)\""},{"path":"expressions.html","id":"walking-ast-with-recursive-functions-exercises-18.5.3","chapter":"18 Expressions","heading":"18.4 Walking AST with recursive functions (Exercises 18.5.3)","text":"Q1. logical_abbr() returns TRUE T(1, 2, 3). modify logical_abbr_rec() ignores function calls use T F?A1. avoid function calls use T F, just need ignore function position call objects:Let’s try :Q2. logical_abbr() works expressions. currently fails give function. ? modify logical_abbr() make work? components function need recurse ?A2. Surprisingly, logical_abbr() currently doesn’t fail closures:see , let’s see type object produced capture user provided closure:Given closures converted call objects, surprise function works:function fails can’t find negative case. example, instead returning FALSE, produces error reasons remain (yet) elusive :Q3. Modify find_assign also detect assignment using replacement functions, .e. names(x) <- y.A3. Although simple assignment (x <- y) assignment using replacement functions (names(x) <- y) <- operator call, latter case, names(x) call object symbol:’s can detect kind assignment checking second element expression symbol language type object.Let’s try :Q4. Write function extracts calls specified function.A4. function extracts calls specified function:","code":"\nlogical_abbr_rec(expr(T(1, 2, 3)))\n#> [1] FALSE\n\nlogical_abbr_rec(expr(F(1, 2, 3)))\n#> [1] FALSE\n\nlogical_abbr_rec(expr(T))\n#> [1] TRUE\n\nlogical_abbr_rec(expr(F))\n#> [1] TRUE\nlogical_abbr(function(x = TRUE) {\n  g(x + T)\n})\nprint_enexpr <- function(.f) {\n  print(typeof(enexpr(.f)))\n  print(is.call(enexpr(.f)))\n}\n\nprint_enexpr(function(x = TRUE) {\n  g(x + T)\n})\n#> [1] \"language\"\n#> [1] TRUE\nlogical_abbr(function(x = TRUE) {\n  g(x + T)\n})\n#> [1] TRUE\nlogical_abbr(function(x = TRUE) {\n  g(x + TRUE)\n})\n#> Error: Don't know how to handle type integer\nexpr1 <- expr(names(x) <- y)\nas.list(expr1)\n#> [[1]]\n#> `<-`\n#> \n#> [[2]]\n#> names(x)\n#> \n#> [[3]]\n#> y\ntypeof(expr1[[2]])\n#> [1] \"language\"\n\nexpr2 <- expr(x <- y)\nas.list(expr2)\n#> [[1]]\n#> `<-`\n#> \n#> [[2]]\n#> x\n#> \n#> [[3]]\n#> y\ntypeof(expr2[[2]])\n#> [1] \"symbol\"\nexpr_type <- function(x) {\n  if (is_syntactic_literal(x)) {\n    \"constant\"\n  } else if (is.symbol(x)) {\n    \"symbol\"\n  } else if (is.call(x)) {\n    \"call\"\n  } else if (is.pairlist(x)) {\n    \"pairlist\"\n  } else {\n    typeof(x)\n  }\n}\n\nswitch_expr <- function(x, ...) {\n  switch(expr_type(x),\n    ...,\n    stop(\"Don't know how to handle type \", typeof(x), call. = FALSE)\n  )\n}\n\nflat_map_chr <- function(.x, .f, ...) {\n  purrr::flatten_chr(purrr::map(.x, .f, ...))\n}\n\nextract_symbol <- function(x) {\n  if (is_symbol(x[[2]])) {\n    as_string(x[[2]])\n  } else {\n    extract_symbol(as.list(x[[2]]))\n  }\n}\n\nfind_assign_call <- function(x) {\n  if (is_call(x, \"<-\") && is_symbol(x[[2]])) {\n    lhs <- as_string(x[[2]])\n    children <- as.list(x)[-1]\n  } else if (is_call(x, \"<-\") && is_call(x[[2]])) {\n    lhs <- extract_symbol(as.list(x[[2]]))\n    children <- as.list(x)[-1]\n  } else {\n    lhs <- character()\n    children <- as.list(x)\n  }\n\n  c(lhs, flat_map_chr(children, find_assign_rec))\n}\n\nfind_assign_rec <- function(x) {\n  switch_expr(x,\n    # Base cases\n    constant = ,\n    symbol = character(),\n\n    # Recursive cases\n    pairlist = flat_map_chr(x, find_assign_rec),\n    call = find_assign_call(x)\n  )\n}\n\nfind_assign <- function(x) find_assign_rec(enexpr(x))\nfind_assign(names(x))\n#> character(0)\n\nfind_assign(names(x) <- y)\n#> [1] \"x\"\n\nfind_assign(names(f(x)) <- y)\n#> [1] \"x\"\n\nfind_assign(names(x) <- y <- z <- NULL)\n#> [1] \"x\" \"y\" \"z\"\n\nfind_assign(a <- b <- c <- 1)\n#> [1] \"a\" \"b\" \"c\"\n\nfind_assign(system.time(x <- print(y <- 5)))\n#> [1] \"x\" \"y\"\nfind_function_call <- function(x, .f) {\n  if (is_call(x)) {\n    if (is_call(x, .f)) {\n      list(x)\n    } else {\n      purrr::map(as.list(x), ~ find_function_call(.x, .f)) %>%\n        purrr::compact() %>%\n        unlist(use.names = FALSE)\n    }\n  }\n}\n\n# example-1: with infix operator `:`\nfind_function_call(expr(mean(1:2)), \":\")\n#> [[1]]\n#> 1:2\n\nfind_function_call(expr(sum(mean(1:2))), \":\")\n#> [[1]]\n#> 1:2\n\nfind_function_call(expr(list(1:5, 4:6, 3:9)), \":\")\n#> [[1]]\n#> 1:5\n#> \n#> [[2]]\n#> 4:6\n#> \n#> [[3]]\n#> 3:9\n\nfind_function_call(expr(list(1:5, sum(4:6), mean(3:9))), \":\")\n#> [[1]]\n#> 1:5\n#> \n#> [[2]]\n#> 4:6\n#> \n#> [[3]]\n#> 3:9\n\n# example-2: with assignment operator `<-`\nfind_function_call(expr(names(x)), \"<-\")\n#> NULL\n\nfind_function_call(expr(names(x) <- y), \"<-\")\n#> [[1]]\n#> names(x) <- y\n\nfind_function_call(expr(names(f(x)) <- y), \"<-\")\n#> [[1]]\n#> names(f(x)) <- y\n\nfind_function_call(expr(names(x) <- y <- z <- NULL), \"<-\")\n#> [[1]]\n#> names(x) <- y <- z <- NULL\n\nfind_function_call(expr(a <- b <- c <- 1), \"<-\")\n#> [[1]]\n#> a <- b <- c <- 1\n\nfind_function_call(expr(system.time(x <- print(y <- 5))), \"<-\")\n#> [[1]]\n#> x <- print(y <- 5)"},{"path":"expressions.html","id":"session-information-13","chapter":"18 Expressions","heading":"18.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr      * 1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"quasiquotation.html","id":"quasiquotation","chapter":"19 Quasiquotation","heading":"19 Quasiquotation","text":"Attaching needed libraries:","code":"\nlibrary(rlang)\nlibrary(purrr)\nlibrary(lobstr)\nlibrary(dplyr)\nlibrary(ggplot2)"},{"path":"quasiquotation.html","id":"motivation-exercises-19.2.2","chapter":"19 Quasiquotation","heading":"19.1 Motivation (Exercises 19.2.2)","text":"Q1. function following base R code, identify arguments quoted evaluated.A1. identify arguments quoted evaluated, can use trick mentioned book:’re ever unsure whether argument quoted evaluated, try executing code outside function. doesn’t work something different, argument quoted.library(MASS)package argument library() quoted:subset(mtcars, cyl == 4)argument x evaluated, argument subset quoted.(mtcars2, sum(vs))argument data evaluated, expr argument quoted.sum(mtcars2$)argument ... evaluated.rm(mtcars2)trick using far won’t work since trying print mtcars2 always fail rm() made pass .can instead look docs ...:… objects removed, names (unquoted) character strings (quoted).Thus, argument evaluated, rather quoted.Q2. function following tidyverse code, identify arguments quoted evaluated.A2. seen answer Q1., library() quotes first argument:following code:%>% (lazily) evaluates argumentgroup_by() summarise() quote argumentsIn following code:ggplot() evaluates data argumentaes() quotes arguments","code":"\nlibrary(MASS)\n\nmtcars2 <- subset(mtcars, cyl == 4)\n\nwith(mtcars2, sum(vs))\nsum(mtcars2$am)\n\nrm(mtcars2)\nlibrary(MASS)\n\nMASS\n#> Error in eval(expr, envir, enclos): object 'MASS' not found\nmtcars2 <- subset(mtcars, cyl == 4)\n\ninvisible(mtcars)\n\ncyl == 4\n#> Error in eval(expr, envir, enclos): object 'cyl' not found\nwith(mtcars2, sum(vs))\n#> [1] 10\n\ninvisible(mtcars2)\n\nsum(vs)\n#> Error in eval(expr, envir, enclos): object 'vs' not found\nsum(mtcars2$am)\n#> [1] 8\n\nmtcars2$am\n#>  [1] 1 0 0 1 1 1 0 1 1 1 1\nrm(mtcars2)\nlibrary(dplyr)\nlibrary(ggplot2)\n\nby_cyl <- mtcars %>%\n  group_by(cyl) %>%\n  summarise(mean = mean(mpg))\n\nggplot(by_cyl, aes(cyl, mean)) +\n  geom_point()\nlibrary(dplyr)\nlibrary(ggplot2)\nby_cyl <- mtcars %>%\n  group_by(cyl) %>%\n  summarise(mean = mean(mpg))\nggplot(by_cyl, aes(cyl, mean)) +\n  geom_point()"},{"path":"quasiquotation.html","id":"quoting-exercises-19.3.6","chapter":"19 Quasiquotation","heading":"19.2 Quoting (Exercises 19.3.6)","text":"Q1. expr() implemented? Look source code.A1. Looking source code, can see expr() simple wrapper around enexpr(), captures returns user-entered expressions:example:turn, enexpr() calls native code:Q2. Compare contrast following two functions. Can predict output running ?A2. exprs() captures returns expressions specified developer instead values:hand, enexprs() captures user-entered expressions returns values:Q3. happens try use enexpr() expression (.e. enexpr(x + y)? happens enexpr() passed missing argument?A3. try use enexpr() expression, fails works symbol.enexpr() passed missing argument, returns missing argument:Q4. exprs() exprs(= ) different? Think input output.A4. key difference exprs() exprs(= ) former return unnamed list, latter return named list. former interpreted unnamed argument, latter named argument.cases, treated symbol:, argument missing latter case, since name corresponding value provided:Q5. differences exprs() alist()? Read documentation named arguments exprs() find .A5. additional differences exprs() alist().Names: inputs named, exprs() provides way name automatically using .named argument.Ignoring empty arguments: .ignore_empty argument exprs() gives much finer control empty arguments, alist() doesn’t provide way ignore arguments.Names injection: Using .unquote_names argument exprs(), can inject name argument.Q6. documentation substitute() says:Substitution takes place examining component parse tree\nfollows:bound symbol env, unchanged.promise object (.e., formal argument function)\nexpression slot promise replaces symbol.ordinary variable, value substituted, unless\nenv .GlobalEnv case symbol left unchanged.Create examples illustrate cases.A6. See examples illustrate -mentioned cases.bound symbol env, unchanged.Symbol x bound env, remains unchanged.promise object (.e., formal argument function)\nexpression slot promise replaces symbol.ordinary variable, value substituted, unless\nenv .GlobalEnv case symbol left unchanged.","code":"\nrlang::expr\n#> function (expr) \n#> {\n#>     enexpr(expr)\n#> }\n#> <bytecode: 0x5584f9fd1728>\n#> <environment: namespace:rlang>\nx <- expr(x <- 1)\nx\n#> x <- 1\nrlang::enexpr\n#> function (arg) \n#> {\n#>     .Call(ffi_enexpr, substitute(arg), parent.frame())\n#> }\n#> <bytecode: 0x5584f6b2cae0>\n#> <environment: namespace:rlang>\nf1 <- function(x, y) {\n  exprs(x = x, y = y)\n}\nf2 <- function(x, y) {\n  enexprs(x = x, y = y)\n}\nf1(a + b, c + d)\nf2(a + b, c + d)\nf1 <- function(x, y) {\n  exprs(x = x, y = y)\n}\n\nf1(a + b, c + d)\n#> $x\n#> x\n#> \n#> $y\n#> y\nf2 <- function(x, y) {\n  enexprs(x = x, y = y)\n}\n\nf2(a + b, c + d)\n#> $x\n#> a + b\n#> \n#> $y\n#> c + d\nenexpr(x + y)\n#> Error in `enexpr()`:\n#> ! `arg` must be a symbol\narg <- missing_arg()\n\nenexpr(arg)\n\nis_missing(enexpr(arg))\n#> [1] TRUE\nexprs(a)\n#> [[1]]\n#> a\n\nexprs(a = )\n#> $a\nmap_lgl(exprs(a), is_symbol)\n#>      \n#> TRUE\n\nmap_lgl(exprs(a = ), is_symbol)\n#>    a \n#> TRUE\nmap_lgl(exprs(a), is_missing)\n#>       \n#> FALSE\n\nmap_lgl(exprs(a = ), is_missing)\n#>    a \n#> TRUE\nalist(\"x\" = 1, TRUE, \"z\" = expr(x + y))\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> [1] TRUE\n#> \n#> $z\n#> expr(x + y)\n\nexprs(\"x\" = 1, TRUE, \"z\" = expr(x + y), .named = TRUE)\n#> $x\n#> [1] 1\n#> \n#> $`TRUE`\n#> [1] TRUE\n#> \n#> $z\n#> expr(x + y)\nalist(\"x\" = 1, , TRUE, )\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> \n#> \n#> [[3]]\n#> [1] TRUE\n#> \n#> [[4]]\n\nexprs(\"x\" = 1, , TRUE, , .ignore_empty = \"trailing\")\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> \n#> \n#> [[3]]\n#> [1] TRUE\n\nexprs(\"x\" = 1, , TRUE, , .ignore_empty = \"none\")\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> \n#> \n#> [[3]]\n#> [1] TRUE\n#> \n#> [[4]]\n\nexprs(\"x\" = 1, , TRUE, , .ignore_empty = \"all\")\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> [1] TRUE\nalist(foo := bar)\n#> [[1]]\n#> `:=`(foo, bar)\n\nexprs(foo := bar, .unquote_names = FALSE)\n#> [[1]]\n#> `:=`(foo, bar)\n\nexprs(foo := bar, .unquote_names = TRUE)\n#> $foo\n#> bar\nsubstitute(x + y, env = list(y = 2))\n#> x + 2\nmsg <- \"old\"\ndelayedAssign(\"myVar\", msg) # creates a promise\nsubstitute(myVar)\n#> myVar\nmsg <- \"new!\"\nmyVar\n#> [1] \"new!\"\nsubstitute(x + y, env = env(x = 2, y = 1))\n#> 2 + 1\n\nx <- 2\ny <- 1\nsubstitute(x + y, env = .GlobalEnv)\n#> x + y"},{"path":"quasiquotation.html","id":"unquoting-exercises-19.4.8","chapter":"19 Quasiquotation","heading":"19.3 Unquoting (Exercises 19.4.8)","text":"Q1. Given following components:Use quasiquotation construct following calls:A1. Using quasiquotation construct specified calls:Q2. following two calls print , actually different:’s difference? one natural?A2. can see difference two expression convert lists:can seen, second element call object, b integer vector:can also noticed ASTs expressions:first call natural, since second one inlines vector directly call, something rarely done.","code":"\nxy <- expr(x + y)\nxz <- expr(x + z)\nyz <- expr(y + z)\nabc <- exprs(a, b, c)\n(x + y) / (y + z)\n-(x + z)^(y + z)\n(x + y) + (y + z) - (x + y)\natan2(x + y, y + z)\nsum(x + y, x + y, y + z)\nsum(a, b, c)\nmean(c(a, b, c), na.rm = TRUE)\nfoo(a = x + y, b = y + z)\nxy <- expr(x + y)\nxz <- expr(x + z)\nyz <- expr(y + z)\nabc <- exprs(a, b, c)\n\nexpr((!!xy) / (!!yz))\n#> (x + y)/(y + z)\n\nexpr(-(!!xz)^(!!yz))\n#> -(x + z)^(y + z)\n\nexpr(((!!xy)) + (!!yz) - (!!xy))\n#> (x + y) + (y + z) - (x + y)\n\ncall2(\"atan2\", expr(!!xy), expr(!!yz))\n#> atan2(x + y, y + z)\n\ncall2(\"sum\", expr(!!xy), expr(!!xy), expr(!!yz))\n#> sum(x + y, x + y, y + z)\n\ncall2(\"sum\", !!!abc)\n#> sum(a, b, c)\n\nexpr(mean(c(!!!abc), na.rm = TRUE))\n#> mean(c(a, b, c), na.rm = TRUE)\n\ncall2(\"foo\", a = expr(!!xy), b = expr(!!yz))\n#> foo(a = x + y, b = y + z)\n(a <- expr(mean(1:10)))\n#> mean(1:10)\n(b <- expr(mean(!!(1:10))))\n#> mean(1:10)\nidentical(a, b)\n#> [1] FALSE\nas.list(expr(mean(1:10)))\n#> [[1]]\n#> mean\n#> \n#> [[2]]\n#> 1:10\n\nas.list(expr(mean(!!(1:10))))\n#> [[1]]\n#> mean\n#> \n#> [[2]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\nwaldo::compare(a, b)\n#> `old[[2]]` is a call\n#> `new[[2]]` is an integer vector (1, 2, 3, 4, 5, ...)\nast(expr(mean(1:10)))\n#> █─expr \n#> └─█─mean \n#>   └─█─`:` \n#>     ├─1 \n#>     └─10\n\nast(expr(mean(!!(1:10))))\n#> █─expr \n#> └─█─mean \n#>   └─<inline integer>"},{"path":"quasiquotation.html","id":"dot-dot-dot-exercises-19.6.5","chapter":"19 Quasiquotation","heading":"19.4 ... (dot-dot-dot) (Exercises 19.6.5)","text":"Q1. One way implement exec() shown . Describe works. key ideas?A1. keys ideas underlie implementation exec() function following:constructs call using function f argument ..., evaluates call environment .env.constructs call using function f argument ..., evaluates call environment .env.uses dynamic dots via list2(), means can splice arguments using !!!, can inject names using :=, trailing commas problem.uses dynamic dots via list2(), means can splice arguments using !!!, can inject names using :=, trailing commas problem.example:Q2. Carefully read source code interaction(), expand.grid(), par(). Compare contrast techniques use switching dots list behaviour.A2. Source code reveals following comparison table:functions capture dots list.Using dots, functions check:list entered argument checking number argumentsif count 1, checking argument listQ3. Explain problem definition set_attr()A3. set_attr() function signature parameter called x, additionally uses dynamic dots pass multiple arguments specify additional attributes x., shown example, creates problem attribute named x. Naming arguments won’t help either:can avoid issues renaming parameter:","code":"\nexec <- function(f, ..., .env = caller_env()) {\n  args <- list2(...)\n  do.call(f, args, envir = .env)\n}\nvec <- c(1:5, NA)\nargs_list <- list(trim = 0, na.rm = TRUE)\n\nexec(mean, vec, !!!args_list, , .env = caller_env())\n#> [1] 3\n\nrm(\"exec\")\nset_attr <- function(x, ...) {\n  attr <- rlang::list2(...)\n  attributes(x) <- attr\n  x\n}\nset_attr(1:10, x = 10)\n#> Error in attributes(x) <- attr: attributes must be named\nset_attr <- function(x, ...) {\n  attr <- rlang::list2(...)\n  attributes(x) <- attr\n  x\n}\nset_attr(x = 1:10, x = 10)\n#> Error in set_attr(x = 1:10, x = 10): formal argument \"x\" matched by multiple actual arguments\nset_attr <- function(.x, ...) {\n  attr <- rlang::list2(...)\n  attributes(.x) <- attr\n  .x\n}\n\nset_attr(.x = 1:10, x = 10)\n#>  [1]  1  2  3  4  5  6  7  8  9 10\n#> attr(,\"x\")\n#> [1] 10"},{"path":"quasiquotation.html","id":"case-studies-exercises-19.7.5","chapter":"19 Quasiquotation","heading":"19.5 Case studies (Exercises 19.7.5)","text":"Q1. linear-model example, replace expr() reduce(summands, ~ expr(!!.x + !!.y)) call2(): reduce(summands, call2, \"+\"). Compare contrast two approaches. think easier read?A1. can rewrite linear() function chapter using call2() follows:personally find version call2() much readable since !! syntax bit esoteric.Q2. Re-implement Box-Cox transform defined using unquoting new_function():A2. Re-implementation Box-Cox transform using unquoting new_function():Let’s try see produces output :Q3. Re-implement simple compose() defined using quasiquotation new_function():A3. Following re-implementation compose() using quasiquotation new_function():Checking new version behaves way original version:","code":"\nlinear <- function(var, val) {\n  var <- ensym(var)\n  coef_name <- map(seq_along(val[-1]), ~ expr((!!var)[[!!.x]]))\n\n  summands <- map2(val[-1], coef_name, ~ expr((!!.x * !!.y)))\n  summands <- c(val[[1]], summands)\n\n  reduce(summands, ~ call2(\"+\", .x, .y))\n}\n\nlinear(x, c(10, 5, -4))\n#> 10 + (5 * x[[1L]]) + (-4 * x[[2L]])\nbc <- function(lambda) {\n  if (lambda == 0) {\n    function(x) log(x)\n  } else {\n    function(x) (x^lambda - 1) / lambda\n  }\n}\nbc_new <- function(lambda) {\n  lambda <- enexpr(lambda)\n\n  if (!!lambda == 0) {\n    new_function(\n      exprs(x = ),\n      expr(log(x))\n    )\n  } else {\n    new_function(\n      exprs(x = ),\n      expr((x^(!!lambda) - 1) / (!!lambda))\n    )\n  }\n}\nbc(0)(1)\n#> [1] 0\nbc_new(0)(1)\n#> [1] 0\n\nbc(2)(2)\n#> [1] 1.5\nbc_new(2)(2)\n#> [1] 1.5\ncompose <- function(f, g) {\n  function(...) f(g(...))\n}\ncompose_new <- function(f, g) {\n  f <- enexpr(f) # or ensym(f)\n  g <- enexpr(g) # or ensym(g)\n\n  new_function(\n    exprs(... = ),\n    expr((!!f)((!!g)(...)))\n  )\n}\nnot_null <- compose(`!`, is.null)\nnot_null(4)\n#> [1] TRUE\n\nnot_null2 <- compose_new(`!`, is.null)\nnot_null2(4)\n#> [1] TRUE"},{"path":"quasiquotation.html","id":"session-information-14","chapter":"19 Quasiquotation","heading":"19.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  diffobj       0.3.5   2021-10-05 [1] RSPM\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  farver        2.1.1   2022-07-06 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  labeling      0.4.3   2023-08-29 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr      * 1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  MASS        * 7.3-60  2023-05-04 [3] CRAN (R 4.3.2)\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rematch2      2.1.2   2020-05-01 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales        1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  waldo         0.5.2   2023-11-02 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"evaluation.html","id":"evaluation","chapter":"20 Evaluation","heading":"20 Evaluation","text":"Attaching needed libraries:","code":"\nlibrary(rlang)"},{"path":"evaluation.html","id":"evaluation-basics-exercises-20.2.4","chapter":"20 Evaluation","heading":"20.1 Evaluation basics (Exercises 20.2.4)","text":"Q1. Carefully read documentation source(). environment use default? supply local = TRUE? provide custom environment?A1. parameter local source() decides environment parsed expressions evaluated.default local = FALSE, corresponds user’s workspace (global environment, .e.).local = TRUE, environment source() called used.specify custom environment, sys.source() function can used, provides envir parameter.Q2. Predict results following lines code:A2. Correctly predicted 😉Q3. Fill function bodies re-implement get() using sym() eval(), assign() using sym(), expr(), eval(). Don’t worry multiple ways choosing environment get() assign() support; assume user supplies explicitly.A3. required re-implementations:get()assign()Q4. Modify source2() returns result every expression, just last one. Can eliminate loop?A4. can use purrr::map() iterate every expression return result every expression:Q5. can make base::local() slightly easier understand spreading multiple lines:Explain local() works words. (Hint: might want print(call) help understand substitute() , read documentation remind environment new.env() inherit .)A5. order figure function works, let’s add suggested print(call):docs substitute() mention:Substituting quoting often cause confusion argument expression(…). result call expression constructor function needs evaluated eval give actual expression object.Thus, get actual expression object, quoted expression needs evaluated using eval():Finally, generated call evaluated caller environment. final function call looks like following:Note bindings x y found inner environment, bindings functions eval(), quote(), etc. found outer environment.","code":"\nwithr::with_tempdir(\n  code = {\n    f <- tempfile()\n    writeLines(\"rlang::env_print()\", f)\n    foo <- function() source(f, local = FALSE)\n    foo()\n  }\n)\n#> <environment: global>\n#> Parent: <environment: package:rlang>\n#> Bindings:\n#> • .Random.seed: <int>\n#> • foo: <fn>\n#> • f: <chr>\nwithr::with_tempdir(\n  code = {\n    f <- tempfile()\n    writeLines(\"rlang::env_print()\", f)\n    foo <- function() source(f, local = TRUE)\n    foo()\n  }\n)\n#> <environment: 0x564fa1bed6a8>\n#> Parent: <environment: global>\neval(expr(eval(expr(eval(expr(2 + 2))))))\neval(eval(expr(eval(expr(eval(expr(2 + 2)))))))\nexpr(eval(expr(eval(expr(eval(expr(2 + 2)))))))\neval(expr(eval(expr(eval(expr(2 + 2))))))\n#> [1] 4\n\neval(eval(expr(eval(expr(eval(expr(2 + 2)))))))\n#> [1] 4\n\nexpr(eval(expr(eval(expr(eval(expr(2 + 2)))))))\n#> eval(expr(eval(expr(eval(expr(2 + 2))))))\n# name is a string\nget2 <- function(name, env) {}\nassign2 <- function(name, value, env) {}\nget2 <- function(name, env = caller_env()) {\n  name <- sym(name)\n  eval(name, env)\n}\n\nx <- 2\n\nget2(\"x\")\n#> [1] 2\nget(\"x\")\n#> [1] 2\n\ny <- 1:4\nassign(\"y[1]\", 2)\n\nget2(\"y[1]\")\n#> [1] 2\nget(\"y[1]\")\n#> [1] 2\nassign2 <- function(name, value, env = caller_env()) {\n  name <- sym(name)\n  eval(expr(!!name <- !!value), env)\n}\n\nassign(\"y1\", 4)\ny1\n#> [1] 4\n\nassign2(\"y2\", 4)\ny2\n#> [1] 4\nsource2 <- function(path, env = caller_env()) {\n  file <- paste(readLines(path, warn = FALSE), collapse = \"\\n\")\n  exprs <- parse_exprs(file)\n  purrr::map(exprs, ~ eval(.x, env))\n}\n\nwithr::with_tempdir(\n  code = {\n    f <- tempfile(fileext = \".R\")\n    writeLines(\"1 + 1; 2 + 4\", f)\n    source2(f)\n  }\n)\n#> [[1]]\n#> [1] 2\n#> \n#> [[2]]\n#> [1] 6\nlocal3 <- function(expr, envir = new.env()) {\n  call <- substitute(eval(quote(expr), envir))\n  eval(call, envir = parent.frame())\n}\nlocal3 <- function(expr, envir = new.env()) {\n  call <- substitute(eval(quote(expr), envir))\n  print(call)\n\n  eval(call, envir = parent.frame())\n}\n\nlocal3({\n  x <- 10\n  y <- 200\n  x + y\n})\n#> eval(quote({\n#>     x <- 10\n#>     y <- 200\n#>     x + y\n#> }), new.env())\n#> [1] 210\nis_expression(eval(quote({\n  x <- 10\n  y <- 200\n  x + y\n}), new.env()))\n#> [1] TRUE\n# outer environment\neval(\n  # inner environment\n  eval(quote({\n    x <- 10\n    y <- 200\n    x + y\n  }), new.env()),\n  envir = parent.frame()\n)"},{"path":"evaluation.html","id":"quosures-exercises-20.3.6","chapter":"20 Evaluation","heading":"20.2 Quosures (Exercises 20.3.6)","text":"Q1. Predict following quosures return evaluated.A1. Correctly predicted 😉Q2. Write enenv() function captures environment associated argument. (Hint: require two function calls.)A2. can make use get_env() helper get environment associated argument:","code":"\nq1 <- new_quosure(expr(x), env(x = 1))\nq1\n#> <quosure>\n#> expr: ^x\n#> env:  0x564fa1a3e9a0\nq2 <- new_quosure(expr(x + !!q1), env(x = 10))\nq2\n#> <quosure>\n#> expr: ^x + (^x)\n#> env:  0x564fa20915d8\nq3 <- new_quosure(expr(x + !!q2), env(x = 100))\nq3\n#> <quosure>\n#> expr: ^x + (^x + (^x))\n#> env:  0x564fa23500b0\nq1 <- new_quosure(expr(x), env(x = 1))\neval_tidy(q1)\n#> [1] 1\n\nq2 <- new_quosure(expr(x + !!q1), env(x = 10))\neval_tidy(q2)\n#> [1] 11\n\nq3 <- new_quosure(expr(x + !!q2), env(x = 100))\neval_tidy(q3)\n#> [1] 111\nenenv <- function(x) {\n  x <- enquo(x)\n  get_env(x)\n}\n\nenenv(x)\n#> <environment: R_GlobalEnv>\n\nfoo <- function(x) enenv(x)\nfoo()\n#> <environment: 0x564fa32bc708>"},{"path":"evaluation.html","id":"data-masks-exercises-20.4.6","chapter":"20 Evaluation","heading":"20.3 Data masks (Exercises 20.4.6)","text":"Q1. use loop transform2() instead map()? Consider transform2(df, x = x * 2, x = x * 2).A1. see map() appropriate function, let’s create version function map() see happens.use () loop, iteration, updating x column current expression evaluation. , repeatedly modifying column works.use map() instead, trying evaluate expressions time; .e., column attempted modify using multiple expressions.Q2. ’s alternative implementation subset2():Compare contrast subset3() subset2(). advantages disadvantages?A2. Let’s first juxtapose functions outputs can compare better.Disadvantages subset3() subset2()filtering conditions specified rows don’t evaluate logical, function doesn’t fail informatively. Indeed, silently returns incorrect result.Advantages subset3() subset2()might argue function shorter advantage, much subjective preference.Q3. following function implements basics dplyr::arrange(). Annotate line comment explaining . Can explain !!.na.last strictly correct, omitting !! unlikely cause problems?A3. Annotated version function:see doesn’t matter whether whether unquote .na.last argument , let’s look smaller example:can seen:without unquoting, .na.last found function environmentwith unquoting, .na.last included order call object ","code":"\ntransform2 <- function(.data, ...) {\n  dots <- enquos(...)\n\n  for (i in seq_along(dots)) {\n    name <- names(dots)[[i]]\n    dot <- dots[[i]]\n\n    .data[[name]] <- eval_tidy(dot, .data)\n  }\n\n  .data\n}\n\ntransform3 <- function(.data, ...) {\n  dots <- enquos(...)\n\n  purrr::map(dots, function(x, .data = .data) {\n    name <- names(x)\n    dot <- x\n\n    .data[[name]] <- eval_tidy(dot, .data)\n\n    .data\n  })\n}\ndf <- data.frame(x = 1:3)\ntransform2(df, x = x * 2, x = x * 2)\n#>    x\n#> 1  4\n#> 2  8\n#> 3 12\ndf <- data.frame(x = 1:3)\ntransform3(df, x = x * 2, x = x * 2)\n#> Error in `purrr::map()`:\n#> ℹ In index: 1.\n#> ℹ With name: x.\n#> Caused by error:\n#> ! promise already under evaluation: recursive default argument reference or earlier problems?\nsubset3 <- function(data, rows) {\n  rows <- enquo(rows)\n  eval_tidy(expr(data[!!rows, , drop = FALSE]), data = data)\n}\ndf <- data.frame(x = 1:3)\nsubset3(df, x == 1)\nsubset2 <- function(data, rows) {\n  rows <- enquo(rows)\n  rows_val <- eval_tidy(rows, data)\n  stopifnot(is.logical(rows_val))\n\n  data[rows_val, , drop = FALSE]\n}\n\ndf <- data.frame(x = 1:3)\nsubset2(df, x == 1)\n#>   x\n#> 1 1\nsubset3 <- function(data, rows) {\n  rows <- enquo(rows)\n  eval_tidy(expr(data[!!rows, , drop = FALSE]), data = data)\n}\n\nsubset3(df, x == 1)\n#>   x\n#> 1 1\nrm(\"x\")\nexists(\"x\")\n#> [1] FALSE\n\nsubset2(df, x + 1)\n#> Error in subset2(df, x + 1): is.logical(rows_val) is not TRUE\n\nsubset3(df, x + 1)\n#>     x\n#> 2   2\n#> 3   3\n#> NA NA\narrange2 <- function(.df, ..., .na.last = TRUE) {\n  args <- enquos(...)\n  order_call <- expr(order(!!!args, na.last = !!.na.last))\n  ord <- eval_tidy(order_call, .df)\n  stopifnot(length(ord) == nrow(.df))\n  .df[ord, , drop = FALSE]\n}\narrange2 <- function(.df, ..., .na.last = TRUE) {\n  # capture user-supplied expressions (and corresponding environments) as quosures\n  args <- enquos(...)\n\n  # create a call object by splicing a list of quosures\n  order_call <- expr(order(!!!args, na.last = !!.na.last))\n\n  # and evaluate the constructed call in the data frame\n  ord <- eval_tidy(order_call, .df)\n\n  # sanity check\n  stopifnot(length(ord) == nrow(.df))\n\n  .df[ord, , drop = FALSE]\n}\nx <- TRUE\neval(expr(c(x = !!x)))\n#>    x \n#> TRUE\neval(expr(c(x = x)))\n#>    x \n#> TRUE"},{"path":"evaluation.html","id":"using-tidy-evaluation-exercises-20.5.4","chapter":"20 Evaluation","heading":"20.4 Using tidy evaluation (Exercises 20.5.4)","text":"Q1. ’ve included alternative implementation threshold_var() . makes different approach used ? makes harder?A1. First, let’s compare two definitions function make sure produce output:key difference subsetting operator used:old version uses non-quoting [[ operator. Thus, var argument first needs converted string.new version uses quoting $ operator. Thus, var argument first quoted unquoted (using !!).","code":"\nthreshold_var <- function(df, var, val) {\n  var <- ensym(var)\n  subset2(df, `$`(.data, !!var) >= !!val)\n}\nthreshold_var_old <- function(df, var, val) {\n  var <- as_string(ensym(var))\n  subset2(df, .data[[var]] >= !!val)\n}\n\nthreshold_var_new <- threshold_var\n\ndf <- data.frame(x = 1:10)\n\nidentical(\n  threshold_var(df, x, 8),\n  threshold_var(df, x, 8)\n)\n#> [1] TRUE"},{"path":"evaluation.html","id":"base-evaluation-exercises-20.6.3","chapter":"20 Evaluation","heading":"20.5 Base evaluation (Exercises 20.6.3)","text":"Q1. function fail?A1. doesn’t work lm_call call evaluated caller_env(), finds binding base::data() function, data execution environment.make work, need unquote data expression:Q2. model building, typically response data relatively constant rapidly experiment different predictors. Write small wrapper allows reduce duplication code .A2. small wrapper allows enter predictors:function flexible enough also allow changing data dependent variable:Q3. Another way write resample_lm() include resample expression (data[sample(nrow(data), replace = TRUE), , drop = FALSE]) data argument. Implement approach. advantages? disadvantages?A3. variant resample_lm(), providing resampled data argument.makes use R’s lazy evaluation function arguments. , resample_data argument evaluated needed function.","code":"\nlm3a <- function(formula, data) {\n  formula <- enexpr(formula)\n  lm_call <- expr(lm(!!formula, data = data))\n  eval(lm_call, caller_env())\n}\n\nlm3a(mpg ~ disp, mtcars)$call\n#> Error in as.data.frame.default(data, optional = TRUE):\n#> cannot coerce class ‘\"function\"’ to a data.frame\nlm3a <- function(formula, data) {\n  formula <- enexpr(formula)\n  lm_call <- expr(lm(!!formula, data = !!data))\n  eval(lm_call, caller_env())\n}\n\nis_call(lm3a(mpg ~ disp, mtcars)$call)\n#> [1] TRUE\nlm(mpg ~ disp, data = mtcars)\nlm(mpg ~ I(1 / disp), data = mtcars)\nlm(mpg ~ disp * cyl, data = mtcars)\nlm_custom <- function(data = mtcars, x, y = mpg) {\n  x <- enexpr(x)\n  y <- enexpr(y)\n  data <- enexpr(data)\n\n  lm_call <- expr(lm(formula = !!y ~ !!x, data = !!data))\n\n  eval(lm_call, caller_env())\n}\n\nidentical(\n  lm_custom(x = disp),\n  lm(mpg ~ disp, data = mtcars)\n)\n#> [1] TRUE\n\nidentical(\n  lm_custom(x = I(1 / disp)),\n  lm(mpg ~ I(1 / disp), data = mtcars)\n)\n#> [1] TRUE\n\nidentical(\n  lm_custom(x = disp * cyl),\n  lm(mpg ~ disp * cyl, data = mtcars)\n)\n#> [1] TRUE\nlm_custom(data = iris, x = Sepal.Length, y = Petal.Width)\n#> \n#> Call:\n#> lm(formula = Petal.Width ~ Sepal.Length, data = iris)\n#> \n#> Coefficients:\n#>  (Intercept)  Sepal.Length  \n#>      -3.2002        0.7529\nresample_lm3 <- function(formula,\n                         data,\n                         resample_data = data[sample(nrow(data), replace = TRUE), , drop = FALSE],\n                         env = current_env()) {\n  formula <- enexpr(formula)\n  lm_call <- expr(lm(!!formula, data = resample_data))\n  expr_print(lm_call)\n  eval(lm_call, env)\n}\n\ndf <- data.frame(x = 1:10, y = 5 + 3 * (1:10) + round(rnorm(10), 2))\nresample_lm3(y ~ x, data = df)\n#> lm(y ~ x, data = resample_data)\n#> \n#> Call:\n#> lm(formula = y ~ x, data = resample_data)\n#> \n#> Coefficients:\n#> (Intercept)            x  \n#>       2.654        3.420"},{"path":"evaluation.html","id":"session-information-15","chapter":"20 Evaluation","heading":"20.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"translation.html","id":"translation","chapter":"21 Translation","heading":"21 Translation","text":"Needed libraries:","code":"\nlibrary(rlang)\nlibrary(purrr)"},{"path":"translation.html","id":"html-exercises-21.2.6","chapter":"21 Translation","heading":"21.1 HTML (Exercises 21.2.6)","text":"Q1. escaping rules <script> tags different contain JavaScript, HTML. Instead escaping angle brackets ampersands, need escape <\/script> tag isn’t closed early. example, script(\"'<\/script>'\"), shouldn’t generate :ButAdapt escape() follow rules new argument script set TRUE.A1. Let’s first start boilerplate code included book:also need tweak boilerplate pass additional parameter escape():Q2. use ... functions big downsides. ’s input validation little information documentation autocomplete used function. Create new function , given named list tags attribute names (like ), creates tag functions named arguments.tags get class id attributes.Q3. Reason following code calls with_html() referencing objects environment. work fail? ? Run code verify predictions.A3. work , first need copy-paste relevant code book:Note with_html() uses eval_tidy(), therefore code argument evaluated first html_tags named list, acts data mask, object found data mask, searches caller environment.reason, first example code work:following code, however, going work already address element data mask, p() take function address() input, escape() doesn’t know deal objects function type:Q4. Currently HTML doesn’t look terribly pretty, ’s hard see structure. adapt tag() indenting formatting? (may need research block inline tags.)A4. Let’s first look currently looks like:can improve follow Google HTML/CSS Style Guide., need create new function indent code conditionally:can update body() function use new helper:new formatting looks much better:","code":"  <script>'<\/script>'<\/script>  <script>'<\\/script>'<\/script>\nescape <- function(x, ...) UseMethod(\"escape\")\n\nescape.character <- function(x, script = FALSE) {\n  if (script) {\n    x <- gsub(\"<\/script>\", \"<\\\\/script>\", x, fixed = TRUE)\n  } else {\n    x <- gsub(\"&\", \"&amp;\", x)\n    x <- gsub(\"<\", \"&lt;\", x)\n    x <- gsub(\">\", \"&gt;\", x)\n  }\n\n  html(x)\n}\n\nescape.advr_html <- function(x, ...) x\nhtml <- function(x) structure(x, class = \"advr_html\")\n\nprint.advr_html <- function(x, ...) {\n  out <- paste0(\"<HTML> \", x)\n  cat(paste(strwrap(out), collapse = \"\\n\"), \"\\n\", sep = \"\")\n}\n\ndots_partition <- function(...) {\n  dots <- list2(...)\n\n  if (is.null(names(dots))) {\n    is_named <- rep(FALSE, length(dots))\n  } else {\n    is_named <- names(dots) != \"\"\n  }\n\n  list(\n    named = dots[is_named],\n    unnamed = dots[!is_named]\n  )\n}\n\ntag <- function(tag, script = FALSE) {\n  force(script)\n  new_function(\n    exprs(... = ),\n    expr({\n      dots <- dots_partition(...)\n      attribs <- html_attributes(dots$named)\n      children <- map_chr(.x = dots$unnamed, .f = ~ escape(.x, !!script))\n\n      html(paste0(\n        !!paste0(\"<\", tag), attribs, \">\",\n        paste(children, collapse = \"\"),\n        !!paste0(\"<\/\", tag, \">\")\n      ))\n    }),\n    caller_env()\n  )\n}\n\nvoid_tag <- function(tag) {\n  new_function(\n    exprs(... = ),\n    expr({\n      dots <- dots_partition(...)\n      if (length(dots$unnamed) > 0) {\n        abort(!!paste0(\"<\", tag, \"> must not have unnamed arguments\"))\n      }\n      attribs <- html_attributes(dots$named)\n\n      html(paste0(!!paste0(\"<\", tag), attribs, \" />\"))\n    }),\n    caller_env()\n  )\n}\n\np <- tag(\"p\")\nscript <- tag(\"script\", script = TRUE)\nscript(\"'<\/script>'\")\n#> <HTML> <script>'<\\/script>'<\/script>\nlist(\n  a = c(\"href\"),\n  img = c(\"src\", \"width\", \"height\")\n)\ngreeting <- \"Hello!\"\nwith_html(p(greeting))\np <- function() \"p\"\naddress <- \"123 anywhere street\"\nwith_html(p(address))\ntags <- c(\n  \"a\", \"abbr\", \"address\", \"article\", \"aside\", \"audio\",\n  \"b\", \"bdi\", \"bdo\", \"blockquote\", \"body\", \"button\", \"canvas\",\n  \"caption\", \"cite\", \"code\", \"colgroup\", \"data\", \"datalist\",\n  \"dd\", \"del\", \"details\", \"dfn\", \"div\", \"dl\", \"dt\", \"em\",\n  \"eventsource\", \"fieldset\", \"figcaption\", \"figure\", \"footer\",\n  \"form\", \"h1\", \"h2\", \"h3\", \"h4\", \"h5\", \"h6\", \"head\", \"header\",\n  \"hgroup\", \"html\", \"i\", \"iframe\", \"ins\", \"kbd\", \"label\",\n  \"legend\", \"li\", \"mark\", \"map\", \"menu\", \"meter\", \"nav\",\n  \"noscript\", \"object\", \"ol\", \"optgroup\", \"option\", \"output\",\n  \"p\", \"pre\", \"progress\", \"q\", \"ruby\", \"rp\", \"rt\", \"s\", \"samp\",\n  \"script\", \"section\", \"select\", \"small\", \"span\", \"strong\",\n  \"style\", \"sub\", \"summary\", \"sup\", \"table\", \"tbody\", \"td\",\n  \"textarea\", \"tfoot\", \"th\", \"thead\", \"time\", \"title\", \"tr\",\n  \"u\", \"ul\", \"var\", \"video\"\n)\n\nvoid_tags <- c(\n  \"area\", \"base\", \"br\", \"col\", \"command\", \"embed\",\n  \"hr\", \"img\", \"input\", \"keygen\", \"link\", \"meta\", \"param\",\n  \"source\", \"track\", \"wbr\"\n)\n\nhtml_tags <- c(\n  tags %>% set_names() %>% map(tag),\n  void_tags %>% set_names() %>% map(void_tag)\n)\n\nwith_html <- function(code) {\n  code <- enquo(code)\n  eval_tidy(code, html_tags)\n}\ngreeting <- \"Hello!\"\nwith_html(p(greeting))\n#> <HTML> <p>Hello!<\/p>\n\"address\" %in% names(html_tags)\n#> [1] TRUE\n\np <- function() \"p\"\naddress <- \"123 anywhere street\"\nwith_html(p(address))\n#> Error in `map_chr()`:\n#> ℹ In index: 1.\n#> Caused by error in `UseMethod()`:\n#> ! no applicable method for 'escape' applied to an object of class \"function\"\nwith_html(\n  body(\n    h1(\"A heading\", id = \"first\"),\n    p(\"Some text &\", b(\"some bold text.\")),\n    img(src = \"myimg.png\", width = 100, height = 100)\n  )\n)\n#> <HTML> <body><h1 id='first'>A heading<\/h1><p>Some\n#> text &amp;<b>some bold text.<\/b><\/p><img\n#> src='myimg.png' width='100' height='100' /><\/body>\nprint.advr_html <- function(x, ...) {\n  cat(paste(\"<HTML>\", x, sep = \"\\n\"))\n}\n\nindent <- function(x) {\n  paste0(\"  \", gsub(\"\\n\", \"\\n  \", x))\n}\n\nformat_code <- function(children, indent = FALSE) {\n  if (indent) {\n    paste0(\"\\n\", paste0(indent(children), collapse = \"\\n\"), \"\\n\")\n  } else {\n    paste(children, collapse = \"\")\n  }\n}\nhtml_tags$body <- function(...) {\n  dots <- dots_partition(...)\n  attribs <- html_attributes(dots$named)\n  children <- map_chr(dots$unnamed, escape)\n\n  html(paste0(\n    \"<body\", attribs, \">\",\n    format_code(children, indent = TRUE),\n    \"<\/body>\"\n  ))\n}\nwith_html(\n  body(\n    h1(\"A heading\", id = \"first\"),\n    p(\"Some text &\", b(\"some bold text.\")),\n    img(src = \"myimg.png\", width = 100, height = 100)\n  )\n)\n#> <HTML>\n#> <body>\n#>   <h1 id='first'>A heading<\/h1>\n#>   <p>Some text &amp;<b>some bold text.<\/b><\/p>\n#>   <img src='myimg.png' width='100' height='100' />\n#> <\/body>"},{"path":"translation.html","id":"latex-exercises-21.3.8","chapter":"21 Translation","heading":"21.2 LaTeX (Exercises 21.3.8)","text":"didn’t manage solve exercises, ’d recommend checking solutions official solutions manual.Q1. Add escaping. special symbols escaped adding backslash front \\, $, %. Just HTML, ’ll need make sure don’t end double-escaping. ’ll need create small S3 class use function operators. also allow embed arbitrary LaTeX needed.Q2. Complete DSL support functions plotmath supports.","code":""},{"path":"translation.html","id":"session-information-16","chapter":"21 Translation","heading":"21.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"debugging.html","id":"debugging","chapter":"22 Debugging","heading":"22 Debugging","text":"exercises.","code":""},{"path":"measuring-performance.html","id":"measuring-performance","chapter":"23 Measuring performance","heading":"23 Measuring performance","text":"Attaching needed libraries:","code":"\nlibrary(profvis, warn.conflicts = FALSE)\nlibrary(dplyr, warn.conflicts = FALSE)"},{"path":"measuring-performance.html","id":"profiling-exercises-23.2.4","chapter":"23 Measuring performance","heading":"23.1 Profiling (Exercises 23.2.4)","text":"Q1. Profile following function torture = TRUE. surprising? Read source code rm() figure ’s going .A1. Let’s source functions mentioned exercises.First, try without torture = TRUE: returns meaningful results.mentioned docs, setting torture = TRUETriggers garbage collection every torture memory allocation call.process somehow never seems finish crashes RStudio session stops!question says documentation rm() may provide clues:still couldn’t figure . recommend checking official answer.","code":"\nf <- function(n = 1e5) {\n  x <- rep(1, n)\n  rm(x)\n}\nsource(\"profiling-exercises.R\")\nprofvis(f())\n#> Error in parse_rprof_lines(lines, expr_source): No parsing data available. Maybe your function was too fast?\nprofvis(f(), torture = TRUE)\nrm\n#> function (..., list = character(), pos = -1, envir = as.environment(pos), \n#>     inherits = FALSE) \n#> {\n#>     if (...length()) {\n#>         dots <- match.call(expand.dots = FALSE)$...\n#>         if (!all(vapply(dots, function(x) is.symbol(x) || is.character(x), \n#>             NA, USE.NAMES = FALSE))) \n#>             stop(\"... must contain names or character strings\")\n#>         list <- .Primitive(\"c\")(list, vapply(dots, as.character, \n#>             \"\"))\n#>     }\n#>     .Internal(remove(list, envir, inherits))\n#> }\n#> <bytecode: 0x56191ab34df0>\n#> <environment: namespace:base>"},{"path":"measuring-performance.html","id":"microbenchmarking-exercises-23.3.3","chapter":"23 Measuring performance","heading":"23.2 Microbenchmarking (Exercises 23.3.3)","text":"Q1. Instead using bench::mark(), use built-function system.time(). system.time() much less precise, ’ll need repeat operation many times loop, divide find average time operation, code .estimates system.time() compare bench::mark()? different?A1. Let’s benchmark first using two approaches:Now can compare results alternatives:comparison reveals two approaches yield quite similar results. Slight differences exact values possibly due differences precision timers used internally functions.Q2. two ways compute square root vector. think fastest? slowest? Use microbenchmarking test answers.A2. Microbenchmarking ways compute square root vector mentioned chapter.specialized primitive function sqrt() (written C) fastest way compute square root.","code":"\nn <- 1e6\nsystem.time(for (i in 1:n) sqrt(x)) / n\nsystem.time(for (i in 1:n) x^0.5) / n\nn <- 1e6\nx <- runif(100)\n\n# bench -------------------\n\nbench_df <- bench::mark(\n  sqrt(x),\n  x^0.5,\n  iterations = n,\n  time_unit = \"us\"\n)\n\nt_bench_df <- bench_df %>%\n  select(expression, time) %>%\n  rowwise() %>%\n  mutate(bench_mean = mean(unlist(time))) %>%\n  ungroup() %>%\n  select(-time)\n\n# system.time -------------------\n\n# garbage collection performed immediately before the timing\nt1_systime_gc <- system.time(for (i in 1:n) sqrt(x), gcFirst = TRUE) / n\nt2_systime_gc <- system.time(for (i in 1:n) x^0.5, gcFirst = TRUE) / n\n\n# garbage collection not performed immediately before the timing\nt1_systime_nogc <- system.time(for (i in 1:n) sqrt(x), gcFirst = FALSE) / n\nt2_systime_nogc <- system.time(for (i in 1:n) x^0.5, gcFirst = FALSE) / n\n\nt_systime_df <- tibble(\n  \"expression\" = bench_df$expression,\n  \"systime_with_gc\" = c(t1_systime_gc[\"elapsed\"], t2_systime_gc[\"elapsed\"]),\n  \"systime_with_nogc\" = c(t1_systime_nogc[\"elapsed\"], t2_systime_nogc[\"elapsed\"])\n) %>%\n  mutate(\n    systime_with_gc = systime_with_gc * 1e6, # in microseconds\n    systime_with_nogc = systime_with_nogc * 1e6 # in microseconds\n  )\n# note that system time columns report time in microseconds\nfull_join(t_bench_df, t_systime_df, by = \"expression\")\n#> # A tibble: 2 × 4\n#>   expression bench_mean systime_with_gc systime_with_nogc\n#>   <bch:expr>   <bch:tm>           <dbl>             <dbl>\n#> 1 sqrt(x)       677.2ns           0.629             0.428\n#> 2 x^0.5          2.23µs           2.02              2.00\nx^(1 / 2)\nexp(log(x) / 2)\nx <- runif(1000)\n\nbench::mark(\n  sqrt(x),\n  x^0.5,\n  x^(1 / 2),\n  exp(log(x) / 2),\n  iterations = 1000\n) %>%\n  select(expression, median) %>%\n  arrange(median)\n#> # A tibble: 4 × 2\n#>   expression      median\n#>   <bch:expr>    <bch:tm>\n#> 1 sqrt(x)         3.02µs\n#> 2 exp(log(x)/2)  12.66µs\n#> 3 x^0.5          18.96µs\n#> 4 x^(1/2)        19.01µs"},{"path":"measuring-performance.html","id":"session-information-17","chapter":"23 Measuring performance","heading":"23.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench         1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  htmlwidgets   1.6.4   2023-12-06 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  profvis     * 0.3.8   2023-05-02 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  stringi       1.8.3   2023-12-11 [1] RSPM\n#>  stringr       1.5.1   2023-11-14 [1] RSPM\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"improving-performance.html","id":"improving-performance","chapter":"24 Improving performance","heading":"24 Improving performance","text":"Attaching needed libraries:","code":"\nlibrary(ggplot2)\nlibrary(dplyr)\nlibrary(purrr)"},{"path":"improving-performance.html","id":"exercises-24.3.1","chapter":"24 Improving performance","heading":"24.1 Exercises 24.3.1","text":"Q1. faster alternatives lm()? specifically designed work larger datasets?A1. Faster alternatives lm() can found visiting CRAN Task View: High-Performance Parallel Computing R page.available options:speedglm::speedlm() (large datasets)speedglm::speedlm() (large datasets)biglm::biglm() (specifically designed data large fit memory)biglm::biglm() (specifically designed data large fit memory)RcppEigen::fastLm() (using Eigen linear algebra library)RcppEigen::fastLm() (using Eigen linear algebra library)High performances can obtained packages especially R linked optimized BLAS, ATLAS. can check information using sessionInfo():Comparing performance different alternatives:results might change depending size dataset, performance benefits accruing bigger dataset.experiment different algorithms find one fits needs dataset best.Q2. package implements version match() ’s faster repeated look ups? much faster ?A2. package (respective function) fastmatch::fmatch()7.documentation function notes:slightly faster built-version uses specialized code, addition retains hash table within table object can re-used, dramatically reducing look-time especially large table.small vector, fmatch() slightly faster, order magnitude., larger vector, fmatch() orders magnitude faster! ⚡can also look hash table:Additionally, fastmatch provides equivalent familiar infix operator:Q3. List four functions (just base R) convert string date time object. strengths weaknesses?A3. four functions convert string date time object:base::.POSIXct()base::.POSIXlt()lubridate::ymd_hms()fasttime::fastPOSIXct()can also compare performance:many packages implement way convert string date time object. , see CRAN Task View: Time Series AnalysisQ4. packages provide ability compute rolling mean?A4. packages respective functions provide way compute rolling mean:RcppRoll::roll_mean()data.table::frollmean()roll::roll_mean()zoo::rollmean()slider::slide_dbl()Q5. alternatives optim()?A5. optim() function provides general-purpose optimization. noted docs:General-purpose optimization based Nelder–Mead, quasi-Newton conjugate-gradient algorithms. includes option box-constrained optimization simulated annealing.many alternatives exact one want choose depend type optimization like .available options can seen CRAN Task View: Optimization Mathematical Programming.","code":"\nsessInfo <- sessionInfo()\nsessInfo$matprod\n#> [1] \"default\"\nsessInfo$LAPACK\n#> [1] \"/usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.20.so\"\nlibrary(gapminder)\n\n# having a look at the data\nglimpse(gapminder)\n#> Rows: 1,704\n#> Columns: 6\n#> $ country   <fct> \"Afghanistan\", \"Afghanistan\", \"Afghanist…\n#> $ continent <fct> Asia, Asia, Asia, Asia, Asia, Asia, Asia…\n#> $ year      <int> 1952, 1957, 1962, 1967, 1972, 1977, 1982…\n#> $ lifeExp   <dbl> 28.801, 30.332, 31.997, 34.020, 36.088, …\n#> $ pop       <int> 8425333, 9240934, 10267083, 11537966, 13…\n#> $ gdpPercap <dbl> 779.4453, 820.8530, 853.1007, 836.1971, …\n\nbench::mark(\n  \"lm\"       = stats::lm(lifeExp ~ continent * gdpPercap, gapminder),\n  \"speedglm\" = speedglm::speedlm(lifeExp ~ continent * gdpPercap, gapminder),\n  \"biglm\"    = biglm::biglm(lifeExp ~ continent * gdpPercap, gapminder),\n  \"fastLm\"   = RcppEigen::fastLm(lifeExp ~ continent * gdpPercap, gapminder),\n  check      = FALSE,\n  iterations = 1000\n)[1:5]\n#> # A tibble: 4 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 lm          881.5µs  916.5µs     1045.    1.27MB\n#> 2 speedglm      1.6ms   1.66ms      601.   75.01MB\n#> 3 biglm       772.1µs 809.23µs     1174.   589.1KB\n#> 4 fastLm        993µs   1.02ms      978.    4.48MB\nlibrary(fastmatch, warn.conflicts = FALSE)\n\nsmall_vec <- c(\"a\", \"b\", \"x\", \"m\", \"n\", \"y\")\n\nlength(small_vec)\n#> [1] 6\n\nbench::mark(\n  \"base\" = match(c(\"x\", \"y\"), small_vec),\n  \"fastmatch\" = fmatch(c(\"x\", \"y\"), small_vec)\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base         1.18µs   1.24µs   756897.     2.8KB\n#> 2 fastmatch    1.02µs   1.06µs   904225.    2.66KB\nlarge_vec <- c(rep(c(\"a\", \"b\"), 1e4), \"x\", rep(c(\"m\", \"n\"), 1e6), \"y\")\n\nlength(large_vec)\n#> [1] 2020002\n\nbench::mark(\n  \"base\" = match(c(\"x\", \"y\"), large_vec),\n  \"fastmatch\" = fmatch(c(\"x\", \"y\"), large_vec)\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base         20.6ms  21.95ms      43.0    31.4MB\n#> 2 fastmatch   992.1ns   1.04µs  897837.         0B\nfmatch.hash(c(\"x\", \"y\"), small_vec)\n#> [1] \"a\" \"b\" \"x\" \"m\" \"n\" \"y\"\n#> attr(,\".match.hash\")\n#> <hash table>\nlibrary(fastmatch)\n\nsmall_vec <- c(\"a\", \"b\", \"x\", \"m\", \"n\", \"y\")\n\nc(\"x\", \"y\") %in% small_vec\n#> [1] TRUE TRUE\n\nc(\"x\", \"y\") %fin% small_vec\n#> [1] TRUE TRUE\nbase::as.POSIXct(\"2022-05-05 09:23:22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nbase::as.POSIXlt(\"2022-05-05 09:23:22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nlubridate::ymd_hms(\"2022-05-05-09-23-22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nfasttime::fastPOSIXct(\"2022-05-05 09:23:22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nbench::mark(\n  \"as.POSIXct\" = base::as.POSIXct(\"2022-05-05 09:23:22\"),\n  \"as.POSIXlt\" = base::as.POSIXlt(\"2022-05-05 09:23:22\"),\n  \"ymd_hms\" = lubridate::ymd_hms(\"2022-05-05-09-23-22\"),\n  \"fastPOSIXct\" = fasttime::fastPOSIXct(\"2022-05-05 09:23:22\"),\n  check = FALSE,\n  iterations = 1000\n)\n#> # A tibble: 4 × 6\n#>   expression       min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 as.POSIXct   29.74µs   31.4µs    31531.        0B     0   \n#> 2 as.POSIXlt   20.59µs  21.79µs    45434.        0B     0   \n#> 3 ymd_hms       2.25ms   2.33ms      425.    21.5KB     3.43\n#> 4 fastPOSIXct   1.16µs   1.22µs   766780.        0B     0"},{"path":"improving-performance.html","id":"exercises-24.4.3","chapter":"24 Improving performance","heading":"24.2 Exercises 24.4.3","text":"Q1. ’s difference rowSums() .rowSums()?A1. documentation functions state:versions initial dot name (.colSums() etc) ‘bare-bones’ versions use programming: apply numeric (like) matrices name result.Looking source code,rowSums() function number checks validate arguments acceptable.rowSums() directly proceeds computation using internal code built R interpreterBut comparable performance:Q2. Make faster version chisq.test() computes chi-square test statistic input two numeric vectors missing values. can try simplifying chisq.test() coding mathematical definition.A2. function supposed accept two numeric vectors without missing values, can make chisq.test() less work removing code corresponding following :checks data frame matrix inputsgoodness--fit testsimulating p-valueschecking missing valuesThis leaves us much simpler, bare bones implementation:, indeed, custom function performs slightly better8 base equivalent:Q3. Can make faster version table() case input two integer vectors missing values? Can use speed chi-square test?A3. order make leaner version table(), can take similar approach trim unnecessary input checks light new API accepting just two vectors without missing values. can remove following components code:extracting data objects entered ... argumentdealing missing valuesother input validation checksIn addition removal, can also use fastmatch::fmatch() instead match():custom function indeed performs slightly better:can also use function custom chi-squared test function see performance improves :, indeed, new version custom function performs even better previously :","code":"\nrowSums\n#> function (x, na.rm = FALSE, dims = 1L) \n#> {\n#>     if (is.data.frame(x)) \n#>         x <- as.matrix(x)\n#>     if (!is.array(x) || length(dn <- dim(x)) < 2L) \n#>         stop(\"'x' must be an array of at least two dimensions\")\n#>     if (dims < 1L || dims > length(dn) - 1L) \n#>         stop(\"invalid 'dims'\")\n#>     p <- prod(dn[-(id <- seq_len(dims))])\n#>     dn <- dn[id]\n#>     z <- if (is.complex(x)) \n#>         .Internal(rowSums(Re(x), prod(dn), p, na.rm)) + (0+1i) * \n#>             .Internal(rowSums(Im(x), prod(dn), p, na.rm))\n#>     else .Internal(rowSums(x, prod(dn), p, na.rm))\n#>     if (length(dn) > 1L) {\n#>         dim(z) <- dn\n#>         dimnames(z) <- dimnames(x)[id]\n#>     }\n#>     else names(z) <- dimnames(x)[[1L]]\n#>     z\n#> }\n#> <bytecode: 0x563353356400>\n#> <environment: namespace:base>\n.rowSums\n#> function (x, m, n, na.rm = FALSE) \n#> .Internal(rowSums(x, m, n, na.rm))\n#> <bytecode: 0x56335cd3f7a8>\n#> <environment: namespace:base>\nx <- cbind(x1 = 3, x2 = c(4:1e4, 2:1e5))\n\nbench::mark(\n  \"rowSums\" = rowSums(x),\n  \".rowSums\" = .rowSums(x, dim(x)[[1]], dim(x)[[2]])\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 rowSums       821µs   1.29ms      859.     859KB\n#> 2 .rowSums      817µs   1.28ms      833.     859KB\nmy_chisq_test <- function(x, y) {\n  x <- table(x, y)\n  n <- sum(x)\n\n  nr <- as.integer(nrow(x))\n  nc <- as.integer(ncol(x))\n\n  sr <- rowSums(x)\n  sc <- colSums(x)\n  E <- outer(sr, sc, \"*\") / n\n  v <- function(r, c, n) c * r * (n - r) * (n - c) / n^3\n  V <- outer(sr, sc, v, n)\n  dimnames(E) <- dimnames(x)\n\n  STATISTIC <- sum((abs(x - E))^2 / E)\n  PARAMETER <- (nr - 1L) * (nc - 1L)\n  PVAL <- pchisq(STATISTIC, PARAMETER, lower.tail = FALSE)\n\n  names(STATISTIC) <- \"X-squared\"\n  names(PARAMETER) <- \"df\"\n\n  structure(\n    list(\n      statistic = STATISTIC,\n      parameter = PARAMETER,\n      p.value = PVAL,\n      method = \"Pearson's Chi-squared test\",\n      observed = x,\n      expected = E,\n      residuals = (x - E) / sqrt(E),\n      stdres = (x - E) / sqrt(V)\n    ),\n    class = \"htest\"\n  )\n}\nm <- c(rep(\"a\", 1000), rep(\"b\", 9000))\nn <- c(rep(c(\"x\", \"y\"), 5000))\n\nbench::mark(\n  \"base\" = chisq.test(m, n)$statistic[[1]],\n  \"custom\" = my_chisq_test(m, n)$statistic[[1]]\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base          906µs    926µs     1071.    1.57MB\n#> 2 custom        706µs    722µs     1371.    1.13MB\nmy_table <- function(x, y) {\n  x_sorted <- sort(unique(x))\n  y_sorted <- sort(unique(y))\n\n  x_length <- length(x_sorted)\n  y_length <- length(y_sorted)\n\n  bin <-\n    fastmatch::fmatch(x, x_sorted) +\n    x_length * fastmatch::fmatch(y, y_sorted) -\n    x_length\n\n  y <- tabulate(bin, x_length * y_length)\n\n  y <- array(\n    y,\n    dim = c(x_length, y_length),\n    dimnames = list(x = x_sorted, y = y_sorted)\n  )\n\n  class(y) <- \"table\"\n  y\n}\nx <- c(rep(\"a\", 1000), rep(\"b\", 9000))\ny <- c(rep(c(\"x\", \"y\"), 5000))\n\n# `check = FALSE` because the custom function has an additional attribute:\n# \".match.hash\"\nbench::mark(\n  \"base\" = table(x, y),\n  \"custom\" = my_table(x, y),\n  check = FALSE\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base          638µs    653µs     1515.     960KB\n#> 2 custom        354µs    359µs     2730.     488KB\nmy_chisq_test2 <- function(x, y) {\n  x <- my_table(x, y)\n  n <- sum(x)\n\n  nr <- as.integer(nrow(x))\n  nc <- as.integer(ncol(x))\n\n  sr <- rowSums(x)\n  sc <- colSums(x)\n  E <- outer(sr, sc, \"*\") / n\n  v <- function(r, c, n) c * r * (n - r) * (n - c) / n^3\n  V <- outer(sr, sc, v, n)\n  dimnames(E) <- dimnames(x)\n\n  STATISTIC <- sum((abs(x - E))^2 / E)\n  PARAMETER <- (nr - 1L) * (nc - 1L)\n  PVAL <- pchisq(STATISTIC, PARAMETER, lower.tail = FALSE)\n\n  names(STATISTIC) <- \"X-squared\"\n  names(PARAMETER) <- \"df\"\n\n  structure(\n    list(\n      statistic = STATISTIC,\n      parameter = PARAMETER,\n      p.value = PVAL,\n      method = \"Pearson's Chi-squared test\",\n      observed = x,\n      expected = E,\n      residuals = (x - E) / sqrt(E),\n      stdres = (x - E) / sqrt(V)\n    ),\n    class = \"htest\"\n  )\n}\nm <- c(rep(\"a\", 1000), rep(\"b\", 9000))\nn <- c(rep(c(\"x\", \"y\"), 5000))\n\nbench::mark(\n  \"base\" = chisq.test(m, n)$statistic[[1]],\n  \"custom\" = my_chisq_test2(m, n)$statistic[[1]]\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base          912µs    940µs     1057.    1.28MB\n#> 2 custom        420µs    429µs     2296.  594.45KB"},{"path":"improving-performance.html","id":"exercises-24.5.1","chapter":"24 Improving performance","heading":"24.3 Exercises 24.5.1","text":"Q1. density functions, e.g., dnorm(), common interface. arguments vectorised ? rnorm(10, mean = 10:1) ?A1. density function family following interface:Reading documentation reveals following parameters vectorized:\nx, q, p, mean, sd.means something like following work:, functions don’t multiple vectorized parameters, won’t. example,following function call generates 10 random numbers (since n = 10) 10 different distributions means supplied vector 10:1.Q2. Compare speed apply(x, 1, sum) rowSums(x) varying sizes x.A2. can write custom function vary number rows matrix extract data frame comparing performance two functions.Plotting data reveals rowSums(x) O(1) behavior, O(n) behavior.Q3. can use crossprod() compute weighted sum? much faster naive sum(x * w)?A3. functions provide way compute weighted sum:benchmarking performance reveals latter significantly faster former!","code":"\ndnorm(x, mean = 0, sd = 1, log = FALSE)\npnorm(q, mean = 0, sd = 1, lower.tail = TRUE, log.p = FALSE)\nqnorm(p, mean = 0, sd = 1, lower.tail = TRUE, log.p = FALSE)\nrnorm(n, mean = 0, sd = 1)\nrnorm(c(1, 2, 3), mean = c(0, -1, 5))\n#> [1] 1.124335 0.930398 3.844935\npnorm(c(1, 2, 3), mean = c(0, -1, 5), log.p = c(FALSE, TRUE, TRUE))\n#> [1] 0.84134475 0.99865010 0.02275013\nrnorm(n = 10, mean = 10:1)\n#>  [1]  8.2421770  9.3920474  7.1362118  7.5789906  5.2551688\n#>  [6]  6.0143714  4.6147891  1.1096247  2.8759129 -0.6756857\nbenc_perform <- function(nRow, nCol = 100) {\n  x <- matrix(data = rnorm(nRow * nCol), nrow = nRow, ncol = nCol)\n\n  bench::mark(\n    rowSums(x),\n    apply(x, 1, sum)\n  )[1:5]\n}\n\nnRowList <- list(10, 100, 500, 1000, 5000, 10000, 50000, 100000)\n\nnames(nRowList) <- as.character(nRowList)\n\nbenchDF <- map_dfr(\n  .x = nRowList,\n  .f = ~ benc_perform(.x),\n  .id = \"nRows\"\n) %>%\n  mutate(nRows = as.numeric(nRows))\nggplot(\n  benchDF,\n  aes(\n    x = as.numeric(nRows),\n    y = median,\n    group = as.character(expression),\n    color = as.character(expression)\n  )\n) +\n  geom_point() +\n  geom_line() +\n  labs(\n    x = \"Number of Rows\",\n    y = \"Median Execution Time\",\n    colour = \"Function used\"\n  )\nx <- c(1:6, 2, 3)\nw <- rnorm(length(x))\n\ncrossprod(x, w)[[1]]\n#> [1] 15.94691\nsum(x * w)[[1]]\n#> [1] 15.94691\nbench::mark(\n  crossprod(x, w)[[1]],\n  sum(x * w)[[1]],\n  iterations = 1e6\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression                min   median `itr/sec` mem_alloc\n#>   <bch:expr>           <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 crossprod(x, w)[[1]]    901ns    961ns   966191.        0B\n#> 2 sum(x * w)[[1]]         461ns    511ns  1759060.        0B"},{"path":"rewriting-r-code-in-c.html","id":"rewriting-r-code-in-c","chapter":"25 Rewriting R code in C++","heading":"25 Rewriting R code in C++","text":"","code":"\nlibrary(Rcpp, warn.conflicts = FALSE)"},{"path":"rewriting-r-code-in-c.html","id":"getting-started-with-c-exercises-25.2.6","chapter":"25 Rewriting R code in C++","heading":"25.1 Getting started with C++ (Exercises 25.2.6)","text":"Q1. basics C++ hand, ’s now great time practice reading writing simple C++ functions. following functions, read code figure corresponding base R function . might understand every part code yet, able figure basics function .A1.f1() mean():f2() cumsum():f3() ():f4() Position():f5() pmin():Q2. practice function writing skills, convert following functions C++. now, assume inputs missing values.().().cumprod(), cummin(), cummax().cumprod(), cummin(), cummax().diff(). Start assuming lag 1, generalise lag n.diff(). Start assuming lag 1, generalise lag n.range().range().var(). Read approaches can take Wikipedia. Whenever implementing numerical algorithm, ’s always good check already known problem.var(). Read approaches can take Wikipedia. Whenever implementing numerical algorithm, ’s always good check already known problem.A2. performance benefits going observed function primitive since already tuned max R performance. , expect performance gain diff() var().()cumprod()cumminC()cummaxC()diff()range()var()","code":"#include <Rcpp.h>\nusing namespace Rcpp;\n\n// [[Rcpp::export]]\ndouble f1(NumericVector x) {\n  int n = x.size();\n  double y = 0;\n\n  for(int i = 0; i < n; ++i) {\n    y += x[i] / n;\n  }\n  return y;\n}\n\n// [[Rcpp::export]]\nNumericVector f2(NumericVector x) {\n  int n = x.size();\n  NumericVector out(n);\n\n  out[0] = x[0];\n  for(int i = 1; i < n; ++i) {\n    out[i] = out[i - 1] + x[i];\n  }\n  return out;\n}\n\n// [[Rcpp::export]]\nbool f3(LogicalVector x) {\n  int n = x.size();\n\n  for(int i = 0; i < n; ++i) {\n    if (x[i]) return true;\n  }\n  return false;\n}\n\n// [[Rcpp::export]]\nint f4(Function pred, List x) {\n  int n = x.size();\n\n  for(int i = 0; i < n; ++i) {\n    LogicalVector res = pred(x[i]);\n    if (res[0]) return i + 1;\n  }\n  return 0;\n}\n\n// [[Rcpp::export]]\nNumericVector f5(NumericVector x, NumericVector y) {\n  int n = std::max(x.size(), y.size());\n  NumericVector x1 = rep_len(x, n);\n  NumericVector y1 = rep_len(y, n);\n\n  NumericVector out(n);\n\n  for (int i = 0; i < n; ++i) {\n    out[i] = std::min(x1[i], y1[i]);\n  }\n\n  return out;\n}\nx <- c(1, 2, 3, 4, 5, 6)\n\nf1(x)\n#> [1] 3.5\nmean(x)\n#> [1] 3.5\nx <- c(1, 3, 5, 6)\n\nf2(x)\n#> [1]  1  4  9 15\ncumsum(x)\n#> [1]  1  4  9 15\nx1 <- c(TRUE, FALSE, FALSE, TRUE)\nx2 <- c(FALSE, FALSE)\n\nf3(x1)\n#> [1] TRUE\nany(x1)\n#> [1] TRUE\n\nf3(x2)\n#> [1] FALSE\nany(x2)\n#> [1] FALSE\nx <- list(\"a\", TRUE, \"m\", 2)\n\nf4(is.numeric, x)\n#> [1] 4\nPosition(is.numeric, x)\n#> [1] 4\nv1 <- c(1, 3, 4, 5, 6, 7)\nv2 <- c(1, 2, 7, 2, 8, 1)\n\nf5(v1, v2)\n#> [1] 1 2 4 2 6 1\npmin(v1, v2)\n#> [1] 1 2 4 2 6 1\nis.primitive(all)\n#> [1] TRUE\nis.primitive(cumprod)\n#> [1] TRUE\nis.primitive(diff)\n#> [1] FALSE\nis.primitive(range)\n#> [1] TRUE\nis.primitive(var)\n#> [1] FALSE#include <vector>\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nbool allC(std::vector<bool> x)\n{\n    for (const auto& xElement : x)\n    {\n        if (!xElement) return false;\n    }\n\n    return true;\n}\nv1 <- rep(TRUE, 10)\nv2 <- c(rep(TRUE, 5), rep(FALSE, 5))\n\nall(v1)\n#> [1] TRUE\nallC(v1)\n#> [1] TRUE\n\nall(v2)\n#> [1] FALSE\nallC(v2)\n#> [1] FALSE\n\n# performance benefits?\nbench::mark(\n  all(c(rep(TRUE, 1000), rep(FALSE, 1000))),\n  allC(c(rep(TRUE, 1000), rep(FALSE, 1000))),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression                                      min\n#>   <bch:expr>                                 <bch:tm>\n#> 1 all(c(rep(TRUE, 1000), rep(FALSE, 1000)))    6.13µs\n#> 2 allC(c(rep(TRUE, 1000), rep(FALSE, 1000)))   8.73µs\n#>     median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1   6.49µs   152211.    15.8KB        0\n#> 2   9.15µs   106881.    18.3KB        0#include <vector>\n\n// [[Rcpp::export]]\nstd::vector<double> cumprodC(const std::vector<double> &x)\n{\n    std::vector<double> out{x};\n\n    for (std::size_t i = 1; i < x.size(); i++)\n    {\n        out[i] = out[i - 1] * x[i];\n    }\n\n    return out;\n}\nv1 <- c(10, 4, 6, 8)\n\ncumprod(v1)\n#> [1]   10   40  240 1920\ncumprodC(v1)\n#> [1]   10   40  240 1920\n\n# performance benefits?\nbench::mark(\n  cumprod(v1),\n  cumprodC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 cumprod(v1)   89.99ns 101.05ns  8156808.        0B\n#> 2 cumprodC(v1)   1.45µs   1.55µs   612672.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <vector>\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> cumminC(const std::vector<double> &x)\n{\n    std::vector<double> out{x};\n\n    for (std::size_t i = 1; i < x.size(); i++)\n    {\n        out[i] = (out[i] < out[i - 1]) ? out[i] : out[i - 1];\n    }\n\n    return out;\n}\nv1 <- c(3:1, 2:0, 4:2)\n\ncummin(v1)\n#> [1] 3 2 1 1 1 0 0 0 0\ncumminC(v1)\n#> [1] 3 2 1 1 1 0 0 0 0\n\n# performance benefits?\nbench::mark(\n  cummin(v1),\n  cumminC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression       min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 cummin(v1)  120.02ns 131.08ns  5672695.        0B        0\n#> 2 cumminC(v1)   1.56µs   1.87µs   507394.    6.62KB        0#include <vector>\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> cummaxC(const std::vector<double> &x)\n{\n    std::vector<double> out{x};\n\n    for (std::size_t i = 1; i < x.size(); i++)\n    {\n        out[i] = (out[i] > out[i - 1]) ? out[i] : out[i - 1];\n    }\n    \n    return out;\n}\nv1 <- c(3:1, 2:0, 4:2)\n\ncummax(v1)\n#> [1] 3 3 3 3 3 3 4 4 4\ncummaxC(v1)\n#> [1] 3 3 3 3 3 3 4 4 4\n\n# performance benefits?\nbench::mark(\n  cummax(v1),\n  cummaxC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression       min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 cummax(v1)  110.01ns 121.07ns  6496158.        0B        0\n#> 2 cummaxC(v1)   1.58µs   1.76µs   545922.    6.62KB        0#include <vector>\n#include <functional>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> diffC(const std::vector<double> &x, int lag)\n{\n    std::vector<double> vec_start;\n    std::vector<double> vec_lagged;\n    std::vector<double> vec_diff;\n\n    for (std::size_t i = lag; i < x.size(); i++)\n    {\n        vec_lagged.push_back(x[i]);\n    }\n\n    for (std::size_t i = 0; i < (x.size() - lag); i++)\n    {\n        vec_start.push_back(x[i]);\n    }\n\n    std::transform(\n        vec_lagged.begin(), vec_lagged.end(),\n        vec_start.begin(), std::back_inserter(vec_diff),\n        std::minus<double>());\n\n    return vec_diff;\n}\nv1 <- c(1, 2, 4, 8, 13)\nv2 <- c(1, 2, NA, 8, 13)\n\ndiff(v1, 2)\n#> [1] 3 6 9\ndiffC(v1, 2)\n#> [1] 3 6 9\n\ndiff(v2, 2)\n#> [1] NA  6 NA\ndiffC(v2, 2)\n#> [1] NA  6 NA\n\n# performance benefits?\nbench::mark(\n  diff(v1, 2),\n  diffC(v1, 2),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 diff(v1, 2)    3.88µs   4.46µs   217285.        0B\n#> 2 diffC(v1, 2)   1.89µs   2.13µs   452394.    2.49KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <iostream>\n#include <vector>\n#include <algorithm>\nusing namespace std;\n\n// [[Rcpp::export]]\nstd::vector<double> rangeC(std::vector<double> x)\n{\n    std::vector<double> rangeVec{0.0, 0.0};\n\n    rangeVec.at(0) = *std::min_element(x.begin(), x.end());\n    rangeVec.at(1) = *std::max_element(x.begin(), x.end());\n\n    return rangeVec;\n}\nv1 <- c(10, 4, 6, 8)\n\nrange(v1)\n#> [1]  4 10\nrangeC(v1)\n#> [1]  4 10\n\n# performance benefits?\nbench::mark(\n  range(v1),\n  rangeC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 range(v1)    1.68µs   1.94µs   481017.        0B        0\n#> 2 rangeC(v1)   1.47µs   1.68µs   569929.    6.62KB        0#include <vector>\n#include <cmath>\n#include <numeric>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\ndouble variance(std::vector<double> x)\n{\n    double sumSquared{0};\n\n    double mean = std::accumulate(x.begin(), x.end(), 0.0) / x.size();\n\n    for (const auto& xElement : x)\n    {\n        sumSquared += pow(xElement - mean, 2.0);\n    }\n\n    return sumSquared / (x.size() - 1);\n}\nv1 <- c(1, 4, 7, 8)\n\nvar(v1)\n#> [1] 10\nvariance(v1)\n#> [1] 10\n\n# performance benefits?\nbench::mark(\n  var(v1),\n  variance(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 var(v1)        7.54µs   8.51µs   111092.        0B\n#> 2 variance(v1)   1.49µs   1.66µs   567349.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0"},{"path":"rewriting-r-code-in-c.html","id":"missing-values-exercises-25.4.5","chapter":"25 Rewriting R code in C++","heading":"25.2 Missing values (Exercises 25.4.5)","text":"Q1. Rewrite functions Exercise 25.2.6 deal missing values. na.rm true, ignore missing values. na.rm false, return missing value input contains missing values. good functions practice min(), max(), range(), mean(), var().A1. create version range() deals missing values. principle applies others:Q2. Rewrite cumsum() diff() can handle missing values. Note functions slightly complicated behaviour.A2. cumsum() docs say:NA value x causes corresponding following elements return value NA, integer overflow cumsum (warning).Similarly, diff() docs say:NA’s propagate.Therefore, functions don’t allow removing missing values NAs propagate.seen examples , diffC() already behaves way.Similarly, cumsumC() propagates NAs well.","code":"#include <iostream>\n#include <vector>\n#include <algorithm>\n#include <math.h>\n#include <Rcpp.h>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> rangeC_NA(std::vector<double> x, bool removeNA = true)\n{\n    std::vector<double> rangeVec{0.0, 0.0};\n\n    bool naPresent = std::any_of(\n        x.begin(),\n        x.end(),\n        [](double d)\n        { return isnan(d); });\n\n    if (naPresent)\n    {\n        if (removeNA)\n        {\n            std::remove(x.begin(), x.end(), NAN);\n        }\n        else\n        {\n            rangeVec.at(0) = NA_REAL; // NAN;\n            rangeVec.at(1) = NA_REAL; // NAN;\n\n            return rangeVec;\n        }\n    }\n\n    rangeVec.at(0) = *std::min_element(x.begin(), x.end());\n    rangeVec.at(1) = *std::max_element(x.begin(), x.end());\n\n    return rangeVec;\n}\nv1 <- c(10, 4, NA, 6, 8)\n\nrange(v1, na.rm = FALSE)\n#> [1] NA NA\nrangeC_NA(v1, FALSE)\n#> [1] NA NA\n\nrange(v1, na.rm = TRUE)\n#> [1]  4 10\nrangeC_NA(v1, TRUE)\n#> [1]  4 10#include <Rcpp.h>\nusing namespace Rcpp;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nNumericVector cumsumC(NumericVector x) {\n  int n = x.size();\n  NumericVector out(n);\n  \n  out[0] = x[0];\n  for(int i = 1; i < n; ++i) {\n    out[i] = out[i - 1] + x[i];\n  }\n  \n  return out;\n}\nv1 <- c(1, 2, 3, 4)\nv2 <- c(1, 2, NA, 4)\n\ncumsum(v1)\n#> [1]  1  3  6 10\ncumsumC(v1)\n#> [1]  1  3  6 10\n\ncumsum(v2)\n#> [1]  1  3 NA NA\ncumsumC(v2)\n#> [1]  1  3 NA NA"},{"path":"rewriting-r-code-in-c.html","id":"standard-template-library-exercises-25.5.7","chapter":"25 Rewriting R code in C++","heading":"25.3 Standard Template Library (Exercises 25.5.7)","text":"Q1. practice using STL algorithms data structures, implement following using R functions C++, using hints provided:A1.median.default() using partial_sort.%% using unordered_set find() count() methods.unique() using unordered_set (challenge: one line!).Note functions comparable. far can see, way get output R version function using unordered_set data structure.can make comparable version using set data structure:min() using std::min(), max() using std::max()..min() using min_element, .max() using max_element.setdiff(), union(), intersect() integers using sorted ranges set_union, set_intersection set_difference.Note following C++ implementations given functions strictly equivalent R versions. far can see, way identical satisfying specifications mentioned question.union()intersect()setdiff()","code":"#include <iostream>\n#include <vector>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\ndouble medianC(std::vector<double> &x)\n{\n    int middleIndex = static_cast<int>(x.size() / 2);\n\n    std::partial_sort(x.begin(), x.begin() + middleIndex, x.end());\n\n    // for even number of observations\n    if (x.size() % 2 == 0)\n    {\n        return (x[middleIndex - 1] + x[middleIndex]) / 2;\n    }\n\n    return x[middleIndex];\n}\nv1 <- c(1, 3, 3, 6, 7, 8, 9)\nv2 <- c(1, 2, 3, 4, 5, 6, 8, 9)\n\nmedian.default(v1)\n#> [1] 6\nmedianC(v1)\n#> [1] 6\n\nmedian.default(v2)\n#> [1] 4.5\nmedianC(v2)\n#> [1] 4.5\n\n# performance benefits?\nbench::mark(\n  median.default(v2),\n  medianC(v2),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression              min   median `itr/sec` mem_alloc\n#>   <bch:expr>         <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 median.default(v2)  22.17µs  24.29µs    40480.        0B\n#> 2 medianC(v2)          1.49µs   1.73µs   546971.    2.49KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <vector>\n#include <unordered_set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<bool> matchC(const std::vector<double> &x, const std::vector<double> &table)\n{\n    std::unordered_set<double> tableUnique(table.begin(), table.end());\n    std::vector<bool> out;\n\n    for (const auto &xElem : x)\n    {\n        out.push_back(tableUnique.find(xElem) != tableUnique.end() ? true : false);\n    }\n\n    return out;\n}\nx1 <- c(3, 4, 8)\nx2 <- c(1, 2, 3, 3, 4, 4, 5, 6)\n\nx1 %in% x2\n#> [1]  TRUE  TRUE FALSE\nmatchC(x1, x2)\n#> [1]  TRUE  TRUE FALSE\n\n# performance benefits?\nbench::mark(\n  x1 %in% x2,\n  matchC(x1, x2),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression          min   median `itr/sec` mem_alloc\n#>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 x1 %in% x2     881.03ns   1.11µs   870819.        0B\n#> 2 matchC(x1, x2)   2.15µs   2.41µs   399261.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <unordered_set>\n#include <vector>\n#include <iostream>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::unordered_set<double> uniqueC(const std::vector<double> &x)\n{\n    std::unordered_set<double> xSet(x.begin(), x.end());\n\n    return xSet;\n}\nv1 <- c(1, 3, 3, 6, 7, 8, 9)\n\nunique(v1)\n#> [1] 1 3 6 7 8 9\nuniqueC(v1)\n#> [1] 9 8 7 6 3 1#include <set>\n#include <vector>\n#include <iostream>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<double> uniqueC2(const std::vector<double> &x)\n{\n    std::set<double> xSet(x.begin(), x.end());\n\n    return xSet;\n}\nv1 <- c(1, 3, 3, 6, 7, 8, 9)\n\nunique(v1)\n#> [1] 1 3 6 7 8 9\nuniqueC2(v1)\n#> [1] 1 3 6 7 8 9\n\n# performance benefits?\nbench::mark(\n  unique(v1),\n  uniqueC2(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 unique(v1)      2.1µs   2.41µs   355209.        0B\n#> 2 uniqueC2(v1)   1.63µs   1.85µs   502571.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <iostream>\n#include <vector>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nconst double minC(const std::vector<double> &x)\n{\n     return *std::min_element(x.begin(), x.end());\n}\n\n// [[Rcpp::export]]\nconst double maxC(std::vector<double> x)\n{\n     return *std::max_element(x.begin(), x.end());\n}\nv1 <- c(3, 3, 6, 1, 9, 7, 8)\n\nmin(v1)\n#> [1] 1\nminC(v1)\n#> [1] 1\n\n# performance benefits?\nbench::mark(\n  min(v1),\n  minC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 min(v1)    230.04ns 250.93ns  3402682.        0B        0\n#> 2 minC(v1)     1.42µs   1.56µs   606873.    6.62KB        0\n\nmax(v1)\n#> [1] 9\nmaxC(v1)\n#> [1] 9\n\n# performance benefits?\nbench::mark(\n  max(v1),\n  maxC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 max(v1)    211.06ns  241.1ns  3455199.        0B        0\n#> 2 maxC(v1)     1.41µs   1.66µs   571011.    6.62KB        0#include <vector>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nint which_maxC(std::vector<double> &x)\n{\n    int maxIndex = std::distance(x.begin(), std::max_element(x.begin(), x.end()));\n  \n    // R is 1-index based, while C++ is 0-index based\n    return maxIndex + 1;\n}\n\n// [[Rcpp::export]]\nint which_minC(std::vector<double> &x)\n{\n    int minIndex = std::distance(x.begin(), std::min_element(x.begin(), x.end()));\n  \n    // R is 1-index based, while C++ is 0-index based\n    return minIndex + 1;\n}\nv1 <- c(3, 3, 6, 1, 9, 7, 8)\n\nwhich.min(v1)\n#> [1] 4\nwhich_minC(v1)\n#> [1] 4\n\n# performance benefits?\nbench::mark(\n  which.min(v1),\n  which_minC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression          min   median `itr/sec` mem_alloc\n#>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 which.min(v1)  401.05ns  421.1ns  2181122.        0B\n#> 2 which_minC(v1)   1.44µs    1.6µs   591193.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0\n\nwhich.max(v1)\n#> [1] 5\nwhich_maxC(v1)\n#> [1] 5\n\n# performance benefits?\nbench::mark(\n  which.max(v1),\n  which_maxC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression          min   median `itr/sec` mem_alloc\n#>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 which.max(v1)  410.01ns 490.92ns  1870056.        0B\n#> 2 which_maxC(v1)   1.41µs   1.57µs   585441.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <algorithm>\n#include <iostream>\n#include <vector>\n#include <set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<int> unionC(std::vector<int> &v1, std::vector<int> &v2)\n{\n    std::sort(v1.begin(), v1.end());\n    std::sort(v2.begin(), v2.end());\n\n    std::vector<int> union_vec(v1.size() + v2.size());\n    auto it = std::set_union(v1.begin(), v1.end(), v2.begin(), v2.end(), union_vec.begin());\n\n    union_vec.resize(it - union_vec.begin());\n    std::set<int> union_set(union_vec.begin(), union_vec.end());\n\n    return union_set;\n}\nv1 <- c(1, 4, 5, 5, 5, 6, 2)\nv2 <- c(4, 1, 6, 8)\n\nunion(v1, v2)\n#> [1] 1 4 5 6 2 8\nunionC(v1, v2)\n#> [1] 1 2 4 5 6 8#include <algorithm>\n#include <iostream>\n#include <vector>\n#include <set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<int> intersectC(std::vector<int> &v1, std::vector<int> &v2)\n{\n    std::sort(v1.begin(), v1.end());\n    std::sort(v2.begin(), v2.end());\n\n    std::vector<int> union_vec(v1.size() + v2.size());\n    auto it = std::set_intersection(v1.begin(), v1.end(), v2.begin(), v2.end(), union_vec.begin());\n\n    union_vec.resize(it - union_vec.begin());\n    std::set<int> union_set(union_vec.begin(), union_vec.end());\n\n    return union_set;\n}\nv1 <- c(1, 4, 5, 5, 5, 6, 2)\nv2 <- c(4, 1, 6, 8)\n\nintersect(v1, v2)\n#> [1] 1 4 6\nintersectC(v1, v2)\n#> [1] 1 4 6#include <algorithm>\n#include <iostream>\n#include <vector>\n#include <set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<int> setdiffC(std::vector<int> &v1, std::vector<int> &v2)\n{\n    std::sort(v1.begin(), v1.end());\n    std::sort(v2.begin(), v2.end());\n\n    std::vector<int> union_vec(v1.size() + v2.size());\n    auto it = std::set_difference(v1.begin(), v1.end(), v2.begin(), v2.end(), union_vec.begin());\n\n    union_vec.resize(it - union_vec.begin());\n    std::set<int> union_set(union_vec.begin(), union_vec.end());\n\n    return union_set;\n}\nv1 <- c(1, 4, 5, 5, 5, 6, 2)\nv2 <- c(4, 1, 6, 8)\n\nsetdiff(v1, v2)\n#> [1] 5 2\nsetdiffC(v1, v2)\n#> [1] 2 5"},{"path":"rewriting-r-code-in-c.html","id":"session-information-18","chapter":"25 Rewriting R code in C++","heading":"25.4 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-07\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench         1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.33  2023-07-07 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.6.2   2022-02-24 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  Rcpp        * 1.0.11  2023-07-06 [1] RSPM\n#>  rlang         1.1.2   2023-11-04 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"}]
+[{"path":"index.html","id":"about","chapter":"About","heading":"About","text":"book provides solutions exercises Hadley Wickham’s Advanced R (2nd edition) book.started working book part process learn solving book’s exercises. comparing solutions official solutions manual, realized solutions took different approaches least explained differently. ’m sharing solutions case others might find another perspective explanation official solution manual helpful building understanding.Although tried make sure solutions correct, blame inaccuracies lies solely . ’d much appreciate suggestions corrections.","code":""},{"path":"introduction.html","id":"introduction","chapter":"1 Introduction","heading":"1 Introduction","text":"exercises.","code":""},{"path":"names-and-values.html","id":"names-and-values","chapter":"2 Names and values","heading":"2 Names and values","text":"Loading needed libraries:","code":"\nlibrary(lobstr)"},{"path":"names-and-values.html","id":"binding-basics-exercise-2.2.2","chapter":"2 Names and values","heading":"2.1 Binding basics (Exercise 2.2.2)","text":"Q1. Explain relationship , b, c d following code:A1. names (, b, c) values point object memory, can seen identical memory addresses:Except d, different object, even value , b, c:Q2. following code accesses mean function multiple ways. point underlying function object? Verify lobstr::obj_addr().A2. listed function calls point underlying function object memory, shown object’s memory address:Q3. default, base R data import functions, like read.csv(), automatically convert non-syntactic names syntactic ones. might problematic? option allows suppress behaviour?A3. conversion non-syntactic names syntactic ones can sometimes corrupt data. datasets may require non-syntactic names.suppress behavior, one can set check.names = FALSE.Q4. rules make.names() use convert non-syntactic names syntactic ones?A4. make.names() uses following rules convert non-syntactic names syntactic ones:prepends non-syntactic names Xit converts invalid characters (like @) .adds . suffix name reserved keywordQ5. slightly simplified rules govern syntactic names. .123e1 syntactic name? Read ?make.names full details.A5. .123e1 syntacti name parsed number, string:docs mention (emphasis mine):syntactically valid name consists letters, numbers dot underline characters starts letter dot followed number.","code":"\na <- 1:10\nb <- a\nc <- b\nd <- 1:10\nobj_addrs <- obj_addrs(list(a, b, c))\nunique(obj_addrs)\n#> [1] \"0x55a3a4e030e8\"\nobj_addr(d)\n#> [1] \"0x55a3a4ab9088\"\nmean\nbase::mean\nget(\"mean\")\nevalq(mean)\nmatch.fun(\"mean\")\nobj_addrs <- obj_addrs(list(\n  mean,\n  base::mean,\n  get(\"mean\"),\n  evalq(mean),\n  match.fun(\"mean\")\n))\n\nunique(obj_addrs)\n#> [1] \"0x55a3a27e2978\"\nmake.names(c(\"123abc\", \"@me\", \"_yu\", \"  gh\", \"else\"))\n#> [1] \"X123abc\" \"X.me\"    \"X_yu\"    \"X..gh\"   \"else.\"\ntypeof(.123e1)\n#> [1] \"double\""},{"path":"names-and-values.html","id":"copy-on-modify-exercise-2.3.6","chapter":"2 Names and values","heading":"2.2 Copy-on-modify (Exercise 2.3.6)","text":"Q1. tracemem(1:10) useful?A1. tracemem() traces copying objects R. example:since object created memory 1:10 assigned name, can’t addressed modified R, nothing trace.Q2. Explain tracemem() shows two copies run code. Hint: carefully look difference code code shown earlier section.A2. initial atomic vector type integer, 4 (4L) type double. new copy created.Trying integer create another copy:understand still produces copy, explanation official solutions manual:Please aware running code RStudio result additional copies reference environment pane.Q3. Sketch relationship following objects:A3. can understand relationship objects looking memory addresses:learn:name references object 1:10 memory.name b bound list two references memory address .name c also bound list references b, 1:10 object (bound name).Q4. happens run code?Draw picture.A4.don’t access OmniGraffle software, including figure official solution manual:","code":"\nx <- 1:10\n\ntracemem(x)\n#> [1] \"<0x55a3a68f2660>\"\n\nx <- x + 1\n\nuntracemem(x)\nobj_addr(1:10)\n#> [1] \"0x55a3a63c3300\"\n\ntracemem(1:10)\n#> [1] \"<0x55a3a64337d8>\"\nx <- c(1L, 2L, 3L)\ntracemem(x)\n\nx[[3]] <- 4\nuntracemem(x)\nx <- c(1L, 2L, 3L)\ntypeof(x)\n#> [1] \"integer\"\ntracemem(x)\n#> [1] \"<0x55a3a6c72ec8>\"\n\nx[[3]] <- 4\n#> tracemem[0x55a3a6c72ec8 -> 0x55a3a6d9e948]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local \n#> tracemem[0x55a3a6d9e948 -> 0x55a3a6dae488]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local\nuntracemem(x)\n\ntypeof(x)\n#> [1] \"double\"\nx <- c(1L, 2L, 3L)\ntypeof(x)\n#> [1] \"integer\"\ntracemem(x)\n#> [1] \"<0x55a3a726f3c8>\"\n\nx[[3]] <- 4L\n#> tracemem[0x55a3a726f3c8 -> 0x55a3a739b048]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local\nuntracemem(x)\n\ntypeof(x)\n#> [1] \"integer\"\na <- 1:10\nb <- list(a, a)\nc <- list(b, a, 1:10)\na <- 1:10\nb <- list(a, a)\nc <- list(b, a, 1:10)\n\nref(a)\n#> [1:0x55a3a7a51fb0] <int>\n\nref(b)\n#> █ [1:0x55a3a7f807d8] <list> \n#> ├─[2:0x55a3a7a51fb0] <int> \n#> └─[2:0x55a3a7a51fb0]\n\nref(c)\n#> █ [1:0x55a3a80090f8] <list> \n#> ├─█ [2:0x55a3a7f807d8] <list> \n#> │ ├─[3:0x55a3a7a51fb0] <int> \n#> │ └─[3:0x55a3a7a51fb0] \n#> ├─[3:0x55a3a7a51fb0] \n#> └─[4:0x55a3a800e1b0] <int>\nx <- list(1:10)\nx[[2]] <- x\nx <- list(1:10)\nx\n#> [[1]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\nobj_addr(x)\n#> [1] \"0x55a3a5c2f658\"\n\nx[[2]] <- x\nx\n#> [[1]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\n#> \n#> [[2]]\n#> [[2]][[1]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\nobj_addr(x)\n#> [1] \"0x55a3a65bf378\"\n\nref(x)\n#> █ [1:0x55a3a65bf378] <list> \n#> ├─[2:0x55a3a56843b0] <int> \n#> └─█ [3:0x55a3a5c2f658] <list> \n#>   └─[2:0x55a3a56843b0]"},{"path":"names-and-values.html","id":"object-size-exercise-2.4.1","chapter":"2 Names and values","heading":"2.3 Object size (Exercise 2.4.1)","text":"Q1. following example, object.size(y) obj_size(y) radically different? Consult documentation object.size().A1. mentioned docs object.size():function…detect elements list shared.sizes different:Q2. Take following list. size somewhat misleading?A2. functions externally created objects R, always available part base packages, doesn’t make much sense measure size never going available.Q3. Predict output following code:A3. Correctly predicted 😉Key pieces information keep mind make correct predictions:Size empty vectorSize single double: 8 bytesCopy--modify semantics","code":"\ny <- rep(list(runif(1e4)), 100)\n\nobject.size(y)\nobj_size(y)\ny <- rep(list(runif(1e4)), 100)\n\nobject.size(y)\n#> 8005648 bytes\n\nobj_size(y)\n#> 80.90 kB\nfuns <- list(mean, sd, var)\nobj_size(funs)\nfuns <- list(mean, sd, var)\nobj_size(funs)\n#> 17.55 kB\na <- runif(1e6)\nobj_size(a)\n\nb <- list(a, a)\nobj_size(b)\nobj_size(a, b)\n\nb[[1]][[1]] <- 10\nobj_size(b)\nobj_size(a, b)\n\nb[[2]][[1]] <- 10\nobj_size(b)\nobj_size(a, b)\na <- runif(1e6)\nobj_size(a)\n#> 8.00 MB\n\nb <- list(a, a)\nobj_size(b)\n#> 8.00 MB\nobj_size(a, b)\n#> 8.00 MB\n\nb[[1]][[1]] <- 10\nobj_size(b)\n#> 16.00 MB\nobj_size(a, b)\n#> 16.00 MB\n\nb[[2]][[1]] <- 10\nobj_size(b)\n#> 16.00 MB\nobj_size(a, b)\n#> 24.00 MB\nobj_size(double())\n#> 48 B\nobj_size(double(1))\n#> 56 B"},{"path":"names-and-values.html","id":"modify-in-place-exercise-2.5.3","chapter":"2 Names and values","heading":"2.4 Modify-in-place (Exercise 2.5.3)","text":"Q1. Explain following code doesn’t create circular list.A1. Copy--modify prevents creation circular list.Q2. Wrap two methods subtracting medians two functions, use ‘bench’ package carefully compare speeds. performance change number columns increase?A2. Let’s first microbenchmark functions create copies varying lengths number columns.Plotting benchmarks reveals performance gets increasingly worse number data frames increases:Q3. happens attempt use tracemem() environment?A3. doesn’t work documentation tracemem() makes clear :useful trace NULL, environments, promises, weak references, external pointer objects, duplicated","code":"\nx <- list()\nx[[1]] <- x\nx <- list()\n\nobj_addr(x)\n#> [1] \"0x55a3a6a23ce8\"\n\ntracemem(x)\n#> [1] \"<0x55a3a6a23ce8>\"\n\nx[[1]] <- x\n#> tracemem[0x55a3a6a23ce8 -> 0x55a3a6319f90]: eval eval eval_with_user_handlers withVisible withCallingHandlers handle timing_fn evaluate_call <Anonymous> evaluate in_dir in_input_dir eng_r block_exec call_block process_group.block process_group withCallingHandlers withCallingHandlers handle_error process_file <Anonymous> <Anonymous> do.call eval eval eval eval eval.parent local\n\nobj_addr(x[[1]])\n#> [1] \"0x55a3a6a23ce8\"\nlibrary(bench)\nlibrary(tidyverse)\n\ngenerateDataFrame <- function(ncol) {\n  as.data.frame(matrix(runif(100 * ncol), nrow = 100))\n}\n\nwithCopy <- function(ncol) {\n  x <- generateDataFrame(ncol)\n  medians <- vapply(x, median, numeric(1))\n\n  for (i in seq_along(medians)) {\n    x[[i]] <- x[[i]] - medians[[i]]\n  }\n\n  return(x)\n}\n\nwithoutCopy <- function(ncol) {\n  x <- generateDataFrame(ncol)\n  medians <- vapply(x, median, numeric(1))\n\n  y <- as.list(x)\n\n  for (i in seq_along(medians)) {\n    y[[i]] <- y[[i]] - medians[[i]]\n  }\n\n  return(y)\n}\n\nbenchComparison <- function(ncol) {\n  bench::mark(\n    withCopy(ncol),\n    withoutCopy(ncol),\n    iterations = 100,\n    check = FALSE\n  ) %>%\n    dplyr::select(expression:total_time)\n}\n\nnColList <- list(1, 10, 50, 100, 250, 500, 1000)\n\nnames(nColList) <- as.character(nColList)\n\nbenchDf <- purrr::map_dfr(\n  .x = nColList,\n  .f = benchComparison,\n  .id = \"nColumns\"\n)\nggplot(\n  benchDf,\n  aes(\n    x = as.numeric(nColumns),\n    y = median,\n    group = as.character(expression),\n    color = as.character(expression)\n  )\n) +\n  geom_line() +\n  labs(\n    x = \"Number of Columns\",\n    y = \"Median Execution Time (ms)\",\n    colour = \"Type of function\"\n  )\ne <- rlang::env(a = 1, b = \"3\")\ntracemem(e)\n#> Error in tracemem(e): 'tracemem' is not useful for promise and environment objects"},{"path":"names-and-values.html","id":"session-information","chapter":"2 Names and values","heading":"2.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench       * 1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  farver        2.1.1   2022-07-06 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  forcats     * 1.0.0   2023-01-29 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  hms           1.1.3   2023-03-21 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  labeling      0.4.3   2023-08-29 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr      * 1.1.2   2022-06-22 [1] RSPM\n#>  lubridate   * 1.9.3   2023-09-27 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  prettyunits   1.2.0   2023-09-24 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  readr       * 2.1.5   2024-01-10 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales        1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  stringi       1.8.3   2023-12-11 [1] RSPM\n#>  stringr     * 1.5.1   2023-11-14 [1] RSPM\n#>  tibble      * 3.2.1   2023-03-20 [1] RSPM\n#>  tidyr       * 1.3.0   2023-01-24 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tidyverse   * 2.0.0   2023-02-22 [1] RSPM\n#>  timechange    0.2.0   2023-01-11 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  tzdb          0.4.0   2023-05-12 [1] RSPM\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"vectors.html","id":"vectors","chapter":"3 Vectors","heading":"3 Vectors","text":"","code":""},{"path":"vectors.html","id":"atomic-vectors-exercises-3.2.5","chapter":"3 Vectors","heading":"3.1 Atomic vectors (Exercises 3.2.5)","text":"Q1. create raw complex scalars? (See ?raw ?complex.)A1. R, scalars nothing vectors length 1, can created using constructor.Raw vectorsThe raw type holds raw bytes, can created using charToRaw(). example,alternative use .raw():Complex vectorsComplex vectors used represent (surprise!) complex numbers.Example complex scalar:Q2. Test knowledge vector coercion rules predicting output following uses c():A2. vector coercion rules dictate data type smaller size converted data type bigger size.Q3. 1 == \"1\" true? -1 < FALSE true? \"one\" < 2 false?A3. coercion rules vectors reveal comparisons return results .Q4. default missing value, NA, logical vector? ’s special logical vectors? (Hint: think c(FALSE, NA_character_).)A4. \"logical\" type lowest coercion hierarchy.NA defaulting type (e.g. \"numeric\") mean time missing element vector, rest elements converted type higher hierarchy, problematic types lower hierarchy.Q5. Precisely .atomic(), .numeric(), .vector() test ?A5. Let’s discuss one--one..atomic()function checks object vector atomic type (NULL).Quoting docs:.atomic true atomic types (“logical”, “integer”, “numeric”, “complex”, “character” “raw”) NULL..numeric()documentation says:.numeric return true base type class double integer values can reasonably regarded numericTherefore, function checks double integer base types types based top types (factor, Date, POSIXt, difftime)..vector()per documentation:.vector returns TRUE x vector specified mode attributes names. returns FALSE otherwise.Thus, function can incorrectif object attributes names.better way check vector:","code":"\nx <- \"A string\"\n\n(y <- charToRaw(x))\n#> [1] 41 20 73 74 72 69 6e 67\n\ntypeof(y)\n#> [1] \"raw\"\nas.raw(\"–\") # en-dash\n#> Warning: NAs introduced by coercion\n#> Warning: out-of-range values treated as 0 in coercion to\n#> raw\n#> [1] 00\nas.raw(\"—\") # em-dash\n#> Warning: NAs introduced by coercion\n\n#> Warning: out-of-range values treated as 0 in coercion to\n#> raw\n#> [1] 00\n(x <- complex(length.out = 1, real = 1, imaginary = 8))\n#> [1] 1+8i\n\ntypeof(x)\n#> [1] \"complex\"\nc(1, FALSE)\nc(\"a\", 1)\nc(TRUE, 1L)\nc(1, FALSE)\n#> [1] 1 0\n\nc(\"a\", 1)\n#> [1] \"a\" \"1\"\n\nc(TRUE, 1L)\n#> [1] 1 1\n1 == \"1\"\n#> [1] TRUE\n\nc(1, \"1\")\n#> [1] \"1\" \"1\"\n-1 < FALSE\n#> [1] TRUE\n\nc(-1, FALSE)\n#> [1] -1  0\n\"one\" < 2\n#> [1] FALSE\n\nc(\"one\", 2)\n#> [1] \"one\" \"2\"\n\nsort(c(\"one\", 2))\n#> [1] \"2\"   \"one\"\ntypeof(NA)\n#> [1] \"logical\"\n\nc(FALSE, NA_character_)\n#> [1] \"FALSE\" NA\nis.atomic(NULL)\n#> [1] TRUE\n\nis.atomic(list(NULL))\n#> [1] FALSE\nis.numeric(1L)\n#> [1] TRUE\n\nis.numeric(factor(1L))\n#> [1] FALSE\nx <- c(\"x\" = 1, \"y\" = 2)\n\nis.vector(x)\n#> [1] TRUE\n\nattr(x, \"m\") <- \"abcdef\"\n\nis.vector(x)\n#> [1] FALSE\nis.null(dim(x))\n#> [1] TRUE"},{"path":"vectors.html","id":"attributes-exercises-3.3.4","chapter":"3 Vectors","heading":"3.2 Attributes (Exercises 3.3.4)","text":"Q1. setNames() implemented? unname() implemented? Read source code.A1. Let’s look implementations functions.setNames()Given function signature, can see , first argument given, result still named vector.unname()unname() removes existing names (dimnames) setting NULL.Q2. dim() return applied 1-dimensional vector? might use NROW() NCOL()?A2. Dimensions 1-dimensional vector NULL. example,NROW() NCOL() helpful getting dimensions 1D vectors treating matrices dataframes.Q3. describe following three objects? makes different 1:5?A3. x1, x2, x3 one-dimensional arrays, different “orientations”, mentally visualize .x1 5 entries third dimension, x2 second dimension, x1 first dimension.Q4. early draft used code illustrate structure():print object don’t see comment attribute. ? attribute missing, something else special ? (Hint: try using help.)A4. ?attributes (emphasis mine):Note attributes (namely class, comment, dim, dimnames, names, row.names tsp) treated specially restrictions values can set.","code":"\nsetNames\n#> function (object = nm, nm) \n#> {\n#>     names(object) <- nm\n#>     object\n#> }\n#> <bytecode: 0x562d125057d0>\n#> <environment: namespace:stats>\nsetNames(, c(\"a\", \"b\"))\n#>   a   b \n#> \"a\" \"b\"\n\nsetNames(c(1, 2), c(\"a\", \"b\"))\n#> a b \n#> 1 2\nunname\n#> function (obj, force = FALSE) \n#> {\n#>     if (!is.null(names(obj))) \n#>         names(obj) <- NULL\n#>     if (!is.null(dimnames(obj)) && (force || !is.data.frame(obj))) \n#>         dimnames(obj) <- NULL\n#>     obj\n#> }\n#> <bytecode: 0x562d11912230>\n#> <environment: namespace:base>\nunname(setNames(, c(\"a\", \"b\")))\n#> [1] \"a\" \"b\"\ndim(c(1, 2))\n#> NULL\n# example-1\nx <- character(0)\n\ndim(x)\n#> NULL\n\nnrow(x)\n#> NULL\nNROW(x)\n#> [1] 0\n\nncol(x)\n#> NULL\nNCOL(x)\n#> [1] 1\n\n# example-2\ny <- 1:4\n\ndim(y)\n#> NULL\n\nnrow(y)\n#> NULL\nNROW(y)\n#> [1] 4\n\nncol(y)\n#> NULL\nNCOL(y)\n#> [1] 1\nx1 <- array(1:5, c(1, 1, 5))\nx2 <- array(1:5, c(1, 5, 1))\nx3 <- array(1:5, c(5, 1, 1))\nstructure(1:5, comment = \"my attribute\")\n#> [1] 1 2 3 4 5\nstructure(1:5, x = \"my attribute\")\n#> [1] 1 2 3 4 5\n#> attr(,\"x\")\n#> [1] \"my attribute\"\n\nstructure(1:5, comment = \"my attribute\")\n#> [1] 1 2 3 4 5"},{"path":"vectors.html","id":"s3-atomic-vectors-exercises-3.4.5","chapter":"3 Vectors","heading":"3.3 S3 atomic vectors (Exercises 3.4.5)","text":"Q1. sort object table() return? type? attributes ? dimensionality change tabulate variables?A1. table() returns array integer type dimensions scale number variables present.Q2. happens factor modify levels?A2. levels change underlying integer values remain .Q3. code ? f2 f3 differ f1?A3. code:f2: underlying integers reversed, levels remain unchanged.f3: levels underlying integers reversed.","code":"\n(x <- table(mtcars$am))\n#> \n#>  0  1 \n#> 19 13\n(y <- table(mtcars$am, mtcars$cyl))\n#>    \n#>      4  6  8\n#>   0  3  4 12\n#>   1  8  3  2\n(z <- table(mtcars$am, mtcars$cyl, mtcars$vs))\n#> , ,  = 0\n#> \n#>    \n#>      4  6  8\n#>   0  0  0 12\n#>   1  1  3  2\n#> \n#> , ,  = 1\n#> \n#>    \n#>      4  6  8\n#>   0  3  4  0\n#>   1  7  0  0\n\n# type\npurrr::map(list(x, y, z), typeof)\n#> [[1]]\n#> [1] \"integer\"\n#> \n#> [[2]]\n#> [1] \"integer\"\n#> \n#> [[3]]\n#> [1] \"integer\"\n\n# attributes\npurrr::map(list(x, y, z), attributes)\n#> [[1]]\n#> [[1]]$dim\n#> [1] 2\n#> \n#> [[1]]$dimnames\n#> [[1]]$dimnames[[1]]\n#> [1] \"0\" \"1\"\n#> \n#> \n#> [[1]]$class\n#> [1] \"table\"\n#> \n#> \n#> [[2]]\n#> [[2]]$dim\n#> [1] 2 3\n#> \n#> [[2]]$dimnames\n#> [[2]]$dimnames[[1]]\n#> [1] \"0\" \"1\"\n#> \n#> [[2]]$dimnames[[2]]\n#> [1] \"4\" \"6\" \"8\"\n#> \n#> \n#> [[2]]$class\n#> [1] \"table\"\n#> \n#> \n#> [[3]]\n#> [[3]]$dim\n#> [1] 2 3 2\n#> \n#> [[3]]$dimnames\n#> [[3]]$dimnames[[1]]\n#> [1] \"0\" \"1\"\n#> \n#> [[3]]$dimnames[[2]]\n#> [1] \"4\" \"6\" \"8\"\n#> \n#> [[3]]$dimnames[[3]]\n#> [1] \"0\" \"1\"\n#> \n#> \n#> [[3]]$class\n#> [1] \"table\"\nf1 <- factor(letters)\nlevels(f1) <- rev(levels(f1))\nf1 <- factor(letters)\nf1\n#>  [1] a b c d e f g h i j k l m n o p q r s t u v w x y z\n#> 26 Levels: a b c d e f g h i j k l m n o p q r s t u ... z\nas.integer(f1)\n#>  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18\n#> [19] 19 20 21 22 23 24 25 26\n\nlevels(f1) <- rev(levels(f1))\nf1\n#>  [1] z y x w v u t s r q p o n m l k j i h g f e d c b a\n#> 26 Levels: z y x w v u t s r q p o n m l k j i h g f ... a\nas.integer(f1)\n#>  [1]  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18\n#> [19] 19 20 21 22 23 24 25 26\nf2 <- rev(factor(letters))\nf3 <- factor(letters, levels = rev(letters))\nf2 <- rev(factor(letters))\nf2\n#>  [1] z y x w v u t s r q p o n m l k j i h g f e d c b a\n#> 26 Levels: a b c d e f g h i j k l m n o p q r s t u ... z\nas.integer(f2)\n#>  [1] 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10  9\n#> [19]  8  7  6  5  4  3  2  1\nf3 <- factor(letters, levels = rev(letters))\nf3\n#>  [1] a b c d e f g h i j k l m n o p q r s t u v w x y z\n#> 26 Levels: z y x w v u t s r q p o n m l k j i h g f ... a\nas.integer(f3)\n#>  [1] 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10  9\n#> [19]  8  7  6  5  4  3  2  1"},{"path":"vectors.html","id":"lists-exercises-3.5.4","chapter":"3 Vectors","heading":"3.4 Lists (Exercises 3.5.4)","text":"Q1. List ways list differs atomic vector.A1. table comparison:Q2. need use unlist() convert list atomic vector? doesn’t .vector() work?A2. list already (generic) vector, .vector() going change anything, .atomic.vector. Thus, need use unlist().Q3. Compare contrast c() unlist() combining date date-time single vector.A3. Let’s first create date datetime objectAnd check attributes underlying double representation:Behavior c()Since S3 method c() dispatches first argument, resulting class vector going first argument. , attributes lost.Behavior unlist()removes attributes left underlying double representations objects.","code":"\nx <- list(a = 1, b = 2)\n\nis.vector(x)\n#> [1] TRUE\nis.atomic(x)\n#> [1] FALSE\n\n# still a list\nas.vector(x)\n#> $a\n#> [1] 1\n#> \n#> $b\n#> [1] 2\n\n# now a vector\nunlist(x)\n#> a b \n#> 1 2\ndate <- as.Date(\"1947-08-15\")\ndatetime <- as.POSIXct(\"1950-01-26 00:01\", tz = \"UTC\")\nattributes(date)\n#> $class\n#> [1] \"Date\"\nattributes(datetime)\n#> $class\n#> [1] \"POSIXct\" \"POSIXt\" \n#> \n#> $tzone\n#> [1] \"UTC\"\n\nas.double(date) # number of days since the Unix epoch 1970-01-01\n#> [1] -8175\nas.double(datetime) # number of seconds since then\n#> [1] -628991940\nc(date, datetime)\n#> [1] \"1947-08-15\" \"1950-01-26\"\n\nattributes(c(date, datetime))\n#> $class\n#> [1] \"Date\"\n\nc(datetime, date)\n#> [1] \"1950-01-26 00:01:00 UTC\" \"1947-08-15 00:00:00 UTC\"\n\nattributes(c(datetime, date))\n#> $class\n#> [1] \"POSIXct\" \"POSIXt\" \n#> \n#> $tzone\n#> [1] \"UTC\"\nunlist(list(date, datetime))\n#> [1]      -8175 -628991940\n\nunlist(list(datetime, date))\n#> [1] -628991940      -8175"},{"path":"vectors.html","id":"data-frames-and-tibbles-exercises-3.6.8","chapter":"3 Vectors","heading":"3.5 Data frames and tibbles (Exercises 3.6.8)","text":"Q1. Can data frame zero rows? zero columns?A1. Data frame 0 rows possible. basically list vector length 0.Data frame 0 columns also possible. empty list., finally, data frame 0 rows columns also possible:Although, might common create data frames, can results subsetting. example,Q2. happens attempt set rownames unique?A2. attempt set data frame rownames unique, work.Q3. df data frame, can say t(df), t(t(df))? Perform experiments, making sure try different column types.A3. Transposing data frame:transforms matrixcoerces elements typeQ4. .matrix() applied data frame columns different types? differ data.matrix()?A4. return type .matrix() depends data frame column types.docs .matrix() mention:method data frames return character matrix atomic columns non-(numeric/logical/complex) column, applying .vector factors format non-character columns. Otherwise usual coercion hierarchy (logical < integer < double < complex) used, e.g. -logical data frames coerced logical matrix, mixed logical-integer give integer matrix, etc.Let’s experiment:hand, data.matrix() always returns numeric matrix.documentation data.matrix():Return matrix obtained converting variables data frame numeric mode binding together columns matrix. Factors ordered factors replaced internal codes. […] Character columns first converted factors integers.Let’s experiment:","code":"\ndata.frame(x = numeric(0))\n#> [1] x\n#> <0 rows> (or 0-length row.names)\ndata.frame(row.names = 1)\n#> data frame with 0 columns and 1 row\ndata.frame()\n#> data frame with 0 columns and 0 rows\n\ndim(data.frame())\n#> [1] 0 0\nBOD[0, ]\n#> [1] Time   demand\n#> <0 rows> (or 0-length row.names)\n\nBOD[, 0]\n#> data frame with 0 columns and 6 rows\n\nBOD[0, 0]\n#> data frame with 0 columns and 0 rows\ndata.frame(row.names = c(1, 1))\n#> Error in data.frame(row.names = c(1, 1)): duplicate row.names: 1\n# original\n(df <- head(iris))\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1          5.1         3.5          1.4         0.2  setosa\n#> 2          4.9         3.0          1.4         0.2  setosa\n#> 3          4.7         3.2          1.3         0.2  setosa\n#> 4          4.6         3.1          1.5         0.2  setosa\n#> 5          5.0         3.6          1.4         0.2  setosa\n#> 6          5.4         3.9          1.7         0.4  setosa\n\n# transpose\nt(df)\n#>              1        2        3        4        5       \n#> Sepal.Length \"5.1\"    \"4.9\"    \"4.7\"    \"4.6\"    \"5.0\"   \n#> Sepal.Width  \"3.5\"    \"3.0\"    \"3.2\"    \"3.1\"    \"3.6\"   \n#> Petal.Length \"1.4\"    \"1.4\"    \"1.3\"    \"1.5\"    \"1.4\"   \n#> Petal.Width  \"0.2\"    \"0.2\"    \"0.2\"    \"0.2\"    \"0.2\"   \n#> Species      \"setosa\" \"setosa\" \"setosa\" \"setosa\" \"setosa\"\n#>              6       \n#> Sepal.Length \"5.4\"   \n#> Sepal.Width  \"3.9\"   \n#> Petal.Length \"1.7\"   \n#> Petal.Width  \"0.4\"   \n#> Species      \"setosa\"\n\n# transpose of a transpose\nt(t(df))\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width\n#> 1 \"5.1\"        \"3.5\"       \"1.4\"        \"0.2\"      \n#> 2 \"4.9\"        \"3.0\"       \"1.4\"        \"0.2\"      \n#> 3 \"4.7\"        \"3.2\"       \"1.3\"        \"0.2\"      \n#> 4 \"4.6\"        \"3.1\"       \"1.5\"        \"0.2\"      \n#> 5 \"5.0\"        \"3.6\"       \"1.4\"        \"0.2\"      \n#> 6 \"5.4\"        \"3.9\"       \"1.7\"        \"0.4\"      \n#>   Species \n#> 1 \"setosa\"\n#> 2 \"setosa\"\n#> 3 \"setosa\"\n#> 4 \"setosa\"\n#> 5 \"setosa\"\n#> 6 \"setosa\"\n\n# is it a dataframe?\nis.data.frame(df)\n#> [1] TRUE\nis.data.frame(t(df))\n#> [1] FALSE\nis.data.frame(t(t(df)))\n#> [1] FALSE\n\n# check type\ntypeof(df)\n#> [1] \"list\"\ntypeof(t(df))\n#> [1] \"character\"\ntypeof(t(t(df)))\n#> [1] \"character\"\n\n# check dimensions\ndim(df)\n#> [1] 6 5\ndim(t(df))\n#> [1] 5 6\ndim(t(t(df)))\n#> [1] 6 5\n# example with mixed types (coerced to character)\n(df <- head(iris))\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1          5.1         3.5          1.4         0.2  setosa\n#> 2          4.9         3.0          1.4         0.2  setosa\n#> 3          4.7         3.2          1.3         0.2  setosa\n#> 4          4.6         3.1          1.5         0.2  setosa\n#> 5          5.0         3.6          1.4         0.2  setosa\n#> 6          5.4         3.9          1.7         0.4  setosa\n\nas.matrix(df)\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width\n#> 1 \"5.1\"        \"3.5\"       \"1.4\"        \"0.2\"      \n#> 2 \"4.9\"        \"3.0\"       \"1.4\"        \"0.2\"      \n#> 3 \"4.7\"        \"3.2\"       \"1.3\"        \"0.2\"      \n#> 4 \"4.6\"        \"3.1\"       \"1.5\"        \"0.2\"      \n#> 5 \"5.0\"        \"3.6\"       \"1.4\"        \"0.2\"      \n#> 6 \"5.4\"        \"3.9\"       \"1.7\"        \"0.4\"      \n#>   Species \n#> 1 \"setosa\"\n#> 2 \"setosa\"\n#> 3 \"setosa\"\n#> 4 \"setosa\"\n#> 5 \"setosa\"\n#> 6 \"setosa\"\n\nstr(as.matrix(df))\n#>  chr [1:6, 1:5] \"5.1\" \"4.9\" \"4.7\" \"4.6\" \"5.0\" \"5.4\" ...\n#>  - attr(*, \"dimnames\")=List of 2\n#>   ..$ : chr [1:6] \"1\" \"2\" \"3\" \"4\" ...\n#>   ..$ : chr [1:5] \"Sepal.Length\" \"Sepal.Width\" \"Petal.Length\" \"Petal.Width\" ...\n\n# another example (no such coercion)\nBOD\n#>   Time demand\n#> 1    1    8.3\n#> 2    2   10.3\n#> 3    3   19.0\n#> 4    4   16.0\n#> 5    5   15.6\n#> 6    7   19.8\n\nas.matrix(BOD)\n#>      Time demand\n#> [1,]    1    8.3\n#> [2,]    2   10.3\n#> [3,]    3   19.0\n#> [4,]    4   16.0\n#> [5,]    5   15.6\n#> [6,]    7   19.8\ndata.matrix(df)\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1          5.1         3.5          1.4         0.2       1\n#> 2          4.9         3.0          1.4         0.2       1\n#> 3          4.7         3.2          1.3         0.2       1\n#> 4          4.6         3.1          1.5         0.2       1\n#> 5          5.0         3.6          1.4         0.2       1\n#> 6          5.4         3.9          1.7         0.4       1\n\nstr(data.matrix(df))\n#>  num [1:6, 1:5] 5.1 4.9 4.7 4.6 5 5.4 3.5 3 3.2 3.1 ...\n#>  - attr(*, \"dimnames\")=List of 2\n#>   ..$ : chr [1:6] \"1\" \"2\" \"3\" \"4\" ...\n#>   ..$ : chr [1:5] \"Sepal.Length\" \"Sepal.Width\" \"Petal.Length\" \"Petal.Width\" ..."},{"path":"vectors.html","id":"session-information-1","chapter":"3 Vectors","heading":"3.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"subsetting.html","id":"subsetting","chapter":"4 Subsetting","heading":"4 Subsetting","text":"Attaching needed libraries:","code":"\nlibrary(tibble)"},{"path":"subsetting.html","id":"selecting-multiple-elements-exercises-4.2.6","chapter":"4 Subsetting","heading":"4.1 Selecting multiple elements (Exercises 4.2.6)","text":"Q1. Fix following common data frame subsetting errors:A1. Fixed versions commands:Q2. following code yield five missing values?A2. two reasons:default type NA R logical type.R recycles indexes match length vector.Q3. upper.tri() return? subsetting matrix work? need additional subsetting rules describe behaviour?A3. documentation upper.tri() states-Returns matrix logicals size given matrix entries TRUE upper triangleWhen used matrix subsetting, elements corresponding TRUE subsetting matrix selected. , instead matrix, returns vector:Q4. mtcars[1:20] return error? differ similar mtcars[1:20, ]?A4. indexed like list, data frame columns given indices selected.mtcars[1:20] doesn’t work 11 columns mtcars dataset.hand, mtcars[1:20, ] indexes dataframe like matrix, indeed 20 rows mtcars, columns rows selected.Q5. Implement function extracts diagonal entries matrix (behave like diag(x) x matrix).A5. can combine existing functions advantage:Q6. df[.na(df)] <- 0 ? work?A6. expression replaces every instance NA df 0..na(df) produces matrix logical values, provides way subsetting.","code":"mtcars[mtcars$cyl = 4, ]\nmtcars[-1:4, ]\nmtcars[mtcars$cyl <= 5]\nmtcars[mtcars$cyl == 4 | 6, ]\n# `==` instead of `=`\nmtcars[mtcars$cyl == 4, ]\n\n# `-(1:4)` instead of `-1:4`\nmtcars[-(1:4), ]\n\n# `,` was missing\nmtcars[mtcars$cyl <= 5, ]\n\n# correct subsetting syntax\nmtcars[mtcars$cyl == 4 | mtcars$cyl == 6, ]\nmtcars[mtcars$cyl %in% c(4, 6), ]\nx <- 1:5\nx[NA]\n#> [1] NA NA NA NA NA\ntypeof(NA)\n#> [1] \"logical\"\nx <- 1:5\nx[c(TRUE, FALSE)] # recycled to c(TRUE, FALSE, TRUE, FALSE, TRUE)\n#> [1] 1 3 5\nx <- outer(1:5, 1:5, FUN = \"*\")\nx[upper.tri(x)]\n(x <- outer(1:5, 1:5, FUN = \"*\"))\n#>      [,1] [,2] [,3] [,4] [,5]\n#> [1,]    1    2    3    4    5\n#> [2,]    2    4    6    8   10\n#> [3,]    3    6    9   12   15\n#> [4,]    4    8   12   16   20\n#> [5,]    5   10   15   20   25\n\nupper.tri(x)\n#>       [,1]  [,2]  [,3]  [,4]  [,5]\n#> [1,] FALSE  TRUE  TRUE  TRUE  TRUE\n#> [2,] FALSE FALSE  TRUE  TRUE  TRUE\n#> [3,] FALSE FALSE FALSE  TRUE  TRUE\n#> [4,] FALSE FALSE FALSE FALSE  TRUE\n#> [5,] FALSE FALSE FALSE FALSE FALSE\nx[upper.tri(x)]\n#>  [1]  2  3  6  4  8 12  5 10 15 20\nhead(mtcars[1:2])\n#>                    mpg cyl\n#> Mazda RX4         21.0   6\n#> Mazda RX4 Wag     21.0   6\n#> Datsun 710        22.8   4\n#> Hornet 4 Drive    21.4   6\n#> Hornet Sportabout 18.7   8\n#> Valiant           18.1   6\nnrow(mtcars[1:20, ])\n#> [1] 20\nx[!upper.tri(x) & !lower.tri(x)]\n#> [1]  1  4  9 16 25\n\ndiag(x)\n#> [1]  1  4  9 16 25\n(df <- tibble(x = c(1, 2, NA), y = c(NA, 5, NA)))\n#> # A tibble: 3 × 2\n#>       x     y\n#>   <dbl> <dbl>\n#> 1     1    NA\n#> 2     2     5\n#> 3    NA    NA\n\nis.na(df)\n#>          x     y\n#> [1,] FALSE  TRUE\n#> [2,] FALSE FALSE\n#> [3,]  TRUE  TRUE\n\nclass(is.na(df))\n#> [1] \"matrix\" \"array\""},{"path":"subsetting.html","id":"selecting-a-single-element-exercises-4.3.5","chapter":"4 Subsetting","heading":"4.2 Selecting a single element (Exercises 4.3.5)","text":"Q1. Brainstorm many ways possible extract third value cyl variable mtcars dataset.A1. Possible ways extract third value cyl variable mtcars dataset:Q2. Given linear model, e.g., mod <- lm(mpg ~ wt, data = mtcars), extract residual degrees freedom. extract R squared model summary (summary(mod))A2. Given objects class lm lists, can use subsetting operators extract elements want.extracting residual degrees freedomextracting R squared model summary","code":"\nmtcars[[\"cyl\"]][[3]]\n#> [1] 4\nmtcars[[c(2, 3)]]\n#> [1] 4\nmtcars[3, ][[\"cyl\"]]\n#> [1] 4\nmtcars[3, ]$cyl\n#> [1] 4\nmtcars[3, \"cyl\"]\n#> [1] 4\nmtcars[, \"cyl\"][[3]]\n#> [1] 4\nmtcars[3, 2]\n#> [1] 4\nmtcars$cyl[[3]]\n#> [1] 4\nmod <- lm(mpg ~ wt, data = mtcars)\nclass(mod)\n#> [1] \"lm\"\ntypeof(mod)\n#> [1] \"list\"\nmod$df.residual \n#> [1] 30\nmod[[\"df.residual\"]]\n#> [1] 30\nsummary(mod)$r.squared\n#> [1] 0.7528328\nsummary(mod)[[\"r.squared\"]]\n#> [1] 0.7528328"},{"path":"subsetting.html","id":"applications-exercises-4.5.9","chapter":"4 Subsetting","heading":"4.3 Applications (Exercises 4.5.9)","text":"Q1. randomly permute columns data frame? (important technique random forests.) Can simultaneously permute rows columns one step?A1. Let’s create small data frame work .randomly permute columns data frame, can combine [ sample() follows:randomly permute columnsrandomly permute rowsrandomly permute columns rowsQ2. select random sample m rows data frame? sample contiguous (.e., initial row, final row, every row )?A2. Let’s create small data frame work .select random sample m rows data frame, can combine [ sample() follows:random non-contiguous sample m rows data framerandom contiguous sample m rows data frameQ3. put columns data frame alphabetical order?A3. can sort columns data frame alphabetical order using [ order():","code":"\ndf <- head(mtcars)\n\n# original\ndf\n#>                    mpg cyl disp  hp drat    wt  qsec vs am\n#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1\n#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1\n#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1\n#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0\n#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0\n#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0\n#>                   gear carb\n#> Mazda RX4            4    4\n#> Mazda RX4 Wag        4    4\n#> Datsun 710           4    1\n#> Hornet 4 Drive       3    1\n#> Hornet Sportabout    3    2\n#> Valiant              3    1\ndf[sample.int(ncol(df))]\n#>                   drat    wt carb am  qsec vs  hp  mpg disp\n#> Mazda RX4         3.90 2.620    4  1 16.46  0 110 21.0  160\n#> Mazda RX4 Wag     3.90 2.875    4  1 17.02  0 110 21.0  160\n#> Datsun 710        3.85 2.320    1  1 18.61  1  93 22.8  108\n#> Hornet 4 Drive    3.08 3.215    1  0 19.44  1 110 21.4  258\n#> Hornet Sportabout 3.15 3.440    2  0 17.02  0 175 18.7  360\n#> Valiant           2.76 3.460    1  0 20.22  1 105 18.1  225\n#>                   cyl gear\n#> Mazda RX4           6    4\n#> Mazda RX4 Wag       6    4\n#> Datsun 710          4    4\n#> Hornet 4 Drive      6    3\n#> Hornet Sportabout   8    3\n#> Valiant             6    3\ndf[sample.int(nrow(df)), ]\n#>                    mpg cyl disp  hp drat    wt  qsec vs am\n#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1\n#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1\n#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1\n#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0\n#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0\n#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0\n#>                   gear carb\n#> Datsun 710           4    1\n#> Mazda RX4 Wag        4    4\n#> Mazda RX4            4    4\n#> Hornet Sportabout    3    2\n#> Hornet 4 Drive       3    1\n#> Valiant              3    1\ndf[sample.int(nrow(df)), sample.int(ncol(df))]\n#>                    qsec vs gear am    wt drat carb disp  hp\n#> Mazda RX4         16.46  0    4  1 2.620 3.90    4  160 110\n#> Hornet 4 Drive    19.44  1    3  0 3.215 3.08    1  258 110\n#> Datsun 710        18.61  1    4  1 2.320 3.85    1  108  93\n#> Mazda RX4 Wag     17.02  0    4  1 2.875 3.90    4  160 110\n#> Valiant           20.22  1    3  0 3.460 2.76    1  225 105\n#> Hornet Sportabout 17.02  0    3  0 3.440 3.15    2  360 175\n#>                    mpg cyl\n#> Mazda RX4         21.0   6\n#> Hornet 4 Drive    21.4   6\n#> Datsun 710        22.8   4\n#> Mazda RX4 Wag     21.0   6\n#> Valiant           18.1   6\n#> Hornet Sportabout 18.7   8\ndf <- head(mtcars)\n\n# original\ndf\n#>                    mpg cyl disp  hp drat    wt  qsec vs am\n#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1\n#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1\n#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1\n#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0\n#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0\n#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0\n#>                   gear carb\n#> Mazda RX4            4    4\n#> Mazda RX4 Wag        4    4\n#> Datsun 710           4    1\n#> Hornet 4 Drive       3    1\n#> Hornet Sportabout    3    2\n#> Valiant              3    1\n\n# number of rows to sample\nm <- 2L\ndf[sample(nrow(df), m), ]\n#>                mpg cyl disp  hp drat    wt  qsec vs am gear\n#> Valiant       18.1   6  225 105 2.76 3.460 20.22  1  0    3\n#> Mazda RX4 Wag 21.0   6  160 110 3.90 2.875 17.02  0  1    4\n#>               carb\n#> Valiant          1\n#> Mazda RX4 Wag    4\n# select a random starting position from available number of rows\nstart_row <- sample(nrow(df) - m + 1, size = 1)\n\n# adjust ending position while avoiding off-by-one error\nend_row <- start_row + m - 1\n\ndf[start_row:end_row, ]\n#>               mpg cyl disp  hp drat    wt  qsec vs am gear\n#> Mazda RX4      21   6  160 110  3.9 2.620 16.46  0  1    4\n#> Mazda RX4 Wag  21   6  160 110  3.9 2.875 17.02  0  1    4\n#>               carb\n#> Mazda RX4        4\n#> Mazda RX4 Wag    4\n# columns in original order\nnames(mtcars)\n#>  [1] \"mpg\"  \"cyl\"  \"disp\" \"hp\"   \"drat\" \"wt\"   \"qsec\" \"vs\"  \n#>  [9] \"am\"   \"gear\" \"carb\"\n\n# columns in alphabetical order\nnames(mtcars[order(names(mtcars))])\n#>  [1] \"am\"   \"carb\" \"cyl\"  \"disp\" \"drat\" \"gear\" \"hp\"   \"mpg\" \n#>  [9] \"qsec\" \"vs\"   \"wt\""},{"path":"subsetting.html","id":"session-information-2","chapter":"4 Subsetting","heading":"4.4 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble      * 3.2.1   2023-03-20 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"control-flow.html","id":"control-flow","chapter":"5 Control flow","heading":"5 Control flow","text":"","code":""},{"path":"control-flow.html","id":"choices-exercises-5.2.4","chapter":"5 Control flow","heading":"5.1 Choices (Exercises 5.2.4)","text":"Q1. type vector following calls ifelse() return?Read documentation write rules words.A1. rules call ifelse() might return:type unstable, .e. type return depend type condition true (yes , .e.):works cases test argument evaluates logical type:test argument logical type, NA, return NA:test argument doesn’t resolve logical type, try coerce output logical type:also clarified docs function:vector length attributes (including dimensions \"class\") test data values values yes . mode answer coerced logical accommodate first values taken yes values taken .Q2. following code work?A2. code works conditional expressions () - even though numeric type - can successfully coerced logical type.","code":"\nifelse(TRUE, 1, \"no\")\nifelse(FALSE, 1, \"no\")\nifelse(NA, 1, \"no\")\nifelse(TRUE, 1, \"no\") # `numeric` returned\n#> [1] 1\nifelse(FALSE, 1, \"no\") # `character` returned\n#> [1] \"no\"\nifelse(NA_real_, 1, \"no\")\n#> [1] NA\nifelse(NaN, 1, \"no\")\n#> [1] NA\nifelse(NA, 1, \"no\")\n#> [1] NA\n# will work\nifelse(\"TRUE\", 1, \"no\")\n#> [1] 1\nifelse(\"false\", 1, \"no\")\n#> [1] \"no\"\n\n# won't work\nifelse(\"tRuE\", 1, \"no\")\n#> [1] NA\nifelse(NaN, 1, \"no\")\n#> [1] NA\nx <- 1:10\nif (length(x)) \"not empty\" else \"empty\"\n#> [1] \"not empty\"\n\nx <- numeric()\nif (length(x)) \"not empty\" else \"empty\"\n#> [1] \"empty\"\nas.logical(length(1:10))\n#> [1] TRUE\n\nas.logical(length(numeric()))\n#> [1] FALSE"},{"path":"control-flow.html","id":"loops-exercises-5.3.3","chapter":"5 Control flow","heading":"5.2 Loops (Exercises 5.3.3)","text":"Q1. code succeed without errors warnings?A1. works 1:length(x) works positive negative directions.case, since x length 0, go 1 0.Additionally, since --bound (OOB) value atomic vectors NA, related operations OOB values also produce NA.way avoid unintended behavior use seq_along() instead:Q2. following code evaluated, can say vector iterated?A2. iterator variable x initially takes values vector xs. can check printing x iteration:worth noting x updated iteration; otherwise, take increasingly bigger values xs, loop never end executing.Q3. following code tell index updated?A3. () loop index updated beginning iteration. Otherwise, encounter infinite loop.Also, worth contrasting behavior () loop () loop:","code":"\nx <- numeric()\nout <- vector(\"list\", length(x))\nfor (i in 1:length(x)) {\n  out[i] <- x[i]^2\n}\nout\n1:2\n#> [1] 1 2\n1:0\n#> [1] 1 0\n1:-3\n#> [1]  1  0 -1 -2 -3\nx <- numeric()\nout <- vector(\"list\", length(x))\n\nfor (i in 1:length(x)) {\n  print(paste(\"i:\", i, \", x[i]:\", x[i], \", out[i]:\", out[i]))\n\n  out[i] <- x[i]^2\n}\n#> [1] \"i: 1 , x[i]: NA , out[i]: NULL\"\n#> [1] \"i: 0 , x[i]:  , out[i]: \"\n\nout\n#> [[1]]\n#> [1] NA\nx <- numeric()\nout <- vector(\"list\", length(x))\n\nfor (i in seq_along(x)) {\n  out[i] <- x[i]^2\n}\n\nout\n#> list()\nxs <- c(1, 2, 3)\nfor (x in xs) {\n  xs <- c(xs, x * 2)\n}\nxs\n#> [1] 1 2 3 2 4 6\nxs <- c(1, 2, 3)\nfor (x in xs) {\n  cat(\"x:\", x, \"\\n\")\n  xs <- c(xs, x * 2)\n  cat(\"xs:\", paste(xs), \"\\n\")\n}\n#> x: 1 \n#> xs: 1 2 3 2 \n#> x: 2 \n#> xs: 1 2 3 2 4 \n#> x: 3 \n#> xs: 1 2 3 2 4 6\nfor (i in 1:3) {\n  i <- i * 2\n  print(i)\n}\n#> [1] 2\n#> [1] 4\n#> [1] 6\nfor (i in 1:3) {\n  cat(\"before: \", i, \"\\n\")\n  i <- i * 2\n  cat(\"after:  \", i, \"\\n\")\n}\n#> before:  1 \n#> after:   2 \n#> before:  2 \n#> after:   4 \n#> before:  3 \n#> after:   6\ni <- 1\nwhile (i < 4) {\n  cat(\"before: \", i, \"\\n\")\n  i <- i * 2\n  cat(\"after:  \", i, \"\\n\")\n}\n#> before:  1 \n#> after:   2 \n#> before:  2 \n#> after:   4"},{"path":"control-flow.html","id":"session-information-3","chapter":"5 Control flow","heading":"5.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"functions.html","id":"functions","chapter":"6 Functions","heading":"6 Functions","text":"Attaching needed libraries:","code":"\nlibrary(tidyverse, warn.conflicts = FALSE)"},{"path":"functions.html","id":"function-fundamentals-exercises-6.2.5","chapter":"6 Functions","heading":"6.1 Function fundamentals (Exercises 6.2.5)","text":"Q1. Given name, like \"mean\", match.fun() lets find function. Given function, can find name? doesn’t make sense R?A1. Given name, match.fun() lets find function., given function, doesn’t make sense find name can multiple names bound function.Q2. ’s possible (although typically useful) call anonymous function. two approaches correct? ?A2. first expression correct since function evaluate 3(), syntactically allowed since literals can’t treated like functions.correct way call anonymous function.Q3. good rule thumb anonymous function fit one line shouldn’t need use {}. Review code. used anonymous function instead named function? used named function instead anonymous function?A3. Self activity.Q4. function allows tell object function? function allows tell function primitive function?A4. Use .function() check object function:Use .primitive() check function primitive:Q5. code makes list functions base package.Use answer following questions:base function arguments?base function arguments?many base functions arguments? ’s special functions?many base functions arguments? ’s special functions?adapt code find primitive functions?adapt code find primitive functions?A5. provided code following:base function arguments?can use formals() extract number arguments, function returns NULL primitive functions.Therefore, focus non-primitive functions.scan() function arguments.many base functions arguments? ’s special functions?time writing, 47 base (non-primitive) functions arguments.adapt code find primitive functions?Q6. three important components function?A6. Except primitive functions, functions 3 important components:formals()body()environment()Q7. printing function show environment created ?A7. package functions print environment:two exceptions enclosing environment won’t printed:primitive functionsfunctions created global environment","code":"\nmatch.fun(\"mean\")\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x55b231834a20>\n#> <environment: namespace:base>\nf1 <- function(x) mean(x)\nf2 <- f1\n\nmatch.fun(\"f1\")\n#> function(x) mean(x)\n\nmatch.fun(\"f2\")\n#> function(x) mean(x)\nfunction(x) 3()\n#> function(x) 3()\n(function(x) 3)()\n#> [1] 3\nf <- (function(x) 3())\nf\n#> function(x) 3()\nf()\n#> Error in f(): attempt to apply non-function\n\nrlang::is_syntactic_literal(3)\n#> [1] TRUE\ng <- (function(x) 3)\ng\n#> function(x) 3\ng()\n#> [1] 3\n# these are functions\nf <- function(x) 3\nis.function(mean)\n#> [1] TRUE\nis.function(f)\n#> [1] TRUE\n\n# these aren't\nis.function(\"x\")\n#> [1] FALSE\nis.function(new.env())\n#> [1] FALSE\n# primitive\nis.primitive(sum)\n#> [1] TRUE\nis.primitive(`+`)\n#> [1] TRUE\n\n# not primitive\nis.primitive(mean)\n#> [1] FALSE\nis.primitive(read.csv)\n#> [1] FALSE\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\nformals(\"!\")\n#> NULL\n\nlength(formals(\"!\"))\n#> [1] 0\nfuns <- purrr::discard(funs, is.primitive)\ndf_formals <- purrr::map_df(funs, ~ length(formals(.))) %>%\n  tidyr::pivot_longer(\n    cols = dplyr::everything(),\n    names_to = \"function\",\n    values_to = \"argumentCount\"\n  ) %>%\n  dplyr::arrange(desc(argumentCount))\n\ndf_formals\n#> # A tibble: 1,137 × 2\n#>    `function`       argumentCount\n#>    <chr>                    <int>\n#>  1 scan                        22\n#>  2 format.default              16\n#>  3 source                      16\n#>  4 formatC                     15\n#>  5 library                     13\n#>  6 merge.data.frame            13\n#>  7 prettyNum                   13\n#>  8 system2                     11\n#>  9 print.default               10\n#> 10 save                        10\n#> # ℹ 1,127 more rows\ndplyr::filter(df_formals, argumentCount == 0)\n#> # A tibble: 47 × 2\n#>    `function`               argumentCount\n#>    <chr>                            <int>\n#>  1 .First.sys                           0\n#>  2 .NotYetImplemented                   0\n#>  3 .OptRequireMethods                   0\n#>  4 .standard_regexps                    0\n#>  5 .tryResumeInterrupt                  0\n#>  6 closeAllConnections                  0\n#>  7 contributors                         0\n#>  8 Cstack_info                          0\n#>  9 default.stringsAsFactors             0\n#> 10 extSoftVersion                       0\n#> # ℹ 37 more rows\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\nprimitives <- Filter(is.primitive, funs)\n\nlength(primitives)\n#> [1] 205\n\nnames(primitives)\n#>   [1] \"-\"                    \":\"                   \n#>   [3] \"::\"                   \":::\"                 \n#>   [5] \"!\"                    \"!=\"                  \n#>   [7] \"...elt\"               \"...length\"           \n#>   [9] \"...names\"             \".C\"                  \n#>  [11] \".cache_class\"         \".Call\"               \n#>  [13] \".Call.graphics\"       \".class2\"             \n#>  [15] \".External\"            \".External.graphics\"  \n#>  [17] \".External2\"           \".Fortran\"            \n#>  [19] \".Internal\"            \".isMethodsDispatchOn\"\n#>  [21] \".Primitive\"           \".primTrace\"          \n#>  [23] \".primUntrace\"         \".subset\"             \n#>  [25] \".subset2\"             \"(\"                   \n#>  [27] \"[\"                    \"[[\"                  \n#>  [29] \"[[<-\"                 \"[<-\"                 \n#>  [31] \"{\"                    \"@\"                   \n#>  [33] \"@<-\"                  \"*\"                   \n#>  [35] \"/\"                    \"&\"                   \n#>  [37] \"&&\"                   \"%*%\"                 \n#>  [39] \"%/%\"                  \"%%\"                  \n#>  [41] \"^\"                    \"+\"                   \n#>  [43] \"<\"                    \"<-\"                  \n#>  [45] \"<<-\"                  \"<=\"                  \n#>  [47] \"=\"                    \"==\"                  \n#>  [49] \">\"                    \">=\"                  \n#>  [51] \"|\"                    \"||\"                  \n#>  [53] \"~\"                    \"$\"                   \n#>  [55] \"$<-\"                  \"abs\"                 \n#>  [57] \"acos\"                 \"acosh\"               \n#>  [59] \"all\"                  \"any\"                 \n#>  [61] \"anyNA\"                \"Arg\"                 \n#>  [63] \"as.call\"              \"as.character\"        \n#>  [65] \"as.complex\"           \"as.double\"           \n#>  [67] \"as.environment\"       \"as.integer\"          \n#>  [69] \"as.logical\"           \"as.numeric\"          \n#>  [71] \"as.raw\"               \"asin\"                \n#>  [73] \"asinh\"                \"atan\"                \n#>  [75] \"atanh\"                \"attr\"                \n#>  [77] \"attr<-\"               \"attributes\"          \n#>  [79] \"attributes<-\"         \"baseenv\"             \n#>  [81] \"break\"                \"browser\"             \n#>  [83] \"c\"                    \"call\"                \n#>  [85] \"ceiling\"              \"class\"               \n#>  [87] \"class<-\"              \"Conj\"                \n#>  [89] \"cos\"                  \"cosh\"                \n#>  [91] \"cospi\"                \"cummax\"              \n#>  [93] \"cummin\"               \"cumprod\"             \n#>  [95] \"cumsum\"               \"digamma\"             \n#>  [97] \"dim\"                  \"dim<-\"               \n#>  [99] \"dimnames\"             \"dimnames<-\"          \n#> [101] \"emptyenv\"             \"enc2native\"          \n#> [103] \"enc2utf8\"             \"environment<-\"       \n#> [105] \"exp\"                  \"expm1\"               \n#> [107] \"expression\"           \"floor\"               \n#> [109] \"for\"                  \"forceAndCall\"        \n#> [111] \"function\"             \"gamma\"               \n#> [113] \"gc.time\"              \"globalenv\"           \n#> [115] \"if\"                   \"Im\"                  \n#> [117] \"interactive\"          \"invisible\"           \n#> [119] \"is.array\"             \"is.atomic\"           \n#> [121] \"is.call\"              \"is.character\"        \n#> [123] \"is.complex\"           \"is.double\"           \n#> [125] \"is.environment\"       \"is.expression\"       \n#> [127] \"is.finite\"            \"is.function\"         \n#> [129] \"is.infinite\"          \"is.integer\"          \n#> [131] \"is.language\"          \"is.list\"             \n#> [133] \"is.logical\"           \"is.matrix\"           \n#> [135] \"is.na\"                \"is.name\"             \n#> [137] \"is.nan\"               \"is.null\"             \n#> [139] \"is.numeric\"           \"is.object\"           \n#> [141] \"is.pairlist\"          \"is.raw\"              \n#> [143] \"is.recursive\"         \"is.single\"           \n#> [145] \"is.symbol\"            \"isS4\"                \n#> [147] \"lazyLoadDBfetch\"      \"length\"              \n#> [149] \"length<-\"             \"levels<-\"            \n#> [151] \"lgamma\"               \"list\"                \n#> [153] \"log\"                  \"log10\"               \n#> [155] \"log1p\"                \"log2\"                \n#> [157] \"max\"                  \"min\"                 \n#> [159] \"missing\"              \"Mod\"                 \n#> [161] \"names\"                \"names<-\"             \n#> [163] \"nargs\"                \"next\"                \n#> [165] \"nzchar\"               \"oldClass\"            \n#> [167] \"oldClass<-\"           \"on.exit\"             \n#> [169] \"pos.to.env\"           \"proc.time\"           \n#> [171] \"prod\"                 \"quote\"               \n#> [173] \"range\"                \"Re\"                  \n#> [175] \"rep\"                  \"repeat\"              \n#> [177] \"retracemem\"           \"return\"              \n#> [179] \"round\"                \"seq_along\"           \n#> [181] \"seq_len\"              \"seq.int\"             \n#> [183] \"sign\"                 \"signif\"              \n#> [185] \"sin\"                  \"sinh\"                \n#> [187] \"sinpi\"                \"sqrt\"                \n#> [189] \"standardGeneric\"      \"storage.mode<-\"      \n#> [191] \"substitute\"           \"sum\"                 \n#> [193] \"switch\"               \"tan\"                 \n#> [195] \"tanh\"                 \"tanpi\"               \n#> [197] \"tracemem\"             \"trigamma\"            \n#> [199] \"trunc\"                \"unCfillPOSIXlt\"      \n#> [201] \"unclass\"              \"untracemem\"          \n#> [203] \"UseMethod\"            \"while\"               \n#> [205] \"xtfrm\"\n# base\nmean\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x55b231834a20>\n#> <environment: namespace:base>\n\n# other package function\npurrr::map\n#> function (.x, .f, ..., .progress = FALSE) \n#> {\n#>     map_(\"list\", .x, .f, ..., .progress = .progress)\n#> }\n#> <bytecode: 0x55b23381da98>\n#> <environment: namespace:purrr>\nsum\n#> function (..., na.rm = FALSE)  .Primitive(\"sum\")\nf <- function(x) mean(x)\nf\n#> function(x) mean(x)"},{"path":"functions.html","id":"lexical-scoping-exercises-6.4.5","chapter":"6 Functions","heading":"6.2 Lexical scoping (Exercises 6.4.5)","text":"Q1. following code return? ? Describe three c’s interpreted.A1. c(c = c):first c interpreted function call c()second c name vector elementthird c variable value 10You can also see lexical analysis expression:Q2. four principles govern R looks values?A2. Principles govern R looks values:Name masking (names defined inside function mask names defined outside function)Name masking (names defined inside function mask names defined outside function)Functions vs. variables (rule also applies function names)Functions vs. variables (rule also applies function names)fresh start (every time function called, new environment created host execution)fresh start (every time function called, new environment created host execution)Dynamic look-(R looks values function run, function created)Dynamic look-(R looks values function run, function created)Q3. following function return? Make prediction running code .A3. Correctly predicted 😉Although multiple f() functions, order evaluation goes inside outside x^2 evaluated first f(x) * 2 evaluated last. results 202 (= ((10 ^ 2) + 1) * 2).","code":"\nc <- 10\nc(c = c)\nc <- 10\nc(c = c)\n#>  c \n#> 10\np_expr <- parse(text = \"c(c = c)\", keep.source = TRUE)\ngetParseData(p_expr) %>% select(token, text)\n#>                   token text\n#> 12                 expr     \n#> 1  SYMBOL_FUNCTION_CALL    c\n#> 3                  expr     \n#> 2                   '('    (\n#> 4            SYMBOL_SUB    c\n#> 5                EQ_SUB    =\n#> 6                SYMBOL    c\n#> 8                  expr     \n#> 7                   ')'    )\nf <- function(x) {\n  f <- function(x) {\n    f <- function() {\n      x^2\n    }\n    f() + 1\n  }\n  f(x) * 2\n}\nf(10)\nf <- function(x) {\n  f <- function(x) {\n    f <- function() {\n      x^2\n    }\n    f() + 1\n  }\n  f(x) * 2\n}\n\nf(10)\n#> [1] 202"},{"path":"functions.html","id":"lazy-evaluation-exercises-6.5.4","chapter":"6 Functions","heading":"6.3 Lazy evaluation (Exercises 6.5.4)","text":"Q1. important property && makes x_ok() work?different code? behaviour undesirable ?A1. && evaluates left right short-circuit evaluation, .e., first operand TRUE, R short-circuit even look second operand.Replacing && & undesirable performs element-wise logical comparisons returns vector values always useful decision (TRUE, FALSE, NA).Q2. function return? ? principle illustrate?A2. function returns 100 due lazy evaluation.function execution environment encounters x, evaluates argument x = z since name z already bound value 100 environment, x also bound value.can check looking memory addresses:Q3. function return? ? principle illustrate?A3. Let’s first look function returns:name masking. function call c(x, y), x accessed function environment, following promise evaluated function environment:, thus y gets assigned 1, x 2, since last value scope.Therefore, neither promise y = 0 global assignment y <- 10 ever consulted find value y.Q4. hist(), default value xlim range(breaks), default value breaks \"Sturges\", andExplain hist() works get correct xlim value.A4. xlim defines range histogram’s x-axis.default xlim = range(breaks) breaks = \"Sturges\" arguments reveal function uses Sturges’ algorithm compute number breaks.see implementation, run sloop::s3_get_method(\"hist.default\").hist() ensures chosen algorithm returns numeric vector containing least two unique elements xlim computed.Q5. Explain function works. confusing?A5. Let’s take step--step.function argument x missing function call. means stop(\"Error!\") evaluated function environment, global environment., due lazy evaluation, promise stop(\"Error!\") evaluated x accessed. happens print(x) called.print(x) leads x evaluated, evaluates stop function environment. , function environment, base::stop() masked locally defined stop() function, returns Sys.time() output.Q6. many arguments required calling library()?A6. Going solely signature,looks like following arguments required:, reality, one argument required: package. function internally checks arguments missing adjusts accordingly.better arguments NULL instead missing; avoid confusion.","code":"\nx_ok <- function(x) {\n  !is.null(x) && length(x) == 1 && x > 0\n}\n\nx_ok(NULL)\nx_ok(1)\nx_ok(1:3)\nx_ok <- function(x) {\n  !is.null(x) & length(x) == 1 & x > 0\n}\n\nx_ok(NULL)\nx_ok(1)\nx_ok(1:3)\nx_ok <- function(x) {\n  !is.null(x) && length(x) == 1 && x > 0\n}\n\nx_ok(NULL)\n#> [1] FALSE\n\nx_ok(1)\n#> [1] TRUE\n\nx_ok(1:3)\n#> [1] FALSE\nx_ok <- function(x) {\n  !is.null(x) & length(x) == 1 & x > 0\n}\n\nx_ok(NULL)\n#> logical(0)\n\nx_ok(1)\n#> [1] TRUE\n\nx_ok(1:3)\n#> [1] FALSE FALSE FALSE\nf2 <- function(x = z) {\n  z <- 100\n  x\n}\nf2()\nf2 <- function(x = z) {\n  z <- 100\n  print(lobstr::obj_addrs(list(x, z)))\n  x\n}\n\nf2()\n#> [1] \"0x55b231f71660\" \"0x55b231f71660\"\n#> [1] 100\ny <- 10\nf1 <- function(x =\n                 {\n                   y <- 1\n                   2\n                 },\n               y = 0) {\n  c(x, y)\n}\nf1()\ny\ny <- 10\nf1 <- function(x =\n                 {\n                   y <- 1\n                   2\n                 },\n               y = 0) {\n  c(x, y)\n}\nf1()\n#> [1] 2 1\ny\n#> [1] 10\nx <- {\n  y <- 1\n  2\n}\nrange(\"Sturges\")\n#> [1] \"Sturges\" \"Sturges\"\nhist(mtcars$wt, xlim = c(1, 6))\nnclass.Sturges(mtcars$wt)\n#> [1] 6\nshow_time <- function(x = stop(\"Error!\")) {\n  stop <- function(...) Sys.time()\n  print(x)\n}\n\nshow_time()\n#> [1] \"2024-01-14 00:44:16 UTC\"\nformals(library)\n#> $package\n#> \n#> \n#> $help\n#> \n#> \n#> $pos\n#> [1] 2\n#> \n#> $lib.loc\n#> NULL\n#> \n#> $character.only\n#> [1] FALSE\n#> \n#> $logical.return\n#> [1] FALSE\n#> \n#> $warn.conflicts\n#> \n#> \n#> $quietly\n#> [1] FALSE\n#> \n#> $verbose\n#> getOption(\"verbose\")\n#> \n#> $mask.ok\n#> \n#> \n#> $exclude\n#> \n#> \n#> $include.only\n#> \n#> \n#> $attach.required\n#> missing(include.only)\nformals(library) %>%\n  purrr::discard(is.null) %>%\n  purrr::map_lgl(~ .x == \"\") %>%\n  purrr::keep(~ isTRUE(.x)) %>%\n  names()\n#> [1] \"package\"        \"help\"           \"warn.conflicts\"\n#> [4] \"mask.ok\"        \"exclude\"        \"include.only\""},{"path":"functions.html","id":"dot-dot-dot-exercises-6.6.1","chapter":"6 Functions","heading":"6.4 ... (dot-dot-dot) (Exercises 6.6.1)","text":"Q1. Explain following results:A1. Let’s look arguments functions:can seen, sum() function doesn’t na.omit argument. , input na.omit = TRUE treated 1 (logical implicitly coerced numeric), thus results. , expression evaluates sum(1, 2, 3, 1).mean() function, one parameter (x) ’s matched first argument (1). , expression evaluates mean(1).Q2. Explain find documentation named arguments following function call:A2. Typing ?plot console, see documentation, also shows signature:Since ... passed par(), can look ?par docs:.docs parameters interest reside .Q3. plot(1:10, col = \"red\") colour points, axes labels? Read source code plot.default() find .A3. Source code can found .plot.default() passes ... localTitle(), passes title().title() four parts: main, sub, xlab, ylab.single argument col work ambiguous element apply argument .","code":"\nsum(1, 2, 3)\n#> [1] 6\nmean(1, 2, 3)\n#> [1] 1\n\nsum(1, 2, 3, na.omit = TRUE)\n#> [1] 7\nmean(1, 2, 3, na.omit = TRUE)\n#> [1] 1\nstr(sum)\n#> function (..., na.rm = FALSE)\nstr(mean)\n#> function (x, ...)\nplot(1:10, col = \"red\", pch = 20, xlab = \"x\", col.lab = \"blue\")#> function (x, y, ...)#> function (..., no.readonly = FALSE)\nlocalTitle <- function(..., col, bg, pch, cex, lty, lwd) title(...)\n\ntitle <- function(main = NULL, sub = NULL, xlab = NULL, ylab = NULL,\n                  line = NA, outer = FALSE, ...) {\n  main <- as.graphicsAnnot(main)\n  sub <- as.graphicsAnnot(sub)\n  xlab <- as.graphicsAnnot(xlab)\n  ylab <- as.graphicsAnnot(ylab)\n  .External.graphics(C_title, main, sub, xlab, ylab, line, outer, ...)\n  invisible()\n}"},{"path":"functions.html","id":"exiting-a-function-exercises-6.7.5","chapter":"6 Functions","heading":"6.5 Exiting a function (Exercises 6.7.5)","text":"Q1. load() return? don’t normally see values?A1. load() function reloads datasets saved using save() function:normally don’t see value function loads datasets invisibly.can change setting verbose = TRUE:Q2. write.table() return? useful?A2. write.table() writes data frame file returns NULL invisibly.helpful function invisibly returned actual object written file, used.Q3. chdir parameter source() compare with_dir()? might prefer one ?A3. chdir parameter source() described :TRUE file pathname, R working directory temporarily changed directory containing file evaluatingThat , chdir allows changing working directory temporarily directory containing file sourced:withr::with_dir() temporarily changes current working directory:importantly, parameters dir allows temporarily changing working directory directory.Q4. Write function opens graphics device, runs supplied code, closes graphics device (always, regardless whether plotting code works).A4. function opens graphics device, runs supplied code, closes graphics device:Q5. can use .exit() implement simple version capture.output().Compare capture.output() capture.output2(). functions differ? features removed make key ideas easier see? rewritten key ideas ’re easier understand?A5. capture.output() significantly complex, can seen definition:key differences:capture.output() uses print() function print console:capture.output() can capture messages well:capture.output() takes account visibility expression:","code":"\nsave(iris, file = \"my_iris.rda\")\nload(\"my_iris.rda\")\nload(\"my_iris.rda\", verbose = TRUE)\n#> Loading objects:\n#>   iris\n\n# cleanup\nunlink(\"my_iris.rda\")\nwrite.table(BOD, file = \"BOD.csv\")\n# cleanup\nunlink(\"BOD.csv\")\nwithr::with_dir\n#> function (new, code) \n#> {\n#>     old <- setwd(dir = new)\n#>     on.exit(setwd(old))\n#>     force(code)\n#> }\n#> <bytecode: 0x55b23af92cc8>\n#> <environment: namespace:withr>\nwith_png_device <- function(filename, code, ...) {\n  grDevices::png(filename = filename, ...)\n  on.exit(grDevices::dev.off(), add = TRUE)\n\n  force(code)\n}\ncapture.output2 <- function(code) {\n  temp <- tempfile()\n  on.exit(file.remove(temp), add = TRUE, after = TRUE)\n\n  sink(temp)\n  on.exit(sink(), add = TRUE, after = TRUE)\n\n  force(code)\n  readLines(temp)\n}\n\ncapture.output2(cat(\"a\", \"b\", \"c\", sep = \"\\n\"))\n#> [1] \"a\" \"b\" \"c\"\ncapture.output\n#> function (..., file = NULL, append = FALSE, type = c(\"output\", \n#>     \"message\"), split = FALSE) \n#> {\n#>     type <- match.arg(type)\n#>     rval <- NULL\n#>     closeit <- TRUE\n#>     if (is.null(file)) \n#>         file <- textConnection(\"rval\", \"w\", local = TRUE)\n#>     else if (is.character(file)) \n#>         file <- file(file, if (append) \n#>             \"a\"\n#>         else \"w\")\n#>     else if (inherits(file, \"connection\")) {\n#>         if (!isOpen(file)) \n#>             open(file, if (append) \n#>                 \"a\"\n#>             else \"w\")\n#>         else closeit <- FALSE\n#>     }\n#>     else stop(\"'file' must be NULL, a character string or a connection\")\n#>     sink(file, type = type, split = split)\n#>     on.exit({\n#>         sink(type = type, split = split)\n#>         if (closeit) close(file)\n#>     })\n#>     for (i in seq_len(...length())) {\n#>         out <- withVisible(...elt(i))\n#>         if (out$visible) \n#>             print(out$value)\n#>     }\n#>     on.exit()\n#>     sink(type = type, split = split)\n#>     if (closeit) \n#>         close(file)\n#>     if (is.null(rval)) \n#>         invisible(NULL)\n#>     else rval\n#> }\n#> <bytecode: 0x55b23b421318>\n#> <environment: namespace:utils>\ncapture.output(1)\n#> [1] \"[1] 1\"\n\ncapture.output2(1)\n#> character(0)\ncapture.output(message(\"Hi there!\"), \"a\", type = \"message\")\n#> Hi there!\n#> [1] \"a\"\n#> character(0)\ncapture.output(1, invisible(2), 3)\n#> [1] \"[1] 1\" \"[1] 3\""},{"path":"functions.html","id":"function-forms-exercises-6.8.6","chapter":"6 Functions","heading":"6.6 Function forms (Exercises 6.8.6)","text":"Q1. Rewrite following code snippets prefix form:A1. Prefix forms code snippets:Q2. Clarify following list odd function calls:A2. functions don’t dots (...) parameters, argument matching takes place following steps:exact matching named argumentspartial matchingposition-basedQ3. Explain following code fails:A3. provided book, replacement function defined :Let’s re-write provided code prefix format understand doesn’t work:Although works:following doesn’t code evaluates :get<- function R.Q4. Create replacement function modifies random location vector.A4. replacement function modifies random location vector:Let’s try :Q5. Write version + pastes inputs together character vectors behaves usual otherwise. words, make code work:A5. Infix operator re-create desired output:Q6. Create list replacement functions found base package. ones primitive functions? (Hint: use apropos().)A6. Replacement functions always <- end names., using apropos(), can find replacement functions search paths filter ones don’t belong {base} package:primitive replacement functions can listed using .primitive():Q7. valid names user-created infix functions?A7. mentioned respective section book:names infix functions flexible regular R functions: can contain sequence characters except %.Q8. Create infix xor() operator.A8. Exclusive logical operation TRUE arguments differ (one TRUE, FALSE).can create infix operator exclusive like :function vectorized inputs underlying logical operators vectorized.Q9. Create infix versions set functions intersect(), union(), setdiff(). might call %n%, %u%, %/% match conventions mathematics.A9. required infix operators can created following:can check outputs agree underlying functions:","code":"\n1 + 2 + 3\n\n1 + (2 + 3)\n\nif (length(x) <= 5) x[[5]] else x[[n]]\n# The binary `+`  operator has left to right associative property.\n`+`(`+`(1, 2), 3)\n\n`+`(1, `(`(`+`(2, 3)))\n\n`if`(cond = `<=`(length(x), 5), cons.expr = `[[`(x, 5), alt.expr = `[[`(x, n))\nx <- sample(replace = TRUE, 20, x = c(1:10, NA))\ny <- runif(min = 0, max = 1, 20)\ncor(m = \"k\", y = y, u = \"p\", x = x)\nmodify(get(\"x\"), 1) <- 10\n#> Error: target of assignment expands to non-language object\n`modify<-` <- function(x, position, value) {\n  x[position] <- value\n  x\n}\nget(\"x\") <- `modify<-`(x = get(\"x\"), position = 1, value = 10)\nx <- 5\n`modify<-`(x = get(\"x\"), position = 1, value = 10)\n#> [1] 10\n`get<-`(\"x\", 10)\n#> Error in `get<-`(\"x\", 10): could not find function \"get<-\"\n`random_modify<-` <- function(x, value) {\n  random_index <- sample(seq_along(x), size = 1)\n  x[random_index] <- value\n  return(x)\n}\nx1 <- rep(\"a\", 10)\nrandom_modify(x1) <- \"X\"\nx1\n#>  [1] \"a\" \"a\" \"a\" \"a\" \"X\" \"a\" \"a\" \"a\" \"a\" \"a\"\n\nx2 <- rep(\"a\", 10)\nrandom_modify(x2) <- \"Y\"\nx2\n#>  [1] \"a\" \"a\" \"a\" \"a\" \"a\" \"Y\" \"a\" \"a\" \"a\" \"a\"\n\nx3 <- rep(0, 15)\nrandom_modify(x3) <- -4\nx3\n#>  [1]  0  0  0  0 -4  0  0  0  0  0  0  0  0  0  0\n\nx4 <- rep(0, 15)\nrandom_modify(x4) <- -1\nx4\n#>  [1]  0  0  0  0  0  0  0  0  0  0  0  0 -1  0  0\n1 + 2\n#> [1] 3\n\n\"a\" + \"b\"\n#> [1] \"ab\"\n`+` <- function(x, y) {\n  if (is.character(x) || is.character(y)) {\n    paste0(x, y)\n  } else {\n    base::`+`(x, y)\n  }\n}\n\n1 + 2\n#> [1] 3\n\n\"a\" + \"b\"\n#> [1] \"ab\"\n\nrm(\"+\", envir = .GlobalEnv)\nls_replacement <- apropos(\"<-\", where = TRUE, mode = \"function\")\n\nbase_index <- which(grepl(\"base\", searchpaths()))\n\nls_replacement <- ls_replacement[which(names(ls_replacement) == as.character(base_index))]\n\nunname(ls_replacement)\n#>  [1] \".rowNamesDF<-\"           \"[[<-\"                   \n#>  [3] \"[[<-.data.frame\"         \"[[<-.factor\"            \n#>  [5] \"[[<-.numeric_version\"    \"[[<-.POSIXlt\"           \n#>  [7] \"[<-\"                     \"[<-.data.frame\"         \n#>  [9] \"[<-.Date\"                \"[<-.difftime\"           \n#> [11] \"[<-.factor\"              \"[<-.numeric_version\"    \n#> [13] \"[<-.POSIXct\"             \"[<-.POSIXlt\"            \n#> [15] \"@<-\"                     \"<-\"                     \n#> [17] \"<<-\"                     \"$<-\"                    \n#> [19] \"$<-.data.frame\"          \"$<-.POSIXlt\"            \n#> [21] \"attr<-\"                  \"attributes<-\"           \n#> [23] \"body<-\"                  \"class<-\"                \n#> [25] \"colnames<-\"              \"comment<-\"              \n#> [27] \"diag<-\"                  \"dim<-\"                  \n#> [29] \"dimnames<-\"              \"dimnames<-.data.frame\"  \n#> [31] \"Encoding<-\"              \"environment<-\"          \n#> [33] \"formals<-\"               \"is.na<-\"                \n#> [35] \"is.na<-.default\"         \"is.na<-.factor\"         \n#> [37] \"is.na<-.numeric_version\" \"length<-\"               \n#> [39] \"length<-.Date\"           \"length<-.difftime\"      \n#> [41] \"length<-.factor\"         \"length<-.POSIXct\"       \n#> [43] \"length<-.POSIXlt\"        \"levels<-\"               \n#> [45] \"levels<-.factor\"         \"mode<-\"                 \n#> [47] \"mostattributes<-\"        \"names<-\"                \n#> [49] \"names<-.POSIXlt\"         \"oldClass<-\"             \n#> [51] \"parent.env<-\"            \"regmatches<-\"           \n#> [53] \"row.names<-\"             \"row.names<-.data.frame\" \n#> [55] \"row.names<-.default\"     \"rownames<-\"             \n#> [57] \"split<-\"                 \"split<-.data.frame\"     \n#> [59] \"split<-.default\"         \"storage.mode<-\"         \n#> [61] \"substr<-\"                \"substring<-\"            \n#> [63] \"units<-\"                 \"units<-.difftime\"\nmget(ls_replacement, envir = baseenv()) %>%\n  purrr::keep(is.primitive) %>%\n  names()\n#>  [1] \"[[<-\"           \"[<-\"            \"@<-\"           \n#>  [4] \"<-\"             \"<<-\"            \"$<-\"           \n#>  [7] \"attr<-\"         \"attributes<-\"   \"class<-\"       \n#> [10] \"dim<-\"          \"dimnames<-\"     \"environment<-\" \n#> [13] \"length<-\"       \"levels<-\"       \"names<-\"       \n#> [16] \"oldClass<-\"     \"storage.mode<-\"\nlv1 <- c(TRUE, FALSE, TRUE, FALSE)\nlv2 <- c(TRUE, TRUE, FALSE, FALSE)\n\nxor(lv1, lv2)\n#> [1] FALSE  TRUE  TRUE FALSE\n`%xor%` <- function(x, y) {\n  !((x & y) | !(x | y))\n}\n\nlv1 %xor% lv2\n#> [1] FALSE  TRUE  TRUE FALSE\n\nTRUE %xor% TRUE\n#> [1] FALSE\n`%n%` <- function(x, y) {\n  intersect(x, y)\n}\n\n`%u%` <- function(x, y) {\n  union(x, y)\n}\n\n`%/%` <- function(x, y) {\n  setdiff(x, y)\n}\n(x <- c(sort(sample(1:20, 9)), NA))\n#>  [1]  4  7  8  9 11 13 15 16 20 NA\n(y <- c(sort(sample(3:23, 7)), NA))\n#> [1]  9 10 13 15 17 19 20 NA\n\nidentical(intersect(x, y), x %n% y)\n#> [1] TRUE\nidentical(union(x, y), x %u% y)\n#> [1] TRUE\nidentical(setdiff(x, y), x %/% y)\n#> [1] TRUE"},{"path":"functions.html","id":"session-information-4","chapter":"6 Functions","heading":"6.7 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  forcats     * 1.0.0   2023-01-29 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  hms           1.1.3   2023-03-21 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr        1.1.2   2022-06-22 [1] RSPM\n#>  lubridate   * 1.9.3   2023-09-27 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  readr       * 2.1.5   2024-01-10 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales        1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  stringi       1.8.3   2023-12-11 [1] RSPM\n#>  stringr     * 1.5.1   2023-11-14 [1] RSPM\n#>  tibble      * 3.2.1   2023-03-20 [1] RSPM\n#>  tidyr       * 1.3.0   2023-01-24 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tidyverse   * 2.0.0   2023-02-22 [1] RSPM\n#>  timechange    0.2.0   2023-01-11 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  tzdb          0.4.0   2023-05-12 [1] RSPM\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"environments.html","id":"environments","chapter":"7 Environments","heading":"7 Environments","text":"Loading needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)"},{"path":"environments.html","id":"environment-basics-exercises-7.2.7","chapter":"7 Environments","heading":"7.1 Environment basics (Exercises 7.2.7)","text":"Q1. List three ways environment differs list.A1. mentioned book, ways environments differ lists:Q2. Create environment illustrated picture.A2. Creating environment illustrated picture:binding loop memory address environment e:Q3. Create pair environments illustrated picture.A3. Creating specified environment:Q4. Explain e[[1]] e[c(\"\", \"b\")] don’t make sense e environment.A4. environment non-linear data structure, concept ordered elements. Therefore, indexing (e.g. e[[1]]) doesn’t make sense.Subsetting list vector returns subset underlying data structure. example, subsetting vector returns another vector. ’s unclear subsetting environment (e.g. e[c(\"\", \"b\")]) return data structure contain returns. can’t another environment since environments reference semantics.Q5. Create version env_poke() bind new names, never re-bind old names. programming languages , known single assignment languages.A5. Create version env_poke() doesn’t allow re-binding old names:Making sure behaves expected:Contrast behavior following:Q6. function ? differ <<- might prefer ?A6. downside <<- create new binding doesn’t exist given environment, something may wish:rebind() function let us know binding doesn’t exist, much safer:","code":"\nlibrary(rlang)\n\ne <- env()\ne$loop <- e\nenv_print(e)\n#> <environment: 0x5653c4908508>\n#> Parent: <environment: global>\n#> Bindings:\n#> • loop: <env>\nlobstr::ref(e$loop)\n#> █ [1:0x5653c4908508] <env> \n#> └─loop = [1:0x5653c4908508]\ne1 <- env()\ne2 <- env()\n\ne1$loop <- e2\ne2$deloop <- e1\n\n# following should be the same\nlobstr::obj_addrs(list(e1, e2$deloop))\n#> [1] \"0x5653c6f66620\" \"0x5653c6f66620\"\nlobstr::obj_addrs(list(e2, e1$loop))\n#> [1] \"0x5653c6fbb9f0\" \"0x5653c6fbb9f0\"\nenv_poke2 <- function(env, nm, value) {\n  if (env_has(env, nm)) {\n    abort(\"Can't re-bind existing names.\")\n  }\n\n  env_poke(env, nm, value)\n}\ne <- env(a = 1, b = 2, c = 3)\n\n# re-binding old names not allowed\nenv_poke2(e, \"b\", 4)\n#> Error in `env_poke2()`:\n#> ! Can't re-bind existing names.\n\n# binding new names allowed\nenv_poke2(e, \"d\", 8)\ne$d\n#> [1] 8\ne <- env(a = 1, b = 2, c = 3)\n\ne$b\n#> [1] 2\n\n# re-binding old names allowed\nenv_poke(e, \"b\", 4)\ne$b\n#> [1] 4\nrebind <- function(name, value, env = caller_env()) {\n  if (identical(env, empty_env())) {\n    stop(\"Can't find `\", name, \"`\", call. = FALSE)\n  } else if (env_has(env, name)) {\n    env_poke(env, name, value)\n  } else {\n    rebind(name, value, env_parent(env))\n  }\n}\nrebind(\"a\", 10)\n#> Error: Can't find `a`\na <- 5\nrebind(\"a\", 10)\na\n#> [1] 10\n# `x` doesn't exist\nexists(\"x\")\n#> [1] FALSE\n\n# so `<<-` will create one for us\n{\n  x <<- 5\n}\n\n# in the global environment\nenv_has(global_env(), \"x\")\n#>    x \n#> TRUE\nx\n#> [1] 5\nrebind <- function(name, value, env = caller_env()) {\n  if (identical(env, empty_env())) {\n    stop(\"Can't find `\", name, \"`\", call. = FALSE)\n  } else if (env_has(env, name)) {\n    env_poke(env, name, value)\n  } else {\n    rebind(name, value, env_parent(env))\n  }\n}\n\n# doesn't exist\nexists(\"abc\")\n#> [1] FALSE\n\n# so function will produce an error instead of creating it for us\nrebind(\"abc\", 10)\n#> Error: Can't find `abc`\n\n# but it will work as expected when the variable already exists\nabc <- 5\nrebind(\"abc\", 10)\nabc\n#> [1] 10"},{"path":"environments.html","id":"recursing-over-environments-exercises-7.3.1","chapter":"7 Environments","heading":"7.2 Recursing over environments (Exercises 7.3.1)","text":"Q1. Modify () return environments contain binding name. Carefully think type object function need return.A1. modified version () returns environments contain binding name.Since anticipate one environment, dynamically update list time environment specified binding found. important initialize empty list since signifies given binding found environments.Let’s try :Q2. Write function called fget() finds function objects. two arguments, name env, obey regular scoping rules functions: ’s object matching name ’s function, look parent. added challenge, also add inherits argument controls whether function recurses parents looks one environment.A2. function recursively looks function objects:Let’s try :","code":"\nwhere <- function(name, env = caller_env()) {\n  env_list <- list()\n\n  while (!identical(env, empty_env())) {\n    if (env_has(env, name)) {\n      env_list <- append(env_list, env)\n    }\n\n    env <- env_parent(env)\n  }\n\n  return(env_list)\n}\nwhere(\"yyy\")\n#> list()\n\nx <- 5\nwhere(\"x\")\n#> [[1]]\n#> <environment: R_GlobalEnv>\n\nwhere(\"mean\")\n#> [[1]]\n#> <environment: base>\n\nlibrary(dplyr, warn.conflicts = FALSE)\nwhere(\"filter\")\n#> [[1]]\n#> <environment: package:dplyr>\n#> attr(,\"name\")\n#> [1] \"package:dplyr\"\n#> attr(,\"path\")\n#> [1] \"/home/runner/work/_temp/Library/dplyr\"\n#> \n#> [[2]]\n#> <environment: package:stats>\n#> attr(,\"name\")\n#> [1] \"package:stats\"\n#> attr(,\"path\")\n#> [1] \"/opt/R/4.3.2/lib/R/library/stats\"\ndetach(\"package:dplyr\")\nfget <- function(name, env = caller_env(), inherits = FALSE) {\n  # we need only function objects\n  f_value <- mget(name,\n    envir = env,\n    mode = \"function\",\n    inherits = FALSE, # since we have our custom argument\n    ifnotfound = list(NULL)\n  )\n\n  if (!is.null(f_value[[1]])) {\n    # success case\n    f_value[[1]]\n  } else {\n    if (inherits && !identical(env, empty_env())) {\n      # recursive case\n      env <- env_parent(env)\n      fget(name, env, inherits = TRUE)\n    } else {\n      # base case\n      stop(\"No function objects with matching name was found.\", call. = FALSE)\n    }\n  }\n}\nfget(\"mean\", inherits = FALSE)\n#> Error: No function objects with matching name was found.\n\nfget(\"mean\", inherits = TRUE)\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x5653c233ea20>\n#> <environment: namespace:base>\n\nmean <- 5\nfget(\"mean\", inherits = FALSE)\n#> Error: No function objects with matching name was found.\n\nmean <- function() NULL\nfget(\"mean\", inherits = FALSE)\n#> function() NULL\nrm(\"mean\")"},{"path":"environments.html","id":"special-environments-exercises-7.4.5","chapter":"7 Environments","heading":"7.3 Special environments (Exercises 7.4.5)","text":"Q1. search_envs() different env_parents(global_env())?A1. search_envs() lists chain environments currently attached search path contains exported functions packages. search path always ends {base} package environment. search path also includes global environment.env_parents() lists parent environments empty environment. course, global environment included list.Q2. Draw diagram shows enclosing environments function:A2. don’t access graphics software used create diagrams book, linking diagram official solutions manual, also find detailed description figure:Q3. Write enhanced version str() provides information functions. Show function found environment defined .A3. write required function, can first re-purpose fget() function wrote return environment found enclosing environment:Let’s try :can now write new version str() wrapper around function. need foresee users might enter function name either symbol string.Let’s first try base::mean():variant present global environment:","code":"\nsearch_envs()\n#>  [[1]] $ <env: global>\n#>  [[2]] $ <env: package:rlang>\n#>  [[3]] $ <env: package:magrittr>\n#>  [[4]] $ <env: package:stats>\n#>  [[5]] $ <env: package:graphics>\n#>  [[6]] $ <env: package:grDevices>\n#>  [[7]] $ <env: package:utils>\n#>  [[8]] $ <env: package:datasets>\n#>  [[9]] $ <env: package:methods>\n#> [[10]] $ <env: Autoloads>\n#> [[11]] $ <env: package:base>\nenv_parents(global_env())\n#>  [[1]] $ <env: package:rlang>\n#>  [[2]] $ <env: package:magrittr>\n#>  [[3]] $ <env: package:stats>\n#>  [[4]] $ <env: package:graphics>\n#>  [[5]] $ <env: package:grDevices>\n#>  [[6]] $ <env: package:utils>\n#>  [[7]] $ <env: package:datasets>\n#>  [[8]] $ <env: package:methods>\n#>  [[9]] $ <env: Autoloads>\n#> [[10]] $ <env: package:base>\n#> [[11]] $ <env: empty>\nf1 <- function(x1) {\n  f2 <- function(x2) {\n    f3 <- function(x3) {\n      x1 + x2 + x3\n    }\n    f3(3)\n  }\n  f2(2)\n}\nf1(1)\nfget2 <- function(name, env = caller_env()) {\n  # we need only function objects\n  f_value <- mget(name,\n    envir = env,\n    mode = \"function\",\n    inherits = FALSE,\n    ifnotfound = list(NULL)\n  )\n\n  if (!is.null(f_value[[1]])) {\n    # success case\n    list(\n      \"where\" = env,\n      \"enclosing\" = fn_env(f_value[[1]])\n    )\n  } else {\n    if (!identical(env, empty_env())) {\n      # recursive case\n      env <- env_parent(env)\n      fget2(name, env)\n    } else {\n      # base case\n      stop(\"No function objects with matching name was found.\", call. = FALSE)\n    }\n  }\n}\nfget2(\"mean\")\n#> $where\n#> <environment: base>\n#> \n#> $enclosing\n#> <environment: namespace:base>\n\nmean <- function() NULL\nfget2(\"mean\")\n#> $where\n#> <environment: R_GlobalEnv>\n#> \n#> $enclosing\n#> <environment: R_GlobalEnv>\nrm(\"mean\")\nstr_function <- function(.f) {\n  fget2(as_string(ensym(.f)))\n}\nstr_function(mean)\n#> $where\n#> <environment: base>\n#> \n#> $enclosing\n#> <environment: namespace:base>\n\nstr_function(\"mean\")\n#> $where\n#> <environment: base>\n#> \n#> $enclosing\n#> <environment: namespace:base>\nmean <- function() NULL\n\nstr_function(mean)\n#> $where\n#> <environment: R_GlobalEnv>\n#> \n#> $enclosing\n#> <environment: R_GlobalEnv>\n\nstr_function(\"mean\")\n#> $where\n#> <environment: R_GlobalEnv>\n#> \n#> $enclosing\n#> <environment: R_GlobalEnv>\n\nrm(\"mean\")"},{"path":"environments.html","id":"call-stacks-exercises-7.5.5","chapter":"7 Environments","heading":"7.4 Call stacks (Exercises 7.5.5)","text":"Q1. Write function lists variables defined environment called. return results ls().A1. function lists variables defined environment called:workhorse rlang::caller_env(), let’s also look definition:Let’s try :global environment:function environment:","code":"\n# let's first remove everything that exists in the global environment right now\n# to test with only newly defined objects\nrm(list = ls())\nrm(.Random.seed, envir = globalenv())\n\nls_env <- function(env = rlang::caller_env()) {\n  sort(rlang::env_names(env))\n}\nrlang::caller_env\n#> function (n = 1) \n#> {\n#>     parent.frame(n + 1)\n#> }\n#> <bytecode: 0x5653c2e5d500>\n#> <environment: namespace:rlang>\nx <- \"a\"\ny <- 1\n\nls_env()\n#> [1] \"ls_env\" \"x\"      \"y\"\n\nls()\n#> [1] \"ls_env\" \"x\"      \"y\"\nfoo <- function() {\n  a <- \"x\"\n  b <- 2\n\n  print(ls_env())\n\n  print(ls())\n}\n\nfoo()\n#> [1] \"a\" \"b\"\n#> [1] \"a\" \"b\""},{"path":"environments.html","id":"session-information-5","chapter":"7 Environments","heading":"7.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr        1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  png           0.1-8   2022-11-29 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"conditions.html","id":"conditions","chapter":"8 Conditions","heading":"8 Conditions","text":"Attaching needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)\nlibrary(testthat, warn.conflicts = FALSE)"},{"path":"conditions.html","id":"signalling-conditions-exercises-8.2.4","chapter":"8 Conditions","heading":"8.1 Signalling conditions (Exercises 8.2.4)","text":"Q1. Write wrapper around file.remove() throws error file deleted exist.A1. Let’s first create wrapper function around file.remove() throws error file deleted exist.Let’s first create file can delete immediately.function fail files provided don’t exist:work expected file exists:Q2. appendLF argument message() ? related cat()?A2. mentioned docs message(), appendLF argument decides:messages given character string newline appended?TRUE (default value), final newline regarded part message:FALSE, messages concatenated:hand, cat() converts arguments character vectors concatenates single character vector default:order get message()-like default behavior outputs, can set sep = \"\\n\":","code":"\nfileRemove <- function(...) {\n  existing_files <- fs::file_exists(...)\n\n  if (!all(existing_files)) {\n    stop(\n      cat(\n        \"The following files to be deleted don't exist:\",\n        names(existing_files[!existing_files]),\n        sep = \"\\n\"\n      ),\n      call. = FALSE\n    )\n  }\n\n  file.remove(...)\n}\nfs::file_create(\"random.R\")\nfileRemove(c(\"random.R\", \"XYZ.csv\"))\n#> The following files to be deleted don't exist:\n#> XYZ.csv\n#> Error:\nfileRemove(\"random.R\")\n#> [1] TRUE\nfoo <- function(appendLF) {\n  message(\"Beetle\", appendLF = appendLF)\n  message(\"Juice\", appendLF = appendLF)\n}\n\nfoo(appendLF = TRUE)\n#> Beetle\n#> Juice\nfoo <- function(appendLF) {\n  message(\"Beetle\", appendLF = appendLF)\n  message(\"Juice\", appendLF = appendLF)\n}\n\nfoo(appendLF = FALSE)\n#> BeetleJuice\nfoo <- function() {\n  cat(\"Beetle\")\n  cat(\"Juice\")\n}\n\nfoo()\n#> BeetleJuice\nfoo <- function() {\n  cat(\"Beetle\", sep = \"\\n\")\n  cat(\"Juice\", sep = \"\\n\")\n}\n\nfoo()\n#> Beetle\n#> Juice"},{"path":"conditions.html","id":"handling-conditions-exercises-8.4.5","chapter":"8 Conditions","heading":"8.2 Handling conditions (Exercises 8.4.5)","text":"Q1. extra information condition generated abort() contain compared condition generated stop() .e. ’s difference two objects? Read help ?abort learn .A1. Compared base::stop(), rlang::abort() contains two additional pieces information:trace: traceback capturing sequence calls lead current functionparent: Information another condition used parent create chained condition.Q2. Predict results evaluating following codeA2. Correctly predicted 😉first three pieces code straightforward:last piece code challenging one illustrates tryCatch() works. docs:several handlers supplied single tryCatch first one considered recent second.Q3. Explain results running code:A3. surprising part output b last c.happens inner calling handler doesn’t handle message, bubbles outer calling handler.Q4. Read source code catch_cnd() explain works.A4. Let’s look source code catch_cnd():mentioned function docs:small wrapper around tryCatch() captures condition signalled evaluating argument.classes argument allows character vector condition classes catch, complex tidy evaluation generates necessary condition (; otherwise NULL).Q5. rewrite show_condition() use single handler?A5. source code rlang::catch_cond() gives us clue can .Conditions also class attribute, can use determine handler match condition.Let’s try new version examples used original version:","code":"\ncatch_cnd(stop(\"An error\"))\ncatch_cnd(abort(\"An error\"))\nlibrary(rlang)\n\nstopInfo <- catch_cnd(stop(\"An error\"))\nabortInfo <- catch_cnd(abort(\"An error\"))\n\nstr(stopInfo)\n#> List of 2\n#>  $ message: chr \"An error\"\n#>  $ call   : language force(expr)\n#>  - attr(*, \"class\")= chr [1:3] \"simpleError\" \"error\" \"condition\"\n\nstr(abortInfo)\n#> List of 5\n#>  $ message: chr \"An error\"\n#>  $ trace  :Classes 'rlang_trace', 'rlib_trace', 'tbl' and 'data.frame':  8 obs. of  6 variables:\n#>   ..$ call       :List of 8\n#>   .. ..$ : language catch_cnd(abort(\"An error\"))\n#>   .. ..$ : language eval_bare(rlang::expr(tryCatch(!!!handlers, {     force(expr) ...\n#>   .. ..$ : language tryCatch(condition = `<fn>`, {     force(expr) ...\n#>   .. ..$ : language tryCatchList(expr, classes, parentenv, handlers)\n#>   .. ..$ : language tryCatchOne(expr, names, parentenv, handlers[[1L]])\n#>   .. ..$ : language doTryCatch(return(expr), name, parentenv, handler)\n#>   .. ..$ : language force(expr)\n#>   .. ..$ : language abort(\"An error\")\n#>   ..$ parent     : int [1:8] 0 1 1 3 4 5 1 0\n#>   ..$ visible    : logi [1:8] FALSE FALSE FALSE FALSE FALSE FALSE ...\n#>   ..$ namespace  : chr [1:8] \"rlang\" \"rlang\" \"base\" \"base\" ...\n#>   ..$ scope      : chr [1:8] \"::\" \"::\" \"::\" \"local\" ...\n#>   ..$ error_frame: logi [1:8] FALSE FALSE FALSE FALSE FALSE FALSE ...\n#>   ..- attr(*, \"version\")= int 2\n#>  $ parent : NULL\n#>  $ rlang  :List of 1\n#>   ..$ inherit: logi TRUE\n#>  $ call   : NULL\n#>  - attr(*, \"class\")= chr [1:3] \"rlang_error\" \"error\" \"condition\"\nshow_condition <- function(code) {\n  tryCatch(\n    error = function(cnd) \"error\",\n    warning = function(cnd) \"warning\",\n    message = function(cnd) \"message\",\n    {\n      code\n      NULL\n    }\n  )\n}\n\nshow_condition(stop(\"!\"))\nshow_condition(10)\nshow_condition(warning(\"?!\"))\nshow_condition({\n  10\n  message(\"?\")\n  warning(\"?!\")\n})\nshow_condition <- function(code) {\n  tryCatch(\n    error = function(cnd) \"error\",\n    warning = function(cnd) \"warning\",\n    message = function(cnd) \"message\",\n    {\n      code\n      NULL\n    }\n  )\n}\n\nshow_condition(stop(\"!\"))\n#> [1] \"error\"\nshow_condition(10)\n#> NULL\nshow_condition(warning(\"?!\"))\n#> [1] \"warning\"\nshow_condition({\n  10\n  message(\"?\")\n  warning(\"?!\")\n})\n#> [1] \"message\"\nwithCallingHandlers(\n  message = function(cnd) message(\"b\"),\n  withCallingHandlers(\n    message = function(cnd) message(\"a\"),\n    message(\"c\")\n  )\n)\n#> b\n#> a\n#> b\n#> c\nrlang::catch_cnd\n#> function (expr, classes = \"condition\") \n#> {\n#>     stopifnot(is_character(classes))\n#>     handlers <- rep_named(classes, list(identity))\n#>     eval_bare(rlang::expr(tryCatch(!!!handlers, {\n#>         force(expr)\n#>         return(NULL)\n#>     })))\n#> }\n#> <bytecode: 0x5605664637c0>\n#> <environment: namespace:rlang>\ncatch_cnd(10)\n#> NULL\n\ncatch_cnd(abort(message = \"an error\", class = \"class1\"))\n#> <error/class1>\n#> Error:\n#> ! an error\n#> ---\n#> Backtrace:\n#> ▆\nshow_condition2 <- function(code) {\n  tryCatch(\n    condition = function(cnd) {\n      if (inherits(cnd, \"error\")) {\n        return(\"error\")\n      }\n      if (inherits(cnd, \"warning\")) {\n        return(\"warning\")\n      }\n      if (inherits(cnd, \"message\")) {\n        return(\"message\")\n      }\n    },\n    {\n      code\n      NULL\n    }\n  )\n}\nshow_condition2(stop(\"!\"))\n#> [1] \"error\"\nshow_condition2(10)\n#> NULL\nshow_condition2(warning(\"?!\"))\n#> [1] \"warning\"\nshow_condition2({\n  10\n  message(\"?\")\n  warning(\"?!\")\n})\n#> [1] \"message\""},{"path":"conditions.html","id":"custom-conditions-exercises-8.5.4","chapter":"8 Conditions","heading":"8.3 Custom conditions (Exercises 8.5.4)","text":"Q1. Inside package, ’s occasionally useful check package installed using . Write function checks package installed (requireNamespace(\"pkg\", quietly = FALSE)) , throws custom condition includes package name metadata.A1. desired function:reference, also see source code following functions:rlang::is_installed()insight::check_if_installed()Q2. Inside package often need stop error something right. packages depend package might tempted check errors unit tests. help packages avoid relying error message part user interface rather API might change without notice?A2. example, let’s say another package developer wanted use check_if_pkg_installed() function just wrote.developer using package can write unit test like :dissuade developers rely error messages check errors, can instead provide custom condition, can used unit testing instead:unit test :test wouldn’t fail even decided change exact message.","code":"\nabort_missing_package <- function(pkg) {\n  msg <- glue::glue(\"Problem loading `{pkg}` package, which is missing and must be installed.\")\n\n  abort(\"error_missing_package\",\n    message = msg,\n    pkg = pkg\n  )\n}\n\ncheck_if_pkg_installed <- function(pkg) {\n  if (!requireNamespace(pkg, quietly = TRUE)) {\n    abort_missing_package(pkg)\n  }\n\n  TRUE\n}\n\ncheck_if_pkg_installed(\"xyz123\")\n#> Error in `abort_missing_package()`:\n#> ! Problem loading `xyz123` package, which is missing and must be installed.\ncheck_if_pkg_installed(\"dplyr\")\n#> [1] TRUE\nexpect_error(\n  check_if_pkg_installed(\"xyz123\"),\n  \"Problem loading `xyz123` package, which is missing and must be installed.\"\n)\ne <- catch_cnd(check_if_pkg_installed(\"xyz123\"))\n\ninherits(e, \"error_missing_package\")\n#> [1] TRUE\nexpect_s3_class(e, \"error_missing_package\")"},{"path":"conditions.html","id":"applications-exercises-8.6.6","chapter":"8 Conditions","heading":"8.4 Applications (Exercises 8.6.6)","text":"Q1. Create suppressConditions() works like suppressMessages() suppressWarnings() suppresses everything. Think carefully handle errors.A1. create desired suppressConditions(), just need create equivalent suppressWarnings() suppressMessages() errors. suppress error message, can handle errors within tryCatch() return error object invisibly:Let’s try see works expected:condition messages now suppressed, note assign error object variable, can still extract useful information debugging:Q2. Compare following two implementations message2error(). main advantage withCallingHandlers() scenario? (Hint: look carefully traceback.)A2. withCallingHandlers(), condition handler called signaling function , , therefore, provides detailed call stack.tryCatch(), signalling function terminates condition raised, doesn’t provide detailed call stack.Q3. modify catch_cnds() definition wanted recreate original intermingling warnings messages?A3. Actually, won’t modify anything function defined chapter, since supports box.nothing additional here5! 😅Q4. catching interrupts dangerous? Run code find .A4. function catches interrupt way stop bottles_of_beer(), way usually stop using interrupt!RStudio IDE, can snap loop terminating R session.shows catching interrupt dangerous can result poor user experience.","code":"\nsuppressErrors <- function(expr) {\n  tryCatch(\n    error = function(cnd) invisible(cnd),\n    expr\n  )\n}\n\nsuppressConditions <- function(expr) {\n  suppressErrors(suppressWarnings(suppressMessages(expr)))\n}\nsuppressConditions(1)\n#> [1] 1\n\nsuppressConditions({\n  message(\"I'm messaging you\")\n  warning(\"I'm warning you\")\n})\n\nsuppressConditions({\n  stop(\"I'm stopping this\")\n})\ne <- suppressConditions({\n  stop(\"I'm stopping this\")\n})\n\ne\n#> <simpleError in withCallingHandlers(expr, message = function(c) if (inherits(c,     classes)) tryInvokeRestart(\"muffleMessage\")): I'm stopping this>\nmessage2error <- function(code) {\n  withCallingHandlers(code, message = function(e) stop(e))\n}\nmessage2error <- function(code) {\n  tryCatch(code, message = function(e) stop(e))\n}\nmessage2error1 <- function(code) {\n  withCallingHandlers(code, message = function(e) stop(\"error\"))\n}\n\nmessage2error1({\n  1\n  message(\"hidden error\")\n  NULL\n})\n#> Error in (function (e) : error\n\ntraceback()\n#> 9: stop(\"error\") at #2\n#> 8: (function (e)\n#>    stop(\"error\"))(list(message = \"hidden error\\n\",\n#>      call = message(\"hidden error\")))\n#> 7: signalCondition(cond)\n#> 6: doWithOneRestart(return(expr), restart)\n#> 5: withOneRestart(expr, restarts[[1L]])\n#> 4: withRestarts({\n#>        signalCondition(cond)\n#>        defaultHandler(cond)\n#>    }, muffleMessage = function() NULL)\n#> 3: message(\"hidden error\") at #1\n#> 2: withCallingHandlers(code,\n#>      message = function(e) stop(\"error\")) at #2\n#> 1: message2error1({\n#>        1\n#>        message(\"hidden error\")\n#>        NULL\n#>    })\nmessage2error2 <- function(code) {\n  tryCatch(code, message = function(e) (stop(\"error\")))\n}\n\nmessage2error2({\n  1\n  stop(\"hidden error\")\n  NULL\n})\n#> Error in value[[3L]](cond) : error\n\ntraceback()\n#> 6: stop(\"error\") at #2\n#> 5: value[[3L]](cond)\n#> 4: tryCatchOne(expr, names, parentenv, handlers[[1L]])\n#> 3: tryCatchList(expr, classes, parentenv, handlers)\n#> 2: tryCatch(code, message = function(e) (stop(\"error\"))) at #2\n#> 1: message2error2({\n#>        1\n#>        message(\"hidden error\")\n#>        NULL\n#>    })\ncatch_cnds <- function(expr) {\n  conds <- list()\n  add_cond <- function(cnd) {\n    conds <<- append(conds, list(cnd))\n    cnd_muffle(cnd)\n  }\n\n  withCallingHandlers(\n    message = add_cond,\n    warning = add_cond,\n    expr\n  )\n\n  conds\n}\n\ncatch_cnds({\n  inform(\"a\")\n  warn(\"b\")\n  inform(\"c\")\n})\n#> [[1]]\n#> <message/rlang_message>\n#> Message:\n#> a\n#> \n#> [[2]]\n#> <warning/rlang_warning>\n#> Warning:\n#> b\n#> \n#> [[3]]\n#> <message/rlang_message>\n#> Message:\n#> c\nbottles_of_beer <- function(i = 99) {\n  message(\n    \"There are \", i, \" bottles of beer on the wall, \",\n    i, \" bottles of beer.\"\n  )\n  while (i > 0) {\n    tryCatch(\n      Sys.sleep(1),\n      interrupt = function(err) {\n        i <<- i - 1\n        if (i > 0) {\n          message(\n            \"Take one down, pass it around, \", i,\n            \" bottle\", if (i > 1) \"s\", \" of beer on the wall.\"\n          )\n        }\n      }\n    )\n  }\n  message(\n    \"No more bottles of beer on the wall, \",\n    \"no more bottles of beer.\"\n  )\n}\nbottles_of_beer()\n#> There are 99 bottles of beer on the wall, 99 bottles of beer.\n#> Take one down, pass it around, 98 bottles of beer on the wall.\n#> Take one down, pass it around, 97 bottles of beer on the wall.\n#> Take one down, pass it around, 96 bottles of beer on the wall.\n#> Take one down, pass it around, 95 bottles of beer on the wall.\n#> Take one down, pass it around, 94 bottles of beer on the wall.\n#> Take one down, pass it around, 93 bottles of beer on the wall.\n#> Take one down, pass it around, 92 bottles of beer on the wall.\n#> Take one down, pass it around, 91 bottles of beer on the wall.\n#> ..."},{"path":"conditions.html","id":"session-information-6","chapter":"8 Conditions","heading":"8.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  brio          1.1.4   2023-12-10 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  desc          1.4.3   2023-12-10 [1] RSPM\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  pkgload       1.3.3   2023-09-22 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  rprojroot     2.0.4   2023-11-05 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  testthat    * 3.2.1   2023-12-02 [1] RSPM\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"functionals.html","id":"functionals","chapter":"9 Functionals","heading":"9 Functionals","text":"Attaching needed libraries:","code":"\nlibrary(purrr, warn.conflicts = FALSE)"},{"path":"functionals.html","id":"my-first-functional-map-exercises-9.2.6","chapter":"9 Functionals","heading":"9.1 My first functional: map() (Exercises 9.2.6)","text":"Q1. Use as_mapper() explore purrr generates anonymous functions integer, character, list helpers. helper allows extract attributes? Read documentation find .A1. Let’s handle two parts question separately.as_mapper() purrr-generated anonymous functions:Looking experimentation map() as_mapper(), can see , depending type input, as_mapper() creates extractor function using pluck().can extract attributes using purrr::attr_getter():Q2. map(1:3, ~ runif(2)) useful pattern generating random numbers, map(1:3, runif(2)) . ? Can explain returns result ?A2. shown as_mapper() outputs , second call appropriate generating random numbers translates pluck() function indices plucking taken randomly generated numbers, valid accessors get NULLs return.Q3. Use appropriate map() function :A3. Using appropriate map() function :Compute standard deviation every column numeric data frame:Compute standard deviation every numeric column mixed data frame:Compute number levels every factor data frame:Q4. following code simulates performance t-test non-normal data. Extract p-value test, visualise.A4.Extract p-value test:Visualise extracted p-values:Q5. following code uses map nested inside another map apply function every element nested list. fail, need make work?A5. function fails call effectively evaluates following:triple() one parameter (x), execution fails.fixed version:Q6. Use map() fit linear models mtcars dataset using formulas stored list:A6. Fitting linear models mtcars dataset using provided formulas:Q7. Fit model mpg ~ disp bootstrap replicates mtcars list , extract \\(R^2\\) model fit (Hint: can compute \\(R^2\\) summary().)A7. can done using map_dbl():","code":"\n# mapping by position -----------------------\n\nx <- list(1, list(2, 3, list(1, 2)))\n\nmap(x, 1)\n#> [[1]]\n#> [1] 1\n#> \n#> [[2]]\n#> [1] 2\nas_mapper(1)\n#> function (x, ...) \n#> pluck_raw(x, list(1), .default = NULL)\n#> <environment: 0x55c80533e1d0>\n\nmap(x, list(2, 1))\n#> [[1]]\n#> NULL\n#> \n#> [[2]]\n#> [1] 3\nas_mapper(list(2, 1))\n#> function (x, ...) \n#> pluck_raw(x, list(2, 1), .default = NULL)\n#> <environment: 0x55c805424e18>\n\n# mapping by name -----------------------\n\ny <- list(\n  list(m = \"a\", list(1, m = \"mo\")),\n  list(n = \"b\", list(2, n = \"no\"))\n)\n\nmap(y, \"m\")\n#> [[1]]\n#> [1] \"a\"\n#> \n#> [[2]]\n#> NULL\nas_mapper(\"m\")\n#> function (x, ...) \n#> pluck_raw(x, list(\"m\"), .default = NULL)\n#> <environment: 0x55c805572ff0>\n\n# mixing position and name\nmap(y, list(2, \"m\"))\n#> [[1]]\n#> [1] \"mo\"\n#> \n#> [[2]]\n#> NULL\nas_mapper(list(2, \"m\"))\n#> function (x, ...) \n#> pluck_raw(x, list(2, \"m\"), .default = NULL)\n#> <environment: 0x55c805658e38>\n\n# compact functions ----------------------------\n\nmap(y, ~ length(.x))\n#> [[1]]\n#> [1] 2\n#> \n#> [[2]]\n#> [1] 2\nas_mapper(~ length(.x))\n#> <lambda>\n#> function (..., .x = ..1, .y = ..2, . = ..1) \n#> length(.x)\n#> attr(,\"class\")\n#> [1] \"rlang_lambda_function\" \"function\"\npluck(Titanic, attr_getter(\"class\"))\n#> [1] \"table\"\nmap(1:3, ~ runif(2))\n#> [[1]]\n#> [1] 0.2180892 0.9876342\n#> \n#> [[2]]\n#> [1] 0.3484619 0.3810470\n#> \n#> [[3]]\n#> [1] 0.02098596 0.74972687\nas_mapper(~ runif(2))\n#> <lambda>\n#> function (..., .x = ..1, .y = ..2, . = ..1) \n#> runif(2)\n#> attr(,\"class\")\n#> [1] \"rlang_lambda_function\" \"function\"\n\nmap(1:3, runif(2))\n#> [[1]]\n#> [1] 1\n#> \n#> [[2]]\n#> [1] 2\n#> \n#> [[3]]\n#> [1] 3\nas_mapper(runif(2))\n#> function (x, ...) \n#> pluck_raw(x, list(0.597890264587477, 0.587997315218672), .default = NULL)\n#> <environment: 0x55c8065ea348>a) Compute the standard deviation of every column in a numeric data frame.\n\na) Compute the standard deviation of every numeric column in a mixed data frame. (Hint: you'll need to do it in two steps.)\n\na) Compute the number of levels for every factor in a data frame.\nmap_dbl(mtcars, sd)\n#>         mpg         cyl        disp          hp        drat \n#>   6.0269481   1.7859216 123.9386938  68.5628685   0.5346787 \n#>          wt        qsec          vs          am        gear \n#>   0.9784574   1.7869432   0.5040161   0.4989909   0.7378041 \n#>        carb \n#>   1.6152000\nkeep(iris, is.numeric) %>%\n  map_dbl(sd)\n#> Sepal.Length  Sepal.Width Petal.Length  Petal.Width \n#>    0.8280661    0.4358663    1.7652982    0.7622377\nmodify_if(dplyr::starwars, is.character, as.factor) %>%\n  keep(is.factor) %>%\n  map_int(~ length(levels(.)))\n#>       name hair_color skin_color  eye_color        sex \n#>         87         11         31         15          4 \n#>     gender  homeworld    species \n#>          2         48         37\ntrials <- map(1:100, ~ t.test(rpois(10, 10), rpois(7, 10)))\ntrials <- map(1:100, ~ t.test(rpois(10, 10), rpois(7, 10)))\n\n(p <- map_dbl(trials, \"p.value\"))\n#>   [1] 0.81695628 0.53177360 0.94750819 0.41026769 0.34655294\n#>   [6] 0.05300287 0.56479901 0.85936864 0.77517391 0.64321161\n#>  [11] 0.84462914 0.54144946 0.63070476 0.20325827 0.39824435\n#>  [16] 0.67052432 0.39932663 0.44437632 0.51645941 0.96578745\n#>  [21] 0.70219557 0.69931716 0.23946786 0.55100566 0.76028958\n#>  [26] 0.38105366 0.64544126 0.15379307 0.86945196 0.09965658\n#>  [31] 0.96425489 0.54239108 0.38985789 0.59019282 0.96247907\n#>  [36] 0.54997487 0.66111391 0.30961551 0.10897334 0.55049635\n#>  [41] 0.93882405 0.14836866 0.44307287 0.61583610 0.37284284\n#>  [46] 0.38559622 0.42935767 0.26059293 0.07831619 0.93768396\n#>  [51] 0.48459268 0.73571291 0.30288560 0.68521609 0.06374636\n#>  [56] 0.11007808 0.98758443 0.17831882 0.94471538 0.19711729\n#>  [61] 0.02094185 0.12370745 0.23247837 0.93842382 0.19160550\n#>  [66] 0.49005550 0.98146240 0.09034183 0.94912080 0.55857523\n#>  [71] 0.24692070 0.63658206 0.14290966 0.10309770 0.89516449\n#>  [76] 0.25660092 0.16943034 0.41199780 0.82721280 0.74017418\n#>  [81] 0.43724631 0.55944024 0.93615100 0.68788872 0.01416627\n#>  [86] 0.60120497 0.54125910 0.91581929 0.78949327 0.57887371\n#>  [91] 0.83217542 0.90108906 0.97474727 0.99129282 0.54436155\n#>  [96] 0.74159859 0.06534957 0.10834529 0.19737786 0.93750342\nplot(p)\n\nhist(p)\nx <- list(\n  list(1, c(3, 9)),\n  list(c(3, 6), 7, c(4, 7, 6))\n)\n\ntriple <- function(x) x * 3\nmap(x, map, .f = triple)\n#> Error in `map()`:\n#> ℹ In index: 1.\n#> Caused by error in `.f()`:\n#> ! unused argument (function (.x, .f, ..., .progress = FALSE) \n#> {\n#>     map_(\"list\", .x, .f, ..., .progress = .progress)\n#> })\nmap(.x = x, .f = ~ triple(x = .x, map))\nx <- list(\n  list(1, c(3, 9)),\n  list(c(3, 6), 7, c(4, 7, 6))\n)\n\ntriple <- function(x) x * 3\nmap(x, .f = ~ map(.x, ~ triple(.x)))\n#> [[1]]\n#> [[1]][[1]]\n#> [1] 3\n#> \n#> [[1]][[2]]\n#> [1]  9 27\n#> \n#> \n#> [[2]]\n#> [[2]][[1]]\n#> [1]  9 18\n#> \n#> [[2]][[2]]\n#> [1] 21\n#> \n#> [[2]][[3]]\n#> [1] 12 21 18\nformulas <- list(\n  mpg ~ disp,\n  mpg ~ I(1 / disp),\n  mpg ~ disp + wt,\n  mpg ~ I(1 / disp) + wt\n)\nformulas <- list(\n  mpg ~ disp,\n  mpg ~ I(1 / disp),\n  mpg ~ disp + wt,\n  mpg ~ I(1 / disp) + wt\n)\n\nmap(formulas, ~ lm(formula = ., data = mtcars))\n#> [[1]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)         disp  \n#>    29.59985     -0.04122  \n#> \n#> \n#> [[2]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)    I(1/disp)  \n#>       10.75      1557.67  \n#> \n#> \n#> [[3]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)         disp           wt  \n#>    34.96055     -0.01772     -3.35083  \n#> \n#> \n#> [[4]]\n#> \n#> Call:\n#> lm(formula = ., data = mtcars)\n#> \n#> Coefficients:\n#> (Intercept)    I(1/disp)           wt  \n#>      19.024     1142.560       -1.798\nbootstrap <- function(df) {\n  df[sample(nrow(df), replace = TRUE), , drop = FALSE]\n}\n\nbootstraps <- map(1:10, ~ bootstrap(mtcars))\nbootstrap <- function(df) {\n  df[sample(nrow(df), replace = TRUE), , drop = FALSE]\n}\n\nbootstraps <- map(1:10, ~ bootstrap(mtcars))\n\nbootstraps %>%\n  map(~ lm(mpg ~ disp, data = .x)) %>%\n  map(summary) %>%\n  map_dbl(\"r.squared\")\n#>  [1] 0.7864562 0.8110818 0.7956331 0.7632399 0.7967824\n#>  [6] 0.7364226 0.7203027 0.6653252 0.7732780 0.6753329"},{"path":"functionals.html","id":"map-variants-exercises-9.4.6","chapter":"9 Functionals","heading":"9.2 Map variants (Exercises 9.4.6)","text":"Q1. Explain results modify(mtcars, 1).A1. modify() returns object type input. Since input data frame certain dimensions .f = 1 translates plucking first element column, returns data frame dimensions plucked element recycled across rows.Q2. Rewrite following code use iwalk() instead walk2(). advantages disadvantages?A2. Let’s first rewrite provided code using iwalk():advantage using iwalk() need now deal single variable (cyls) instead two (cyls paths).disadvantage code difficult reason :\nwalk2(), ’s explicit .x (= cyls) .y (= paths) correspond , iwalk() (.e., .x = cyls .y = names(cyls)) .y argument “invisible”.Q3. Explain following code transforms data frame using functions stored list.Compare contrast map2() approach map() approach:A3. map2() supplies functions stored trans anonymous functions via placeholder f, names columns specified mtcars[nm] supplied var argument anonymous function. Note function iterating indices vectors transformations column names.map() approach, function iterating indices vectors column names.latter approach can’t afford passing arguments placeholders anonymous function.Q4. write.csv() return, .e. happens use map2() instead walk2()?A4. use map2(), work, print NULLs console every list element.","code":"\nhead(modify(mtcars, 1))\n#>   mpg cyl disp  hp drat   wt  qsec vs am gear carb\n#> 1  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 2  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 3  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 4  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 5  21   6  160 110  3.9 2.62 16.46  0  1    4    4\n#> 6  21   6  160 110  3.9 2.62 16.46  0  1    4    4\ncyls <- split(mtcars, mtcars$cyl)\npaths <- file.path(temp, paste0(\"cyl-\", names(cyls), \".csv\"))\nwalk2(cyls, paths, write.csv)\ncyls <- split(mtcars, mtcars$cyl)\nnames(cyls) <- file.path(temp, paste0(\"cyl-\", names(cyls), \".csv\"))\niwalk(cyls, ~ write.csv(.x, .y))\ntrans <- list(\n  disp = function(x) x * 0.0163871,\n  am = function(x) factor(x, labels = c(\"auto\", \"manual\"))\n)\n\nnm <- names(trans)\nmtcars[nm] <- map2(trans, mtcars[nm], function(f, var) f(var))\nmtcars[nm] <- map(nm, ~ trans[[.x]](mtcars[[.x]]))\ntrans <- list(\n  disp = function(x) x * 0.0163871,\n  am = function(x) factor(x, labels = c(\"auto\", \"manual\"))\n)\n\nnm <- names(trans)\nmtcars[nm] <- map2(trans, mtcars[nm], function(f, var) f(var))\nmtcars[nm] <- map(nm, ~ trans[[.x]](mtcars[[.x]]))\nwithr::with_tempdir(\n  code = {\n    ls <- split(mtcars, mtcars$cyl)\n    nm <- names(ls)\n    map2(ls, nm, write.csv)\n  }\n)\n#> $`4`\n#> NULL\n#> \n#> $`6`\n#> NULL\n#> \n#> $`8`\n#> NULL"},{"path":"functionals.html","id":"predicate-functionals-exercises-9.6.3","chapter":"9 Functionals","heading":"9.3 Predicate functionals (Exercises 9.6.3)","text":"Q1. isn’t .na() predicate function? base R function closest predicate version .na()?A1. mentioned docs:predicate function returns single TRUE FALSE..na() function return logical scalar, instead returns vector thus isn’t predicate function.closest equivalent predicate function base-R anyNA() function.Q2. simple_reduce() problem x length 0 length 1. Describe source problem might go fixing .A2. supplied function struggles inputs length 0 1 function tries subscript --bound values.problem can solved adding init argument, supplies default initial value:Let’s try :Depending function, can provide different init argument:Q3. Implement span() function Haskell: given list x predicate function f, span(x, f) returns location longest sequential run elements predicate true. (Hint: might find rle() helpful.)A3. Implementation span():Testing :Testing twice:Q4. Implement arg_max(). take function vector inputs, return elements input function returns highest value. example, arg_max(-10:5, function(x) x ^ 2) return -10. arg_max(-5:5, function(x) x ^ 2) return c(-5, 5). Also implement matching arg_min() function.A4. implementations specified functions:Implementing arg_max()Implementing arg_min()Q5. function scales vector falls range [0, 1]. apply every column data frame? apply every numeric column data frame?A5. use purrr package apply function. Key thing keep mind data frame list atomic vectors equal length.Applying function every column data frame: use anscombe example since numeric columns.Applying function every numeric column data frame: use iris example since columns numeric type.","code":"\n# contrast the following behavior of predicate functions\nis.character(c(\"x\", 2))\n#> [1] TRUE\nis.null(c(3, NULL))\n#> [1] FALSE\n\n# with this behavior\nis.na(c(NA, 1))\n#> [1]  TRUE FALSE\nanyNA(c(NA, 1))\n#> [1] TRUE\nsimple_reduce <- function(x, f) {\n  out <- x[[1]]\n  for (i in seq(2, length(x))) {\n    out <- f(out, x[[i]])\n  }\n  out\n}\nsimple_reduce(numeric(), sum)\n#> Error in x[[1]]: subscript out of bounds\nsimple_reduce(1, sum)\n#> Error in x[[i]]: subscript out of bounds\nsimple_reduce(1:3, sum)\n#> [1] 6\nsimple_reduce2 <- function(x, f, init = 0) {\n  # initializer will become the first value\n  if (length(x) == 0L) {\n    return(init)\n  }\n\n  if (length(x) == 1L) {\n    return(x[[1L]])\n  }\n\n  out <- x[[1]]\n\n  for (i in seq(2, length(x))) {\n    out <- f(out, x[[i]])\n  }\n\n  out\n}\nsimple_reduce2(numeric(), sum)\n#> [1] 0\nsimple_reduce2(1, sum)\n#> [1] 1\nsimple_reduce2(1:3, sum)\n#> [1] 6\nsimple_reduce2(numeric(), `*`, init = 1)\n#> [1] 1\nsimple_reduce2(1, `*`, init = 1)\n#> [1] 1\nsimple_reduce2(1:3, `*`, init = 1)\n#> [1] 6\nspan <- function(x, f) {\n  running_lengths <- purrr::map_lgl(x, ~ f(.x)) %>% rle()\n\n  df <- dplyr::tibble(\n    \"lengths\" = running_lengths$lengths,\n    \"values\" = running_lengths$values\n  ) %>%\n    dplyr::mutate(rowid = dplyr::row_number()) %>%\n    dplyr::filter(values)\n\n  # no sequence where condition is `TRUE`\n  if (nrow(df) == 0L) {\n    return(integer())\n  }\n\n  # only single sequence where condition is `TRUE`\n  if (nrow(df) == 1L) {\n    return((df$rowid):(df$lengths - 1 + df$rowid))\n  }\n\n  # multiple sequences where condition is `TRUE`; select max one\n  if (nrow(df) > 1L) {\n    df <- dplyr::filter(df, lengths == max(lengths))\n    return((df$rowid):(df$lengths - 1 + df$rowid))\n  }\n}\nspan(c(0, 0, 0, 0, 0), is.na)\n#> integer(0)\nspan(c(NA, 0, NA, NA, NA), is.na)\n#> [1] 3 4 5\nspan(c(NA, 0, 0, 0, 0), is.na)\n#> [1] 1\nspan(c(NA, NA, 0, 0, 0), is.na)\n#> [1] 1 2\nspan(c(3, 1, 2, 4, 5, 6), function(x) x > 3)\n#> [1] 2 3 4\nspan(c(3, 1, 2, 4, 5, 6), function(x) x > 9)\n#> integer(0)\nspan(c(3, 1, 2, 4, 5, 6), function(x) x == 3)\n#> [1] 1\nspan(c(3, 1, 2, 4, 5, 6), function(x) x %in% c(2, 4))\n#> [1] 2 3\narg_max <- function(.x, .f) {\n  df <- dplyr::tibble(\n    original = .x,\n    transformed = purrr::map_dbl(.x, .f)\n  )\n\n  dplyr::filter(df, transformed == max(transformed))[[\"original\"]]\n}\n\narg_max(-10:5, function(x) x^2)\n#> [1] -10\narg_max(-5:5, function(x) x^2)\n#> [1] -5  5\narg_min <- function(.x, .f) {\n  df <- dplyr::tibble(\n    original = .x,\n    transformed = purrr::map_dbl(.x, .f)\n  )\n\n  dplyr::filter(df, transformed == min(transformed))[[\"original\"]]\n}\n\narg_min(-10:5, function(x) x^2)\n#> [1] 0\narg_min(-5:5, function(x) x^2)\n#> [1] 0\nscale01 <- function(x) {\n  rng <- range(x, na.rm = TRUE)\n  (x - rng[1]) / (rng[2] - rng[1])\n}\npurrr::map_df(head(anscombe), .f = scale01)\n#> # A tibble: 6 × 8\n#>      x1    x2    x3    x4    y1     y2     y3    y4\n#>   <dbl> <dbl> <dbl> <dbl> <dbl>  <dbl>  <dbl> <dbl>\n#> 1 0.333 0.333 0.333   NaN 0.362 0.897  0.116  0.266\n#> 2 0     0     0       NaN 0     0.0345 0      0    \n#> 3 0.833 0.833 0.833   NaN 0.209 0.552  1      0.633\n#> 4 0.167 0.167 0.167   NaN 0.618 0.578  0.0570 1    \n#> 5 0.5   0.5   0.5     NaN 0.458 1      0.174  0.880\n#> 6 1     1     1       NaN 1     0      0.347  0.416\npurrr::modify_if(head(iris), .p = is.numeric, .f = scale01)\n#>   Sepal.Length Sepal.Width Petal.Length Petal.Width Species\n#> 1        0.625   0.5555556         0.25           0  setosa\n#> 2        0.375   0.0000000         0.25           0  setosa\n#> 3        0.125   0.2222222         0.00           0  setosa\n#> 4        0.000   0.1111111         0.50           0  setosa\n#> 5        0.500   0.6666667         0.25           0  setosa\n#> 6        1.000   1.0000000         1.00           1  setosa"},{"path":"functionals.html","id":"base-functionals-exercises-9.7.3","chapter":"9 Functionals","heading":"9.4 Base functionals (Exercises 9.7.3)","text":"Q1. apply() arrange output? Read documentation perform experiments.A1. Let’s prepare array apply function different margins:can seen, apply() returns outputs organised first margins operated , results.Q2. eapply() rapply() ? purrr equivalents?A2. Let’s consider one--one.eapply()mentioned documentation:eapply() applies FUN named values environment returns results list.example:purrr doesn’t function iterate environments.rapply()rapply() recursive version lapply flexibility result structured (= “..”).example:purrr something similar modify_tree().Q3. Challenge: read fixed point algorithm. Complete exercises using R.A3. mentioned suggested reading material:number \\(x\\) called fixed point function \\(f\\) \\(x\\) satisfies equation \\(f(x) = x\\). functions \\(f\\) can locate fixed point beginning initial guess applying \\(f\\) repeatedly, \\(f(x), f(f(x)), f(f(f(x))), ...\\) value change much. Using idea, can devise procedure fixed-point takes inputs function initial guess produces approximation fixed point function.Let’s first implement fixed-point algorithm:Let’s check works expected:solve one exercise reading material. Rest beyond scope solution manual.Show golden ratio \\(\\phi\\) fixed point transformation \\(x \\mapsto 1 + 1/x\\), use fact compute \\(\\phi\\) means fixed-point procedure.","code":"\n(m <- as.array(table(mtcars$cyl, mtcars$am, mtcars$vs)))\n#> , ,  = 0\n#> \n#>    \n#>     auto manual\n#>   4    0      1\n#>   6    0      3\n#>   8   12      2\n#> \n#> , ,  = 1\n#> \n#>    \n#>     auto manual\n#>   4    3      7\n#>   6    4      0\n#>   8    0      0\n\n# rows\napply(m, 1, function(x) x^2)\n#>       \n#>         4  6   8\n#>   [1,]  0  0 144\n#>   [2,]  1  9   4\n#>   [3,]  9 16   0\n#>   [4,] 49  0   0\n\n# columns\napply(m, 2, function(x) x^2)\n#>       \n#>        auto manual\n#>   [1,]    0      1\n#>   [2,]    0      9\n#>   [3,]  144      4\n#>   [4,]    9     49\n#>   [5,]   16      0\n#>   [6,]    0      0\n\n# rows and columns\napply(m, c(1, 2), function(x) x^2)\n#> , ,  = auto\n#> \n#>    \n#>     4  6   8\n#>   0 0  0 144\n#>   1 9 16   0\n#> \n#> , ,  = manual\n#> \n#>    \n#>      4 6 8\n#>   0  1 9 4\n#>   1 49 0 0\nlibrary(rlang)\n#> \n#> Attaching package: 'rlang'\n#> The following objects are masked from 'package:purrr':\n#> \n#>     %@%, flatten, flatten_chr, flatten_dbl,\n#>     flatten_int, flatten_lgl, flatten_raw, invoke,\n#>     splice\n#> The following object is masked from 'package:magrittr':\n#> \n#>     set_names\n\ne <- env(\"x\" = 1, \"y\" = 2)\nrlang::env_print(e)\n#> <environment: 0x55c8037a7ee0>\n#> Parent: <environment: global>\n#> Bindings:\n#> • x: <dbl>\n#> • y: <dbl>\n\neapply(e, as.character)\n#> $x\n#> [1] \"1\"\n#> \n#> $y\n#> [1] \"2\"\nX <- list(list(a = TRUE, b = list(c = c(4L, 3.2))), d = 9.0)\n\nrapply(X, as.character, classes = \"numeric\", how = \"replace\")\n#> [[1]]\n#> [[1]]$a\n#> [1] TRUE\n#> \n#> [[1]]$b\n#> [[1]]$b$c\n#> [1] \"4\"   \"3.2\"\n#> \n#> \n#> \n#> $d\n#> [1] \"9\"\nX <- list(list(a = TRUE, b = list(c = c(4L, 3.2))), d = 9.0)\n\npurrr::modify_tree(X, leaf = length)\n#> [[1]]\n#> [[1]]$a\n#> [1] 1\n#> \n#> [[1]]$b\n#> [[1]]$b$c\n#> [1] 2\n#> \n#> \n#> \n#> $d\n#> [1] 1\nclose_enough <- function(x1, x2, tolerance = 0.001) {\n  if (abs(x1 - x2) < tolerance) {\n    return(TRUE)\n  } else {\n    return(FALSE)\n  }\n}\n\nfind_fixed_point <- function(.f, .guess, tolerance = 0.001) {\n  .next <- .f(.guess)\n  is_close_enough <- close_enough(.next, .guess, tol = tolerance)\n\n  if (is_close_enough) {\n    return(.next)\n  } else {\n    find_fixed_point(.f, .next, tolerance)\n  }\n}\nfind_fixed_point(cos, 1.0)\n#> [1] 0.7387603\n\n# cos(x) = x\ncos(find_fixed_point(cos, 1.0))\n#> [1] 0.7393039\ngolden_ratio_f <- function(x) 1 + (1 / x)\n\nfind_fixed_point(golden_ratio_f, 1.0)\n#> [1] 1.618182"},{"path":"functionals.html","id":"session-information-7","chapter":"9 Functionals","heading":"9.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"function-factories.html","id":"function-factories","chapter":"10 Function factories","heading":"10 Function factories","text":"Attaching needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)\nlibrary(ggplot2, warn.conflicts = FALSE)"},{"path":"function-factories.html","id":"factory-fundamentals-exercises-10.2.6","chapter":"10 Function factories","heading":"10.1 Factory fundamentals (Exercises 10.2.6)","text":"Q1. definition force() simple:better force(x) instead just x?A1. Due lazy evaluation, argument function won’t evaluated value needed. sometimes may want eager evaluation, using force() makes intent clearer.Q2. Base R contains two function factories, approxfun() ecdf(). Read documentation experiment figure functions return.A2. two function factories-approxfun()function factory returns function performing linear (constant) interpolation.ecdf()function factory computes empirical cumulative distribution function.Q3. Create function pick() takes index, , argument returns function argument x subsets x .A3. write desired function, just need make sure argument eagerly evaluated.Testing specified test cases:Q4. Create function creates functions compute ithcentral moment numeric vector. can test running following code:A4. following function satisfied specified requirements:Testing specified test cases:Q5. happens don’t use closure? Make predictions, verify code .A5. case closures used context, counts stored global variable, can modified processes even deleted.Q6. happens use <- instead <<-? Make predictions, verify code .A6. case, function always return 1.","code":"\nforce\n#> function (x) \n#> x\n#> <bytecode: 0x5590c97aba90>\n#> <environment: namespace:base>\nx <- 1:10\ny <- rnorm(10)\nf <- approxfun(x, y)\nf\n#> function (v) \n#> .approxfun(x, y, v, method, yleft, yright, f, na.rm)\n#> <bytecode: 0x5590cda1fcf8>\n#> <environment: 0x5590cda1e670>\nf(x)\n#>  [1] -0.7786629 -0.3894764 -2.0337983 -0.9823731  0.2478901\n#>  [6] -2.1038646 -0.3814180  2.0749198  1.0271384  0.4730142\ncurve(f(x), 0, 11)\nx <- rnorm(12)\nf <- ecdf(x)\nf\n#> Empirical CDF \n#> Call: ecdf(x)\n#>  x[1:12] = -1.8793, -1.3221, -1.2392,  ..., 1.1604, 1.7956\nf(seq(-2, 2, by = 0.1))\n#>  [1] 0.00000000 0.00000000 0.08333333 0.08333333 0.08333333\n#>  [6] 0.08333333 0.08333333 0.16666667 0.25000000 0.25000000\n#> [11] 0.33333333 0.33333333 0.33333333 0.41666667 0.41666667\n#> [16] 0.41666667 0.41666667 0.50000000 0.58333333 0.58333333\n#> [21] 0.66666667 0.75000000 0.75000000 0.75000000 0.75000000\n#> [26] 0.75000000 0.75000000 0.75000000 0.75000000 0.83333333\n#> [31] 0.83333333 0.83333333 0.91666667 0.91666667 0.91666667\n#> [36] 0.91666667 0.91666667 0.91666667 1.00000000 1.00000000\n#> [41] 1.00000000\npick(1)(x)\n# should be equivalent to\nx[[1]]\n\nlapply(mtcars, pick(5))\n# should be equivalent to\nlapply(mtcars, function(x) x[[5]])\npick <- function(i) {\n  force(i)\n  function(x) x[[i]]\n}\nx <- list(\"a\", \"b\", \"c\")\nidentical(x[[1]], pick(1)(x))\n#> [1] TRUE\n\nidentical(\n  lapply(mtcars, pick(5)),\n  lapply(mtcars, function(x) x[[5]])\n)\n#> [1] TRUE\nm1 <- moment(1)\nm2 <- moment(2)\nx <- runif(100)\nstopifnot(all.equal(m1(x), 0))\nstopifnot(all.equal(m2(x), var(x) * 99 / 100))\nmoment <- function(k) {\n  force(k)\n\n  function(x) (sum((x - mean(x))^k)) / length(x)\n}\nm1 <- moment(1)\nm2 <- moment(2)\nx <- runif(100)\n\nstopifnot(all.equal(m1(x), 0))\nstopifnot(all.equal(m2(x), var(x) * 99 / 100))\ni <- 0\nnew_counter2 <- function() {\n  i <<- i + 1\n  i\n}\nnew_counter2()\n#> [1] 1\n\nnew_counter2()\n#> [1] 2\n\nnew_counter2()\n#> [1] 3\n\ni <- 20\nnew_counter2()\n#> [1] 21\nnew_counter3 <- function() {\n  i <- 0\n  function() {\n    i <- i + 1\n    i\n  }\n}\nnew_counter3()\n#> function() {\n#>     i <- i + 1\n#>     i\n#>   }\n#> <environment: 0x5590cdbc7ee0>\n\nnew_counter3()\n#> function() {\n#>     i <- i + 1\n#>     i\n#>   }\n#> <bytecode: 0x5590cdd86650>\n#> <environment: 0x5590cdc39d08>"},{"path":"function-factories.html","id":"graphical-factories-exercises-10.3.4","chapter":"10 Function factories","heading":"10.2 Graphical factories (Exercises 10.3.4)","text":"Q1. Compare contrast ggplot2::label_bquote() scales::number_format().A1. compare contrast, let’s first look source code functions:ggplot2::label_bquote()scales::number_format()functions return formatting functions used style facets labels labels desired format ggplot2 plots.example, using plotmath expression facet label:display axes labels desired format:ggplot2::label_bquote() adds additional class returned function.scales::number_format() function simple pass-method forces evaluation parameters passes underlying scales::number() function.","code":"\nggplot2::label_bquote\n#> function (rows = NULL, cols = NULL, default) \n#> {\n#>     cols_quoted <- substitute(cols)\n#>     rows_quoted <- substitute(rows)\n#>     call_env <- env_parent()\n#>     fun <- function(labels) {\n#>         quoted <- resolve_labeller(rows_quoted, cols_quoted, \n#>             labels)\n#>         if (is.null(quoted)) {\n#>             return(label_value(labels))\n#>         }\n#>         evaluate <- function(...) {\n#>             params <- list(...)\n#>             params <- as_environment(params, call_env)\n#>             eval(substitute(bquote(expr, params), list(expr = quoted)))\n#>         }\n#>         list(inject(mapply(evaluate, !!!labels, SIMPLIFY = FALSE)))\n#>     }\n#>     structure(fun, class = \"labeller\")\n#> }\n#> <bytecode: 0x5590cdf1fd70>\n#> <environment: namespace:ggplot2>\nscales::number_format\n#> function (accuracy = NULL, scale = 1, prefix = \"\", suffix = \"\", \n#>     big.mark = \" \", decimal.mark = \".\", style_positive = c(\"none\", \n#>         \"plus\", \"space\"), style_negative = c(\"hyphen\", \"minus\", \n#>         \"parens\"), scale_cut = NULL, trim = TRUE, ...) \n#> {\n#>     force_all(accuracy, scale, prefix, suffix, big.mark, decimal.mark, \n#>         style_positive, style_negative, scale_cut, trim, ...)\n#>     function(x) {\n#>         number(x, accuracy = accuracy, scale = scale, prefix = prefix, \n#>             suffix = suffix, big.mark = big.mark, decimal.mark = decimal.mark, \n#>             style_positive = style_positive, style_negative = style_negative, \n#>             scale_cut = scale_cut, trim = trim, ...)\n#>     }\n#> }\n#> <bytecode: 0x5590ce16b2e0>\n#> <environment: namespace:scales>\nlibrary(ggplot2)\n\np <- ggplot(mtcars, aes(wt, mpg)) +\n  geom_point()\np + facet_grid(. ~ vs, labeller = label_bquote(cols = alpha^.(vs)))\nlibrary(scales)\n\nggplot(mtcars, aes(wt, mpg)) +\n  geom_point() +\n  scale_y_continuous(labels = number_format(accuracy = 0.01, decimal.mark = \",\"))"},{"path":"function-factories.html","id":"statistical-factories-exercises-10.4.4","chapter":"10 Function factories","heading":"10.3 Statistical factories (Exercises 10.4.4)","text":"Q1. boot_model(), don’t need force evaluation df model?A1. don’t need force evaluation df model arguments automatically evaluated lm():Q2. might formulate Box-Cox transformation like ?A2. see formulate transformation like , can compare one mentioned book:Let’s look one example :can seen:boxcox2(), can vary x value lambda, whilein boxcox3(), can vary lambda vector.Thus, boxcox3() can handy exploring different transformations across inputs.Q3. don’t need worry boot_permute() stores copy data inside function generates?A3. look source code generated function factory, notice exact data frame (mtcars) referenced:don’t need worry copy made df function environment points memory address data frame. can confirm comparing memory addresses:can also check values bindings entered function factory:Q4. much time ll_poisson2() save compared ll_poisson1()? Use bench::mark() see much faster optimisation occurs. changing length x change results?A4. Let’s first compare performance functions example book:can seen, second version much faster first version.can also vary length vector confirm across wide range vector lengths, performance advantage observed.","code":"\nboot_model <- function(df, formula) {\n  mod <- lm(formula, data = df)\n  fitted <- unname(fitted(mod))\n  resid <- unname(resid(mod))\n  rm(mod)\n\n  function() {\n    fitted + sample(resid)\n  }\n}\nboxcox3 <- function(x) {\n  function(lambda) {\n    if (lambda == 0) {\n      log(x)\n    } else {\n      (x^lambda - 1) / lambda\n    }\n  }\n}\nboxcox2 <- function(lambda) {\n  if (lambda == 0) {\n    function(x) log(x)\n  } else {\n    function(x) (x^lambda - 1) / lambda\n  }\n}\nboxcox2(1)\n#> function(x) (x^lambda - 1) / lambda\n#> <environment: 0x5590c9ee8238>\n\nboxcox3(mtcars$wt)\n#> function(lambda) {\n#>     if (lambda == 0) {\n#>       log(x)\n#>     } else {\n#>       (x^lambda - 1) / lambda\n#>     }\n#>   }\n#> <environment: 0x5590c96d5fa0>\nboot_permute <- function(df, var) {\n  n <- nrow(df)\n  force(var)\n\n  function() {\n    col <- df[[var]]\n    col[sample(n, replace = TRUE)]\n  }\n}\n\nboot_permute(mtcars, \"mpg\")\n#> function() {\n#>     col <- df[[var]]\n#>     col[sample(n, replace = TRUE)]\n#>   }\n#> <environment: 0x5590cceb60a0>\nboot_permute_env <- rlang::fn_env(boot_permute(mtcars, \"mpg\"))\nrlang::env_print(boot_permute_env)\n#> <environment: 0x5590cd8a9768>\n#> Parent: <environment: global>\n#> Bindings:\n#> • n: <int>\n#> • df: <df[,11]>\n#> • var: <chr>\n\nidentical(\n  lobstr::obj_addr(boot_permute_env$df),\n  lobstr::obj_addr(mtcars)\n)\n#> [1] TRUE\nidentical(boot_permute_env$df, mtcars)\n#> [1] TRUE\nidentical(boot_permute_env$var, \"mpg\")\n#> [1] TRUE\nll_poisson1 <- function(x) {\n  n <- length(x)\n\n  function(lambda) {\n    log(lambda) * sum(x) - n * lambda - sum(lfactorial(x))\n  }\n}\n\nll_poisson2 <- function(x) {\n  n <- length(x)\n  sum_x <- sum(x)\n  c <- sum(lfactorial(x))\n\n  function(lambda) {\n    log(lambda) * sum_x - n * lambda - c\n  }\n}\n\nx1 <- c(41, 30, 31, 38, 29, 24, 30, 29, 31, 38)\n\nbench::mark(\n  \"LL1\" = optimise(ll_poisson1(x1), c(0, 100), maximum = TRUE),\n  \"LL2\" = optimise(ll_poisson2(x1), c(0, 100), maximum = TRUE)\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 LL1          27.4µs   28.9µs    33688.    12.9KB     43.9\n#> 2 LL2          14.3µs   14.9µs    63742.        0B     51.0\ngenerate_ll_benches <- function(n) {\n  x_vec <- sample.int(n, n)\n\n  bench::mark(\n    \"LL1\" = optimise(ll_poisson1(x_vec), c(0, 100), maximum = TRUE),\n    \"LL2\" = optimise(ll_poisson2(x_vec), c(0, 100), maximum = TRUE)\n  )[1:4] %>%\n    dplyr::mutate(length = n, .before = expression)\n}\n\n(df_bench <- purrr::map_dfr(\n  .x = c(10, 20, 50, 100, 1000),\n  .f = ~ generate_ll_benches(n = .x)\n))\n#> # A tibble: 10 × 5\n#>    length expression      min   median `itr/sec`\n#>     <dbl> <bch:expr> <bch:tm> <bch:tm>     <dbl>\n#>  1     10 LL1          39.4µs   41.1µs    23111.\n#>  2     10 LL2          17.3µs   17.9µs    54853.\n#>  3     20 LL1          41.8µs   43.4µs    22623.\n#>  4     20 LL2          16.5µs   17.4µs    56762.\n#>  5     50 LL1          46.4µs   47.8µs    20648.\n#>  6     50 LL2          16.1µs   17.1µs    57875.\n#>  7    100 LL1          61.5µs   63.3µs    15559.\n#>  8    100 LL2          17.3µs   18.1µs    54058.\n#>  9   1000 LL1         855.2µs  901.3µs     1090.\n#> 10   1000 LL2          53.9µs   55.2µs    17862.\n\nggplot(\n  df_bench,\n  aes(\n    x = as.numeric(length),\n    y = median,\n    group = as.character(expression),\n    color = as.character(expression)\n  )\n) +\n  geom_point() +\n  geom_line() +\n  labs(\n    x = \"Vector length\",\n    y = \"Median Execution Time\",\n    colour = \"Function used\"\n  )"},{"path":"function-factories.html","id":"function-factories-functionals-exercises-10.5.1","chapter":"10 Function factories","heading":"10.4 Function factories + functionals (Exercises 10.5.1)","text":"Q1. following commands equivalent (x, f(z))?A1. depends whether () used data frame list.Q2. Compare contrast effects env_bind() vs. attach() following code.A2. Let’s compare contrast effects env_bind() vs. attach().attach() adds funs search path. Since functions names functions {base} package, attached names mask ones {base} package.env_bind() adds functions funs global environment, instead masking names {base} package.Note \"funs\" output.","code":"(a) `x$f(x$z)`.\n(b) `f(x$z)`.\n(c) `x$f(z)`.\n(d) `f(z)`.\n(e) It depends.\nf <- mean\nz <- 1\nx <- list(f = mean, z = 1)\n\nidentical(with(x, f(z)), x$f(x$z))\n#> [1] TRUE\n\nidentical(with(x, f(z)), f(x$z))\n#> [1] TRUE\n\nidentical(with(x, f(z)), x$f(z))\n#> [1] TRUE\n\nidentical(with(x, f(z)), f(z))\n#> [1] TRUE\nfuns <- list(\n  mean = function(x) mean(x, na.rm = TRUE),\n  sum = function(x) sum(x, na.rm = TRUE)\n)\n\nattach(funs)\n#> The following objects are masked from package:base:\n#> \n#>     mean, sum\n\nmean\n#> function(x) mean(x, na.rm = TRUE)\nhead(search())\n#> [1] \".GlobalEnv\"       \"funs\"             \"package:scales\"  \n#> [4] \"package:ggplot2\"  \"package:rlang\"    \"package:magrittr\"\n\nmean <- function(x) stop(\"Hi!\")\nmean\n#> function(x) stop(\"Hi!\")\nhead(search())\n#> [1] \".GlobalEnv\"       \"funs\"             \"package:scales\"  \n#> [4] \"package:ggplot2\"  \"package:rlang\"    \"package:magrittr\"\n\ndetach(funs)\nenv_bind(globalenv(), !!!funs)\nmean\n#> function(x) mean(x, na.rm = TRUE)\n\nmean <- function(x) stop(\"Hi!\")\nmean\n#> function(x) stop(\"Hi!\")\nenv_unbind(globalenv(), names(funs))"},{"path":"function-factories.html","id":"session-information-8","chapter":"10 Function factories","heading":"10.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench         1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  farver        2.1.1   2022-07-06 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  labeling      0.4.3   2023-08-29 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr        1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales      * 1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"function-operators.html","id":"function-operators","chapter":"11 Function operators","heading":"11 Function operators","text":"Attaching needed libraries:","code":"\nlibrary(purrr, warn.conflicts = FALSE)"},{"path":"function-operators.html","id":"existing-function-operators-exercises-11.2.3","chapter":"11 Function operators","heading":"11.1 Existing function operators (Exercises 11.2.3)","text":"Q1. Base R provides function operator form Vectorize(). ? might use ?A1. Vectorize() function creates function vectorizes action provided function specified arguments (.e., acts element vector). see utility solving problem otherwise difficult solve.problem find indices matching numeric values given threshold creating hybrid following functions:%% (doesn’t provide way provide tolerance comparing numeric values),dplyr::near() (vectorized element-wise thus expects two vectors equal length)Let’s use :Note needed create new function neither existing functions want.solved complex task using Vectorize() function!Q2. Read source code possibly(). work?A2. Let’s look source code function:Looking code, can see possibly():uses tryCatch() error handlinghas parameter otherwise specify default value case error occurshas parameter quiet suppress error message (needed)Q3. Read source code safely(). work?A3. Let’s look source code function:Looking code, can see safely():uses list save results (function executes successfully) error (fails)uses tryCatch() error handlinghas parameter otherwise specify default value case error occurshas parameter quiet suppress error message (needed)","code":"\nwhich_near <- function(x, y, tolerance) {\n  # Vectorize `dplyr::near()` function only over the `y` argument.\n  # `Vectorize()` is a function operator and will return a function.\n  customNear <- Vectorize(dplyr::near, vectorize.args = c(\"y\"), SIMPLIFY = FALSE)\n\n  # Apply the vectorized function to vector arguments and then check where the\n  # comparisons are equal (i.e. `TRUE`) using `which()`.\n  #\n  # Use `compact()` to remove empty elements from the resulting list.\n  index_list <- purrr::compact(purrr::map(customNear(x, y, tol = tolerance), which))\n\n  # If there are any matches, return the indices as an atomic vector of integers.\n  if (length(index_list) > 0L) {\n    index_vector <- purrr::simplify(index_list, \"integer\")\n    return(index_vector)\n  }\n\n  # If there are no matches\n  return(integer(0L))\n}\nx1 <- c(2.1, 3.3, 8.45, 8, 6)\nx2 <- c(6, 8.40, 3)\n\nwhich_near(x1, x2, tolerance = 0.1)\n#> [1] 5 3\nwhich(x1 %in% x2)\n#> [1] 5\n\nwhich(dplyr::near(x1, x2, tol = 0.1))\n#> Warning in x - y: longer object length is not a multiple of\n#> shorter object length\n#> integer(0)\npossibly\n#> function (.f, otherwise = NULL, quiet = TRUE) \n#> {\n#>     .f <- as_mapper(.f)\n#>     force(otherwise)\n#>     check_bool(quiet)\n#>     function(...) {\n#>         tryCatch(.f(...), error = function(e) {\n#>             if (!quiet) \n#>                 message(\"Error: \", conditionMessage(e))\n#>             otherwise\n#>         })\n#>     }\n#> }\n#> <bytecode: 0x559ef73f2028>\n#> <environment: namespace:purrr>\nsafely\n#> function (.f, otherwise = NULL, quiet = TRUE) \n#> {\n#>     .f <- as_mapper(.f)\n#>     force(otherwise)\n#>     check_bool(quiet)\n#>     function(...) capture_error(.f(...), otherwise, quiet)\n#> }\n#> <bytecode: 0x559ef758cf08>\n#> <environment: namespace:purrr>\n\npurrr:::capture_error\n#> function (code, otherwise = NULL, quiet = TRUE) \n#> {\n#>     tryCatch(list(result = code, error = NULL), error = function(e) {\n#>         if (!quiet) \n#>             message(\"Error: \", conditionMessage(e))\n#>         list(result = otherwise, error = e)\n#>     })\n#> }\n#> <bytecode: 0x559ef75e9110>\n#> <environment: namespace:purrr>"},{"path":"function-operators.html","id":"case-study-creating-your-own-function-operators-exercises-11.3.1","chapter":"11 Function operators","heading":"11.2 Case study: Creating your own function operators (Exercises 11.3.1)","text":"Q1. Weigh pros cons download.file %>% dot_every(10) %>% delay_by(0.1) versus download.file %>% delay_by(0.1) %>% dot_every(10).A1. Although chains piped operations produce number dots need amount time, subtle difference .download.file %>% dot_every(10) %>% delay_by(0.1), printing dot also delayed, first dot printed 10th URL download starts.download.file %>% delay_by(0.1) %>% dot_every(10), first dot printed 9th download finished, 10th download starts short delay.Q2. memoise download.file()? ?A2. Since download.file() meant download files Internet, memoising recommended following reasons:Memoization helpful giving input function returns output. necessarily case webpages since constantly change, may continue “download” outdated version webpage.Memoization helpful giving input function returns output. necessarily case webpages since constantly change, may continue “download” outdated version webpage.Memoization works caching results, can take significant amount memory.Memoization works caching results, can take significant amount memory.Q3. Create function operator reports whenever file created deleted working directory, using dir() setdiff(). global function effects might want track?A3. First, let’s create helper functions compare print added removed filenames:can write function operator use create functions necessary tracking:Let’s try :global function effects might want track:working directoryenvironment variablesconnectionslibrary pathsgraphics devicesetc.Q4. Write function operator logs timestamp message file every time function run.A4. following function operator logs timestamp message file every time function run:Q5. Modify delay_by() instead delaying fixed amount time, ensures certain amount time elapsed since function last called. , called g <- delay_by(1, f); g(); Sys.sleep(2); g() shouldn’t extra delay.A5. Modified version function meeting specified requirements:","code":"\nprint_multiple_entries <- function(header, entries) {\n  message(paste0(header, \":\\n\"), paste0(entries, collapse = \"\\n\"))\n}\n\nfile_comparator <- function(old, new) {\n  if (setequal(old, new)) {\n    return()\n  }\n\n  removed <- setdiff(old, new)\n  added <- setdiff(new, old)\n\n  if (length(removed) > 0L) print_multiple_entries(\"- File removed\", removed)\n  if (length(added) > 0L) print_multiple_entries(\"- File added\", added)\n}\ndir_tracker <- function(f) {\n  force(f)\n  function(...) {\n    old_files <- dir()\n    on.exit(file_comparator(old_files, dir()), add = TRUE)\n\n    f(...)\n  }\n}\n\nfile_creation_tracker <- dir_tracker(file.create)\nfile_deletion_tracker <- dir_tracker(file.remove)\nfile_creation_tracker(c(\"a.txt\", \"b.txt\"))\n#> - File added:\n#> a.txt\n#> b.txt\n#> [1] TRUE TRUE\n\nfile_deletion_tracker(c(\"a.txt\", \"b.txt\"))\n#> - File removed:\n#> a.txt\n#> b.txt\n#> [1] TRUE TRUE\n# helper function to write to a file connection\nwrite_line <- function(filepath, ...) {\n  cat(..., \"\\n\", sep = \"\", file = filepath, append = TRUE)\n}\n\n# function operator\nlogger <- function(f, filepath) {\n  force(f)\n  force(filepath)\n\n  write_line(filepath, \"Function created at: \", as.character(Sys.time()))\n\n  function(...) {\n    write_line(filepath, \"Function called at:  \", as.character(Sys.time()))\n    f(...)\n  }\n}\n\n# check that the function works as expected with a tempfile\nwithr::with_tempfile(\"logfile\", code = {\n  logged_runif <- logger(runif, logfile)\n\n  Sys.sleep(sample.int(10, 1))\n  logged_runif(1)\n\n  Sys.sleep(sample.int(10, 1))\n  logged_runif(2)\n\n  Sys.sleep(sample.int(10, 1))\n  logged_runif(3)\n\n  cat(readLines(logfile), sep = \"\\n\")\n})\n#> Function created at: 2024-01-14 00:44:29.239652\n#> Function called at:  2024-01-14 00:44:34.246656\n#> Function called at:  2024-01-14 00:44:39.251978\n#> Function called at:  2024-01-14 00:44:47.260402\ndelay_by_atleast <- function(f, amount) {\n  force(f)\n  force(amount)\n\n  # the last time the function was run\n  last_time <- NULL\n\n  function(...) {\n    if (!is.null(last_time)) {\n      wait <- (last_time - Sys.time()) + amount\n      if (wait > 0) Sys.sleep(wait)\n    }\n\n    # update the time in the parent frame for the next run when the function finishes\n    on.exit(last_time <<- Sys.time())\n\n    f(...)\n  }\n}"},{"path":"function-operators.html","id":"session-information-9","chapter":"11 Function operators","heading":"11.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr         1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"base-types.html","id":"base-types","chapter":"12 Base Types","heading":"12 Base Types","text":"exercises.","code":""},{"path":"s3.html","id":"s3","chapter":"13 S3","heading":"13 S3","text":"Attaching needed libraries:","code":"\nlibrary(sloop, warn.conflicts = FALSE)\nlibrary(dplyr, warn.conflicts = FALSE)\nlibrary(purrr, warn.conflicts = FALSE)"},{"path":"s3.html","id":"basics-exercises-13.2.1","chapter":"13 S3","heading":"13.1 Basics (Exercises 13.2.1)","text":"Q1. Describe difference t.test() t.data.frame(). function called?A1. difference t.test() t.data.frame() following:t.test() generic function perform t-test.t.test() generic function perform t-test.t.data.frame() method generic t() (matrix transform function) dispatched data.frame objects.t.data.frame() method generic t() (matrix transform function) dispatched data.frame objects.can also confirm function types using ftype():Q2. Make list commonly used base R functions contain . name S3 methods.A2. common R functions . S3 methods:.equal().* functions (like .data.frame(), .numeric(), etc.)install.packages().exit()\netc.example,Q3. .data.frame.data.frame() method ? confusing? avoid confusion code?A3. ’s S3 method generic .data.frame().can seen methods supported generic:Given number .s name, quite confusing figure name generic name class.Q4. Describe difference behaviour two calls.A4. difference behaviour specified calls.unclassing, mean generic dispatches .Date method:unclassing, mean generic dispatches .numeric method:Q5. class object following code return? base type built ? attributes use?A5. object based base type closure6, type function.class ecdf, superclasses.Apart class, following attributes:Q6. class object following code return? base type built ? attributes use?A6. object based base type integer.class table.Apart class, following attributes:","code":"\nftype(t.test)\n#> [1] \"S3\"      \"generic\"\nftype(t.data.frame)\n#> [1] \"S3\"     \"method\"\nftype(as.data.frame)\n#> [1] \"S3\"      \"generic\"\nftype(on.exit)\n#> [1] \"primitive\"\nftype(as.data.frame.data.frame)\n#> [1] \"S3\"     \"method\"\ns3_methods_generic(\"as.data.frame\") %>%\n  dplyr::filter(class == \"data.frame\")\n#> # A tibble: 1 × 4\n#>   generic       class      visible source\n#>   <chr>         <chr>      <lgl>   <chr> \n#> 1 as.data.frame data.frame TRUE    base\nset.seed(1014)\nsome_days <- as.Date(\"2017-01-31\") + sample(10, 5)\nmean(some_days)\n#> [1] \"2017-02-06\"\nmean(unclass(some_days))\n#> [1] 17203.4\nsome_days <- as.Date(\"2017-01-31\") + sample(10, 5)\n\nsome_days\n#> [1] \"2017-02-06\" \"2017-02-09\" \"2017-02-05\" \"2017-02-08\"\n#> [5] \"2017-02-07\"\n\ns3_dispatch(mean(some_days))\n#> => mean.Date\n#>  * mean.default\n\nmean(some_days)\n#> [1] \"2017-02-07\"\nunclass(some_days)\n#> [1] 17203 17206 17202 17205 17204\n\nmean(unclass(some_days))\n#> [1] 17204\n\ns3_dispatch(mean(unclass(some_days)))\n#>    mean.double\n#>    mean.numeric\n#> => mean.default\nx <- ecdf(rpois(100, 10))\nx\nx <- ecdf(rpois(100, 10))\nx\n#> Empirical CDF \n#> Call: ecdf(rpois(100, 10))\n#>  x[1:18] =      2,      3,      4,  ...,     18,     19\n\notype(x)\n#> [1] \"S3\"\ntypeof(x)\n#> [1] \"closure\"\ns3_class(x)\n#> [1] \"ecdf\"     \"stepfun\"  \"function\"\nattributes(x)\n#> $class\n#> [1] \"ecdf\"     \"stepfun\"  \"function\"\n#> \n#> $call\n#> ecdf(rpois(100, 10))\nx <- table(rpois(100, 5))\nx\nx <- table(rpois(100, 5))\nx\n#> \n#>  1  2  3  4  5  6  7  8  9 10 \n#>  7  7 18 13 14 14 16  4  4  3\n\notype(x)\n#> [1] \"S3\"\ntypeof(x)\n#> [1] \"integer\"\ns3_class(x)\n#> [1] \"table\"\nattributes(x)\n#> $dim\n#> [1] 10\n#> \n#> $dimnames\n#> $dimnames[[1]]\n#>  [1] \"1\"  \"2\"  \"3\"  \"4\"  \"5\"  \"6\"  \"7\"  \"8\"  \"9\"  \"10\"\n#> \n#> \n#> $class\n#> [1] \"table\""},{"path":"s3.html","id":"classes-exercises-13.3.4","chapter":"13 S3","heading":"13.2 Classes (Exercises 13.3.4)","text":"Q1. Write constructor data.frame objects. base type data frame built ? attributes use? restrictions placed individual elements? names?A1. data frame built top named list atomic vectors attributes row names:restriction imposed individual elements need length. Additionally, names need syntactically valid unique.Let’s try :Q2. Enhance factor() helper better behaviour one values found levels. base::factor() situation?A2. one values found levels, values converted NA base::factor():new constructor, can throw error inform user:Let’s try :Q3. Carefully read source code factor(). constructor ?A3. source code factor() can read .number ways base version flexible.allows labeling values:checks levels duplicated.levels argument can NULL.Q4. Factors optional “contrasts” attribute. Read help C(), briefly describe purpose attribute. type ? Rewrite new_factor() constructor include attribute.A4. Categorical variables typically encoded dummy variables regression models default level compared first factor level. Contrats provide flexible way comparisons.can set \"contrasts\" attribute factor using stats::C().Alternatively, can set \"contrasts\" attribute using matrix (?contrasts):[Contrasts] can matrix one row level factor suitable function like contr.poly character string giving name functionThe constructor provided book:can updated also support contrasts:Q5. Read documentation utils::.roman(). write constructor class? need validator? might helper ?A5. utils::.roman() converts Indo-Arabic numerals Roman numerals. Removing class also reveals implemented using base type integer:Therefore, can create simple constructor create new instance class:docs mention following:numbers 1 3899 unique representation roman numbers, hence others result .roman(NA).Therefore, can warn user return NA validator function:helper function can coerce entered input integer type convenience:Let’s try :","code":"\nunclass(data.frame())\n#> named list()\n#> attr(,\"row.names\")\n#> integer(0)\nnew_data_frame <- function(x = list(), row.names = character()) {\n  # row names should be character\n  if (!all(is.character(row.names))) {\n    stop(\"Row name should be of `chracter` type.\", call. = FALSE)\n  }\n\n  # all elements should have the same length\n  unique_element_lengths <- unique(purrr::map_int(x, length))\n  if (length(unique_element_lengths) > 1L) {\n    stop(\"All list elements in `x` should have same length.\", call. = FALSE)\n  }\n\n  # if not provided, generate row names\n  # this is necessary if there is at least one element in the list\n  if (length(x) > 0L && length(row.names) == 0L) {\n    row.names <- .set_row_names(unique_element_lengths)\n  }\n\n  structure(x, class = \"data.frame\", row.names = row.names)\n}\nnew_data_frame(list(\"x\" = 1, \"y\" = c(2, 3)))\n#> Error: All list elements in `x` should have same length.\n\nnew_data_frame(list(\"x\" = 1, \"y\" = c(2)), row.names = 1L)\n#> Error: Row name should be of `chracter` type.\n\nnew_data_frame(list())\n#> data frame with 0 columns and 0 rows\n\nnew_data_frame(list(\"x\" = 1, \"y\" = 2))\n#>   x y\n#> 1 1 2\n\nnew_data_frame(list(\"x\" = 1, \"y\" = 2), row.names = \"row-1\")\n#>       x y\n#> row-1 1 2\nbase::factor(c(\"a\", \"b\", \"c\"), levels = c(\"a\", \"c\"))\n#> [1] a    <NA> c   \n#> Levels: a c\nnew_factor <- function(x = integer(), levels = character()) {\n  stopifnot(is.integer(x))\n  stopifnot(is.character(levels))\n\n  structure(\n    x,\n    levels = levels,\n    class = \"factor\"\n  )\n}\n\nvalidate_factor <- function(x) {\n  values <- unclass(x)\n  levels <- attr(x, \"levels\")\n\n  if (!all(!is.na(values) & values > 0)) {\n    stop(\n      \"All `x` values must be non-missing and greater than zero\",\n      call. = FALSE\n    )\n  }\n\n  if (length(levels) < max(values)) {\n    stop(\n      \"There must be at least as many `levels` as possible values in `x`\",\n      call. = FALSE\n    )\n  }\n\n  x\n}\n\ncreate_factor <- function(x = character(), levels = unique(x)) {\n  ind <- match(x, levels)\n\n  if (any(is.na(ind))) {\n    missing_values <- x[which(is.na(match(x, levels)))]\n\n    stop(\n      paste0(\n        \"Following values from `x` are not present in `levels`:\\n\",\n        paste0(missing_values, collapse = \"\\n\")\n      ),\n      call. = FALSE\n    )\n  }\n\n  validate_factor(new_factor(ind, levels))\n}\ncreate_factor(c(\"a\", \"b\", \"c\"), levels = c(\"a\", \"c\"))\n#> Error: Following values from `x` are not present in `levels`:\n#> b\n\ncreate_factor(c(\"a\", \"b\", \"c\"), levels = c(\"a\", \"b\", \"c\"))\n#> [1] a b c\n#> Levels: a b c\nx <- c(\"a\", \"b\", \"b\")\nlevels <- c(\"a\", \"b\", \"c\")\nlabels <- c(\"one\", \"two\", \"three\")\n\nfactor(x, levels = levels, labels = labels)\n#> [1] one two two\n#> Levels: one two three\nx <- c(\"a\", \"b\", \"b\")\nlevels <- c(\"a\", \"b\", \"b\")\n\nfactor(x, levels = levels)\n#> Error in `levels<-`(`*tmp*`, value = as.character(levels)): factor level [3] is duplicated\n\ncreate_factor(x, levels = levels)\n#> [1] a b b\n#> Levels: a b b\n#> Warning in print.factor(x): duplicated level [3] in factor\nx <- c(\"a\", \"b\", \"b\")\n\nfactor(x, levels = NULL)\n#> [1] <NA> <NA> <NA>\n#> Levels:\n\ncreate_factor(x, levels = NULL)\n#> Error: Following values from `x` are not present in `levels`:\n#> a\n#> b\n#> b\nnew_factor <- function(x = integer(), levels = character()) {\n  stopifnot(is.integer(x))\n  stopifnot(is.character(levels))\n\n  structure(\n    x,\n    levels = levels,\n    class = \"factor\"\n  )\n}\nnew_factor <- function(x = integer(),\n                       levels = character(),\n                       contrasts = NULL) {\n  stopifnot(is.integer(x))\n  stopifnot(is.character(levels))\n\n  if (!is.null(contrasts)) {\n    stopifnot(is.matrix(contrasts) && is.numeric(contrasts))\n  }\n\n  structure(\n    x,\n    levels = levels,\n    class = \"factor\",\n    contrasts = contrasts\n  )\n}\nas.roman(1)\n#> [1] I\n\ntypeof(unclass(as.roman(1)))\n#> [1] \"integer\"\nnew_roman <- function(x = integer()) {\n  stopifnot(is.integer(x))\n\n  structure(x, class = \"roman\")\n}\nas.roman(10000)\n#> [1] <NA>\nvalidate_new_roman <- function(x) {\n  int_values <- unclass(x)\n\n  if (any(int_values < 1L | int_values > 3899L)) {\n    warning(\n      \"Integer should be between 1 and 3899. Returning `NA` otherwise.\",\n      call. = FALSE\n    )\n  }\n\n  x\n}\nroman <- function(x = integer()) {\n  x <- as.integer(x)\n\n  validate_new_roman(new_roman(x))\n}\nroman(1)\n#> [1] I\n\nroman(c(5, 20, 100, 150, 100000))\n#> Warning: Integer should be between 1 and 3899. Returning\n#> `NA` otherwise.\n#> [1] V    XX   C    CL   <NA>"},{"path":"s3.html","id":"generics-and-methods-exercises-13.4.4","chapter":"13 S3","heading":"13.3 Generics and methods (Exercises 13.4.4)","text":"Q1. Read source code t() t.test() confirm t.test() S3 generic S3 method. happens create object class test call t() ? ?A1. Looking source code functions, can see generic, can confirm using sloop:Looking S3 dispatch, can see since R can’t find S3 method test class generic function t(), dispatches default method, converts structure matrix:behaviour can observed vector:Q2. generics table class methods ?A2. table class methods following generics:Q3. generics ecdf class methods ?A3. ecdf class methods following generics:Q4. base generic greatest number defined methods?A4. answer question, first, let’s list functions base retain generics.Now ’s simple matter counting number methods per generic ordering data frame descending order count:reveals base generic function methods print().Q5. Carefully read documentation UseMethod() explain following code returns results . two usual rules function evaluation UseMethod() violate?A5. called directly, g.default() method takes x value argument y global environment:, g() function called, takes x argument, comes function environment:docs ?UseMethod() clarify case:local variables defined call UseMethod retainedThat , UseMethod() calls g.default(), variables defined inside generic also available g.default() method. arguments supplied function passed , however, affected code inside generic.Two rules function evaluation violated UseMethod():Name maskingA fresh startQ6. arguments [? hard question answer?A6. difficult say many formal arguments subsetting [ operator generic function methods vectors, matrices, arrays, lists, etc., different methods different number arguments:can sample see wide variation number formal arguments:","code":"\nx <- structure(1:10, class = \"test\")\nt(x)\nt\n#> function (x) \n#> UseMethod(\"t\")\n#> <bytecode: 0x5609d011b1a8>\n#> <environment: namespace:base>\nsloop::is_s3_generic(\"t\")\n#> [1] TRUE\n\nt.test\n#> function (x, ...) \n#> UseMethod(\"t.test\")\n#> <bytecode: 0x5609cb197120>\n#> <environment: namespace:stats>\nsloop::is_s3_generic(\"t.test\")\n#> [1] TRUE\nx <- structure(1:10, class = \"test\")\nt(x)\n#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]\n#> [1,]    1    2    3    4    5    6    7    8    9    10\n#> attr(,\"class\")\n#> [1] \"test\"\ns3_dispatch(t(x))\n#> => t.test\n#>  * t.default\nt(1:10)\n#>      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]\n#> [1,]    1    2    3    4    5    6    7    8    9    10\ns3_methods_class(\"table\")\n#> # A tibble: 11 × 4\n#>    generic       class visible source             \n#>    <chr>         <chr> <lgl>   <chr>              \n#>  1 [             table TRUE    base               \n#>  2 aperm         table TRUE    base               \n#>  3 as_tibble     table FALSE   registered S3method\n#>  4 as.data.frame table TRUE    base               \n#>  5 Axis          table FALSE   registered S3method\n#>  6 lines         table FALSE   registered S3method\n#>  7 plot          table FALSE   registered S3method\n#>  8 points        table FALSE   registered S3method\n#>  9 print         table TRUE    base               \n#> 10 summary       table TRUE    base               \n#> 11 tail          table FALSE   registered S3method\ns3_methods_class(\"ecdf\")\n#> # A tibble: 4 × 4\n#>   generic  class visible source             \n#>   <chr>    <chr> <lgl>   <chr>              \n#> 1 plot     ecdf  TRUE    stats              \n#> 2 print    ecdf  FALSE   registered S3method\n#> 3 quantile ecdf  FALSE   registered S3method\n#> 4 summary  ecdf  FALSE   registered S3method\n# getting all functions names\nobjs <- mget(ls(\"package:base\", all = TRUE), inherits = TRUE)\nfuns <- Filter(is.function, objs)\n\n# extracting only generics\ngenFuns <- names(funs) %>%\n  purrr::keep(~ sloop::is_s3_generic(.x))\npurrr::map_dfr(\n  genFuns,\n  ~ s3_methods_generic(.)\n) %>%\n  dplyr::group_by(generic) %>%\n  dplyr::tally() %>%\n  dplyr::arrange(desc(n))\n#> # A tibble: 122 × 2\n#>    generic           n\n#>    <chr>         <int>\n#>  1 print           289\n#>  2 format          130\n#>  3 [                53\n#>  4 summary          39\n#>  5 as.character     38\n#>  6 as.data.frame    32\n#>  7 plot             30\n#>  8 [[               26\n#>  9 [<-              17\n#> 10 $                15\n#> # ℹ 112 more rows\ng <- function(x) {\n  x <- 10\n  y <- 10\n  UseMethod(\"g\")\n}\ng.default <- function(x) c(x = x, y = y)\nx <- 1\ny <- 1\ng(x)\n#>  x  y \n#>  1 10\ng.default(x)\n#> x y \n#> 1 1\ng(x)\n#>  x  y \n#>  1 10\ns3_methods_generic(\"[\") %>%\n  dplyr::filter(source == \"base\")\n#> # A tibble: 17 × 4\n#>    generic class           visible source\n#>    <chr>   <chr>           <lgl>   <chr> \n#>  1 [       AsIs            TRUE    base  \n#>  2 [       data.frame      TRUE    base  \n#>  3 [       Date            TRUE    base  \n#>  4 [       difftime        TRUE    base  \n#>  5 [       Dlist           TRUE    base  \n#>  6 [       DLLInfoList     TRUE    base  \n#>  7 [       factor          TRUE    base  \n#>  8 [       hexmode         TRUE    base  \n#>  9 [       listof          TRUE    base  \n#> 10 [       noquote         TRUE    base  \n#> 11 [       numeric_version TRUE    base  \n#> 12 [       octmode         TRUE    base  \n#> 13 [       POSIXct         TRUE    base  \n#> 14 [       POSIXlt         TRUE    base  \n#> 15 [       simple.list     TRUE    base  \n#> 16 [       table           TRUE    base  \n#> 17 [       warnings        TRUE    base\n# table\nnames(formals(`[.table`))\n#> [1] \"x\"    \"i\"    \"j\"    \"...\"  \"drop\"\n\n# Date\nnames(formals(`[.Date`))\n#> [1] \"x\"    \"...\"  \"drop\"\n\n# data frame\nnames(formals(`[.data.frame`))\n#> [1] \"x\"    \"i\"    \"j\"    \"drop\"\n\n# etc."},{"path":"s3.html","id":"object-styles-exercises-13.5.1","chapter":"13 S3","heading":"13.4 Object styles (Exercises 13.5.1)","text":"Q1. Categorise objects returned lm(), factor(), table(), .Date(), .POSIXct() ecdf(), ordered(), () styles described .A1. Objects returned functions can categorized follows:Vector style objects (length represents . observations)factor()table().Date().POSIXct()ordered()Record style objects (equi-length vectors represent object components)None.Dataframe style objects (Record style two-dimensions)None.Scalar objects (list represent single thing)lm() (represent one regression model)ecdf() (represents one distribution)() special:\njust adds new class object indicate treated .Therefore, object style superclass’ object style.Q2. constructor function lm objects, new_lm(), look like? Use ?lm experimentation figure required fields types.A2. lm object scalar object, .e. object contains named list atomic vectors varying lengths types represent single thing (regression model).Based information, can write new constructor object:","code":"\nfactor_obj <- factor(c(\"a\", \"b\"))\nlength(factor_obj)\n#> [1] 2\nlength(unclass(factor_obj))\n#> [1] 2\ntab_object <- table(mtcars$am)\nlength(tab_object)\n#> [1] 2\nlength(unlist(tab_object))\n#> [1] 2\ndate_obj <- as.Date(\"02/27/92\", \"%m/%d/%y\")\nlength(date_obj)\n#> [1] 1\nlength(unclass(date_obj))\n#> [1] 1\nposix_obj <- as.POSIXct(1472562988, origin = \"1960-01-01\")\nlength(posix_obj)\n#> [1] 1\nlength(unclass(posix_obj))\n#> [1] 1\nordered_obj <- ordered(factor(c(\"a\", \"b\")))\nlength(ordered_obj)\n#> [1] 2\nlength(unclass(ordered_obj))\n#> [1] 2\nlm_obj <- lm(wt ~ mpg, mtcars)\nlength(lm_obj)\n#> [1] 12\nlength(unclass(lm_obj))\n#> [1] 12\necdf_obj <- ecdf(rnorm(12))\nlength(ecdf_obj)\n#> [1] 1\nlength(unclass(ecdf_obj))\n#> [1] 1\nx <- ecdf(rnorm(12))\nclass(x)\n#> [1] \"ecdf\"     \"stepfun\"  \"function\"\nclass(I(x))\n#> [1] \"AsIs\"     \"ecdf\"     \"stepfun\"  \"function\"\nmod <- lm(wt ~ mpg, mtcars)\n\ntypeof(mod)\n#> [1] \"list\"\n\nattributes(mod)\n#> $names\n#>  [1] \"coefficients\"  \"residuals\"     \"effects\"      \n#>  [4] \"rank\"          \"fitted.values\" \"assign\"       \n#>  [7] \"qr\"            \"df.residual\"   \"xlevels\"      \n#> [10] \"call\"          \"terms\"         \"model\"        \n#> \n#> $class\n#> [1] \"lm\"\n\npurrr::map_chr(unclass(mod), typeof)\n#>  coefficients     residuals       effects          rank \n#>      \"double\"      \"double\"      \"double\"     \"integer\" \n#> fitted.values        assign            qr   df.residual \n#>      \"double\"     \"integer\"        \"list\"     \"integer\" \n#>       xlevels          call         terms         model \n#>        \"list\"    \"language\"    \"language\"        \"list\"\n\npurrr::map_int(unclass(mod), length)\n#>  coefficients     residuals       effects          rank \n#>             2            32            32             1 \n#> fitted.values        assign            qr   df.residual \n#>            32             2             5             1 \n#>       xlevels          call         terms         model \n#>             0             3             3             2\nnew_lm <- function(coefficients,\n                   residuals,\n                   effects,\n                   rank,\n                   fitted.values,\n                   assign,\n                   qr,\n                   df.residual,\n                   xlevels,\n                   call,\n                   terms,\n                   model) {\n  stopifnot(\n    is.double(coefficients),\n    is.double(residuals),\n    is.double(effects),\n    is.integer(rank),\n    is.double(fitted.values),\n    is.integer(assign),\n    is.list(qr),\n    is.integer(df.residual),\n    is.list(xlevels),\n    is.language(call),\n    is.language(terms),\n    is.list(model)\n  )\n\n  structure(\n    list(\n      coefficients  = coefficients,\n      residuals     = residuals,\n      effects       = effects,\n      rank          = rank,\n      fitted.values = fitted.values,\n      assign        = assign,\n      qr            = qr,\n      df.residual   = df.residual,\n      xlevels       = xlevels,\n      call          = call,\n      terms         = terms,\n      model         = model\n    ),\n    class = \"lm\"\n  )\n}"},{"path":"s3.html","id":"inheritance-exercises-13.6.3","chapter":"13 S3","heading":"13.5 Inheritance (Exercises 13.6.3)","text":"Q1. [.Date support subclasses? fail support subclasses?A1. [.Date method defined follows:.Date function looks like :, oldClass class().Therefore, reading code, can surmise :[.Date supports subclasses preserving class input.[.Date fails support subclasses preserving attributes input.example,Q2. R two classes representing date time data, POSIXct POSIXlt, inherit POSIXt. generics different behaviours two classes? generics share behaviour?A2. First, let’s demonstrate POSIXct POSIXlt indeed subclasses POSIXt superclass.Remember way S3 method dispatch works, generic method superclass, method also inherited subclass.can extract vector generics supported sub- super-classes:Methods specific subclasses:Let’s see example:Methods inherited subclasses superclass:Let’s see one example generic:Q3. expect code return? actually return? ?A3. Naively, expect code return \"a1\", actually returns \"a2\":S3 dispatch explains :mentioned book, UseMethod() functiontracks list potential next methods special variable, means modifying object ’s dispatched upon impact method gets called next.special variable .Class:.Class character vector classes used find next method. NextMethod adds attribute “previous” .Class giving .Class last used dispatch, shifts .Class along used dispatch., can print .Class confirm adding new class x indeed doesn’t change .Class, therefore dispatch occurs \"a2\" class:","code":"\nsloop::s3_get_method(\"[.Date\")\n#> function (x, ..., drop = TRUE) \n#> {\n#>     .Date(NextMethod(\"[\"), oldClass(x))\n#> }\n#> <bytecode: 0x5609d04d4130>\n#> <environment: namespace:base>\n.Date\n#> function (xx, cl = \"Date\") \n#> `class<-`(xx, cl)\n#> <bytecode: 0x5609ce3b8768>\n#> <environment: namespace:base>\nx <- structure(Sys.Date(), name = \"myName\", class = c(\"subDate\", \"Date\"))\n\n# `$name` is gone\nattributes(x[1])\n#> $class\n#> [1] \"subDate\" \"Date\"\n\nx[1]\n#> [1] \"2024-01-14\"\ndt_lt <- as.POSIXlt(Sys.time(), \"GMT\")\nclass(dt_lt)\n#> [1] \"POSIXlt\" \"POSIXt\"\n\ndt_ct <- as.POSIXct(Sys.time(), \"GMT\")\nclass(dt_ct)\n#> [1] \"POSIXct\" \"POSIXt\"\n\ndt_t <- structure(dt_ct, class = \"POSIXt\")\nclass(dt_t)\n#> [1] \"POSIXt\"\n(t_generics <- s3_methods_class(\"POSIXt\")$generic)\n#>  [1] \"-\"            \"+\"            \"all.equal\"   \n#>  [4] \"as.character\" \"Axis\"         \"cut\"         \n#>  [7] \"diff\"         \"hist\"         \"is.numeric\"  \n#> [10] \"julian\"       \"Math\"         \"months\"      \n#> [13] \"Ops\"          \"pretty\"       \"quantile\"    \n#> [16] \"quarters\"     \"round\"        \"seq\"         \n#> [19] \"str\"          \"trunc\"        \"weekdays\"\n\n(lt_generics <- s3_methods_class(\"POSIXlt\")$generic)\n#>  [1] \"[\"             \"[[\"            \"[[<-\"         \n#>  [4] \"[<-\"           \"$<-\"           \"anyNA\"        \n#>  [7] \"as.data.frame\" \"as.Date\"       \"as.double\"    \n#> [10] \"as.list\"       \"as.matrix\"     \"as.POSIXct\"   \n#> [13] \"as.vector\"     \"c\"             \"duplicated\"   \n#> [16] \"format\"        \"is.finite\"     \"is.infinite\"  \n#> [19] \"is.na\"         \"is.nan\"        \"length\"       \n#> [22] \"length<-\"      \"mean\"          \"names\"        \n#> [25] \"names<-\"       \"print\"         \"rep\"          \n#> [28] \"sort\"          \"summary\"       \"Summary\"      \n#> [31] \"unique\"        \"weighted.mean\" \"xtfrm\"\n\n(ct_generics <- s3_methods_class(\"POSIXct\")$generic)\n#>  [1] \"[\"             \"[[\"            \"[<-\"          \n#>  [4] \"as.data.frame\" \"as.Date\"       \"as.list\"      \n#>  [7] \"as.POSIXlt\"    \"c\"             \"format\"       \n#> [10] \"length<-\"      \"mean\"          \"print\"        \n#> [13] \"rep\"           \"split\"         \"summary\"      \n#> [16] \"Summary\"       \"weighted.mean\" \"xtfrm\"\nunion(lt_generics, ct_generics)\n#>  [1] \"[\"             \"[[\"            \"[[<-\"         \n#>  [4] \"[<-\"           \"$<-\"           \"anyNA\"        \n#>  [7] \"as.data.frame\" \"as.Date\"       \"as.double\"    \n#> [10] \"as.list\"       \"as.matrix\"     \"as.POSIXct\"   \n#> [13] \"as.vector\"     \"c\"             \"duplicated\"   \n#> [16] \"format\"        \"is.finite\"     \"is.infinite\"  \n#> [19] \"is.na\"         \"is.nan\"        \"length\"       \n#> [22] \"length<-\"      \"mean\"          \"names\"        \n#> [25] \"names<-\"       \"print\"         \"rep\"          \n#> [28] \"sort\"          \"summary\"       \"Summary\"      \n#> [31] \"unique\"        \"weighted.mean\" \"xtfrm\"        \n#> [34] \"as.POSIXlt\"    \"split\"\ns3_dispatch(is.na(dt_lt))\n#> => is.na.POSIXlt\n#>    is.na.POSIXt\n#>    is.na.default\n#>  * is.na (internal)\n\ns3_dispatch(is.na(dt_ct))\n#>    is.na.POSIXct\n#>    is.na.POSIXt\n#>    is.na.default\n#> => is.na (internal)\n\ns3_dispatch(is.na(dt_t))\n#>    is.na.POSIXt\n#>    is.na.default\n#> => is.na (internal)\nsetdiff(t_generics, union(lt_generics, ct_generics))\n#>  [1] \"-\"            \"+\"            \"all.equal\"   \n#>  [4] \"as.character\" \"Axis\"         \"cut\"         \n#>  [7] \"diff\"         \"hist\"         \"is.numeric\"  \n#> [10] \"julian\"       \"Math\"         \"months\"      \n#> [13] \"Ops\"          \"pretty\"       \"quantile\"    \n#> [16] \"quarters\"     \"round\"        \"seq\"         \n#> [19] \"str\"          \"trunc\"        \"weekdays\"\ns3_dispatch(is.numeric(dt_lt))\n#>    is.numeric.POSIXlt\n#> => is.numeric.POSIXt\n#>    is.numeric.default\n#>  * is.numeric (internal)\n\ns3_dispatch(is.numeric(dt_ct))\n#>    is.numeric.POSIXct\n#> => is.numeric.POSIXt\n#>    is.numeric.default\n#>  * is.numeric (internal)\n\ns3_dispatch(is.numeric(dt_t))\n#> => is.numeric.POSIXt\n#>    is.numeric.default\n#>  * is.numeric (internal)\ngeneric2 <- function(x) UseMethod(\"generic2\")\ngeneric2.a1 <- function(x) \"a1\"\ngeneric2.a2 <- function(x) \"a2\"\ngeneric2.b <- function(x) {\n  class(x) <- \"a1\"\n  NextMethod()\n}\n\ngeneric2(structure(list(), class = c(\"b\", \"a2\")))\ngeneric2 <- function(x) UseMethod(\"generic2\")\ngeneric2.a1 <- function(x) \"a1\"\ngeneric2.a2 <- function(x) \"a2\"\ngeneric2.b <- function(x) {\n  class(x) <- \"a1\"\n  NextMethod()\n}\n\ngeneric2(structure(list(), class = c(\"b\", \"a2\")))\n#> [1] \"a2\"\nsloop::s3_dispatch(generic2(structure(list(), class = c(\"b\", \"a2\"))))\n#> => generic2.b\n#> -> generic2.a2\n#>    generic2.default\ngeneric2.b <- function(x) {\n  message(paste0(\"before: \", paste0(.Class, collapse = \", \")))\n  class(x) <- \"a1\"\n  message(paste0(\"after: \", paste0(.Class, collapse = \", \")))\n\n  NextMethod()\n}\n\ninvisible(generic2(structure(list(), class = c(\"b\", \"a2\"))))\n#> before: b, a2\n#> after: b, a2"},{"path":"s3.html","id":"dispatch-details-exercises-13.7.5","chapter":"13 S3","heading":"13.6 Dispatch details (Exercises 13.7.5)","text":"Q1. Explain differences dispatch :A1. differences dispatch due classes arguments:x1 implicit class integer inherits numeric, x2 explicitly assigned class integer.Q2. classes method Math group generic base R? Read source code. methods work?A2. following classes method Math group generic base R:Reading source code methods:Math.factor() Math.Date() provide error message:Math.data.frame() defined follows (except first line code, deliberately added):can surmised code: method checks elements expected type., applies generic (tracked via environment variable .Generic) element list atomic vectors makes data frame:, produces error:Q3. Math.difftime() complicated described. ?A3. Math.difftime() source code looks like following:group generic bit complicated produces error generics, works others.","code":"\nlength.integer <- function(x) 10\n\nx1 <- 1:5\nclass(x1)\n#> [1] \"integer\"\ns3_dispatch(length(x1))\n#>  * length.integer\n#>    length.numeric\n#>    length.default\n#> => length (internal)\n\nx2 <- structure(x1, class = \"integer\")\nclass(x2)\n#> [1] \"integer\"\ns3_dispatch(length(x2))\n#> => length.integer\n#>    length.default\n#>  * length (internal)\ns3_class(x1)\n#> [1] \"integer\" \"numeric\"\n\ns3_class(x2)\n#> [1] \"integer\"\ns3_methods_generic(\"Math\") %>%\n  dplyr::filter(source == \"base\")\n#> # A tibble: 5 × 4\n#>   generic class      visible source\n#>   <chr>   <chr>      <lgl>   <chr> \n#> 1 Math    data.frame TRUE    base  \n#> 2 Math    Date       TRUE    base  \n#> 3 Math    difftime   TRUE    base  \n#> 4 Math    factor     TRUE    base  \n#> 5 Math    POSIXt     TRUE    base\nMath.factor <- function(x, ...) {\n  stop(gettextf(\"%s not meaningful for factors\", sQuote(.Generic)))\n}\n\nMath.Date <- function(x, ...) {\n  stop(gettextf(\"%s not defined for \\\"Date\\\" objects\", .Generic),\n    domain = NA\n  )\n}\nMath.data.frame <- function(x, ...) {\n  message(paste0(\"Environment variable `.Generic` set to: \", .Generic))\n\n  mode.ok <- vapply(x, function(x) {\n    is.numeric(x) || is.logical(x) || is.complex(x)\n  }, NA)\n\n  if (all(mode.ok)) {\n    x[] <- lapply(X = x, FUN = .Generic, ...)\n    return(x)\n  } else {\n    vnames <- names(x)\n    if (is.null(vnames)) vnames <- seq_along(x)\n    stop(\n      \"non-numeric-alike variable(s) in data frame: \",\n      paste(vnames[!mode.ok], collapse = \", \")\n    )\n  }\n}\ndf1 <- data.frame(x = 1:2, y = 3:4)\nsqrt(df1)\n#> Environment variable `.Generic` set to: sqrt\n#>          x        y\n#> 1 1.000000 1.732051\n#> 2 1.414214 2.000000\ndf2 <- data.frame(x = c(TRUE, FALSE), y = c(\"a\", \"b\"))\nabs(df2)\n#> Environment variable `.Generic` set to: abs\n#> Error in Math.data.frame(df2): non-numeric-alike variable(s) in data frame: y\nMath.difftime <- function(x, ...) {\n  switch(.Generic,\n    \"abs\" = ,\n    \"sign\" = ,\n    \"floor\" = ,\n    \"ceiling\" = ,\n    \"trunc\" = ,\n    \"round\" = ,\n    \"signif\" = {\n      units <- attr(x, \"units\")\n      .difftime(NextMethod(), units)\n    },\n    ### otherwise :\n    stop(gettextf(\"'%s' not defined for \\\"difftime\\\" objects\", .Generic),\n      domain = NA\n    )\n  )\n}"},{"path":"s3.html","id":"session-information-10","chapter":"13 S3","heading":"13.7 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  codetools     0.2-19  2023-02-01 [3] CRAN (R 4.3.2)\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  sloop       * 1.0.1   2019-02-17 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"r6.html","id":"r6","chapter":"14 R6","heading":"14 R6","text":"Loading needed libraries:","code":"\nlibrary(R6)"},{"path":"r6.html","id":"classes-and-methods-exercises-14.2.6","chapter":"14 R6","heading":"14.1 Classes and methods (Exercises 14.2.6)","text":"Q1. Create bank account R6 class stores balance allows deposit withdraw money. Create subclass throws error attempt go overdraft. Create another subclass allows go overdraft, charges fee. Create superclass make sure works expected.A1. First, let’s create bank account R6 class stores balance allows deposit withdraw money:Let’s try :Create subclass errors attempt overdraw:Let’s try :Now let’s create subclass charges fee account overdrawn:Let’s try :Q2. Create R6 class represents shuffled deck cards. able draw cards deck $draw(n), return cards deck reshuffle $reshuffle(). Use following code make vector cards.A2. Let’s create needed class represents shuffled deck cards:Let’s try :Q3. can’t model bank account deck cards S3 class?A3. can’t model bank account deck cards S3 class instances classes immutable.hand, R6 classes encapsulate data represent state, can change course object’s lifecycle. words, objects mutable well-suited model bank account.Q4. Create R6 class allows get set current time zone. can access current time zone Sys.timezone() set Sys.setenv(TZ = \"newtimezone\"). setting time zone, make sure new time zone list provided OlsonNames().A4. R6 class manages current time zone:Let’s try :Q5. Create R6 class manages current working directory. $get() $set() methods.A5. R6 class manages current working directory:Let’s create instance class check methods work expected:Q6. can’t model time zone current working directory S3 class?A6. answer Q3:Objects represent real-life entities need mutable S3 class instances mutable.Q7. base type R6 objects built top ? attributes ?A7. Let’s create example class create instance class:R6 objects built top environment:class attribute, character vector \"R6\" last element superclasses elements:","code":"\nlibrary(R6)\n\nbankAccount <- R6::R6Class(\n  \"bankAccount\",\n  public = list(\n    balance = 0,\n    initialize = function(balance) {\n      self$balance <- balance\n    },\n    deposit = function(amount) {\n      self$balance <- self$balance + amount\n      message(paste0(\"Current balance is: \", self$balance))\n      invisible(self)\n    },\n    withdraw = function(amount) {\n      self$balance <- self$balance - amount\n      message(paste0(\"Current balance is: \", self$balance))\n      invisible(self)\n    }\n  )\n)\nindra <- bankAccount$new(balance = 100)\n\nindra$deposit(20)\n#> Current balance is: 120\n\nindra$withdraw(10)\n#> Current balance is: 110\nbankAccountStrict <- R6::R6Class(\n  \"bankAccountStrict\",\n  inherit = bankAccount,\n  public = list(\n    withdraw = function(amount) {\n      if (self$balance - amount < 0) {\n        stop(\n          paste0(\"Can't withdraw more than your current balance: \", self$balance),\n          call. = FALSE\n        )\n      }\n\n      super$withdraw(amount)\n    }\n  )\n)\nPritesh <- bankAccountStrict$new(balance = 100)\n\nPritesh$deposit(20)\n#> Current balance is: 120\n\nPritesh$withdraw(150)\n#> Error: Can't withdraw more than your current balance: 120\nbankAccountFee <- R6::R6Class(\n  \"bankAccountFee\",\n  inherit = bankAccount,\n  public = list(\n    withdraw = function(amount) {\n      super$withdraw(amount)\n\n      if (self$balance) {\n        self$balance <- self$balance - 10\n        message(\"You're withdrawing more than your current balance. You will be charged a fee of 10 euros.\")\n      }\n    }\n  )\n)\nMangesh <- bankAccountFee$new(balance = 100)\n\nMangesh$deposit(20)\n#> Current balance is: 120\n\nMangesh$withdraw(150)\n#> Current balance is: -30\n#> You're withdrawing more than your current balance. You will be charged a fee of 10 euros.\nsuit <- c(\"♠\", \"♥\", \"♦\", \"♣\")\nvalue <- c(\"A\", 2:10, \"J\", \"Q\", \"K\")\ncards <- paste0(rep(value, 4), suit)\nsuit <- c(\"♠\", \"♥\", \"♦\", \"♣\")\nvalue <- c(\"A\", 2:10, \"J\", \"Q\", \"K\")\ncards <- paste(rep(value, 4), suit)\n\nDeck <- R6::R6Class(\n  \"Deck\",\n  public = list(\n    initialize = function(deck) {\n      private$cards <- sample(deck)\n    },\n    draw = function(n) {\n      if (n > length(private$cards)) {\n        stop(\n          paste0(\"Can't draw more than remaining number of cards: \", length(private$cards)),\n          call. = FALSE\n        )\n      }\n\n      drawn_cards <- sample(private$cards, n)\n      private$cards <- private$cards[-which(private$cards %in% drawn_cards)]\n      message(paste0(\"Remaining number of cards: \", length(private$cards)))\n\n      return(drawn_cards)\n    },\n    reshuffle = function() {\n      private$cards <- sample(private$cards)\n      invisible(self)\n    }\n  ),\n  private = list(\n    cards = NULL\n  )\n)\nmyDeck <- Deck$new(cards)\n\nmyDeck$draw(4)\n#> Remaining number of cards: 48\n#> [1] \"2 ♠\"  \"10 ♦\" \"9 ♦\"  \"3 ♦\"\n\nmyDeck$reshuffle()$draw(5)\n#> Remaining number of cards: 43\n#> [1] \"6 ♦\"  \"10 ♥\" \"2 ♥\"  \"A ♥\"  \"8 ♥\"\n\nmyDeck$draw(50)\n#> Error: Can't draw more than remaining number of cards: 43\nCurrentTimeZone <- R6::R6Class(\"CurrentTimeZone\",\n  public = list(\n    setTimeZone = function(tz) {\n      stopifnot(tz %in% OlsonNames())\n      Sys.setenv(TZ = tz)\n    },\n    getTimeZone = function() {\n      Sys.timezone()\n    }\n  )\n)\nmyCurrentTimeZone <- CurrentTimeZone$new()\n\nmyCurrentTimeZone$getTimeZone()\n#> [1] \"UTC\"\n\nmyCurrentTimeZone$setTimeZone(\"Asia/Kolkata\")\nmyCurrentTimeZone$getTimeZone()\n#> [1] \"Asia/Kolkata\"\n\nmyCurrentTimeZone$setTimeZone(\"Europe/Berlin\")\nManageDirectory <- R6::R6Class(\"ManageDirectory\",\n  public = list(\n    setWorkingDirectory = function(dir) {\n      setwd(dir)\n    },\n    getWorkingDirectory = function() {\n      getwd()\n    }\n  )\n)\nmyDirManager <- ManageDirectory$new()\n\n# current working directory\nmyDirManager$getWorkingDirectory()\n\n# change and check if that worked\nmyDirManager$setWorkingDirectory(\"..\")\nmyDirManager$getWorkingDirectory()\n\n# revert this change\nmyDirManager$setWorkingDirectory(\"/Advanced-R-exercises\")\nExample <- R6::R6Class(\"Example\")\nmyExample <- Example$new()\ntypeof(myExample)\n#> [1] \"environment\"\n\nrlang::env_print(myExample)\n#> <environment: 0x55e000b67958> [L]\n#> Parent: <environment: empty>\n#> Class: Example, R6\n#> Bindings:\n#> • .__enclos_env__: <env>\n#> • clone: <fn> [L]\nattributes(myExample)\n#> $class\n#> [1] \"Example\" \"R6\""},{"path":"r6.html","id":"controlling-access-exercises-14.3.3","chapter":"14 R6","heading":"14.2 Controlling access (Exercises 14.3.3)","text":"Q1. Create bank account class prevents directly setting account balance, can still withdraw deposit . Throw error attempt go overdraft.A1. bank account class satisfies specified requirements:Let’s check works expected:Q2. Create class write-$password field. $check_password(password) method returns TRUE FALSE, way view complete password.A2. implementation class needed properties:, course, everything possible:Q3. Extend Rando class another active binding allows access previous random value. Ensure active binding way access value.A3. modified version Rando class meet specified requirements:Let’s try :Q4. Can subclasses access private fields/methods parent? Perform experiment find .A4. Unlike common OOP languages (e.g. C++), R6 subclasses (derived classes) also access private methods superclass (base class).instance, following example, Duck class private method $quack(), subclass Mallard can access using super$quack().","code":"\nSafeBankAccount <- R6::R6Class(\n  classname = \"SafeBankAccount\",\n  public = list(\n    deposit = function(deposit_amount) {\n      private$.balance <- private$.balance + deposit_amount\n      print(paste(\"Current balance:\", private$.balance))\n\n      invisible(self)\n    },\n    withdraw = function(withdrawal_amount) {\n      if (withdrawal_amount > private$.balance) {\n        stop(\"You can't withdraw more than your current balance.\", call. = FALSE)\n      }\n\n      private$.balance <- private$.balance - withdrawal_amount\n      print(paste(\"Current balance:\", private$.balance))\n\n      invisible(self)\n    }\n  ),\n  private = list(\n    .balance = 0\n  )\n)\nmySafeBankAccount <- SafeBankAccount$new()\n\nmySafeBankAccount$deposit(100)\n#> [1] \"Current balance: 100\"\n\nmySafeBankAccount$withdraw(50)\n#> [1] \"Current balance: 50\"\n\nmySafeBankAccount$withdraw(100)\n#> Error: You can't withdraw more than your current balance.\nlibrary(R6)\n\ncheckCredentials <- R6Class(\n  \"checkCredentials\",\n  public = list(\n    # setter\n    set_password = function(password) {\n      private$.password <- password\n    },\n\n    # checker\n    check_password = function(password) {\n      if (is.null(private$.password)) {\n        stop(\"No password set to check against.\")\n      }\n\n      identical(password, private$.password)\n    },\n\n    # the default print method prints the private fields as well\n    print = function() {\n      cat(\"Password: XXXX\")\n\n      # for method chaining\n      invisible(self)\n    }\n  ),\n  private = list(\n    .password = NULL\n  )\n)\n\nmyCheck <- checkCredentials$new()\n\nmyCheck$set_password(\"1234\")\nprint(myCheck)\n#> Password: XXXX\n\nmyCheck$check_password(\"abcd\")\n#> [1] FALSE\nmyCheck$check_password(\"1234\")\n#> [1] TRUE\nmyCheck$.__enclos_env__$private$.password\n#> [1] \"1234\"\nRando <- R6::R6Class(\"Rando\",\n  active = list(\n    random = function(value) {\n      if (missing(value)) {\n        newValue <- runif(1)\n        private$.previousRandom <- private$.currentRandom\n        private$.currentRandom <- newValue\n        return(private$.currentRandom)\n      } else {\n        stop(\"Can't set `$random`\", call. = FALSE)\n      }\n    },\n    previousRandom = function(value) {\n      if (missing(value)) {\n        if (is.null(private$.previousRandom)) {\n          message(\"No random value has been generated yet.\")\n        } else {\n          return(private$.previousRandom)\n        }\n      } else {\n        stop(\"Can't set `$previousRandom`\", call. = FALSE)\n      }\n    }\n  ),\n  private = list(\n    .currentRandom = NULL,\n    .previousRandom = NULL\n  )\n)\nmyRando <- Rando$new()\n\n# first time\nmyRando$random\n#> [1] 0.5549124\nmyRando$previousRandom\n#> No random value has been generated yet.\n#> NULL\n\n# second time\nmyRando$random\n#> [1] 0.3482785\nmyRando$previousRandom\n#> [1] 0.5549124\n\n# third time\nmyRando$random\n#> [1] 0.2187275\nmyRando$previousRandom\n#> [1] 0.3482785\nDuck <- R6Class(\"Duck\",\n  private = list(quack = function() print(\"Quack Quack\"))\n)\n\nMallard <- R6Class(\"Mallard\",\n  inherit = Duck,\n  public = list(quack = function() super$quack())\n)\n\nmyMallard <- Mallard$new()\nmyMallard$quack()\n#> [1] \"Quack Quack\""},{"path":"r6.html","id":"reference-semantics-exercises-14.4.4","chapter":"14 R6","heading":"14.3 Reference semantics (Exercises 14.4.4)","text":"Q1. Create class allows write line specified file. open connection file $initialize(), append line using cat() $append_line(), close connection $finalize().A1. class allows write line specified file:Let’s check works expected:","code":"\nfileEditor <- R6Class(\n  \"fileEditor\",\n  public = list(\n    initialize = function(filePath) {\n      private$.connection <- file(filePath, open = \"wt\")\n    },\n    append_line = function(text) {\n      cat(\n        text,\n        file = private$.connection,\n        sep = \"\\n\",\n        append = TRUE\n      )\n    }\n  ),\n  private = list(\n    .connection = NULL,\n    # according to R6 docs, the destructor method should be private\n    finalize = function() {\n      print(\"Closing the file connection!\")\n      close(private$.connection)\n    }\n  )\n)\ngreetMom <- function() {\n  f <- tempfile()\n  myfileEditor <- fileEditor$new(f)\n\n  readLines(f)\n\n  myfileEditor$append_line(\"Hi mom!\")\n  myfileEditor$append_line(\"It's a beautiful day!\")\n\n  readLines(f)\n}\n\ngreetMom()\n#> [1] \"Hi mom!\"               \"It's a beautiful day!\"\n\n# force garbage collection\ngc()\n#> [1] \"Closing the file connection!\"\n#>           used (Mb) gc trigger (Mb) max used (Mb)\n#> Ncells  746827 39.9    1365280   73  1365280 73.0\n#> Vcells 1372827 10.5    8388608   64  2594879 19.8"},{"path":"r6.html","id":"session-information-11","chapter":"14 R6","heading":"14.4 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       Europe/Berlin\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  R6          * 2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"s4.html","id":"s4","chapter":"15 S4","heading":"15 S4","text":"","code":""},{"path":"s4.html","id":"basics-exercises-15.2.1","chapter":"15 S4","heading":"15.1 Basics (Exercises 15.2.1)","text":"Q1. lubridate::period() returns S4 class. slots ? class slot? accessors provide?A1. Let’s first create instance Period class:following slots:Additionally, base type slot (numeric) can seen str() output:lubridate package provides accessors slots:Q2. ways can find help method? Read ?\"?\" summarise details.A2. \"?\" operator allows access documentation three ways. demonstrate different ways access documentation, let’s define new S4 class.Ways access documentation:general documentation generic can found ?topic:expression type?topic look overall documentation methods function f.","code":"\nlibrary(lubridate)\nx <- lubridate::period(c(2, 43, 6), c(\"hour\", \"second\", \"minute\"))\nx\n#> [1] \"2H 6M 43S\"\nslotNames(x)\n#> [1] \".Data\"  \"year\"   \"month\"  \"day\"    \"hour\"   \"minute\"\nstr(x)\n#> Formal class 'Period' [package \"lubridate\"] with 6 slots\n#>   ..@ .Data : num 43\n#>   ..@ year  : num 0\n#>   ..@ month : num 0\n#>   ..@ day   : num 0\n#>   ..@ hour  : num 2\n#>   ..@ minute: num 6\nyear(x)\n#> [1] 0\nmonth(x)\n#> [1] 0\nday(x)\n#> [1] 0\nhour(x)\n#> [1] 2\nminute(x)\n#> [1] 6\nsecond(x)\n#> [1] 43\npow <- function(x, exp) c(x, exp)\nsetGeneric(\"pow\")\n#> [1] \"pow\"\nsetMethod(\"pow\", c(\"numeric\", \"numeric\"), function(x, exp) x^exp)\n?pow\n?pow # produces the function documentation\n\nmethods?pow # looks for the overall methods documentation"},{"path":"s4.html","id":"classes-exercises-15.3.6","chapter":"15 S4","heading":"15.2 Classes (Exercises 15.3.6)","text":"Q1. Extend Person class fields match utils::person(). Think slots need, class slot , ’ll need check validity method.A1. code extends Person class described book match closely utils::person().Let’s make sure validation works expected:Q2. happens define new S4 class doesn’t slots? (Hint: read virtual classes ?setClass.)A2. define new S4 class doesn’t slots, create virtual classes:can’t create instance class:useful? mentioned ?setClass docs:Classes exist actual objects can created, virtual classes.common useful form virtual class class union, virtual class defined call setClassUnion() rather call setClass().virtual classes can still inherited:addition specifying slots, another way create virtual classes:Calls setClass() also create virtual class, either Class argument supplied (slots superclasses) contains= argument includes special class name \"VIRTUAL\".Q3. Imagine going reimplement factors, dates, data frames S4. Sketch setClass() calls use define classes. Think appropriate slots prototype.A3. reimplementation following classes S4 might definitions like following.factorFor simplicity, won’t provide options factor() provides. Note x pseudo-class accept objects type.DateJust like base-R version, integer values.data.frameThe tricky part supporting ... argument data.frame(). , can let users pass (named) list.","code":"\nsetClass(\"Person\",\n  slots = c(\n    age     = \"numeric\",\n    given   = \"character\",\n    family  = \"character\",\n    middle  = \"character\",\n    email   = \"character\",\n    role    = \"character\",\n    comment = \"character\"\n  ),\n  prototype = list(\n    age     = NA_real_,\n    given   = NA_character_,\n    family  = NA_character_,\n    middle  = NA_character_,\n    email   = NA_character_,\n    role    = NA_character_,\n    comment = NA_character_\n  )\n)\n\n# Helper function to create an instance of the `Person` class\nPerson <- function(given,\n                   family,\n                   middle = NA_character_,\n                   age = NA_real_,\n                   email = NA_character_,\n                   role = NA_character_,\n                   comment = NA_character_) {\n  age <- as.double(age)\n\n  new(\"Person\",\n    age     = age,\n    given   = given,\n    family  = family,\n    middle  = middle,\n    email   = email,\n    role    = role,\n    comment = comment\n  )\n}\n\n# Validator to ensure that each slot is of length one and that the specified\n# role is one of the possible roles\nsetValidity(\"Person\", function(object) {\n  invalid_length <- NULL\n  slot_lengths <- c(\n    length(object@age),\n    length(object@given),\n    length(object@middle),\n    length(object@family),\n    length(object@email),\n    length(object@comment)\n  )\n\n  if (any(slot_lengths > 1L)) {\n    invalid_length <- \"\\nFollowing slots must be of length 1:\\n @age, @given, @family, @middle, @email, @comment\"\n  }\n\n  possible_roles <- c(\n    NA_character_, \"aut\", \"com\", \"cph\", \"cre\", \"ctb\", \"ctr\", \"dtc\", \"fnd\", \"rev\", \"ths\", \"trl\"\n  )\n\n  if (any(!object@role %in% possible_roles)) {\n    invalid_length <- paste(\n      invalid_length,\n      \"\\nSlot @role(s) must be one of the following:\\n\",\n      paste(possible_roles, collapse = \", \")\n    )\n  }\n\n  if (!is.null(invalid_length)) {\n    return(invalid_length)\n  } else {\n    return(TRUE)\n  }\n})\n#> Class \"Person\" [in \".GlobalEnv\"]\n#> \n#> Slots:\n#>                                                         \n#> Name:        age     given    family    middle     email\n#> Class:   numeric character character character character\n#>                           \n#> Name:       role   comment\n#> Class: character character\n# length of first argument not 1\nPerson(c(\"Indrajeet\", \"Surendra\"), \"Patil\")\n#> Error in validObject(.Object): invalid class \"Person\" object: \n#> Following slots must be of length 1:\n#>  @age, @given, @family, @middle, @email, @comment\n\n# role not recognized\nPerson(\"Indrajeet\", \"Patil\", role = \"xyz\")\n#> Error in validObject(.Object): invalid class \"Person\" object:  \n#> Slot @role(s) must be one of the following:\n#>  NA, aut, com, cph, cre, ctb, ctr, dtc, fnd, rev, ths, trl\n\n# all okay\nPerson(\"Indrajeet\", \"Patil\", role = c(\"aut\", \"cph\"))\n#> An object of class \"Person\"\n#> Slot \"age\":\n#> [1] NA\n#> \n#> Slot \"given\":\n#> [1] \"Indrajeet\"\n#> \n#> Slot \"family\":\n#> [1] \"Patil\"\n#> \n#> Slot \"middle\":\n#> [1] NA\n#> \n#> Slot \"email\":\n#> [1] NA\n#> \n#> Slot \"role\":\n#> [1] \"aut\" \"cph\"\n#> \n#> Slot \"comment\":\n#> [1] NA\nsetClass(\"Empty\")\n\nisVirtualClass(\"Empty\")\n#> [1] TRUE\nnew(\"Empty\")\n#> Error in new(\"Empty\"): trying to generate an object from a virtual class (\"Empty\")\nsetClass(\"Nothing\", contains = \"Empty\")\nsetClass(\"Factor\",\n  slots = c(\n    x       = \"ANY\",\n    levels  = \"character\",\n    ordered = \"logical\"\n  ),\n  prototype = list(\n    x       = character(),\n    levels  = character(),\n    ordered = FALSE\n  )\n)\n\nnew(\"Factor\", x = letters[1:3], levels = LETTERS[1:3])\n#> An object of class \"Factor\"\n#> Slot \"x\":\n#> [1] \"a\" \"b\" \"c\"\n#> \n#> Slot \"levels\":\n#> [1] \"A\" \"B\" \"C\"\n#> \n#> Slot \"ordered\":\n#> [1] FALSE\n\nnew(\"Factor\", x = 1:3, levels = letters[1:3])\n#> An object of class \"Factor\"\n#> Slot \"x\":\n#> [1] 1 2 3\n#> \n#> Slot \"levels\":\n#> [1] \"a\" \"b\" \"c\"\n#> \n#> Slot \"ordered\":\n#> [1] FALSE\n\nnew(\"Factor\", x = c(TRUE, FALSE, TRUE), levels = c(\"x\", \"y\", \"x\"))\n#> An object of class \"Factor\"\n#> Slot \"x\":\n#> [1]  TRUE FALSE  TRUE\n#> \n#> Slot \"levels\":\n#> [1] \"x\" \"y\" \"x\"\n#> \n#> Slot \"ordered\":\n#> [1] FALSE\nsetClass(\"Date2\",\n  slots = list(\n    data = \"integer\"\n  ),\n  prototype = list(\n    data = integer()\n  )\n)\n\nnew(\"Date2\", data = 1342L)\n#> An object of class \"Date2\"\n#> Slot \"data\":\n#> [1] 1342\nsetClass(\"DataFrame\",\n  slots = c(\n    data      = \"list\",\n    row.names = \"character\"\n  ),\n  prototype = list(\n    data      = list(),\n    row.names = character(0L)\n  )\n)\n\nnew(\"DataFrame\", data = list(x = c(\"a\", \"b\"), y = c(1L, 2L)))\n#> An object of class \"DataFrame\"\n#> Slot \"data\":\n#> $x\n#> [1] \"a\" \"b\"\n#> \n#> $y\n#> [1] 1 2\n#> \n#> \n#> Slot \"row.names\":\n#> character(0)"},{"path":"s4.html","id":"generics-and-methods-exercises-15.4.5","chapter":"15 S4","heading":"15.3 Generics and methods (Exercises 15.4.5)","text":"Q1. Add age() accessors Person class.A1. first define generic method class:Q2. definition generic, necessary repeat name generic twice?A2. Let’s look generic just defined; generic name \"age\" repeated twice.:\"age\" passed argument name provides name genericthe \"age\" passed argument def supplies method dispatchThis reminiscent defined S3 generic, also repeat name twice:Q3. show() method defined Section Show method use (object)[[1]]? (Hint: try printing employee subclass.)A3. wish define show() method specific class, need disregard super-/sub-classes.Always using first element ensures method defined class question:Q4. happens define method different argument names generic?A4. Let’s experiment method defined Q1. study behavior.original method worked expected since argument name generic method matched:case, either get warning get error depending many arguments specified:","code":"\nIndra <- Person(\"Indrajeet\", \"Patil\", role = c(\"aut\", \"cph\"), age = 34)\n\nsetGeneric(\"age\", function(x) standardGeneric(\"age\"))\n#> [1] \"age\"\nsetMethod(\"age\", \"Person\", function(x) x@age)\n\nage(Indra)\n#> [1] 34\nsetGeneric(name = \"age\", def = function(x) standardGeneric(\"age\"))\nage <- function(x) {\n  UseMethod(\"age\")\n}\nAlice <- new(\"Employee\")\n\nis(Alice)\n#> [1] \"Employee\" \"Person\"\n\nis(Alice)[[1]]\n#> [1] \"Employee\"\nsetMethod(\"age\", \"Person\", function(x) x@age)\nsetMethod(\"age\", \"Person\", function(object) object@age)\n#> Warning: For function 'age', signature 'Person': argument\n#> in method definition changed from (object) to (x)\n\nsetMethod(\"age\", \"Person\", function(object, x) object@age)\n#> Error in rematchDefinition(definition, fdef, mnames, fnames, signature): methods can add arguments to the generic 'age' only if '...' is an argument to the generic\n\nsetMethod(\"age\", \"Person\", function(...) ...elt(1)@age)\n#> Warning: For function 'age', signature 'Person': argument\n#> in method definition changed from (...) to (x)\n\nsetMethod(\"age\", \"Person\", function(x, ...) x@age)\n#> Error in rematchDefinition(definition, fdef, mnames, fnames, signature): methods can add arguments to the generic 'age' only if '...' is an argument to the generic"},{"path":"s4.html","id":"method-dispatch-exercises-15.5.5","chapter":"15 S4","heading":"15.4 Method dispatch (Exercises 15.5.5)","text":"Q1. Draw method graph f(😅, 😽).A1. don’t prepare visual illustrations used book, linking illustration official solution manual:Q2. Draw method graph f(😃, 😉, 😙).A2. don’t prepare visual illustrations used book, linking illustration official solution manual:Q3. Take last example shows multiple dispatch two classes use multiple inheritance. happens define method terminal classes? method dispatch save us much work ?A3. one class distance 2 terminal nodes four distance 1 two terminal nodes , introduce ambiguity.Method dispatch save us much work resolve ambiguity define five methods (one per class combination).","code":""},{"path":"s4.html","id":"s4-and-s3-exercises-15.6.3","chapter":"15 S4","heading":"15.5 S4 and S3 (Exercises 15.6.3)","text":"Q1. full setOldClass() definition look like ordered factor (.e. add slots prototype definition )?A1. can register old-style/S3 ordered class formally defined class using setOldClass().Let’s use see works expected.Q2. Define length method Person class.A2. Person class can used create objects represent multiple people, let’s say length() method returns many persons object.can define S3 method class:Alternatively, can also write S4 method:","code":"\nsetClass(\"factor\",\n  contains = \"integer\",\n  slots = c(\n    levels = \"character\"\n  ),\n  prototype = structure(\n    integer(),\n    levels = character()\n  )\n)\nsetOldClass(\"factor\", S4Class = \"factor\")\n#> Warning in rm(list = what, pos = classWhere): object\n#> '.__C__factor' not found\n\nsetClass(\"Ordered\",\n  contains = \"factor\",\n  slots = c(\n    levels  = \"character\",\n    ordered = \"logical\"\n  ),\n  prototype = structure(\n    integer(),\n    levels  = character(),\n    ordered = logical()\n  )\n)\n\nsetOldClass(\"ordered\", S4Class = \"Ordered\")\nx <- new(\"Ordered\", 1L:4L, levels = letters[1:4], ordered = TRUE)\n\nx\n#> Object of class \"Ordered\"\n#> [1] a b c d\n#> Levels: a b c d\n#> Slot \"ordered\":\n#> [1] TRUE\n\nstr(x)\n#> Formal class 'Ordered' [package \".GlobalEnv\"] with 4 slots\n#>   ..@ .Data   : int [1:4] 1 2 3 4\n#>   ..@ levels  : chr [1:4] \"a\" \"b\" \"c\" \"d\"\n#>   ..@ ordered : logi TRUE\n#>   ..@ .S3Class: chr \"factor\"\n\nclass(x)\n#> [1] \"Ordered\"\n#> attr(,\"package\")\n#> [1] \".GlobalEnv\"\nFriends <- new(\"Person\", name = c(\"Vishu\", \"Aditi\"))\nlength.Person <- function(x) length(x@name)\n\nlength(Friends)\n#> [1] 2\nsetMethod(\"length\", \"Person\", function(x) length(x@name))\n\nlength(Friends)\n#> [1] 2"},{"path":"s4.html","id":"session-information-12","chapter":"15 S4","heading":"15.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version    date (UTC) lib source\n#>  assertthat    0.2.1      2019-03-21 [1] RSPM\n#>  base        * 4.3.2      2023-11-01 [3] local\n#>  bookdown      0.37       2023-12-01 [1] RSPM\n#>  bslib         0.6.1      2023-11-28 [1] RSPM\n#>  cachem        1.0.8      2023-05-01 [1] RSPM\n#>  cli           3.6.2      2023-12-11 [1] RSPM\n#>  compiler      4.3.2      2023-11-01 [3] local\n#>  crayon        1.5.2      2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2      2023-11-01 [3] local\n#>  digest        0.6.34     2024-01-11 [1] RSPM\n#>  downlit       0.4.3      2023-06-29 [1] RSPM\n#>  emo           0.0.0.9000 2023-11-05 [1] Github (hadley/emo@3f03b11)\n#>  evaluate      0.23       2023-11-01 [1] RSPM\n#>  fastmap       1.1.1      2023-02-24 [1] RSPM\n#>  fs            1.6.3      2023-07-20 [1] RSPM\n#>  generics      0.1.3      2022-07-05 [1] RSPM\n#>  glue          1.7.0      2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2      2023-11-01 [3] local\n#>  grDevices   * 4.3.2      2023-11-01 [3] local\n#>  highr         0.10       2022-12-22 [1] RSPM\n#>  htmltools     0.5.7      2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4      2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8      2023-12-04 [1] RSPM\n#>  knitr         1.45       2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4      2023-11-07 [1] RSPM\n#>  lubridate   * 1.9.3      2023-09-27 [1] RSPM\n#>  magrittr    * 2.0.3      2022-03-30 [1] RSPM\n#>  memoise       2.0.1      2021-11-26 [1] RSPM\n#>  methods     * 4.3.2      2023-11-01 [3] local\n#>  purrr         1.0.2      2023-08-10 [1] RSPM\n#>  R6            2.5.1      2021-08-19 [1] RSPM\n#>  rlang         1.1.3      2024-01-10 [1] RSPM\n#>  rmarkdown     2.25       2023-09-18 [1] RSPM\n#>  sass          0.4.8      2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2      2021-12-06 [1] RSPM\n#>  stats       * 4.3.2      2023-11-01 [3] local\n#>  stringi       1.8.3      2023-12-11 [1] RSPM\n#>  stringr       1.5.1      2023-11-14 [1] RSPM\n#>  timechange    0.2.0      2023-01-11 [1] RSPM\n#>  tools         4.3.2      2023-11-01 [3] local\n#>  utils       * 4.3.2      2023-11-01 [3] local\n#>  vctrs         0.6.5      2023-12-01 [1] RSPM\n#>  withr         2.5.2      2023-10-30 [1] RSPM\n#>  xfun          0.41       2023-11-01 [1] RSPM\n#>  xml2          1.3.6      2023-12-04 [1] RSPM\n#>  yaml          2.3.8      2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"trade-offs.html","id":"trade-offs","chapter":"16 Trade-offs","heading":"16 Trade-offs","text":"exercises.","code":""},{"path":"big-picture.html","id":"big-picture","chapter":"17 Big Picture","heading":"17 Big Picture","text":"exercises.","code":""},{"path":"expressions.html","id":"expressions","chapter":"18 Expressions","heading":"18 Expressions","text":"Attaching needed libraries:","code":"\nlibrary(rlang, warn.conflicts = FALSE)\nlibrary(lobstr, warn.conflicts = FALSE)"},{"path":"expressions.html","id":"abstract-syntax-trees-exercises-18.2.4","chapter":"18 Expressions","heading":"18.1 Abstract syntax trees (Exercises 18.2.4)","text":"Q1. Reconstruct code represented trees :A1. reconstructed code.can confirm drawing ASTs :Q2. Draw following trees hand check answers ast().A2. Successfully drawn hand. Checking using ast():Q3. ’s happening ASTs ? (Hint: carefully read ?\"^\".)A3. str2expression() helps make sense ASTs.non-syntactic names parsed names. Thus, backticks removed AST.mentioned docs ^:** translated parser ^rightward assignment parsed leftward assignment:Q4. special AST ?A4. mentioned section:Like objects R, functions can also possess number additional attributes(). One attribute used base R srcref, short source reference. points source code used create function. srcref used printing , unlike body(), contains code comments formatting.Therefore, last leaf AST, although specified function call, represents source reference attribute.Q5. call tree statement multiple else conditions look like? ?A5. nothing special tree. just shows nested loop structure inherent code multiple else statements.","code":"#> █─f \n#> └─█─g \n#>   └─█─h\n#> █─`+` \n#> ├─█─`+` \n#> │ ├─1 \n#> │ └─2 \n#> └─3\n#> █─`*` \n#> ├─█─`(` \n#> │ └─█─`+` \n#> │   ├─x \n#> │   └─y \n#> └─z\nf(g(h()))\n1 + 2 + 3\n(x + y) * z\nast(f(g(h())))\n#> █─f \n#> └─█─g \n#>   └─█─h\n\nast(1 + 2 + 3)\n#> █─`+` \n#> ├─█─`+` \n#> │ ├─1 \n#> │ └─2 \n#> └─3\n\nast((x + y) * z)\n#> █─`*` \n#> ├─█─`(` \n#> │ └─█─`+` \n#> │   ├─x \n#> │   └─y \n#> └─z\nf(g(h(i(1, 2, 3))))\nf(1, g(2, h(3, i())))\nf(g(1, 2), h(3, i(4, 5)))\nast(f(g(h(i(1, 2, 3)))))\n#> █─f \n#> └─█─g \n#>   └─█─h \n#>     └─█─i \n#>       ├─1 \n#>       ├─2 \n#>       └─3\n\nast(f(1, g(2, h(3, i()))))\n#> █─f \n#> ├─1 \n#> └─█─g \n#>   ├─2 \n#>   └─█─h \n#>     ├─3 \n#>     └─█─i\n\nast(f(g(1, 2), h(3, i(4, 5))))\n#> █─f \n#> ├─█─g \n#> │ ├─1 \n#> │ └─2 \n#> └─█─h \n#>   ├─3 \n#>   └─█─i \n#>     ├─4 \n#>     └─5\nast(`x` + `y`)\n#> █─`+` \n#> ├─x \n#> └─y\nast(x**y)\n#> █─`^` \n#> ├─x \n#> └─y\nast(1 -> x)\n#> █─`<-` \n#> ├─x \n#> └─1\nstr2expression(\"`x` + `y`\")\n#> expression(x + y)\nstr2expression(\"x**y\")\n#> expression(x^y)\nstr2expression(\"1 -> x\")\n#> expression(x <- 1)\nast(function(x = 1, y = 2) {})\n#> █─`function` \n#> ├─█─x = 1 \n#> │ └─y = 2 \n#> ├─█─`{` \n#> └─<inline srcref>\nast(if (FALSE) 1 else if (FALSE) 2 else if (FALSE) 3 else 4)\n#> █─`if` \n#> ├─FALSE \n#> ├─1 \n#> └─█─`if` \n#>   ├─FALSE \n#>   ├─2 \n#>   └─█─`if` \n#>     ├─FALSE \n#>     ├─3 \n#>     └─4"},{"path":"expressions.html","id":"expressions-exercises-18.3.5","chapter":"18 Expressions","heading":"18.2 Expressions (Exercises 18.3.5)","text":"Q1. two six types atomic vector can’t appear expression? ? Similarly, can’t create expression contains atomic vector length greater one?A1. six types atomic vectors, two can’t appear expression : complex raw.Complex numbers created via function call (using +), can seen AST:Similarly, raw vectors (using raw()):Contrast atomic vectors:reason, can’t create expression contains atomic vector length greater one since function call uses c() function:Q2. happens subset call object remove first element? e.g. expr(read.csv(\"foo.csv\", header = TRUE))[-1]. ?A2. captured function call like following creates call object:mentioned respective section:first element call object function position.Therefore, first element call object removed, next one moves function position, get observed output:Q3. Describe differences following call objects.A4. differences constructed call objects due different type arguments supplied first two parameters call2() function.Types arguments supplied .fn:Types arguments supplied dynamic dots:following outputs can understood using following properties:.fn argument closure, function inlined constructed function callwhen x symbol, value passed function callImportantly, constructed call objects evaluate give result:Q4. call_standardise() doesn’t work well following calls. ? makes mean() special?A4. ellipsis mean() function signature:mentioned respective section:function uses ... ’s possible standardise arguments.mean() S3 generic dots passed underlying S3 methods., output can improved using specific method. example:Q5. code make sense?A5. doesn’t make sense first position call object reserved function (function position), assigning names element just ignored R:Q6. Construct expression (x > 1) \"\" else \"b\" using multiple calls call2(). code structure reflect structure AST?A6. Using multiple calls construct required expression:construction follows prefix form expression, revealed AST:","code":"\nx_complex <- expr(1 + 1i)\ntypeof(x_complex)\n#> [1] \"language\"\n\nast(1 + 1i)\n#> █─`+` \n#> ├─1 \n#> └─1i\nx_raw <- expr(raw(2))\ntypeof(x_raw)\n#> [1] \"language\"\n\nast(raw(2))\n#> █─raw \n#> └─2\nx_int <- expr(2L)\ntypeof(x_int)\n#> [1] \"integer\"\n\nast(2L)\n#> 2L\nx_vec <- expr(c(1, 2))\ntypeof(x_vec)\n#> [1] \"language\"\n\nast(c(1, 2))\n#> █─c \n#> ├─1 \n#> └─2\nexpr(read.csv(\"foo.csv\", header = TRUE))\n#> read.csv(\"foo.csv\", header = TRUE)\n\ntypeof(expr(read.csv(\"foo.csv\", header = TRUE)))\n#> [1] \"language\"\nexpr(read.csv(\"foo.csv\", header = TRUE))[-1]\n#> \"foo.csv\"(header = TRUE)\nx <- 1:10\ncall2(median, x, na.rm = TRUE)\ncall2(expr(median), x, na.rm = TRUE)\ncall2(median, expr(x), na.rm = TRUE)\ncall2(expr(median), expr(x), na.rm = TRUE)\ntypeof(median)\n#> [1] \"closure\"\ntypeof(expr(median))\n#> [1] \"symbol\"\nx <- 1:10\ntypeof(x)\n#> [1] \"integer\"\ntypeof(expr(x))\n#> [1] \"symbol\"\nx <- 1:10\n\ncall2(median, x, na.rm = TRUE)\n#> (function (x, na.rm = FALSE, ...) \n#> UseMethod(\"median\"))(1:10, na.rm = TRUE)\n\ncall2(expr(median), x, na.rm = TRUE)\n#> median(1:10, na.rm = TRUE)\n\ncall2(median, expr(x), na.rm = TRUE)\n#> (function (x, na.rm = FALSE, ...) \n#> UseMethod(\"median\"))(x, na.rm = TRUE)\n\ncall2(expr(median), expr(x), na.rm = TRUE)\n#> median(x, na.rm = TRUE)\nx <- 1:10\n\neval(call2(median, x, na.rm = TRUE))\n#> [1] 5.5\n\neval(call2(expr(median), x, na.rm = TRUE))\n#> [1] 5.5\n\neval(call2(median, expr(x), na.rm = TRUE))\n#> [1] 5.5\n\neval(call2(expr(median), expr(x), na.rm = TRUE))\n#> [1] 5.5\ncall_standardise(quote(mean(1:10, na.rm = TRUE)))\n#> Warning: `call_standardise()` is deprecated as of rlang 0.4.11\n#> This warning is displayed once every 8 hours.\n#> mean(x = 1:10, na.rm = TRUE)\ncall_standardise(quote(mean(n = T, 1:10)))\n#> mean(x = 1:10, n = T)\ncall_standardise(quote(mean(x = 1:10, , TRUE)))\n#> mean(x = 1:10, , TRUE)\nmean\n#> function (x, ...) \n#> UseMethod(\"mean\")\n#> <bytecode: 0x5577d9c40a20>\n#> <environment: namespace:base>\ncall_standardise(quote(mean.default(n = T, 1:10)))\n#> mean.default(x = 1:10, na.rm = T)\nx <- expr(foo(x = 1))\nnames(x) <- c(\"x\", \"y\")\nx <- expr(foo(x = 1))\nx\n#> foo(x = 1)\n\nnames(x) <- c(\"x\", \"y\")\nx\n#> foo(y = 1)\nx <- 5\ncall_obj1 <- call2(\">\", expr(x), 1)\ncall_obj1\n#> x > 1\n\ncall_obj2 <- call2(\"if\", cond = call_obj1, cons.expr = \"a\", alt.expr = \"b\")\ncall_obj2\n#> if (x > 1) \"a\" else \"b\"\nast(if (x > 1) \"a\" else \"b\")\n#> █─`if` \n#> ├─█─`>` \n#> │ ├─x \n#> │ └─1 \n#> ├─\"a\" \n#> └─\"b\""},{"path":"expressions.html","id":"parsing-and-grammar-exercises-18.4.4","chapter":"18 Expressions","heading":"18.3 Parsing and grammar (Exercises 18.4.4)","text":"Q1. R uses parentheses two slightly different ways illustrated two calls:Compare contrast two uses referencing AST.A1. Let’s first look AST:, can see ( used two separate ways:function right \"`(`\"part prefix syntax (f()), AST f((1)), see one \"`(`\" (first use case), f(), part function syntax (second use case).Q2. = can also used two ways. Construct simple example shows uses.A2. simple example illustrating = can also used two ways:assignmentfor named arguments function callsWe can also look AST:Q3. -2^2 yield 4 -4? ?A3. expression -2^2 evaluates -4 operator ^ higher precedence unary - operator:can also seen AST:less confusing way write :Q4. !1 + !1 return? ?A3. expression !1 + !1 evaluates FALSE.! operator higher precedence unary + operator. Thus, !1 evaluates FALSE, added 1 + FALSE, evaluates 1, logically negated !1, FALSE.can easily seen AST:Q5. x1 <- x2 <- x3 <- 0 work? Describe two reasons.A5. two reasons following works expected:<- operator right associative.Therefore, order assignment :<- operator invisibly returns assigned value.easy surmise AST:Q6. Compare ASTs x + y %+% z x ^ y %+% z. learned precedence custom infix functions?A6. Looking ASTs expressions,can say custom infix operator %+% :higher precedence + operatorlower precedence ^ operatorQ7. happens call parse_expr() string generates multiple expressions? e.g. parse_expr(\"x + 1; y + 1\")A7. produced error:expected based docs:parse_expr() returns one expression. text contains one expression (separated semicolons new lines), error issued.instead need use parse_exprs():Q8. happens attempt parse invalid expression? e.g. \"+\" \"f())\".A8. invalid expression produces error:Since underlying parse() function produces error:Q9. deparse() produces vectors input long. example, following call produces vector length two:expr_text() instead?A9. difference deparse() expr_text() latter turns (possibly multi-line) expression single string.Q10. pairwise.t.test() assumes deparse() always returns length one character vector. Can construct input violates expectation? happens?A10 Since R 4.0, possible violate expectation since new implementation produces single string matter input:New function deparse1() produces one string, wrapping deparse(), used typically deparse1(substitute(*))","code":"\nf((1))\n`(`(1 + 1)\nast(f((1)))\n#> █─f \n#> └─█─`(` \n#>   └─1\nast(`(`(1 + 1))\n#> █─`(` \n#> └─█─`+` \n#>   ├─1 \n#>   └─1\nm <- mean(x = 1)\nast({\n  m <- mean(x = 1)\n})\n#> █─`{` \n#> └─█─`<-` \n#>   ├─m \n#>   └─█─mean \n#>     └─x = 1\n-2^2\n#> [1] -4\nast(-2^2)\n#> █─`-` \n#> └─█─`^` \n#>   ├─2 \n#>   └─2\n-(2^2)\n#> [1] -4\nast(!1 + !1)\n#> █─`!` \n#> └─█─`+` \n#>   ├─1 \n#>   └─█─`!` \n#>     └─1\nx1 <- x2 <- x3 <- 0\n(x3 <- 0)\n(x2 <- x3)\n(x1 <- x2)\n(x <- 1)\n#> [1] 1\nast(x1 <- x2 <- x3 <- 0)\n#> █─`<-` \n#> ├─x1 \n#> └─█─`<-` \n#>   ├─x2 \n#>   └─█─`<-` \n#>     ├─x3 \n#>     └─0\nast(x + y %+% z)\n#> █─`+` \n#> ├─x \n#> └─█─`%+%` \n#>   ├─y \n#>   └─z\n\nast(x^y %+% z)\n#> █─`%+%` \n#> ├─█─`^` \n#> │ ├─x \n#> │ └─y \n#> └─z\nparse_expr(\"x + 1; y + 1\")\n#> Error in `parse_expr()`:\n#> ! `x` must contain exactly 1 expression, not 2.\nparse_exprs(\"x + 1; y + 1\")\n#> [[1]]\n#> x + 1\n#> \n#> [[2]]\n#> y + 1\nparse_expr(\"a +\")\n#> Error in parse(text = x, keep.source = FALSE): <text>:2:0: unexpected end of input\n#> 1: a +\n#>    ^\n\nparse_expr(\"f())\")\n#> Error in parse(text = x, keep.source = FALSE): <text>:1:4: unexpected ')'\n#> 1: f())\n#>        ^\nparse(text = \"a +\")\n#> Error in parse(text = \"a +\"): <text>:2:0: unexpected end of input\n#> 1: a +\n#>    ^\n\nparse(text = \"f())\")\n#> Error in parse(text = \"f())\"): <text>:1:4: unexpected ')'\n#> 1: f())\n#>        ^\nexpr <- expr(g(a + b + c + d + e + f + g + h + i + j + k + l +\n  m + n + o + p + q + r + s + t + u + v + w + x + y + z))\ndeparse(expr)\nexpr <- expr(g(a + b + c + d + e + f + g + h + i + j + k + l +\n  m + n + o + p + q + r + s + t + u + v + w + x + y + z))\n\ndeparse(expr)\n#> [1] \"g(a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + \"\n#> [2] \"    p + q + r + s + t + u + v + w + x + y + z)\"\n\nexpr_text(expr)\n#> [1] \"g(a + b + c + d + e + f + g + h + i + j + k + l + m + n + o + \\n    p + q + r + s + t + u + v + w + x + y + z)\""},{"path":"expressions.html","id":"walking-ast-with-recursive-functions-exercises-18.5.3","chapter":"18 Expressions","heading":"18.4 Walking AST with recursive functions (Exercises 18.5.3)","text":"Q1. logical_abbr() returns TRUE T(1, 2, 3). modify logical_abbr_rec() ignores function calls use T F?A1. avoid function calls use T F, just need ignore function position call objects:Let’s try :Q2. logical_abbr() works expressions. currently fails give function. ? modify logical_abbr() make work? components function need recurse ?A2. Surprisingly, logical_abbr() currently doesn’t fail closures:see , let’s see type object produced capture user provided closure:Given closures converted call objects, surprise function works:function fails can’t find negative case. example, instead returning FALSE, produces error reasons remain (yet) elusive :Q3. Modify find_assign also detect assignment using replacement functions, .e. names(x) <- y.A3. Although simple assignment (x <- y) assignment using replacement functions (names(x) <- y) <- operator call, latter case, names(x) call object symbol:’s can detect kind assignment checking second element expression symbol language type object.Let’s try :Q4. Write function extracts calls specified function.A4. function extracts calls specified function:","code":"\nlogical_abbr_rec(expr(T(1, 2, 3)))\n#> [1] FALSE\n\nlogical_abbr_rec(expr(F(1, 2, 3)))\n#> [1] FALSE\n\nlogical_abbr_rec(expr(T))\n#> [1] TRUE\n\nlogical_abbr_rec(expr(F))\n#> [1] TRUE\nlogical_abbr(function(x = TRUE) {\n  g(x + T)\n})\nprint_enexpr <- function(.f) {\n  print(typeof(enexpr(.f)))\n  print(is.call(enexpr(.f)))\n}\n\nprint_enexpr(function(x = TRUE) {\n  g(x + T)\n})\n#> [1] \"language\"\n#> [1] TRUE\nlogical_abbr(function(x = TRUE) {\n  g(x + T)\n})\n#> [1] TRUE\nlogical_abbr(function(x = TRUE) {\n  g(x + TRUE)\n})\n#> Error: Don't know how to handle type integer\nexpr1 <- expr(names(x) <- y)\nas.list(expr1)\n#> [[1]]\n#> `<-`\n#> \n#> [[2]]\n#> names(x)\n#> \n#> [[3]]\n#> y\ntypeof(expr1[[2]])\n#> [1] \"language\"\n\nexpr2 <- expr(x <- y)\nas.list(expr2)\n#> [[1]]\n#> `<-`\n#> \n#> [[2]]\n#> x\n#> \n#> [[3]]\n#> y\ntypeof(expr2[[2]])\n#> [1] \"symbol\"\nexpr_type <- function(x) {\n  if (is_syntactic_literal(x)) {\n    \"constant\"\n  } else if (is.symbol(x)) {\n    \"symbol\"\n  } else if (is.call(x)) {\n    \"call\"\n  } else if (is.pairlist(x)) {\n    \"pairlist\"\n  } else {\n    typeof(x)\n  }\n}\n\nswitch_expr <- function(x, ...) {\n  switch(expr_type(x),\n    ...,\n    stop(\"Don't know how to handle type \", typeof(x), call. = FALSE)\n  )\n}\n\nflat_map_chr <- function(.x, .f, ...) {\n  purrr::flatten_chr(purrr::map(.x, .f, ...))\n}\n\nextract_symbol <- function(x) {\n  if (is_symbol(x[[2]])) {\n    as_string(x[[2]])\n  } else {\n    extract_symbol(as.list(x[[2]]))\n  }\n}\n\nfind_assign_call <- function(x) {\n  if (is_call(x, \"<-\") && is_symbol(x[[2]])) {\n    lhs <- as_string(x[[2]])\n    children <- as.list(x)[-1]\n  } else if (is_call(x, \"<-\") && is_call(x[[2]])) {\n    lhs <- extract_symbol(as.list(x[[2]]))\n    children <- as.list(x)[-1]\n  } else {\n    lhs <- character()\n    children <- as.list(x)\n  }\n\n  c(lhs, flat_map_chr(children, find_assign_rec))\n}\n\nfind_assign_rec <- function(x) {\n  switch_expr(x,\n    # Base cases\n    constant = ,\n    symbol = character(),\n\n    # Recursive cases\n    pairlist = flat_map_chr(x, find_assign_rec),\n    call = find_assign_call(x)\n  )\n}\n\nfind_assign <- function(x) find_assign_rec(enexpr(x))\nfind_assign(names(x))\n#> character(0)\n\nfind_assign(names(x) <- y)\n#> [1] \"x\"\n\nfind_assign(names(f(x)) <- y)\n#> [1] \"x\"\n\nfind_assign(names(x) <- y <- z <- NULL)\n#> [1] \"x\" \"y\" \"z\"\n\nfind_assign(a <- b <- c <- 1)\n#> [1] \"a\" \"b\" \"c\"\n\nfind_assign(system.time(x <- print(y <- 5)))\n#> [1] \"x\" \"y\"\nfind_function_call <- function(x, .f) {\n  if (is_call(x)) {\n    if (is_call(x, .f)) {\n      list(x)\n    } else {\n      purrr::map(as.list(x), ~ find_function_call(.x, .f)) %>%\n        purrr::compact() %>%\n        unlist(use.names = FALSE)\n    }\n  }\n}\n\n# example-1: with infix operator `:`\nfind_function_call(expr(mean(1:2)), \":\")\n#> [[1]]\n#> 1:2\n\nfind_function_call(expr(sum(mean(1:2))), \":\")\n#> [[1]]\n#> 1:2\n\nfind_function_call(expr(list(1:5, 4:6, 3:9)), \":\")\n#> [[1]]\n#> 1:5\n#> \n#> [[2]]\n#> 4:6\n#> \n#> [[3]]\n#> 3:9\n\nfind_function_call(expr(list(1:5, sum(4:6), mean(3:9))), \":\")\n#> [[1]]\n#> 1:5\n#> \n#> [[2]]\n#> 4:6\n#> \n#> [[3]]\n#> 3:9\n\n# example-2: with assignment operator `<-`\nfind_function_call(expr(names(x)), \"<-\")\n#> NULL\n\nfind_function_call(expr(names(x) <- y), \"<-\")\n#> [[1]]\n#> names(x) <- y\n\nfind_function_call(expr(names(f(x)) <- y), \"<-\")\n#> [[1]]\n#> names(f(x)) <- y\n\nfind_function_call(expr(names(x) <- y <- z <- NULL), \"<-\")\n#> [[1]]\n#> names(x) <- y <- z <- NULL\n\nfind_function_call(expr(a <- b <- c <- 1), \"<-\")\n#> [[1]]\n#> a <- b <- c <- 1\n\nfind_function_call(expr(system.time(x <- print(y <- 5))), \"<-\")\n#> [[1]]\n#> x <- print(y <- 5)"},{"path":"expressions.html","id":"session-information-13","chapter":"18 Expressions","heading":"18.5 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr      * 1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"quasiquotation.html","id":"quasiquotation","chapter":"19 Quasiquotation","heading":"19 Quasiquotation","text":"Attaching needed libraries:","code":"\nlibrary(rlang)\nlibrary(purrr)\nlibrary(lobstr)\nlibrary(dplyr)\nlibrary(ggplot2)"},{"path":"quasiquotation.html","id":"motivation-exercises-19.2.2","chapter":"19 Quasiquotation","heading":"19.1 Motivation (Exercises 19.2.2)","text":"Q1. function following base R code, identify arguments quoted evaluated.A1. identify arguments quoted evaluated, can use trick mentioned book:’re ever unsure whether argument quoted evaluated, try executing code outside function. doesn’t work something different, argument quoted.library(MASS)package argument library() quoted:subset(mtcars, cyl == 4)argument x evaluated, argument subset quoted.(mtcars2, sum(vs))argument data evaluated, expr argument quoted.sum(mtcars2$)argument ... evaluated.rm(mtcars2)trick using far won’t work since trying print mtcars2 always fail rm() made pass .can instead look docs ...:… objects removed, names (unquoted) character strings (quoted).Thus, argument evaluated, rather quoted.Q2. function following tidyverse code, identify arguments quoted evaluated.A2. seen answer Q1., library() quotes first argument:following code:%>% (lazily) evaluates argumentgroup_by() summarise() quote argumentsIn following code:ggplot() evaluates data argumentaes() quotes arguments","code":"\nlibrary(MASS)\n\nmtcars2 <- subset(mtcars, cyl == 4)\n\nwith(mtcars2, sum(vs))\nsum(mtcars2$am)\n\nrm(mtcars2)\nlibrary(MASS)\n\nMASS\n#> Error in eval(expr, envir, enclos): object 'MASS' not found\nmtcars2 <- subset(mtcars, cyl == 4)\n\ninvisible(mtcars)\n\ncyl == 4\n#> Error in eval(expr, envir, enclos): object 'cyl' not found\nwith(mtcars2, sum(vs))\n#> [1] 10\n\ninvisible(mtcars2)\n\nsum(vs)\n#> Error in eval(expr, envir, enclos): object 'vs' not found\nsum(mtcars2$am)\n#> [1] 8\n\nmtcars2$am\n#>  [1] 1 0 0 1 1 1 0 1 1 1 1\nrm(mtcars2)\nlibrary(dplyr)\nlibrary(ggplot2)\n\nby_cyl <- mtcars %>%\n  group_by(cyl) %>%\n  summarise(mean = mean(mpg))\n\nggplot(by_cyl, aes(cyl, mean)) +\n  geom_point()\nlibrary(dplyr)\nlibrary(ggplot2)\nby_cyl <- mtcars %>%\n  group_by(cyl) %>%\n  summarise(mean = mean(mpg))\nggplot(by_cyl, aes(cyl, mean)) +\n  geom_point()"},{"path":"quasiquotation.html","id":"quoting-exercises-19.3.6","chapter":"19 Quasiquotation","heading":"19.2 Quoting (Exercises 19.3.6)","text":"Q1. expr() implemented? Look source code.A1. Looking source code, can see expr() simple wrapper around enexpr(), captures returns user-entered expressions:example:turn, enexpr() calls native code:Q2. Compare contrast following two functions. Can predict output running ?A2. exprs() captures returns expressions specified developer instead values:hand, enexprs() captures user-entered expressions returns values:Q3. happens try use enexpr() expression (.e. enexpr(x + y)? happens enexpr() passed missing argument?A3. try use enexpr() expression, fails works symbol.enexpr() passed missing argument, returns missing argument:Q4. exprs() exprs(= ) different? Think input output.A4. key difference exprs() exprs(= ) former return unnamed list, latter return named list. former interpreted unnamed argument, latter named argument.cases, treated symbol:, argument missing latter case, since name corresponding value provided:Q5. differences exprs() alist()? Read documentation named arguments exprs() find .A5. additional differences exprs() alist().Names: inputs named, exprs() provides way name automatically using .named argument.Ignoring empty arguments: .ignore_empty argument exprs() gives much finer control empty arguments, alist() doesn’t provide way ignore arguments.Names injection: Using .unquote_names argument exprs(), can inject name argument.Q6. documentation substitute() says:Substitution takes place examining component parse tree\nfollows:bound symbol env, unchanged.promise object (.e., formal argument function)\nexpression slot promise replaces symbol.ordinary variable, value substituted, unless\nenv .GlobalEnv case symbol left unchanged.Create examples illustrate cases.A6. See examples illustrate -mentioned cases.bound symbol env, unchanged.Symbol x bound env, remains unchanged.promise object (.e., formal argument function)\nexpression slot promise replaces symbol.ordinary variable, value substituted, unless\nenv .GlobalEnv case symbol left unchanged.","code":"\nrlang::expr\n#> function (expr) \n#> {\n#>     enexpr(expr)\n#> }\n#> <bytecode: 0x5595ec2478b0>\n#> <environment: namespace:rlang>\nx <- expr(x <- 1)\nx\n#> x <- 1\nrlang::enexpr\n#> function (arg) \n#> {\n#>     .Call(ffi_enexpr, substitute(arg), parent.frame())\n#> }\n#> <bytecode: 0x5595e8d9f6f0>\n#> <environment: namespace:rlang>\nf1 <- function(x, y) {\n  exprs(x = x, y = y)\n}\nf2 <- function(x, y) {\n  enexprs(x = x, y = y)\n}\nf1(a + b, c + d)\nf2(a + b, c + d)\nf1 <- function(x, y) {\n  exprs(x = x, y = y)\n}\n\nf1(a + b, c + d)\n#> $x\n#> x\n#> \n#> $y\n#> y\nf2 <- function(x, y) {\n  enexprs(x = x, y = y)\n}\n\nf2(a + b, c + d)\n#> $x\n#> a + b\n#> \n#> $y\n#> c + d\nenexpr(x + y)\n#> Error in `enexpr()`:\n#> ! `arg` must be a symbol\narg <- missing_arg()\n\nenexpr(arg)\n\nis_missing(enexpr(arg))\n#> [1] TRUE\nexprs(a)\n#> [[1]]\n#> a\n\nexprs(a = )\n#> $a\nmap_lgl(exprs(a), is_symbol)\n#>      \n#> TRUE\n\nmap_lgl(exprs(a = ), is_symbol)\n#>    a \n#> TRUE\nmap_lgl(exprs(a), is_missing)\n#>       \n#> FALSE\n\nmap_lgl(exprs(a = ), is_missing)\n#>    a \n#> TRUE\nalist(\"x\" = 1, TRUE, \"z\" = expr(x + y))\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> [1] TRUE\n#> \n#> $z\n#> expr(x + y)\n\nexprs(\"x\" = 1, TRUE, \"z\" = expr(x + y), .named = TRUE)\n#> $x\n#> [1] 1\n#> \n#> $`TRUE`\n#> [1] TRUE\n#> \n#> $z\n#> expr(x + y)\nalist(\"x\" = 1, , TRUE, )\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> \n#> \n#> [[3]]\n#> [1] TRUE\n#> \n#> [[4]]\n\nexprs(\"x\" = 1, , TRUE, , .ignore_empty = \"trailing\")\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> \n#> \n#> [[3]]\n#> [1] TRUE\n\nexprs(\"x\" = 1, , TRUE, , .ignore_empty = \"none\")\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> \n#> \n#> [[3]]\n#> [1] TRUE\n#> \n#> [[4]]\n\nexprs(\"x\" = 1, , TRUE, , .ignore_empty = \"all\")\n#> $x\n#> [1] 1\n#> \n#> [[2]]\n#> [1] TRUE\nalist(foo := bar)\n#> [[1]]\n#> `:=`(foo, bar)\n\nexprs(foo := bar, .unquote_names = FALSE)\n#> [[1]]\n#> `:=`(foo, bar)\n\nexprs(foo := bar, .unquote_names = TRUE)\n#> $foo\n#> bar\nsubstitute(x + y, env = list(y = 2))\n#> x + 2\nmsg <- \"old\"\ndelayedAssign(\"myVar\", msg) # creates a promise\nsubstitute(myVar)\n#> myVar\nmsg <- \"new!\"\nmyVar\n#> [1] \"new!\"\nsubstitute(x + y, env = env(x = 2, y = 1))\n#> 2 + 1\n\nx <- 2\ny <- 1\nsubstitute(x + y, env = .GlobalEnv)\n#> x + y"},{"path":"quasiquotation.html","id":"unquoting-exercises-19.4.8","chapter":"19 Quasiquotation","heading":"19.3 Unquoting (Exercises 19.4.8)","text":"Q1. Given following components:Use quasiquotation construct following calls:A1. Using quasiquotation construct specified calls:Q2. following two calls print , actually different:’s difference? one natural?A2. can see difference two expression convert lists:can seen, second element call object, b integer vector:can also noticed ASTs expressions:first call natural, since second one inlines vector directly call, something rarely done.","code":"\nxy <- expr(x + y)\nxz <- expr(x + z)\nyz <- expr(y + z)\nabc <- exprs(a, b, c)\n(x + y) / (y + z)\n-(x + z)^(y + z)\n(x + y) + (y + z) - (x + y)\natan2(x + y, y + z)\nsum(x + y, x + y, y + z)\nsum(a, b, c)\nmean(c(a, b, c), na.rm = TRUE)\nfoo(a = x + y, b = y + z)\nxy <- expr(x + y)\nxz <- expr(x + z)\nyz <- expr(y + z)\nabc <- exprs(a, b, c)\n\nexpr((!!xy) / (!!yz))\n#> (x + y)/(y + z)\n\nexpr(-(!!xz)^(!!yz))\n#> -(x + z)^(y + z)\n\nexpr(((!!xy)) + (!!yz) - (!!xy))\n#> (x + y) + (y + z) - (x + y)\n\ncall2(\"atan2\", expr(!!xy), expr(!!yz))\n#> atan2(x + y, y + z)\n\ncall2(\"sum\", expr(!!xy), expr(!!xy), expr(!!yz))\n#> sum(x + y, x + y, y + z)\n\ncall2(\"sum\", !!!abc)\n#> sum(a, b, c)\n\nexpr(mean(c(!!!abc), na.rm = TRUE))\n#> mean(c(a, b, c), na.rm = TRUE)\n\ncall2(\"foo\", a = expr(!!xy), b = expr(!!yz))\n#> foo(a = x + y, b = y + z)\n(a <- expr(mean(1:10)))\n#> mean(1:10)\n(b <- expr(mean(!!(1:10))))\n#> mean(1:10)\nidentical(a, b)\n#> [1] FALSE\nas.list(expr(mean(1:10)))\n#> [[1]]\n#> mean\n#> \n#> [[2]]\n#> 1:10\n\nas.list(expr(mean(!!(1:10))))\n#> [[1]]\n#> mean\n#> \n#> [[2]]\n#>  [1]  1  2  3  4  5  6  7  8  9 10\nwaldo::compare(a, b)\n#> `old[[2]]` is a call\n#> `new[[2]]` is an integer vector (1, 2, 3, 4, 5, ...)\nast(expr(mean(1:10)))\n#> █─expr \n#> └─█─mean \n#>   └─█─`:` \n#>     ├─1 \n#>     └─10\n\nast(expr(mean(!!(1:10))))\n#> █─expr \n#> └─█─mean \n#>   └─<inline integer>"},{"path":"quasiquotation.html","id":"dot-dot-dot-exercises-19.6.5","chapter":"19 Quasiquotation","heading":"19.4 ... (dot-dot-dot) (Exercises 19.6.5)","text":"Q1. One way implement exec() shown . Describe works. key ideas?A1. keys ideas underlie implementation exec() function following:constructs call using function f argument ..., evaluates call environment .env.constructs call using function f argument ..., evaluates call environment .env.uses dynamic dots via list2(), means can splice arguments using !!!, can inject names using :=, trailing commas problem.uses dynamic dots via list2(), means can splice arguments using !!!, can inject names using :=, trailing commas problem.example:Q2. Carefully read source code interaction(), expand.grid(), par(). Compare contrast techniques use switching dots list behaviour.A2. Source code reveals following comparison table:functions capture dots list.Using dots, functions check:list entered argument checking number argumentsif count 1, checking argument listQ3. Explain problem definition set_attr()A3. set_attr() function signature parameter called x, additionally uses dynamic dots pass multiple arguments specify additional attributes x., shown example, creates problem attribute named x. Naming arguments won’t help either:can avoid issues renaming parameter:","code":"\nexec <- function(f, ..., .env = caller_env()) {\n  args <- list2(...)\n  do.call(f, args, envir = .env)\n}\nvec <- c(1:5, NA)\nargs_list <- list(trim = 0, na.rm = TRUE)\n\nexec(mean, vec, !!!args_list, , .env = caller_env())\n#> [1] 3\n\nrm(\"exec\")\nset_attr <- function(x, ...) {\n  attr <- rlang::list2(...)\n  attributes(x) <- attr\n  x\n}\nset_attr(1:10, x = 10)\n#> Error in attributes(x) <- attr: attributes must be named\nset_attr <- function(x, ...) {\n  attr <- rlang::list2(...)\n  attributes(x) <- attr\n  x\n}\nset_attr(x = 1:10, x = 10)\n#> Error in set_attr(x = 1:10, x = 10): formal argument \"x\" matched by multiple actual arguments\nset_attr <- function(.x, ...) {\n  attr <- rlang::list2(...)\n  attributes(.x) <- attr\n  .x\n}\n\nset_attr(.x = 1:10, x = 10)\n#>  [1]  1  2  3  4  5  6  7  8  9 10\n#> attr(,\"x\")\n#> [1] 10"},{"path":"quasiquotation.html","id":"case-studies-exercises-19.7.5","chapter":"19 Quasiquotation","heading":"19.5 Case studies (Exercises 19.7.5)","text":"Q1. linear-model example, replace expr() reduce(summands, ~ expr(!!.x + !!.y)) call2(): reduce(summands, call2, \"+\"). Compare contrast two approaches. think easier read?A1. can rewrite linear() function chapter using call2() follows:personally find version call2() much readable since !! syntax bit esoteric.Q2. Re-implement Box-Cox transform defined using unquoting new_function():A2. Re-implementation Box-Cox transform using unquoting new_function():Let’s try see produces output :Q3. Re-implement simple compose() defined using quasiquotation new_function():A3. Following re-implementation compose() using quasiquotation new_function():Checking new version behaves way original version:","code":"\nlinear <- function(var, val) {\n  var <- ensym(var)\n  coef_name <- map(seq_along(val[-1]), ~ expr((!!var)[[!!.x]]))\n\n  summands <- map2(val[-1], coef_name, ~ expr((!!.x * !!.y)))\n  summands <- c(val[[1]], summands)\n\n  reduce(summands, ~ call2(\"+\", .x, .y))\n}\n\nlinear(x, c(10, 5, -4))\n#> 10 + (5 * x[[1L]]) + (-4 * x[[2L]])\nbc <- function(lambda) {\n  if (lambda == 0) {\n    function(x) log(x)\n  } else {\n    function(x) (x^lambda - 1) / lambda\n  }\n}\nbc_new <- function(lambda) {\n  lambda <- enexpr(lambda)\n\n  if (!!lambda == 0) {\n    new_function(\n      exprs(x = ),\n      expr(log(x))\n    )\n  } else {\n    new_function(\n      exprs(x = ),\n      expr((x^(!!lambda) - 1) / (!!lambda))\n    )\n  }\n}\nbc(0)(1)\n#> [1] 0\nbc_new(0)(1)\n#> [1] 0\n\nbc(2)(2)\n#> [1] 1.5\nbc_new(2)(2)\n#> [1] 1.5\ncompose <- function(f, g) {\n  function(...) f(g(...))\n}\ncompose_new <- function(f, g) {\n  f <- enexpr(f) # or ensym(f)\n  g <- enexpr(g) # or ensym(g)\n\n  new_function(\n    exprs(... = ),\n    expr((!!f)((!!g)(...)))\n  )\n}\nnot_null <- compose(`!`, is.null)\nnot_null(4)\n#> [1] TRUE\n\nnot_null2 <- compose_new(`!`, is.null)\nnot_null2(4)\n#> [1] TRUE"},{"path":"quasiquotation.html","id":"session-information-14","chapter":"19 Quasiquotation","heading":"19.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  colorspace    2.1-0   2023-01-23 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  crayon        1.5.2   2022-09-29 [1] RSPM\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  diffobj       0.3.5   2021-10-05 [1] RSPM\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  farver        2.1.1   2022-07-06 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  ggplot2     * 3.4.4   2023-10-12 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  grid          4.3.2   2023-11-01 [3] local\n#>  gtable        0.3.4   2023-08-21 [1] RSPM\n#>  highr         0.10    2022-12-22 [1] RSPM\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  labeling      0.4.3   2023-08-29 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  lobstr      * 1.1.2   2022-06-22 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  MASS        * 7.3-60  2023-05-04 [3] CRAN (R 4.3.2)\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  munsell       0.5.0   2018-06-12 [1] RSPM\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rematch2      2.1.2   2020-05-01 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  scales        1.3.0   2023-11-28 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  waldo         0.5.2   2023-11-02 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"evaluation.html","id":"evaluation","chapter":"20 Evaluation","heading":"20 Evaluation","text":"Attaching needed libraries:","code":"\nlibrary(rlang)"},{"path":"evaluation.html","id":"evaluation-basics-exercises-20.2.4","chapter":"20 Evaluation","heading":"20.1 Evaluation basics (Exercises 20.2.4)","text":"Q1. Carefully read documentation source(). environment use default? supply local = TRUE? provide custom environment?A1. parameter local source() decides environment parsed expressions evaluated.default local = FALSE, corresponds user’s workspace (global environment, .e.).local = TRUE, environment source() called used.specify custom environment, sys.source() function can used, provides envir parameter.Q2. Predict results following lines code:A2. Correctly predicted 😉Q3. Fill function bodies re-implement get() using sym() eval(), assign() using sym(), expr(), eval(). Don’t worry multiple ways choosing environment get() assign() support; assume user supplies explicitly.A3. required re-implementations:get()assign()Q4. Modify source2() returns result every expression, just last one. Can eliminate loop?A4. can use purrr::map() iterate every expression return result every expression:Q5. can make base::local() slightly easier understand spreading multiple lines:Explain local() works words. (Hint: might want print(call) help understand substitute() , read documentation remind environment new.env() inherit .)A5. order figure function works, let’s add suggested print(call):docs substitute() mention:Substituting quoting often cause confusion argument expression(…). result call expression constructor function needs evaluated eval give actual expression object.Thus, get actual expression object, quoted expression needs evaluated using eval():Finally, generated call evaluated caller environment. final function call looks like following:Note bindings x y found inner environment, bindings functions eval(), quote(), etc. found outer environment.","code":"\nwithr::with_tempdir(\n  code = {\n    f <- tempfile()\n    writeLines(\"rlang::env_print()\", f)\n    foo <- function() source(f, local = FALSE)\n    foo()\n  }\n)\n#> <environment: global>\n#> Parent: <environment: package:rlang>\n#> Bindings:\n#> • .Random.seed: <int>\n#> • foo: <fn>\n#> • f: <chr>\nwithr::with_tempdir(\n  code = {\n    f <- tempfile()\n    writeLines(\"rlang::env_print()\", f)\n    foo <- function() source(f, local = TRUE)\n    foo()\n  }\n)\n#> <environment: 0x556694e969e0>\n#> Parent: <environment: global>\neval(expr(eval(expr(eval(expr(2 + 2))))))\neval(eval(expr(eval(expr(eval(expr(2 + 2)))))))\nexpr(eval(expr(eval(expr(eval(expr(2 + 2)))))))\neval(expr(eval(expr(eval(expr(2 + 2))))))\n#> [1] 4\n\neval(eval(expr(eval(expr(eval(expr(2 + 2)))))))\n#> [1] 4\n\nexpr(eval(expr(eval(expr(eval(expr(2 + 2)))))))\n#> eval(expr(eval(expr(eval(expr(2 + 2))))))\n# name is a string\nget2 <- function(name, env) {}\nassign2 <- function(name, value, env) {}\nget2 <- function(name, env = caller_env()) {\n  name <- sym(name)\n  eval(name, env)\n}\n\nx <- 2\n\nget2(\"x\")\n#> [1] 2\nget(\"x\")\n#> [1] 2\n\ny <- 1:4\nassign(\"y[1]\", 2)\n\nget2(\"y[1]\")\n#> [1] 2\nget(\"y[1]\")\n#> [1] 2\nassign2 <- function(name, value, env = caller_env()) {\n  name <- sym(name)\n  eval(expr(!!name <- !!value), env)\n}\n\nassign(\"y1\", 4)\ny1\n#> [1] 4\n\nassign2(\"y2\", 4)\ny2\n#> [1] 4\nsource2 <- function(path, env = caller_env()) {\n  file <- paste(readLines(path, warn = FALSE), collapse = \"\\n\")\n  exprs <- parse_exprs(file)\n  purrr::map(exprs, ~ eval(.x, env))\n}\n\nwithr::with_tempdir(\n  code = {\n    f <- tempfile(fileext = \".R\")\n    writeLines(\"1 + 1; 2 + 4\", f)\n    source2(f)\n  }\n)\n#> [[1]]\n#> [1] 2\n#> \n#> [[2]]\n#> [1] 6\nlocal3 <- function(expr, envir = new.env()) {\n  call <- substitute(eval(quote(expr), envir))\n  eval(call, envir = parent.frame())\n}\nlocal3 <- function(expr, envir = new.env()) {\n  call <- substitute(eval(quote(expr), envir))\n  print(call)\n\n  eval(call, envir = parent.frame())\n}\n\nlocal3({\n  x <- 10\n  y <- 200\n  x + y\n})\n#> eval(quote({\n#>     x <- 10\n#>     y <- 200\n#>     x + y\n#> }), new.env())\n#> [1] 210\nis_expression(eval(quote({\n  x <- 10\n  y <- 200\n  x + y\n}), new.env()))\n#> [1] TRUE\n# outer environment\neval(\n  # inner environment\n  eval(quote({\n    x <- 10\n    y <- 200\n    x + y\n  }), new.env()),\n  envir = parent.frame()\n)"},{"path":"evaluation.html","id":"quosures-exercises-20.3.6","chapter":"20 Evaluation","heading":"20.2 Quosures (Exercises 20.3.6)","text":"Q1. Predict following quosures return evaluated.A1. Correctly predicted 😉Q2. Write enenv() function captures environment associated argument. (Hint: require two function calls.)A2. can make use get_env() helper get environment associated argument:","code":"\nq1 <- new_quosure(expr(x), env(x = 1))\nq1\n#> <quosure>\n#> expr: ^x\n#> env:  0x556694cebe60\nq2 <- new_quosure(expr(x + !!q1), env(x = 10))\nq2\n#> <quosure>\n#> expr: ^x + (^x)\n#> env:  0x55669533ac58\nq3 <- new_quosure(expr(x + !!q2), env(x = 100))\nq3\n#> <quosure>\n#> expr: ^x + (^x + (^x))\n#> env:  0x5566955fd570\nq1 <- new_quosure(expr(x), env(x = 1))\neval_tidy(q1)\n#> [1] 1\n\nq2 <- new_quosure(expr(x + !!q1), env(x = 10))\neval_tidy(q2)\n#> [1] 11\n\nq3 <- new_quosure(expr(x + !!q2), env(x = 100))\neval_tidy(q3)\n#> [1] 111\nenenv <- function(x) {\n  x <- enquo(x)\n  get_env(x)\n}\n\nenenv(x)\n#> <environment: R_GlobalEnv>\n\nfoo <- function(x) enenv(x)\nfoo()\n#> <environment: 0x55669656a448>"},{"path":"evaluation.html","id":"data-masks-exercises-20.4.6","chapter":"20 Evaluation","heading":"20.3 Data masks (Exercises 20.4.6)","text":"Q1. use loop transform2() instead map()? Consider transform2(df, x = x * 2, x = x * 2).A1. see map() appropriate function, let’s create version function map() see happens.use () loop, iteration, updating x column current expression evaluation. , repeatedly modifying column works.use map() instead, trying evaluate expressions time; .e., column attempted modify using multiple expressions.Q2. ’s alternative implementation subset2():Compare contrast subset3() subset2(). advantages disadvantages?A2. Let’s first juxtapose functions outputs can compare better.Disadvantages subset3() subset2()filtering conditions specified rows don’t evaluate logical, function doesn’t fail informatively. Indeed, silently returns incorrect result.Advantages subset3() subset2()might argue function shorter advantage, much subjective preference.Q3. following function implements basics dplyr::arrange(). Annotate line comment explaining . Can explain !!.na.last strictly correct, omitting !! unlikely cause problems?A3. Annotated version function:see doesn’t matter whether whether unquote .na.last argument , let’s look smaller example:can seen:without unquoting, .na.last found function environmentwith unquoting, .na.last included order call object ","code":"\ntransform2 <- function(.data, ...) {\n  dots <- enquos(...)\n\n  for (i in seq_along(dots)) {\n    name <- names(dots)[[i]]\n    dot <- dots[[i]]\n\n    .data[[name]] <- eval_tidy(dot, .data)\n  }\n\n  .data\n}\n\ntransform3 <- function(.data, ...) {\n  dots <- enquos(...)\n\n  purrr::map(dots, function(x, .data = .data) {\n    name <- names(x)\n    dot <- x\n\n    .data[[name]] <- eval_tidy(dot, .data)\n\n    .data\n  })\n}\ndf <- data.frame(x = 1:3)\ntransform2(df, x = x * 2, x = x * 2)\n#>    x\n#> 1  4\n#> 2  8\n#> 3 12\ndf <- data.frame(x = 1:3)\ntransform3(df, x = x * 2, x = x * 2)\n#> Error in `purrr::map()`:\n#> ℹ In index: 1.\n#> ℹ With name: x.\n#> Caused by error:\n#> ! promise already under evaluation: recursive default argument reference or earlier problems?\nsubset3 <- function(data, rows) {\n  rows <- enquo(rows)\n  eval_tidy(expr(data[!!rows, , drop = FALSE]), data = data)\n}\ndf <- data.frame(x = 1:3)\nsubset3(df, x == 1)\nsubset2 <- function(data, rows) {\n  rows <- enquo(rows)\n  rows_val <- eval_tidy(rows, data)\n  stopifnot(is.logical(rows_val))\n\n  data[rows_val, , drop = FALSE]\n}\n\ndf <- data.frame(x = 1:3)\nsubset2(df, x == 1)\n#>   x\n#> 1 1\nsubset3 <- function(data, rows) {\n  rows <- enquo(rows)\n  eval_tidy(expr(data[!!rows, , drop = FALSE]), data = data)\n}\n\nsubset3(df, x == 1)\n#>   x\n#> 1 1\nrm(\"x\")\nexists(\"x\")\n#> [1] FALSE\n\nsubset2(df, x + 1)\n#> Error in subset2(df, x + 1): is.logical(rows_val) is not TRUE\n\nsubset3(df, x + 1)\n#>     x\n#> 2   2\n#> 3   3\n#> NA NA\narrange2 <- function(.df, ..., .na.last = TRUE) {\n  args <- enquos(...)\n  order_call <- expr(order(!!!args, na.last = !!.na.last))\n  ord <- eval_tidy(order_call, .df)\n  stopifnot(length(ord) == nrow(.df))\n  .df[ord, , drop = FALSE]\n}\narrange2 <- function(.df, ..., .na.last = TRUE) {\n  # capture user-supplied expressions (and corresponding environments) as quosures\n  args <- enquos(...)\n\n  # create a call object by splicing a list of quosures\n  order_call <- expr(order(!!!args, na.last = !!.na.last))\n\n  # and evaluate the constructed call in the data frame\n  ord <- eval_tidy(order_call, .df)\n\n  # sanity check\n  stopifnot(length(ord) == nrow(.df))\n\n  .df[ord, , drop = FALSE]\n}\nx <- TRUE\neval(expr(c(x = !!x)))\n#>    x \n#> TRUE\neval(expr(c(x = x)))\n#>    x \n#> TRUE"},{"path":"evaluation.html","id":"using-tidy-evaluation-exercises-20.5.4","chapter":"20 Evaluation","heading":"20.4 Using tidy evaluation (Exercises 20.5.4)","text":"Q1. ’ve included alternative implementation threshold_var() . makes different approach used ? makes harder?A1. First, let’s compare two definitions function make sure produce output:key difference subsetting operator used:old version uses non-quoting [[ operator. Thus, var argument first needs converted string.new version uses quoting $ operator. Thus, var argument first quoted unquoted (using !!).","code":"\nthreshold_var <- function(df, var, val) {\n  var <- ensym(var)\n  subset2(df, `$`(.data, !!var) >= !!val)\n}\nthreshold_var_old <- function(df, var, val) {\n  var <- as_string(ensym(var))\n  subset2(df, .data[[var]] >= !!val)\n}\n\nthreshold_var_new <- threshold_var\n\ndf <- data.frame(x = 1:10)\n\nidentical(\n  threshold_var(df, x, 8),\n  threshold_var(df, x, 8)\n)\n#> [1] TRUE"},{"path":"evaluation.html","id":"base-evaluation-exercises-20.6.3","chapter":"20 Evaluation","heading":"20.5 Base evaluation (Exercises 20.6.3)","text":"Q1. function fail?A1. doesn’t work lm_call call evaluated caller_env(), finds binding base::data() function, data execution environment.make work, need unquote data expression:Q2. model building, typically response data relatively constant rapidly experiment different predictors. Write small wrapper allows reduce duplication code .A2. small wrapper allows enter predictors:function flexible enough also allow changing data dependent variable:Q3. Another way write resample_lm() include resample expression (data[sample(nrow(data), replace = TRUE), , drop = FALSE]) data argument. Implement approach. advantages? disadvantages?A3. variant resample_lm(), providing resampled data argument.makes use R’s lazy evaluation function arguments. , resample_data argument evaluated needed function.","code":"\nlm3a <- function(formula, data) {\n  formula <- enexpr(formula)\n  lm_call <- expr(lm(!!formula, data = data))\n  eval(lm_call, caller_env())\n}\n\nlm3a(mpg ~ disp, mtcars)$call\n#> Error in as.data.frame.default(data, optional = TRUE):\n#> cannot coerce class ‘\"function\"’ to a data.frame\nlm3a <- function(formula, data) {\n  formula <- enexpr(formula)\n  lm_call <- expr(lm(!!formula, data = !!data))\n  eval(lm_call, caller_env())\n}\n\nis_call(lm3a(mpg ~ disp, mtcars)$call)\n#> [1] TRUE\nlm(mpg ~ disp, data = mtcars)\nlm(mpg ~ I(1 / disp), data = mtcars)\nlm(mpg ~ disp * cyl, data = mtcars)\nlm_custom <- function(data = mtcars, x, y = mpg) {\n  x <- enexpr(x)\n  y <- enexpr(y)\n  data <- enexpr(data)\n\n  lm_call <- expr(lm(formula = !!y ~ !!x, data = !!data))\n\n  eval(lm_call, caller_env())\n}\n\nidentical(\n  lm_custom(x = disp),\n  lm(mpg ~ disp, data = mtcars)\n)\n#> [1] TRUE\n\nidentical(\n  lm_custom(x = I(1 / disp)),\n  lm(mpg ~ I(1 / disp), data = mtcars)\n)\n#> [1] TRUE\n\nidentical(\n  lm_custom(x = disp * cyl),\n  lm(mpg ~ disp * cyl, data = mtcars)\n)\n#> [1] TRUE\nlm_custom(data = iris, x = Sepal.Length, y = Petal.Width)\n#> \n#> Call:\n#> lm(formula = Petal.Width ~ Sepal.Length, data = iris)\n#> \n#> Coefficients:\n#>  (Intercept)  Sepal.Length  \n#>      -3.2002        0.7529\nresample_lm3 <- function(formula,\n                         data,\n                         resample_data = data[sample(nrow(data), replace = TRUE), , drop = FALSE],\n                         env = current_env()) {\n  formula <- enexpr(formula)\n  lm_call <- expr(lm(!!formula, data = resample_data))\n  expr_print(lm_call)\n  eval(lm_call, env)\n}\n\ndf <- data.frame(x = 1:10, y = 5 + 3 * (1:10) + round(rnorm(10), 2))\nresample_lm3(y ~ x, data = df)\n#> lm(y ~ x, data = resample_data)\n#> \n#> Call:\n#> lm(formula = y ~ x, data = resample_data)\n#> \n#> Coefficients:\n#> (Intercept)            x  \n#>       2.654        3.420"},{"path":"evaluation.html","id":"session-information-15","chapter":"20 Evaluation","heading":"20.6 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"translation.html","id":"translation","chapter":"21 Translation","heading":"21 Translation","text":"Needed libraries:","code":"\nlibrary(rlang)\nlibrary(purrr)"},{"path":"translation.html","id":"html-exercises-21.2.6","chapter":"21 Translation","heading":"21.1 HTML (Exercises 21.2.6)","text":"Q1. escaping rules <script> tags different contain JavaScript, HTML. Instead escaping angle brackets ampersands, need escape <\/script> tag isn’t closed early. example, script(\"'<\/script>'\"), shouldn’t generate :ButAdapt escape() follow rules new argument script set TRUE.A1. Let’s first start boilerplate code included book:also need tweak boilerplate pass additional parameter escape():Q2. use ... functions big downsides. ’s input validation little information documentation autocomplete used function. Create new function , given named list tags attribute names (like ), creates tag functions named arguments.tags get class id attributes.Q3. Reason following code calls with_html() referencing objects environment. work fail? ? Run code verify predictions.A3. work , first need copy-paste relevant code book:Note with_html() uses eval_tidy(), therefore code argument evaluated first html_tags named list, acts data mask, object found data mask, searches caller environment.reason, first example code work:following code, however, going work already address element data mask, p() take function address() input, escape() doesn’t know deal objects function type:Q4. Currently HTML doesn’t look terribly pretty, ’s hard see structure. adapt tag() indenting formatting? (may need research block inline tags.)A4. Let’s first look currently looks like:can improve follow Google HTML/CSS Style Guide., need create new function indent code conditionally:can update body() function use new helper:new formatting looks much better:","code":"  <script>'<\/script>'<\/script>  <script>'<\\/script>'<\/script>\nescape <- function(x, ...) UseMethod(\"escape\")\n\nescape.character <- function(x, script = FALSE) {\n  if (script) {\n    x <- gsub(\"<\/script>\", \"<\\\\/script>\", x, fixed = TRUE)\n  } else {\n    x <- gsub(\"&\", \"&amp;\", x)\n    x <- gsub(\"<\", \"&lt;\", x)\n    x <- gsub(\">\", \"&gt;\", x)\n  }\n\n  html(x)\n}\n\nescape.advr_html <- function(x, ...) x\nhtml <- function(x) structure(x, class = \"advr_html\")\n\nprint.advr_html <- function(x, ...) {\n  out <- paste0(\"<HTML> \", x)\n  cat(paste(strwrap(out), collapse = \"\\n\"), \"\\n\", sep = \"\")\n}\n\ndots_partition <- function(...) {\n  dots <- list2(...)\n\n  if (is.null(names(dots))) {\n    is_named <- rep(FALSE, length(dots))\n  } else {\n    is_named <- names(dots) != \"\"\n  }\n\n  list(\n    named = dots[is_named],\n    unnamed = dots[!is_named]\n  )\n}\n\ntag <- function(tag, script = FALSE) {\n  force(script)\n  new_function(\n    exprs(... = ),\n    expr({\n      dots <- dots_partition(...)\n      attribs <- html_attributes(dots$named)\n      children <- map_chr(.x = dots$unnamed, .f = ~ escape(.x, !!script))\n\n      html(paste0(\n        !!paste0(\"<\", tag), attribs, \">\",\n        paste(children, collapse = \"\"),\n        !!paste0(\"<\/\", tag, \">\")\n      ))\n    }),\n    caller_env()\n  )\n}\n\nvoid_tag <- function(tag) {\n  new_function(\n    exprs(... = ),\n    expr({\n      dots <- dots_partition(...)\n      if (length(dots$unnamed) > 0) {\n        abort(!!paste0(\"<\", tag, \"> must not have unnamed arguments\"))\n      }\n      attribs <- html_attributes(dots$named)\n\n      html(paste0(!!paste0(\"<\", tag), attribs, \" />\"))\n    }),\n    caller_env()\n  )\n}\n\np <- tag(\"p\")\nscript <- tag(\"script\", script = TRUE)\nscript(\"'<\/script>'\")\n#> <HTML> <script>'<\\/script>'<\/script>\nlist(\n  a = c(\"href\"),\n  img = c(\"src\", \"width\", \"height\")\n)\ngreeting <- \"Hello!\"\nwith_html(p(greeting))\np <- function() \"p\"\naddress <- \"123 anywhere street\"\nwith_html(p(address))\ntags <- c(\n  \"a\", \"abbr\", \"address\", \"article\", \"aside\", \"audio\",\n  \"b\", \"bdi\", \"bdo\", \"blockquote\", \"body\", \"button\", \"canvas\",\n  \"caption\", \"cite\", \"code\", \"colgroup\", \"data\", \"datalist\",\n  \"dd\", \"del\", \"details\", \"dfn\", \"div\", \"dl\", \"dt\", \"em\",\n  \"eventsource\", \"fieldset\", \"figcaption\", \"figure\", \"footer\",\n  \"form\", \"h1\", \"h2\", \"h3\", \"h4\", \"h5\", \"h6\", \"head\", \"header\",\n  \"hgroup\", \"html\", \"i\", \"iframe\", \"ins\", \"kbd\", \"label\",\n  \"legend\", \"li\", \"mark\", \"map\", \"menu\", \"meter\", \"nav\",\n  \"noscript\", \"object\", \"ol\", \"optgroup\", \"option\", \"output\",\n  \"p\", \"pre\", \"progress\", \"q\", \"ruby\", \"rp\", \"rt\", \"s\", \"samp\",\n  \"script\", \"section\", \"select\", \"small\", \"span\", \"strong\",\n  \"style\", \"sub\", \"summary\", \"sup\", \"table\", \"tbody\", \"td\",\n  \"textarea\", \"tfoot\", \"th\", \"thead\", \"time\", \"title\", \"tr\",\n  \"u\", \"ul\", \"var\", \"video\"\n)\n\nvoid_tags <- c(\n  \"area\", \"base\", \"br\", \"col\", \"command\", \"embed\",\n  \"hr\", \"img\", \"input\", \"keygen\", \"link\", \"meta\", \"param\",\n  \"source\", \"track\", \"wbr\"\n)\n\nhtml_tags <- c(\n  tags %>% set_names() %>% map(tag),\n  void_tags %>% set_names() %>% map(void_tag)\n)\n\nwith_html <- function(code) {\n  code <- enquo(code)\n  eval_tidy(code, html_tags)\n}\ngreeting <- \"Hello!\"\nwith_html(p(greeting))\n#> <HTML> <p>Hello!<\/p>\n\"address\" %in% names(html_tags)\n#> [1] TRUE\n\np <- function() \"p\"\naddress <- \"123 anywhere street\"\nwith_html(p(address))\n#> Error in `map_chr()`:\n#> ℹ In index: 1.\n#> Caused by error in `UseMethod()`:\n#> ! no applicable method for 'escape' applied to an object of class \"function\"\nwith_html(\n  body(\n    h1(\"A heading\", id = \"first\"),\n    p(\"Some text &\", b(\"some bold text.\")),\n    img(src = \"myimg.png\", width = 100, height = 100)\n  )\n)\n#> <HTML> <body><h1 id='first'>A heading<\/h1><p>Some\n#> text &amp;<b>some bold text.<\/b><\/p><img\n#> src='myimg.png' width='100' height='100' /><\/body>\nprint.advr_html <- function(x, ...) {\n  cat(paste(\"<HTML>\", x, sep = \"\\n\"))\n}\n\nindent <- function(x) {\n  paste0(\"  \", gsub(\"\\n\", \"\\n  \", x))\n}\n\nformat_code <- function(children, indent = FALSE) {\n  if (indent) {\n    paste0(\"\\n\", paste0(indent(children), collapse = \"\\n\"), \"\\n\")\n  } else {\n    paste(children, collapse = \"\")\n  }\n}\nhtml_tags$body <- function(...) {\n  dots <- dots_partition(...)\n  attribs <- html_attributes(dots$named)\n  children <- map_chr(dots$unnamed, escape)\n\n  html(paste0(\n    \"<body\", attribs, \">\",\n    format_code(children, indent = TRUE),\n    \"<\/body>\"\n  ))\n}\nwith_html(\n  body(\n    h1(\"A heading\", id = \"first\"),\n    p(\"Some text &\", b(\"some bold text.\")),\n    img(src = \"myimg.png\", width = 100, height = 100)\n  )\n)\n#> <HTML>\n#> <body>\n#>   <h1 id='first'>A heading<\/h1>\n#>   <p>Some text &amp;<b>some bold text.<\/b><\/p>\n#>   <img src='myimg.png' width='100' height='100' />\n#> <\/body>"},{"path":"translation.html","id":"latex-exercises-21.3.8","chapter":"21 Translation","heading":"21.2 LaTeX (Exercises 21.3.8)","text":"didn’t manage solve exercises, ’d recommend checking solutions official solutions manual.Q1. Add escaping. special symbols escaped adding backslash front \\, $, %. Just HTML, ’ll need make sure don’t end double-escaping. ’ll need create small S3 class use function operators. also allow embed arbitrary LaTeX needed.Q2. Complete DSL support functions plotmath supports.","code":""},{"path":"translation.html","id":"session-information-16","chapter":"21 Translation","heading":"21.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  purrr       * 1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang       * 1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"debugging.html","id":"debugging","chapter":"22 Debugging","heading":"22 Debugging","text":"exercises.","code":""},{"path":"measuring-performance.html","id":"measuring-performance","chapter":"23 Measuring performance","heading":"23 Measuring performance","text":"Attaching needed libraries:","code":"\nlibrary(profvis, warn.conflicts = FALSE)\nlibrary(dplyr, warn.conflicts = FALSE)"},{"path":"measuring-performance.html","id":"profiling-exercises-23.2.4","chapter":"23 Measuring performance","heading":"23.1 Profiling (Exercises 23.2.4)","text":"Q1. Profile following function torture = TRUE. surprising? Read source code rm() figure ’s going .A1. Let’s source functions mentioned exercises.First, try without torture = TRUE: returns meaningful results.mentioned docs, setting torture = TRUETriggers garbage collection every torture memory allocation call.process somehow never seems finish crashes RStudio session stops!question says documentation rm() may provide clues:still couldn’t figure . recommend checking official answer.","code":"\nf <- function(n = 1e5) {\n  x <- rep(1, n)\n  rm(x)\n}\nsource(\"profiling-exercises.R\")\nprofvis(f())\n#> Error in parse_rprof_lines(lines, expr_source): No parsing data available. Maybe your function was too fast?\nprofvis(f(), torture = TRUE)\nrm\n#> function (..., list = character(), pos = -1, envir = as.environment(pos), \n#>     inherits = FALSE) \n#> {\n#>     if (...length()) {\n#>         dots <- match.call(expand.dots = FALSE)$...\n#>         if (!all(vapply(dots, function(x) is.symbol(x) || is.character(x), \n#>             NA, USE.NAMES = FALSE))) \n#>             stop(\"... must contain names or character strings\")\n#>         list <- .Primitive(\"c\")(list, vapply(dots, as.character, \n#>             \"\"))\n#>     }\n#>     .Internal(remove(list, envir, inherits))\n#> }\n#> <bytecode: 0x55c47f4b2a00>\n#> <environment: namespace:base>"},{"path":"measuring-performance.html","id":"microbenchmarking-exercises-23.3.3","chapter":"23 Measuring performance","heading":"23.2 Microbenchmarking (Exercises 23.3.3)","text":"Q1. Instead using bench::mark(), use built-function system.time(). system.time() much less precise, ’ll need repeat operation many times loop, divide find average time operation, code .estimates system.time() compare bench::mark()? different?A1. Let’s benchmark first using two approaches:Now can compare results alternatives:comparison reveals two approaches yield quite similar results. Slight differences exact values possibly due differences precision timers used internally functions.Q2. two ways compute square root vector. think fastest? slowest? Use microbenchmarking test answers.A2. Microbenchmarking ways compute square root vector mentioned chapter.specialized primitive function sqrt() (written C) fastest way compute square root.","code":"\nn <- 1e6\nsystem.time(for (i in 1:n) sqrt(x)) / n\nsystem.time(for (i in 1:n) x^0.5) / n\nn <- 1e6\nx <- runif(100)\n\n# bench -------------------\n\nbench_df <- bench::mark(\n  sqrt(x),\n  x^0.5,\n  iterations = n,\n  time_unit = \"us\"\n)\n\nt_bench_df <- bench_df %>%\n  select(expression, time) %>%\n  rowwise() %>%\n  mutate(bench_mean = mean(unlist(time))) %>%\n  ungroup() %>%\n  select(-time)\n\n# system.time -------------------\n\n# garbage collection performed immediately before the timing\nt1_systime_gc <- system.time(for (i in 1:n) sqrt(x), gcFirst = TRUE) / n\nt2_systime_gc <- system.time(for (i in 1:n) x^0.5, gcFirst = TRUE) / n\n\n# garbage collection not performed immediately before the timing\nt1_systime_nogc <- system.time(for (i in 1:n) sqrt(x), gcFirst = FALSE) / n\nt2_systime_nogc <- system.time(for (i in 1:n) x^0.5, gcFirst = FALSE) / n\n\nt_systime_df <- tibble(\n  \"expression\" = bench_df$expression,\n  \"systime_with_gc\" = c(t1_systime_gc[\"elapsed\"], t2_systime_gc[\"elapsed\"]),\n  \"systime_with_nogc\" = c(t1_systime_nogc[\"elapsed\"], t2_systime_nogc[\"elapsed\"])\n) %>%\n  mutate(\n    systime_with_gc = systime_with_gc * 1e6, # in microseconds\n    systime_with_nogc = systime_with_nogc * 1e6 # in microseconds\n  )\n# note that system time columns report time in microseconds\nfull_join(t_bench_df, t_systime_df, by = \"expression\")\n#> # A tibble: 2 × 4\n#>   expression bench_mean systime_with_gc systime_with_nogc\n#>   <bch:expr>   <bch:tm>           <dbl>             <dbl>\n#> 1 sqrt(x)      511.16ns           0.441             0.434\n#> 2 x^0.5          2.18µs           1.99              1.99\nx^(1 / 2)\nexp(log(x) / 2)\nx <- runif(1000)\n\nbench::mark(\n  sqrt(x),\n  x^0.5,\n  x^(1 / 2),\n  exp(log(x) / 2),\n  iterations = 1000\n) %>%\n  select(expression, median) %>%\n  arrange(median)\n#> # A tibble: 4 × 2\n#>   expression      median\n#>   <bch:expr>    <bch:tm>\n#> 1 sqrt(x)         3.06µs\n#> 2 exp(log(x)/2)   12.7µs\n#> 3 x^0.5          18.73µs\n#> 4 x^(1/2)        19.04µs"},{"path":"measuring-performance.html","id":"session-information-17","chapter":"23 Measuring performance","heading":"23.3 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench         1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  dplyr       * 1.1.4   2023-11-17 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  generics      0.1.3   2022-07-05 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  htmlwidgets   1.6.4   2023-12-06 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  profvis     * 0.3.8   2023-05-02 [1] RSPM\n#>  purrr         1.0.2   2023-08-10 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  stringi       1.8.3   2023-12-11 [1] RSPM\n#>  stringr       1.5.1   2023-11-14 [1] RSPM\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tidyselect    1.2.0   2022-10-10 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"},{"path":"improving-performance.html","id":"improving-performance","chapter":"24 Improving performance","heading":"24 Improving performance","text":"Attaching needed libraries:","code":"\nlibrary(ggplot2)\nlibrary(dplyr)\nlibrary(purrr)"},{"path":"improving-performance.html","id":"exercises-24.3.1","chapter":"24 Improving performance","heading":"24.1 Exercises 24.3.1","text":"Q1. faster alternatives lm()? specifically designed work larger datasets?A1. Faster alternatives lm() can found visiting CRAN Task View: High-Performance Parallel Computing R page.available options:speedglm::speedlm() (large datasets)speedglm::speedlm() (large datasets)biglm::biglm() (specifically designed data large fit memory)biglm::biglm() (specifically designed data large fit memory)RcppEigen::fastLm() (using Eigen linear algebra library)RcppEigen::fastLm() (using Eigen linear algebra library)High performances can obtained packages especially R linked optimized BLAS, ATLAS. can check information using sessionInfo():Comparing performance different alternatives:results might change depending size dataset, performance benefits accruing bigger dataset.experiment different algorithms find one fits needs dataset best.Q2. package implements version match() ’s faster repeated look ups? much faster ?A2. package (respective function) fastmatch::fmatch()7.documentation function notes:slightly faster built-version uses specialized code, addition retains hash table within table object can re-used, dramatically reducing look-time especially large table.small vector, fmatch() slightly faster, order magnitude., larger vector, fmatch() orders magnitude faster! ⚡can also look hash table:Additionally, fastmatch provides equivalent familiar infix operator:Q3. List four functions (just base R) convert string date time object. strengths weaknesses?A3. four functions convert string date time object:base::.POSIXct()base::.POSIXlt()lubridate::ymd_hms()fasttime::fastPOSIXct()can also compare performance:many packages implement way convert string date time object. , see CRAN Task View: Time Series AnalysisQ4. packages provide ability compute rolling mean?A4. packages respective functions provide way compute rolling mean:RcppRoll::roll_mean()data.table::frollmean()roll::roll_mean()zoo::rollmean()slider::slide_dbl()Q5. alternatives optim()?A5. optim() function provides general-purpose optimization. noted docs:General-purpose optimization based Nelder–Mead, quasi-Newton conjugate-gradient algorithms. includes option box-constrained optimization simulated annealing.many alternatives exact one want choose depend type optimization like .available options can seen CRAN Task View: Optimization Mathematical Programming.","code":"\nsessInfo <- sessionInfo()\nsessInfo$matprod\n#> [1] \"default\"\nsessInfo$LAPACK\n#> [1] \"/usr/lib/x86_64-linux-gnu/openblas-pthread/libopenblasp-r0.3.20.so\"\nlibrary(gapminder)\n\n# having a look at the data\nglimpse(gapminder)\n#> Rows: 1,704\n#> Columns: 6\n#> $ country   <fct> \"Afghanistan\", \"Afghanistan\", \"Afghanist…\n#> $ continent <fct> Asia, Asia, Asia, Asia, Asia, Asia, Asia…\n#> $ year      <int> 1952, 1957, 1962, 1967, 1972, 1977, 1982…\n#> $ lifeExp   <dbl> 28.801, 30.332, 31.997, 34.020, 36.088, …\n#> $ pop       <int> 8425333, 9240934, 10267083, 11537966, 13…\n#> $ gdpPercap <dbl> 779.4453, 820.8530, 853.1007, 836.1971, …\n\nbench::mark(\n  \"lm\"       = stats::lm(lifeExp ~ continent * gdpPercap, gapminder),\n  \"speedglm\" = speedglm::speedlm(lifeExp ~ continent * gdpPercap, gapminder),\n  \"biglm\"    = biglm::biglm(lifeExp ~ continent * gdpPercap, gapminder),\n  \"fastLm\"   = RcppEigen::fastLm(lifeExp ~ continent * gdpPercap, gapminder),\n  check      = FALSE,\n  iterations = 1000\n)[1:5]\n#> # A tibble: 4 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 lm         856.76µs 886.66µs     1109.    1.27MB\n#> 2 speedglm     1.53ms   1.63ms      612.   75.01MB\n#> 3 biglm       753.8µs 788.16µs     1205.   589.1KB\n#> 4 fastLm     980.87µs   1.01ms      988.    4.48MB\nlibrary(fastmatch, warn.conflicts = FALSE)\n\nsmall_vec <- c(\"a\", \"b\", \"x\", \"m\", \"n\", \"y\")\n\nlength(small_vec)\n#> [1] 6\n\nbench::mark(\n  \"base\" = match(c(\"x\", \"y\"), small_vec),\n  \"fastmatch\" = fmatch(c(\"x\", \"y\"), small_vec)\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base         1.14µs    1.2µs   778382.     2.8KB\n#> 2 fastmatch    1.01µs   1.06µs   898046.    2.66KB\nlarge_vec <- c(rep(c(\"a\", \"b\"), 1e4), \"x\", rep(c(\"m\", \"n\"), 1e6), \"y\")\n\nlength(large_vec)\n#> [1] 2020002\n\nbench::mark(\n  \"base\" = match(c(\"x\", \"y\"), large_vec),\n  \"fastmatch\" = fmatch(c(\"x\", \"y\"), large_vec)\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base         23.3ms  23.29ms      42.9    31.4MB\n#> 2 fastmatch     981ns   1.03µs  917030.         0B\nfmatch.hash(c(\"x\", \"y\"), small_vec)\n#> [1] \"a\" \"b\" \"x\" \"m\" \"n\" \"y\"\n#> attr(,\".match.hash\")\n#> <hash table>\nlibrary(fastmatch)\n\nsmall_vec <- c(\"a\", \"b\", \"x\", \"m\", \"n\", \"y\")\n\nc(\"x\", \"y\") %in% small_vec\n#> [1] TRUE TRUE\n\nc(\"x\", \"y\") %fin% small_vec\n#> [1] TRUE TRUE\nbase::as.POSIXct(\"2022-05-05 09:23:22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nbase::as.POSIXlt(\"2022-05-05 09:23:22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nlubridate::ymd_hms(\"2022-05-05-09-23-22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nfasttime::fastPOSIXct(\"2022-05-05 09:23:22\")\n#> [1] \"2022-05-05 09:23:22 UTC\"\nbench::mark(\n  \"as.POSIXct\" = base::as.POSIXct(\"2022-05-05 09:23:22\"),\n  \"as.POSIXlt\" = base::as.POSIXlt(\"2022-05-05 09:23:22\"),\n  \"ymd_hms\" = lubridate::ymd_hms(\"2022-05-05-09-23-22\"),\n  \"fastPOSIXct\" = fasttime::fastPOSIXct(\"2022-05-05 09:23:22\"),\n  check = FALSE,\n  iterations = 1000\n)\n#> # A tibble: 4 × 6\n#>   expression       min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 as.POSIXct   29.69µs  31.64µs    31285.        0B     0   \n#> 2 as.POSIXlt   20.64µs  21.73µs    45699.        0B     0   \n#> 3 ymd_hms       2.23ms   2.31ms      432.    21.5KB     3.48\n#> 4 fastPOSIXct   1.17µs   1.26µs   741714.        0B     0"},{"path":"improving-performance.html","id":"exercises-24.4.3","chapter":"24 Improving performance","heading":"24.2 Exercises 24.4.3","text":"Q1. ’s difference rowSums() .rowSums()?A1. documentation functions state:versions initial dot name (.colSums() etc) ‘bare-bones’ versions use programming: apply numeric (like) matrices name result.Looking source code,rowSums() function number checks validate arguments acceptable.rowSums() directly proceeds computation using internal code built R interpreterBut comparable performance:Q2. Make faster version chisq.test() computes chi-square test statistic input two numeric vectors missing values. can try simplifying chisq.test() coding mathematical definition.A2. function supposed accept two numeric vectors without missing values, can make chisq.test() less work removing code corresponding following :checks data frame matrix inputsgoodness--fit testsimulating p-valueschecking missing valuesThis leaves us much simpler, bare bones implementation:, indeed, custom function performs slightly better8 base equivalent:Q3. Can make faster version table() case input two integer vectors missing values? Can use speed chi-square test?A3. order make leaner version table(), can take similar approach trim unnecessary input checks light new API accepting just two vectors without missing values. can remove following components code:extracting data objects entered ... argumentdealing missing valuesother input validation checksIn addition removal, can also use fastmatch::fmatch() instead match():custom function indeed performs slightly better:can also use function custom chi-squared test function see performance improves :, indeed, new version custom function performs even better previously :","code":"\nrowSums\n#> function (x, na.rm = FALSE, dims = 1L) \n#> {\n#>     if (is.data.frame(x)) \n#>         x <- as.matrix(x)\n#>     if (!is.array(x) || length(dn <- dim(x)) < 2L) \n#>         stop(\"'x' must be an array of at least two dimensions\")\n#>     if (dims < 1L || dims > length(dn) - 1L) \n#>         stop(\"invalid 'dims'\")\n#>     p <- prod(dn[-(id <- seq_len(dims))])\n#>     dn <- dn[id]\n#>     z <- if (is.complex(x)) \n#>         .Internal(rowSums(Re(x), prod(dn), p, na.rm)) + (0+1i) * \n#>             .Internal(rowSums(Im(x), prod(dn), p, na.rm))\n#>     else .Internal(rowSums(x, prod(dn), p, na.rm))\n#>     if (length(dn) > 1L) {\n#>         dim(z) <- dn\n#>         dimnames(z) <- dimnames(x)[id]\n#>     }\n#>     else names(z) <- dimnames(x)[[1L]]\n#>     z\n#> }\n#> <bytecode: 0x5590046cd1a8>\n#> <environment: namespace:base>\n.rowSums\n#> function (x, m, n, na.rm = FALSE) \n#> .Internal(rowSums(x, m, n, na.rm))\n#> <bytecode: 0x55900cb4b718>\n#> <environment: namespace:base>\nx <- cbind(x1 = 3, x2 = c(4:1e4, 2:1e5))\n\nbench::mark(\n  \"rowSums\" = rowSums(x),\n  \".rowSums\" = .rowSums(x, dim(x)[[1]], dim(x)[[2]])\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 rowSums       819µs   1.28ms      888.     859KB\n#> 2 .rowSums      817µs   1.28ms      816.     859KB\nmy_chisq_test <- function(x, y) {\n  x <- table(x, y)\n  n <- sum(x)\n\n  nr <- as.integer(nrow(x))\n  nc <- as.integer(ncol(x))\n\n  sr <- rowSums(x)\n  sc <- colSums(x)\n  E <- outer(sr, sc, \"*\") / n\n  v <- function(r, c, n) c * r * (n - r) * (n - c) / n^3\n  V <- outer(sr, sc, v, n)\n  dimnames(E) <- dimnames(x)\n\n  STATISTIC <- sum((abs(x - E))^2 / E)\n  PARAMETER <- (nr - 1L) * (nc - 1L)\n  PVAL <- pchisq(STATISTIC, PARAMETER, lower.tail = FALSE)\n\n  names(STATISTIC) <- \"X-squared\"\n  names(PARAMETER) <- \"df\"\n\n  structure(\n    list(\n      statistic = STATISTIC,\n      parameter = PARAMETER,\n      p.value = PVAL,\n      method = \"Pearson's Chi-squared test\",\n      observed = x,\n      expected = E,\n      residuals = (x - E) / sqrt(E),\n      stdres = (x - E) / sqrt(V)\n    ),\n    class = \"htest\"\n  )\n}\nm <- c(rep(\"a\", 1000), rep(\"b\", 9000))\nn <- c(rep(c(\"x\", \"y\"), 5000))\n\nbench::mark(\n  \"base\" = chisq.test(m, n)$statistic[[1]],\n  \"custom\" = my_chisq_test(m, n)$statistic[[1]]\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base          905µs    927µs     1076.    1.57MB\n#> 2 custom        706µs    724µs     1374.    1.13MB\nmy_table <- function(x, y) {\n  x_sorted <- sort(unique(x))\n  y_sorted <- sort(unique(y))\n\n  x_length <- length(x_sorted)\n  y_length <- length(y_sorted)\n\n  bin <-\n    fastmatch::fmatch(x, x_sorted) +\n    x_length * fastmatch::fmatch(y, y_sorted) -\n    x_length\n\n  y <- tabulate(bin, x_length * y_length)\n\n  y <- array(\n    y,\n    dim = c(x_length, y_length),\n    dimnames = list(x = x_sorted, y = y_sorted)\n  )\n\n  class(y) <- \"table\"\n  y\n}\nx <- c(rep(\"a\", 1000), rep(\"b\", 9000))\ny <- c(rep(c(\"x\", \"y\"), 5000))\n\n# `check = FALSE` because the custom function has an additional attribute:\n# \".match.hash\"\nbench::mark(\n  \"base\" = table(x, y),\n  \"custom\" = my_table(x, y),\n  check = FALSE\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base          635µs    652µs     1523.     960KB\n#> 2 custom        357µs    366µs     2687.     488KB\nmy_chisq_test2 <- function(x, y) {\n  x <- my_table(x, y)\n  n <- sum(x)\n\n  nr <- as.integer(nrow(x))\n  nc <- as.integer(ncol(x))\n\n  sr <- rowSums(x)\n  sc <- colSums(x)\n  E <- outer(sr, sc, \"*\") / n\n  v <- function(r, c, n) c * r * (n - r) * (n - c) / n^3\n  V <- outer(sr, sc, v, n)\n  dimnames(E) <- dimnames(x)\n\n  STATISTIC <- sum((abs(x - E))^2 / E)\n  PARAMETER <- (nr - 1L) * (nc - 1L)\n  PVAL <- pchisq(STATISTIC, PARAMETER, lower.tail = FALSE)\n\n  names(STATISTIC) <- \"X-squared\"\n  names(PARAMETER) <- \"df\"\n\n  structure(\n    list(\n      statistic = STATISTIC,\n      parameter = PARAMETER,\n      p.value = PVAL,\n      method = \"Pearson's Chi-squared test\",\n      observed = x,\n      expected = E,\n      residuals = (x - E) / sqrt(E),\n      stdres = (x - E) / sqrt(V)\n    ),\n    class = \"htest\"\n  )\n}\nm <- c(rep(\"a\", 1000), rep(\"b\", 9000))\nn <- c(rep(c(\"x\", \"y\"), 5000))\n\nbench::mark(\n  \"base\" = chisq.test(m, n)$statistic[[1]],\n  \"custom\" = my_chisq_test2(m, n)$statistic[[1]]\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression      min   median `itr/sec` mem_alloc\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 base          910µs    935µs     1061.    1.28MB\n#> 2 custom        422µs    431µs     2291.  594.45KB"},{"path":"improving-performance.html","id":"exercises-24.5.1","chapter":"24 Improving performance","heading":"24.3 Exercises 24.5.1","text":"Q1. density functions, e.g., dnorm(), common interface. arguments vectorised ? rnorm(10, mean = 10:1) ?A1. density function family following interface:Reading documentation reveals following parameters vectorized:\nx, q, p, mean, sd.means something like following work:, functions don’t multiple vectorized parameters, won’t. example,following function call generates 10 random numbers (since n = 10) 10 different distributions means supplied vector 10:1.Q2. Compare speed apply(x, 1, sum) rowSums(x) varying sizes x.A2. can write custom function vary number rows matrix extract data frame comparing performance two functions.Plotting data reveals rowSums(x) O(1) behavior, O(n) behavior.Q3. can use crossprod() compute weighted sum? much faster naive sum(x * w)?A3. functions provide way compute weighted sum:benchmarking performance reveals latter significantly faster former!","code":"\ndnorm(x, mean = 0, sd = 1, log = FALSE)\npnorm(q, mean = 0, sd = 1, lower.tail = TRUE, log.p = FALSE)\nqnorm(p, mean = 0, sd = 1, lower.tail = TRUE, log.p = FALSE)\nrnorm(n, mean = 0, sd = 1)\nrnorm(c(1, 2, 3), mean = c(0, -1, 5))\n#> [1] 1.124335 0.930398 3.844935\npnorm(c(1, 2, 3), mean = c(0, -1, 5), log.p = c(FALSE, TRUE, TRUE))\n#> [1] 0.84134475 0.99865010 0.02275013\nrnorm(n = 10, mean = 10:1)\n#>  [1]  8.2421770  9.3920474  7.1362118  7.5789906  5.2551688\n#>  [6]  6.0143714  4.6147891  1.1096247  2.8759129 -0.6756857\nbenc_perform <- function(nRow, nCol = 100) {\n  x <- matrix(data = rnorm(nRow * nCol), nrow = nRow, ncol = nCol)\n\n  bench::mark(\n    rowSums(x),\n    apply(x, 1, sum)\n  )[1:5]\n}\n\nnRowList <- list(10, 100, 500, 1000, 5000, 10000, 50000, 100000)\n\nnames(nRowList) <- as.character(nRowList)\n\nbenchDF <- map_dfr(\n  .x = nRowList,\n  .f = ~ benc_perform(.x),\n  .id = \"nRows\"\n) %>%\n  mutate(nRows = as.numeric(nRows))\nggplot(\n  benchDF,\n  aes(\n    x = as.numeric(nRows),\n    y = median,\n    group = as.character(expression),\n    color = as.character(expression)\n  )\n) +\n  geom_point() +\n  geom_line() +\n  labs(\n    x = \"Number of Rows\",\n    y = \"Median Execution Time\",\n    colour = \"Function used\"\n  )\nx <- c(1:6, 2, 3)\nw <- rnorm(length(x))\n\ncrossprod(x, w)[[1]]\n#> [1] 15.94691\nsum(x * w)[[1]]\n#> [1] 15.94691\nbench::mark(\n  crossprod(x, w)[[1]],\n  sum(x * w)[[1]],\n  iterations = 1e6\n)[1:5]\n#> # A tibble: 2 × 5\n#>   expression                min   median `itr/sec` mem_alloc\n#>   <bch:expr>           <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 crossprod(x, w)[[1]]    881ns    932ns  1003910.        0B\n#> 2 sum(x * w)[[1]]         470ns    521ns  1765588.        0B"},{"path":"rewriting-r-code-in-c.html","id":"rewriting-r-code-in-c","chapter":"25 Rewriting R code in C++","heading":"25 Rewriting R code in C++","text":"","code":"\nlibrary(Rcpp, warn.conflicts = FALSE)"},{"path":"rewriting-r-code-in-c.html","id":"getting-started-with-c-exercises-25.2.6","chapter":"25 Rewriting R code in C++","heading":"25.1 Getting started with C++ (Exercises 25.2.6)","text":"Q1. basics C++ hand, ’s now great time practice reading writing simple C++ functions. following functions, read code figure corresponding base R function . might understand every part code yet, able figure basics function .A1.f1() mean():f2() cumsum():f3() ():f4() Position():f5() pmin():Q2. practice function writing skills, convert following functions C++. now, assume inputs missing values.().().cumprod(), cummin(), cummax().cumprod(), cummin(), cummax().diff(). Start assuming lag 1, generalise lag n.diff(). Start assuming lag 1, generalise lag n.range().range().var(). Read approaches can take Wikipedia. Whenever implementing numerical algorithm, ’s always good check already known problem.var(). Read approaches can take Wikipedia. Whenever implementing numerical algorithm, ’s always good check already known problem.A2. performance benefits going observed function primitive since already tuned max R performance. , expect performance gain diff() var().()cumprod()cumminC()cummaxC()diff()range()var()","code":"#include <Rcpp.h>\nusing namespace Rcpp;\n\n// [[Rcpp::export]]\ndouble f1(NumericVector x) {\n  int n = x.size();\n  double y = 0;\n\n  for(int i = 0; i < n; ++i) {\n    y += x[i] / n;\n  }\n  return y;\n}\n\n// [[Rcpp::export]]\nNumericVector f2(NumericVector x) {\n  int n = x.size();\n  NumericVector out(n);\n\n  out[0] = x[0];\n  for(int i = 1; i < n; ++i) {\n    out[i] = out[i - 1] + x[i];\n  }\n  return out;\n}\n\n// [[Rcpp::export]]\nbool f3(LogicalVector x) {\n  int n = x.size();\n\n  for(int i = 0; i < n; ++i) {\n    if (x[i]) return true;\n  }\n  return false;\n}\n\n// [[Rcpp::export]]\nint f4(Function pred, List x) {\n  int n = x.size();\n\n  for(int i = 0; i < n; ++i) {\n    LogicalVector res = pred(x[i]);\n    if (res[0]) return i + 1;\n  }\n  return 0;\n}\n\n// [[Rcpp::export]]\nNumericVector f5(NumericVector x, NumericVector y) {\n  int n = std::max(x.size(), y.size());\n  NumericVector x1 = rep_len(x, n);\n  NumericVector y1 = rep_len(y, n);\n\n  NumericVector out(n);\n\n  for (int i = 0; i < n; ++i) {\n    out[i] = std::min(x1[i], y1[i]);\n  }\n\n  return out;\n}\nx <- c(1, 2, 3, 4, 5, 6)\n\nf1(x)\n#> [1] 3.5\nmean(x)\n#> [1] 3.5\nx <- c(1, 3, 5, 6)\n\nf2(x)\n#> [1]  1  4  9 15\ncumsum(x)\n#> [1]  1  4  9 15\nx1 <- c(TRUE, FALSE, FALSE, TRUE)\nx2 <- c(FALSE, FALSE)\n\nf3(x1)\n#> [1] TRUE\nany(x1)\n#> [1] TRUE\n\nf3(x2)\n#> [1] FALSE\nany(x2)\n#> [1] FALSE\nx <- list(\"a\", TRUE, \"m\", 2)\n\nf4(is.numeric, x)\n#> [1] 4\nPosition(is.numeric, x)\n#> [1] 4\nv1 <- c(1, 3, 4, 5, 6, 7)\nv2 <- c(1, 2, 7, 2, 8, 1)\n\nf5(v1, v2)\n#> [1] 1 2 4 2 6 1\npmin(v1, v2)\n#> [1] 1 2 4 2 6 1\nis.primitive(all)\n#> [1] TRUE\nis.primitive(cumprod)\n#> [1] TRUE\nis.primitive(diff)\n#> [1] FALSE\nis.primitive(range)\n#> [1] TRUE\nis.primitive(var)\n#> [1] FALSE#include <vector>\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nbool allC(std::vector<bool> x)\n{\n    for (const auto& xElement : x)\n    {\n        if (!xElement) return false;\n    }\n\n    return true;\n}\nv1 <- rep(TRUE, 10)\nv2 <- c(rep(TRUE, 5), rep(FALSE, 5))\n\nall(v1)\n#> [1] TRUE\nallC(v1)\n#> [1] TRUE\n\nall(v2)\n#> [1] FALSE\nallC(v2)\n#> [1] FALSE\n\n# performance benefits?\nbench::mark(\n  all(c(rep(TRUE, 1000), rep(FALSE, 1000))),\n  allC(c(rep(TRUE, 1000), rep(FALSE, 1000))),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression                                      min\n#>   <bch:expr>                                 <bch:tm>\n#> 1 all(c(rep(TRUE, 1000), rep(FALSE, 1000)))    6.07µs\n#> 2 allC(c(rep(TRUE, 1000), rep(FALSE, 1000)))   8.51µs\n#>     median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1   6.43µs   150391.    15.8KB        0\n#> 2   8.97µs   110025.    18.3KB        0#include <vector>\n\n// [[Rcpp::export]]\nstd::vector<double> cumprodC(const std::vector<double> &x)\n{\n    std::vector<double> out{x};\n\n    for (std::size_t i = 1; i < x.size(); i++)\n    {\n        out[i] = out[i - 1] * x[i];\n    }\n\n    return out;\n}\nv1 <- c(10, 4, 6, 8)\n\ncumprod(v1)\n#> [1]   10   40  240 1920\ncumprodC(v1)\n#> [1]   10   40  240 1920\n\n# performance benefits?\nbench::mark(\n  cumprod(v1),\n  cumprodC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 cumprod(v1)     100ns 120.14ns  7160964.        0B\n#> 2 cumprodC(v1)   1.41µs   1.52µs   546730.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <vector>\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> cumminC(const std::vector<double> &x)\n{\n    std::vector<double> out{x};\n\n    for (std::size_t i = 1; i < x.size(); i++)\n    {\n        out[i] = (out[i] < out[i - 1]) ? out[i] : out[i - 1];\n    }\n\n    return out;\n}\nv1 <- c(3:1, 2:0, 4:2)\n\ncummin(v1)\n#> [1] 3 2 1 1 1 0 0 0 0\ncumminC(v1)\n#> [1] 3 2 1 1 1 0 0 0 0\n\n# performance benefits?\nbench::mark(\n  cummin(v1),\n  cumminC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression       min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 cummin(v1)  129.92ns 149.94ns  5417261.        0B        0\n#> 2 cumminC(v1)   1.63µs   1.91µs   504042.    6.62KB        0#include <vector>\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> cummaxC(const std::vector<double> &x)\n{\n    std::vector<double> out{x};\n\n    for (std::size_t i = 1; i < x.size(); i++)\n    {\n        out[i] = (out[i] > out[i - 1]) ? out[i] : out[i - 1];\n    }\n    \n    return out;\n}\nv1 <- c(3:1, 2:0, 4:2)\n\ncummax(v1)\n#> [1] 3 3 3 3 3 3 4 4 4\ncummaxC(v1)\n#> [1] 3 3 3 3 3 3 4 4 4\n\n# performance benefits?\nbench::mark(\n  cummax(v1),\n  cummaxC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression       min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr>  <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 cummax(v1)  110.01ns 120.14ns  6575573.        0B        0\n#> 2 cummaxC(v1)   1.57µs   1.71µs   460131.    6.62KB        0#include <vector>\n#include <functional>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> diffC(const std::vector<double> &x, int lag)\n{\n    std::vector<double> vec_start;\n    std::vector<double> vec_lagged;\n    std::vector<double> vec_diff;\n\n    for (std::size_t i = lag; i < x.size(); i++)\n    {\n        vec_lagged.push_back(x[i]);\n    }\n\n    for (std::size_t i = 0; i < (x.size() - lag); i++)\n    {\n        vec_start.push_back(x[i]);\n    }\n\n    std::transform(\n        vec_lagged.begin(), vec_lagged.end(),\n        vec_start.begin(), std::back_inserter(vec_diff),\n        std::minus<double>());\n\n    return vec_diff;\n}\nv1 <- c(1, 2, 4, 8, 13)\nv2 <- c(1, 2, NA, 8, 13)\n\ndiff(v1, 2)\n#> [1] 3 6 9\ndiffC(v1, 2)\n#> [1] 3 6 9\n\ndiff(v2, 2)\n#> [1] NA  6 NA\ndiffC(v2, 2)\n#> [1] NA  6 NA\n\n# performance benefits?\nbench::mark(\n  diff(v1, 2),\n  diffC(v1, 2),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 diff(v1, 2)    3.78µs   4.35µs   218530.        0B\n#> 2 diffC(v1, 2)   1.98µs   2.19µs   440203.    2.49KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <iostream>\n#include <vector>\n#include <algorithm>\nusing namespace std;\n\n// [[Rcpp::export]]\nstd::vector<double> rangeC(std::vector<double> x)\n{\n    std::vector<double> rangeVec{0.0, 0.0};\n\n    rangeVec.at(0) = *std::min_element(x.begin(), x.end());\n    rangeVec.at(1) = *std::max_element(x.begin(), x.end());\n\n    return rangeVec;\n}\nv1 <- c(10, 4, 6, 8)\n\nrange(v1)\n#> [1]  4 10\nrangeC(v1)\n#> [1]  4 10\n\n# performance benefits?\nbench::mark(\n  range(v1),\n  rangeC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 range(v1)    1.64µs   1.82µs   521325.        0B        0\n#> 2 rangeC(v1)   1.48µs   1.67µs   571723.    6.62KB        0#include <vector>\n#include <cmath>\n#include <numeric>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\ndouble variance(std::vector<double> x)\n{\n    double sumSquared{0};\n\n    double mean = std::accumulate(x.begin(), x.end(), 0.0) / x.size();\n\n    for (const auto& xElement : x)\n    {\n        sumSquared += pow(xElement - mean, 2.0);\n    }\n\n    return sumSquared / (x.size() - 1);\n}\nv1 <- c(1, 4, 7, 8)\n\nvar(v1)\n#> [1] 10\nvariance(v1)\n#> [1] 10\n\n# performance benefits?\nbench::mark(\n  var(v1),\n  variance(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 var(v1)        7.46µs   8.36µs   116722.        0B\n#> 2 variance(v1)    1.5µs   1.66µs   571095.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0"},{"path":"rewriting-r-code-in-c.html","id":"missing-values-exercises-25.4.5","chapter":"25 Rewriting R code in C++","heading":"25.2 Missing values (Exercises 25.4.5)","text":"Q1. Rewrite functions Exercise 25.2.6 deal missing values. na.rm true, ignore missing values. na.rm false, return missing value input contains missing values. good functions practice min(), max(), range(), mean(), var().A1. create version range() deals missing values. principle applies others:Q2. Rewrite cumsum() diff() can handle missing values. Note functions slightly complicated behaviour.A2. cumsum() docs say:NA value x causes corresponding following elements return value NA, integer overflow cumsum (warning).Similarly, diff() docs say:NA’s propagate.Therefore, functions don’t allow removing missing values NAs propagate.seen examples , diffC() already behaves way.Similarly, cumsumC() propagates NAs well.","code":"#include <iostream>\n#include <vector>\n#include <algorithm>\n#include <math.h>\n#include <Rcpp.h>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<double> rangeC_NA(std::vector<double> x, bool removeNA = true)\n{\n    std::vector<double> rangeVec{0.0, 0.0};\n\n    bool naPresent = std::any_of(\n        x.begin(),\n        x.end(),\n        [](double d)\n        { return isnan(d); });\n\n    if (naPresent)\n    {\n        if (removeNA)\n        {\n            std::remove(x.begin(), x.end(), NAN);\n        }\n        else\n        {\n            rangeVec.at(0) = NA_REAL; // NAN;\n            rangeVec.at(1) = NA_REAL; // NAN;\n\n            return rangeVec;\n        }\n    }\n\n    rangeVec.at(0) = *std::min_element(x.begin(), x.end());\n    rangeVec.at(1) = *std::max_element(x.begin(), x.end());\n\n    return rangeVec;\n}\nv1 <- c(10, 4, NA, 6, 8)\n\nrange(v1, na.rm = FALSE)\n#> [1] NA NA\nrangeC_NA(v1, FALSE)\n#> [1] NA NA\n\nrange(v1, na.rm = TRUE)\n#> [1]  4 10\nrangeC_NA(v1, TRUE)\n#> [1]  4 10#include <Rcpp.h>\nusing namespace Rcpp;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nNumericVector cumsumC(NumericVector x) {\n  int n = x.size();\n  NumericVector out(n);\n  \n  out[0] = x[0];\n  for(int i = 1; i < n; ++i) {\n    out[i] = out[i - 1] + x[i];\n  }\n  \n  return out;\n}\nv1 <- c(1, 2, 3, 4)\nv2 <- c(1, 2, NA, 4)\n\ncumsum(v1)\n#> [1]  1  3  6 10\ncumsumC(v1)\n#> [1]  1  3  6 10\n\ncumsum(v2)\n#> [1]  1  3 NA NA\ncumsumC(v2)\n#> [1]  1  3 NA NA"},{"path":"rewriting-r-code-in-c.html","id":"standard-template-library-exercises-25.5.7","chapter":"25 Rewriting R code in C++","heading":"25.3 Standard Template Library (Exercises 25.5.7)","text":"Q1. practice using STL algorithms data structures, implement following using R functions C++, using hints provided:A1.median.default() using partial_sort.%% using unordered_set find() count() methods.unique() using unordered_set (challenge: one line!).Note functions comparable. far can see, way get output R version function using unordered_set data structure.can make comparable version using set data structure:min() using std::min(), max() using std::max()..min() using min_element, .max() using max_element.setdiff(), union(), intersect() integers using sorted ranges set_union, set_intersection set_difference.Note following C++ implementations given functions strictly equivalent R versions. far can see, way identical satisfying specifications mentioned question.union()intersect()setdiff()","code":"#include <iostream>\n#include <vector>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\ndouble medianC(std::vector<double> &x)\n{\n    int middleIndex = static_cast<int>(x.size() / 2);\n\n    std::partial_sort(x.begin(), x.begin() + middleIndex, x.end());\n\n    // for even number of observations\n    if (x.size() % 2 == 0)\n    {\n        return (x[middleIndex - 1] + x[middleIndex]) / 2;\n    }\n\n    return x[middleIndex];\n}\nv1 <- c(1, 3, 3, 6, 7, 8, 9)\nv2 <- c(1, 2, 3, 4, 5, 6, 8, 9)\n\nmedian.default(v1)\n#> [1] 6\nmedianC(v1)\n#> [1] 6\n\nmedian.default(v2)\n#> [1] 4.5\nmedianC(v2)\n#> [1] 4.5\n\n# performance benefits?\nbench::mark(\n  median.default(v2),\n  medianC(v2),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression              min   median `itr/sec` mem_alloc\n#>   <bch:expr>         <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 median.default(v2)  21.85µs   23.4µs    39476.        0B\n#> 2 medianC(v2)          1.53µs    1.7µs   558136.    2.49KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <vector>\n#include <unordered_set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::vector<bool> matchC(const std::vector<double> &x, const std::vector<double> &table)\n{\n    std::unordered_set<double> tableUnique(table.begin(), table.end());\n    std::vector<bool> out;\n\n    for (const auto &xElem : x)\n    {\n        out.push_back(tableUnique.find(xElem) != tableUnique.end() ? true : false);\n    }\n\n    return out;\n}\nx1 <- c(3, 4, 8)\nx2 <- c(1, 2, 3, 3, 4, 4, 5, 6)\n\nx1 %in% x2\n#> [1]  TRUE  TRUE FALSE\nmatchC(x1, x2)\n#> [1]  TRUE  TRUE FALSE\n\n# performance benefits?\nbench::mark(\n  x1 %in% x2,\n  matchC(x1, x2),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression          min   median `itr/sec` mem_alloc\n#>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 x1 %in% x2     910.95ns   1.15µs   825593.        0B\n#> 2 matchC(x1, x2)   2.18µs    2.4µs   405689.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <unordered_set>\n#include <vector>\n#include <iostream>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::unordered_set<double> uniqueC(const std::vector<double> &x)\n{\n    std::unordered_set<double> xSet(x.begin(), x.end());\n\n    return xSet;\n}\nv1 <- c(1, 3, 3, 6, 7, 8, 9)\n\nunique(v1)\n#> [1] 1 3 6 7 8 9\nuniqueC(v1)\n#> [1] 9 8 7 6 3 1#include <set>\n#include <vector>\n#include <iostream>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<double> uniqueC2(const std::vector<double> &x)\n{\n    std::set<double> xSet(x.begin(), x.end());\n\n    return xSet;\n}\nv1 <- c(1, 3, 3, 6, 7, 8, 9)\n\nunique(v1)\n#> [1] 1 3 6 7 8 9\nuniqueC2(v1)\n#> [1] 1 3 6 7 8 9\n\n# performance benefits?\nbench::mark(\n  unique(v1),\n  uniqueC2(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression        min   median `itr/sec` mem_alloc\n#>   <bch:expr>   <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 unique(v1)     2.17µs   2.42µs   392256.        0B\n#> 2 uniqueC2(v1)   1.69µs   1.93µs   483192.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <iostream>\n#include <vector>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nconst double minC(const std::vector<double> &x)\n{\n     return *std::min_element(x.begin(), x.end());\n}\n\n// [[Rcpp::export]]\nconst double maxC(std::vector<double> x)\n{\n     return *std::max_element(x.begin(), x.end());\n}\nv1 <- c(3, 3, 6, 1, 9, 7, 8)\n\nmin(v1)\n#> [1] 1\nminC(v1)\n#> [1] 1\n\n# performance benefits?\nbench::mark(\n  min(v1),\n  minC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 min(v1)    220.03ns 240.98ns  3543775.        0B        0\n#> 2 minC(v1)     1.38µs   1.51µs   626236.    6.62KB        0\n\nmax(v1)\n#> [1] 9\nmaxC(v1)\n#> [1] 9\n\n# performance benefits?\nbench::mark(\n  max(v1),\n  maxC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression      min   median `itr/sec` mem_alloc `gc/sec`\n#>   <bch:expr> <bch:tm> <bch:tm>     <dbl> <bch:byt>    <dbl>\n#> 1 max(v1)    230.97ns 250.99ns  3388107.        0B        0\n#> 2 maxC(v1)     1.42µs   1.61µs   577581.    6.62KB        0#include <vector>\n#include <algorithm>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nint which_maxC(std::vector<double> &x)\n{\n    int maxIndex = std::distance(x.begin(), std::max_element(x.begin(), x.end()));\n  \n    // R is 1-index based, while C++ is 0-index based\n    return maxIndex + 1;\n}\n\n// [[Rcpp::export]]\nint which_minC(std::vector<double> &x)\n{\n    int minIndex = std::distance(x.begin(), std::min_element(x.begin(), x.end()));\n  \n    // R is 1-index based, while C++ is 0-index based\n    return minIndex + 1;\n}\nv1 <- c(3, 3, 6, 1, 9, 7, 8)\n\nwhich.min(v1)\n#> [1] 4\nwhich_minC(v1)\n#> [1] 4\n\n# performance benefits?\nbench::mark(\n  which.min(v1),\n  which_minC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression          min   median `itr/sec` mem_alloc\n#>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 which.min(v1)   390.1ns 411.06ns  2144208.        0B\n#> 2 which_minC(v1)    1.4µs   1.61µs   594433.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0\n\nwhich.max(v1)\n#> [1] 5\nwhich_maxC(v1)\n#> [1] 5\n\n# performance benefits?\nbench::mark(\n  which.max(v1),\n  which_maxC(v1),\n  iterations = 100\n)\n#> # A tibble: 2 × 6\n#>   expression          min   median `itr/sec` mem_alloc\n#>   <bch:expr>     <bch:tm> <bch:tm>     <dbl> <bch:byt>\n#> 1 which.max(v1)  381.03ns 401.05ns  2223966.        0B\n#> 2 which_maxC(v1)   1.42µs   1.55µs   615294.    6.62KB\n#>   `gc/sec`\n#>      <dbl>\n#> 1        0\n#> 2        0#include <algorithm>\n#include <iostream>\n#include <vector>\n#include <set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<int> unionC(std::vector<int> &v1, std::vector<int> &v2)\n{\n    std::sort(v1.begin(), v1.end());\n    std::sort(v2.begin(), v2.end());\n\n    std::vector<int> union_vec(v1.size() + v2.size());\n    auto it = std::set_union(v1.begin(), v1.end(), v2.begin(), v2.end(), union_vec.begin());\n\n    union_vec.resize(it - union_vec.begin());\n    std::set<int> union_set(union_vec.begin(), union_vec.end());\n\n    return union_set;\n}\nv1 <- c(1, 4, 5, 5, 5, 6, 2)\nv2 <- c(4, 1, 6, 8)\n\nunion(v1, v2)\n#> [1] 1 4 5 6 2 8\nunionC(v1, v2)\n#> [1] 1 2 4 5 6 8#include <algorithm>\n#include <iostream>\n#include <vector>\n#include <set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<int> intersectC(std::vector<int> &v1, std::vector<int> &v2)\n{\n    std::sort(v1.begin(), v1.end());\n    std::sort(v2.begin(), v2.end());\n\n    std::vector<int> union_vec(v1.size() + v2.size());\n    auto it = std::set_intersection(v1.begin(), v1.end(), v2.begin(), v2.end(), union_vec.begin());\n\n    union_vec.resize(it - union_vec.begin());\n    std::set<int> union_set(union_vec.begin(), union_vec.end());\n\n    return union_set;\n}\nv1 <- c(1, 4, 5, 5, 5, 6, 2)\nv2 <- c(4, 1, 6, 8)\n\nintersect(v1, v2)\n#> [1] 1 4 6\nintersectC(v1, v2)\n#> [1] 1 4 6#include <algorithm>\n#include <iostream>\n#include <vector>\n#include <set>\nusing namespace std;\n// [[Rcpp::plugins(cpp11)]]\n\n// [[Rcpp::export]]\nstd::set<int> setdiffC(std::vector<int> &v1, std::vector<int> &v2)\n{\n    std::sort(v1.begin(), v1.end());\n    std::sort(v2.begin(), v2.end());\n\n    std::vector<int> union_vec(v1.size() + v2.size());\n    auto it = std::set_difference(v1.begin(), v1.end(), v2.begin(), v2.end(), union_vec.begin());\n\n    union_vec.resize(it - union_vec.begin());\n    std::set<int> union_set(union_vec.begin(), union_vec.end());\n\n    return union_set;\n}\nv1 <- c(1, 4, 5, 5, 5, 6, 2)\nv2 <- c(4, 1, 6, 8)\n\nsetdiff(v1, v2)\n#> [1] 5 2\nsetdiffC(v1, v2)\n#> [1] 2 5"},{"path":"rewriting-r-code-in-c.html","id":"session-information-18","chapter":"25 Rewriting R code in C++","heading":"25.4 Session information","text":"","code":"\nsessioninfo::session_info(include_base = TRUE)\n#> ─ Session info ───────────────────────────────────────────\n#>  setting  value\n#>  version  R version 4.3.2 (2023-10-31)\n#>  os       Ubuntu 22.04.3 LTS\n#>  system   x86_64, linux-gnu\n#>  ui       X11\n#>  language (EN)\n#>  collate  C.UTF-8\n#>  ctype    C.UTF-8\n#>  tz       UTC\n#>  date     2024-01-14\n#>  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)\n#> \n#> ─ Packages ───────────────────────────────────────────────\n#>  package     * version date (UTC) lib source\n#>  base        * 4.3.2   2023-11-01 [3] local\n#>  bench         1.1.3   2023-05-04 [1] RSPM\n#>  bookdown      0.37    2023-12-01 [1] RSPM\n#>  bslib         0.6.1   2023-11-28 [1] RSPM\n#>  cachem        1.0.8   2023-05-01 [1] RSPM\n#>  cli           3.6.2   2023-12-11 [1] RSPM\n#>  compiler      4.3.2   2023-11-01 [3] local\n#>  datasets    * 4.3.2   2023-11-01 [3] local\n#>  digest        0.6.34  2024-01-11 [1] RSPM\n#>  downlit       0.4.3   2023-06-29 [1] RSPM\n#>  evaluate      0.23    2023-11-01 [1] RSPM\n#>  fansi         1.0.6   2023-12-08 [1] RSPM\n#>  fastmap       1.1.1   2023-02-24 [1] RSPM\n#>  fs            1.6.3   2023-07-20 [1] RSPM\n#>  glue          1.7.0   2024-01-09 [1] RSPM\n#>  graphics    * 4.3.2   2023-11-01 [3] local\n#>  grDevices   * 4.3.2   2023-11-01 [3] local\n#>  htmltools     0.5.7   2023-11-03 [1] RSPM\n#>  jquerylib     0.1.4   2021-04-26 [1] RSPM\n#>  jsonlite      1.8.8   2023-12-04 [1] RSPM\n#>  knitr         1.45    2023-10-30 [1] RSPM\n#>  lifecycle     1.0.4   2023-11-07 [1] RSPM\n#>  magrittr    * 2.0.3   2022-03-30 [1] RSPM\n#>  memoise       2.0.1   2021-11-26 [1] RSPM\n#>  methods     * 4.3.2   2023-11-01 [3] local\n#>  pillar        1.9.0   2023-03-22 [1] RSPM\n#>  pkgconfig     2.0.3   2019-09-22 [1] RSPM\n#>  profmem       0.6.0   2020-12-13 [1] RSPM\n#>  R6            2.5.1   2021-08-19 [1] RSPM\n#>  Rcpp        * 1.0.12  2024-01-09 [1] RSPM\n#>  rlang         1.1.3   2024-01-10 [1] RSPM\n#>  rmarkdown     2.25    2023-09-18 [1] RSPM\n#>  sass          0.4.8   2023-12-06 [1] RSPM\n#>  sessioninfo   1.2.2   2021-12-06 [1] RSPM\n#>  stats       * 4.3.2   2023-11-01 [3] local\n#>  tibble        3.2.1   2023-03-20 [1] RSPM\n#>  tools         4.3.2   2023-11-01 [3] local\n#>  utf8          1.2.4   2023-10-22 [1] RSPM\n#>  utils       * 4.3.2   2023-11-01 [3] local\n#>  vctrs         0.6.5   2023-12-01 [1] RSPM\n#>  withr         2.5.2   2023-10-30 [1] RSPM\n#>  xfun          0.41    2023-11-01 [1] RSPM\n#>  xml2          1.3.6   2023-12-04 [1] RSPM\n#>  yaml          2.3.8   2023-12-11 [1] RSPM\n#> \n#>  [1] /home/runner/work/_temp/Library\n#>  [2] /opt/R/4.3.2/lib/R/site-library\n#>  [3] /opt/R/4.3.2/lib/R/library\n#> \n#> ──────────────────────────────────────────────────────────"}]
diff --git a/subsetting.html b/subsetting.html
index 66daf2fe..6472bdcf 100644
--- a/subsetting.html
+++ b/subsetting.html
@@ -417,7 +417,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -429,13 +429,13 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fansi         1.0.6   2023-12-08 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -449,7 +449,7 @@ <h2>
 <span><span class="co">#&gt;  pillar        1.9.0   2023-03-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  pkgconfig     2.0.3   2019-09-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -500,7 +500,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/trade-offs.html b/trade-offs.html
index 2f94da85..c8ff29fc 100644
--- a/trade-offs.html
+++ b/trade-offs.html
@@ -111,7 +111,7 @@ <h1>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/translation.html b/translation.html
index b3179d9e..1d15892f 100644
--- a/translation.html
+++ b/translation.html
@@ -338,7 +338,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -350,13 +350,13 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fansi         1.0.6   2023-12-08 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fs            1.6.3   2023-07-20 [1] RSPM</span></span>
-<span><span class="co">#&gt;  glue          1.6.2   2022-02-24 [1] RSPM</span></span>
+<span><span class="co">#&gt;  glue          1.7.0   2024-01-09 [1] RSPM</span></span>
 <span><span class="co">#&gt;  graphics    * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  grDevices   * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  htmltools     0.5.7   2023-11-03 [1] RSPM</span></span>
@@ -370,7 +370,7 @@ <h2>
 <span><span class="co">#&gt;  pillar        1.9.0   2023-03-22 [1] RSPM</span></span>
 <span><span class="co">#&gt;  purrr       * 1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang       * 1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang       * 1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -419,7 +419,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">
diff --git a/vectors.html b/vectors.html
index c36718dc..928c911e 100644
--- a/vectors.html
+++ b/vectors.html
@@ -244,7 +244,7 @@ <h2>
 <span><span class="co">#&gt;     names(object) &lt;- nm</span></span>
 <span><span class="co">#&gt;     object</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55c0caac1880&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x562d125057d0&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:stats&gt;</span></span></code></pre></div>
 <p>Given this function signature, we can see why, when no first argument is given, the result is still a named vector.</p>
 <div class="sourceCode" id="cb46"><pre class="downlit sourceCode r">
@@ -268,7 +268,7 @@ <h2>
 <span><span class="co">#&gt;         dimnames(obj) &lt;- NULL</span></span>
 <span><span class="co">#&gt;     obj</span></span>
 <span><span class="co">#&gt; }</span></span>
-<span><span class="co">#&gt; &lt;bytecode: 0x55c0c9ecc578&gt;</span></span>
+<span><span class="co">#&gt; &lt;bytecode: 0x562d11912230&gt;</span></span>
 <span><span class="co">#&gt; &lt;environment: namespace:base&gt;</span></span></code></pre></div>
 <p><code><a href="https://rdrr.io/r/base/unname.html">unname()</a></code> removes existing names (or dimnames) by setting them to <code>NULL</code>.</p>
 <div class="sourceCode" id="cb48"><pre class="downlit sourceCode r">
@@ -804,7 +804,7 @@ <h2>
 <span><span class="co">#&gt;  collate  C.UTF-8</span></span>
 <span><span class="co">#&gt;  ctype    C.UTF-8</span></span>
 <span><span class="co">#&gt;  tz       UTC</span></span>
-<span><span class="co">#&gt;  date     2024-01-07</span></span>
+<span><span class="co">#&gt;  date     2024-01-14</span></span>
 <span><span class="co">#&gt;  pandoc   3.1.8 @ /usr/bin/ (via rmarkdown)</span></span>
 <span><span class="co">#&gt; </span></span>
 <span><span class="co">#&gt; ─ Packages ───────────────────────────────────────────────</span></span>
@@ -816,7 +816,7 @@ <h2>
 <span><span class="co">#&gt;  cli           3.6.2   2023-12-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  compiler      4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  datasets    * 4.3.2   2023-11-01 [3] local</span></span>
-<span><span class="co">#&gt;  digest        0.6.33  2023-07-07 [1] RSPM</span></span>
+<span><span class="co">#&gt;  digest        0.6.34  2024-01-11 [1] RSPM</span></span>
 <span><span class="co">#&gt;  downlit       0.4.3   2023-06-29 [1] RSPM</span></span>
 <span><span class="co">#&gt;  evaluate      0.23    2023-11-01 [1] RSPM</span></span>
 <span><span class="co">#&gt;  fastmap       1.1.1   2023-02-24 [1] RSPM</span></span>
@@ -833,7 +833,7 @@ <h2>
 <span><span class="co">#&gt;  methods     * 4.3.2   2023-11-01 [3] local</span></span>
 <span><span class="co">#&gt;  purrr         1.0.2   2023-08-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  R6            2.5.1   2021-08-19 [1] RSPM</span></span>
-<span><span class="co">#&gt;  rlang         1.1.2   2023-11-04 [1] RSPM</span></span>
+<span><span class="co">#&gt;  rlang         1.1.3   2024-01-10 [1] RSPM</span></span>
 <span><span class="co">#&gt;  rmarkdown     2.25    2023-09-18 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sass          0.4.8   2023-12-06 [1] RSPM</span></span>
 <span><span class="co">#&gt;  sessioninfo   1.2.2   2021-12-06 [1] RSPM</span></span>
@@ -885,7 +885,7 @@ <h2>
 <footer class="bg-primary text-light mt-5"><div class="container"><div class="row">
 
   <div class="col-12 col-md-6 mt-3">
-    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-07.</p>
+    <p>"<strong>Advanced R Exercises</strong>" was written by <a class="text-light" href="https://sites.google.com/site/indrajeetspatilmorality/">Indrajeet Patil</a>. It was last built on 2024-01-14.</p>
   </div>
 
   <div class="col-12 col-md-6 mt-3">