From 922af47ae7c2d9a34b4e38ec3f1f88a8a6e8e764 Mon Sep 17 00:00:00 2001
From: sambtalcott <57906601+sambtalcott@users.noreply.github.com>
Date: Thu, 22 Feb 2024 16:33:45 +0000
Subject: [PATCH] =?UTF-8?q?Deploying=20to=20gh-pages=20from=20@=20tntp/tnt?=
 =?UTF-8?q?pr@cfb1135bf7dc1e828400a070f422f80558668a3c=20=F0=9F=9A=80?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 404.html                                      |   2 +-
 LICENSE.html                                  |   2 +-
 articles/index.html                           |   2 +-
 articles/visualization-cookbook.html          |   6 ++---
 authors.html                                  |   6 ++---
 index.html                                    |   4 ++--
 pkgdown.yml                                   |   2 +-
 reference/SegoeUI.html                        |   2 +-
 reference/bar_chart_counts-1.png              | Bin 25736 -> 25750 bytes
 reference/bar_chart_counts-2.png              | Bin 42791 -> 42744 bytes
 reference/bar_chart_counts.html               |  22 ++++--------------
 reference/check_all_count.html                |   2 +-
 reference/check_all_recode.html               |   2 +-
 reference/choose_text_color.html              |   2 +-
 reference/colors_tntp.html                    |   2 +-
 reference/colors_tntp_likert.html             |   2 +-
 .../colors_tntp_likert_orange_to_green.html   |   2 +-
 reference/colors_tntp_palette.html            |   2 +-
 reference/date_to_sy.html                     |   2 +-
 reference/dot-onAttach.html                   |   2 +-
 reference/factorize_df.html                   |   2 +-
 reference/fake_county.html                    |   2 +-
 reference/figureN.html                        |   2 +-
 reference/get_usable_family.html              |   2 +-
 reference/header_tntp.html                    |   2 +-
 reference/import_segoe_ui.html                |   2 +-
 reference/index.html                          |   2 +-
 reference/is_color.html                       |   2 +-
 reference/labelled_to_factors.html            |   2 +-
 reference/palette_names.html                  |   2 +-
 reference/palette_tntp.html                   |   2 +-
 reference/palette_tntp_scales.html            |   2 +-
 reference/parse_date.html                     |   2 +-
 reference/prop_matching.html                  |   2 +-
 reference/recode_to_binary.html               |   2 +-
 reference/scale_colour_tntp.html              |   2 +-
 reference/scale_fill_tntp.html                |   2 +-
 reference/set_data_memo_formatting.html       |   2 +-
 reference/setup_repo.html                     |   2 +-
 reference/setup_subdirectory.html             |   2 +-
 reference/show_in_excel.html                  |   2 +-
 reference/standardize_case.html               |   2 +-
 reference/tableN.html                         |   2 +-
 reference/teacher_survey.html                 |   2 +-
 reference/theme_tntp.html                     |   2 +-
 reference/theme_tntp_2018.html                |   2 +-
 reference/tntp_colors.html                    |   2 +-
 reference/tntp_cred.html                      |   2 +-
 reference/tntp_palette.html                   |   2 +-
 reference/tntp_style.html                     |   2 +-
 reference/tntpr.html                          |   2 +-
 reference/update_geom_font_defaults.html      |   2 +-
 reference/update_tntpr.html                   |   2 +-
 reference/wisc.html                           |   2 +-
 search.json                                   |   2 +-
 55 files changed, 61 insertions(+), 75 deletions(-)

diff --git a/404.html b/404.html
index e8aa0f0..7ce5341 100644
--- a/404.html
+++ b/404.html
@@ -31,7 +31,7 @@
     
     <a class="navbar-brand me-2" href="https://tntp.github.io/tntpr/index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/LICENSE.html b/LICENSE.html
index ca5b39f..3612c6d 100644
--- a/LICENSE.html
+++ b/LICENSE.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/index.html b/articles/index.html
index e95fcb1..15f7232 100644
--- a/articles/index.html
+++ b/articles/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/articles/visualization-cookbook.html b/articles/visualization-cookbook.html
index 82133fc..c744b6a 100644
--- a/articles/visualization-cookbook.html
+++ b/articles/visualization-cookbook.html
@@ -33,7 +33,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -186,8 +186,8 @@ <h4 id="setting-font-family-and-font-sizes">Setting font family and font sizes<a
 Halyard fonts, using the <code>extrafont</code> package before they are
 available to R. Follow these steps to import fonts:</p>
 <ol style="list-style-type: decimal">
-<li>Download the Halyard Display Fonts in .ttf forms from the <a href="https://tntp.sharepoint.com/sites/DataAnalytics/Shared%20Documents/Forms/AllItems.aspx" class="external-link">Data
-Analytics Sharepoint</a> under the “Fonts” category.</li>
+<li>Download the Halyard Display Fonts in .ttf forms from the Data
+Analytics Sharepoint Document Library under the “Fonts” category.</li>
 <li>Open the fonts folder on your laptop (Settings -&gt; Personalization
 -&gt; Fonts) and drag and drop the Halyard Fonts there to install them
 on your computer.</li>
diff --git a/authors.html b/authors.html
index 4b5c1c8..9cf50e0 100644
--- a/authors.html
+++ b/authors.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -61,13 +61,13 @@ <h2 id="citation">Citation</h2>
 
       <p>Firke S, Russ J, Spurrier A, Pashouwer D, Mullan K, Orr S, Talcott S (2024).
 <em>tntpr: Data Analysis Tools Customized for TNTP</em>.
-R package version 0.2.2, https://tntp.github.io/tntpr/, <a href="https://github.com/tntp/tntpr" class="external-link">https://github.com/tntp/tntpr</a>. 
+R package version 1.0.0, https://tntp.github.io/tntpr/, <a href="https://github.com/tntp/tntpr" class="external-link">https://github.com/tntp/tntpr</a>. 
 </p>
       <pre>@Manual{,
   title = {tntpr: Data Analysis Tools Customized for TNTP},
   author = {Sam Firke and Jake Russ and Alex Spurrier and Dustin Pashouwer and Kate Mullan and Shane Orr and Sam Talcott},
   year = {2024},
-  note = {R package version 0.2.2, https://tntp.github.io/tntpr/},
+  note = {R package version 1.0.0, https://tntp.github.io/tntpr/},
   url = {https://github.com/tntp/tntpr},
 }</pre>
     </div>
diff --git a/index.html b/index.html
index 2fa85dd..21a70e2 100644
--- a/index.html
+++ b/index.html
@@ -39,7 +39,7 @@
     
     <a class="navbar-brand me-2" href="index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -77,7 +77,7 @@
 </nav><div class="container template-home">
 <div class="row">
   <main id="main" class="col-md-9">
-<p><a href="https://www.tntp.org" target="_blank" class="external-link"> <img src="reference/figures/logo.png" width="70" height="70" alt="TNTP logo"></a></p>
+<p><a href="https://tntp.org" target="_blank" class="external-link"> <img src="reference/figures/logo.png" width="70" height="70" alt="TNTP logo"></a></p>
 <div class="section level1">
 <div class="page-header">
 <img src="logo.png" class="logo" alt=""><h1 id="tntpr">tntpr<a class="anchor" aria-label="anchor" href="#tntpr"></a>
diff --git a/pkgdown.yml b/pkgdown.yml
index 93f0c79..0137fe6 100644
--- a/pkgdown.yml
+++ b/pkgdown.yml
@@ -3,7 +3,7 @@ pkgdown: 2.0.7
 pkgdown_sha: ~
 articles:
   visualization-cookbook: visualization-cookbook.html
-last_built: 2024-02-06T17:57Z
+last_built: 2024-02-22T16:33Z
 urls:
   reference: https://tntp.github.io/tntpr/reference
   article: https://tntp.github.io/tntpr/articles
diff --git a/reference/SegoeUI.html b/reference/SegoeUI.html
index baa85e4..9b418db 100644
--- a/reference/SegoeUI.html
+++ b/reference/SegoeUI.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/bar_chart_counts-1.png b/reference/bar_chart_counts-1.png
index b26bee570c38b23cf5ac79eee68a3ef53ed953a8..233e3fc6c90a9a0e898bd82695dbb4050c66a56c 100644
GIT binary patch
literal 25750
zcmeIbbySwy*EagtEf%66Vxy#h0Z7;iDxj2-3Ifs~-B@5y1}TUbbSTpGpp=Awq%=r(
zcb#jY`+ML2&N$zAzwtZcob4EH@QM3g_gZt!dChBHbL}S*Vi(q}re95=P}YfDJbR5o
zS!Pb5EKymx9Iw=P1PtKEa+OOL&f+KjOrA-$!;e)47jGC*D2$He?;_XMK{X0x7e(ak
zDJgT`o;oYvE9LV!gX7+OJTJYSHf9UnJ)Wq1H>@-4)xMJBtIzHJ_Ui7lYm=)L-5(!(
z6(wc-^W19cX*$Wgqx28H>mI&KUF+j*WNT+WAkASkCN%A9Gv-}6JlHWfVf#Z#+vb;1
z#f|PSl}h=oqn4?Q7sf=P@QOXGTlDvLO2O{0YySSe{@i`KzrXHyx|H*uPj6YJ^!HbT
zgPT(R{@N(9&;0K-(gQ9I{JpgOndgnm{(i!7&;Q+pU)A(c>}LX%skU;TZr%&vW|fVU
zQczH^-?Mlqes+3X`-jg_QE~A~4|e$&&C&zCwTY6<V!jf3dU|hKyDOuj#_O#(S3X~S
zaxQCP)yl}5Hf<9+C(fv=2fldua-F+oWu%{ydDA1xxuuQ%7~d(6moMM@`tC^1pbW)I
z28ngP6c_rb9hDj=Xf-w=P3NycSt*b$e$rrBH&2d6&Gr<fsHW+b{L`x_6{{@ok2ijO
zpjDgjxpOGPVVz`Uq$2y1tmeUB%h4`}{0O;N(a)bhdt_25D<h+*b8;BDtc;9DUBJRT
zG#;0i8JHS=*jJ_DFFifh%YNz8P|OC((2A(au%GWQboa(L#GTl(@KLtr1a|u9FJF$D
zbV-eNR~Ge2P$=uUErxEtNS=7Tok#u7NXJiyJnOM4jZm2gIm{CIR`Z^o_32KPN>*1K
zX_(?ptfknWnVFmJr{__3s=Ku-(_G-q7pwWnDJJsShx8W?m<#T7Rk9hC#yn7XGdGJ1
z+%j89-lHsixOa0(NoOU?cwe2i**1#(hIs8tj)?1@zx5qn_`u4QIS0)5Z?8X2LvfpD
zlZ*M@x8cw0+j1DAO(QweCQdI|zE&dfZfno_Wt0u?wsI=zBwRjw_Tf&u8N)iu?g$pS
znBYBo_qN_mT)csC;j43oBde7}=!L8k>UL8or+@hz)n4oA&8_w{$*eze(|*zKy{0c~
z7wqXF+l8n`_YeKlc_mFvO;J(NXiVD4$GJa#lz)A&Vx9XTiMRGx_a$34;=+aIv!j*0
z>labJ-EWp15DgN)Fm9P@>bQuqlFM#()U$~@R;&El*|XQJ1sA4p=-wx<uaSz$GQ#sS
zU+QjQAWk{WTnd2_0jC!|UP=aPpT6?h(kNp~+9>ZQ0u)NS3RQ98<(Is+H1#}jdUc^$
z&*-|d8T4aLY?;`7;)Fabxh%fHHmp2MR=YXdncuX>>vwarbcEc|^6(pyKVBb~h1qOj
zWYkUa>#d1rJ$h7Hcy8i-MU--sVzOy2OzY0icPz?jDP3hD?+;w@2^RC?XTcLbvdc*S
zm1-65!Koa{WH)n_;kaHIeg-t>xUwEQCexblDLdL#UY=m6dQ_|I;*%#&OdVN8_>DW<
zN=i#(Z)Gh1`0=AAY%s5&pe)U1+PJIi(76j2!mfW-VYw0gfkis>0~R3kyfb~MLSi&l
zs&{>Zo6Yo?W^11NRFfl9jA8TnS=bhNn$=qlzJ0O(QmFOhkmcNDJ1rBFzFDx)uw`m>
zvRM?l8$L_!)?VmG?uIpT_w$Pg4n9bG=-OEfENLi@RXWwuL^|Z!IZTr5&v)l~=U5x}
zbU2<-*3*lO({G5x7SJAU`%(Sr)&tZ2`iNAk@vh>4GaABnt5&Td;}vyh`53L1AA0Sh
zC>d{_J8MuvLV|tfSf#R^W<#1y^%o6S)4tjeC#SW&)v=eR$NMYqEm<+r?r+zXes4)$
zVWAL%#@GAHq!SEo?LTk;m$=I!8|fP=8x^^lmgOK9*H1$l#l=<a8ft1}&O|R=Dvi^v
zdG-8xfZqu-Exf{SJClHQ*&kmM(a~{-mR(Nj+_SCHpH;G6d3gnsfnE0IW|0hZdP>I`
zIWb|LGg~9~<4H5~#DQ1SA`e|vb6hmDp3=%C8HZFv$Oo~@$93T8p1Qcm<i6N1{ZW**
zJW5&liqDa&n0(!;#cVu0lKCF&rQ*V~A4W!ub?cI(Z``=?^w~4XN2_V2@bRO%)l%!|
zk4Oyu&U&!ZpE^|Pdu?@*#s2W-q2(6C)elzCgr0h^d{Ia;7Mt9&h)K#d=RM|(K~Dp-
z^VHdSbaD!79dhG~x<hqBlLNyM&60iZ14Le68;94YS~0Njz!M$Sudg+bXXH07hNsgC
zF2Dtf7!EU@FukmwGUyO^+525jPme(N<EKxriHee4+&A2q-#pmyT0iaQGtRVNJm$m>
z{Tvs@qc_tjFon!^ZqJf<eP#CRpVB3~m9aZhsO{d=A}=o0k?DTww1VulYcCwuF$BUW
zm)WSq>((6m;deroN4=nUZg%=gWoeR$wn=xzm00b{IP14%QOd#@<L#%Zr7vPsvQ|59
z=gAIYzim6ww8EY3Mu|l7*S1khvJHNC^IU)@NsEq-zFa9CEU~-Jsy{VpcB}@gcaEz1
znoHH;yz5SzdVi}_rPj7K`pBZ*vEE6Imj|vKv6(W?7?powJ5hoN5h@*K`qjU+rDa<r
z=bk;^45+1HvYhL7@D>}$x98>MmCy*!yd7__Q*N*s_fs|zxmFdeR*nJhXJ!tA;XHlv
zgi9gkvuaL^#jtt=+)tQnl#G^EC^rw!tV^%LvejFPBjW2r$9ikRY-guD#It>i+nM-{
zFDhFPK2k6A4Y~6A*!HKR*J}0RyATYQucHq}R0vf{O%i=|aAWl5dV_7kv(pXp75dcK
zw&78PD7iH2M78l2n3+~t@bds}*m1=`QwF=HaB)u$bH-r3+^Bc{Gxu48Pt`Z5wy7ja
z*uaqrRl2*my~T8g!DfYAd43F8rV<mvlBji9?LBlz1lCnyQmJUBBpk0%v@?Ux`9xpB
z8P#kjE~#ufF)vBc!fmR%QXc+*tDhP!5+0pw_wRN&(f8@ZtKn^aXMIF2`ZkSPu8Y?=
zR^<QswYJuM>xD2%BRJwFzUmPV0^(>_Sd>=D2N9nmnlB=$b5oa;s5aB4qa8mpBu+Ou
z!D2Nl!f()XsXXjUY=7f+y*C=~604Ap*E_0kjGg_;c&(8uaivc-Gl!mivZ-Rl1Wmpt
zXXTe7p|GRc71ysdq*x3e(XSV9=TMZ}d%;EO?%im$aV%3#e?w<@IGf<iK!#lO?I-)W
zs(y5jYGI4fAJuvVZ=f#Xhp1bT`DF7^!{2B3@892<%j|zdfQ!#Fr+IKX%`d+)$!SFX
z-f3aq<E(ba1$MeNu?NgdiWR{lc1KYoy?HczBAZW}_WTOSeaWmn)RGGy{3>mJ&MKpI
zel*JN27T!xUtYu0aPgmo<|b6Lva&h{bC_fu*E6!c-r;!H->&8R#?+CLOP2kq<7^S*
zPQW+VVVB`3PE2b!GaRo-?oVTI8#{fkt~uxelZ{kelF9Jo6rQjn$lsRRS1Qp9E^GUo
z4YmD^6`SS>x6=XsE%iPc=Y)5Jo4POwN5XA0h*gUOy&TAJq^W$kYBTJA<e8B5nC$uU
z4wmD65iv1GGSo^-O3EVSkCz8uJ)@sCss25p!=wb>r<ZH_H_2Z;U#+rXWLNxrTpAG`
z$SUo$9ynDh@&X_%#A>|HN5Ep}T$J~5{Wm_x_4Qan3?iE{9JS#L<N8NuFrC2`!)<{F
znA_!2En^YkM**1RHvd|7TU|Z$k|#&fbYC+2^d2EHAOae&uZZvWsMOC!L^sY@cl_ZG
z&jAu6YxI(@0PDrDB~FV2LUh$8e&ILix;@z?tUy0&(7|sp^x=(FA0PZ^+0chal8nN(
z3gSYOA8^YnR}_})mav(FPcKU_Y_{KTHvC><n=mY=VBpl7sMIl^CQ}ae>KILjNKW~<
z@csH#OGOWkzO1bo7_ZT%hKRg85cndwotQp$f46-BZCjDQey&*y{$bo3Tj@|>eL%SI
z(8qz-vU>)0Ja2S%avHIa?i*~**}nFKePws~+fxsYsAjLd)MeHA(Q~9>er`NP*dIP>
zYP4HJgyF@=&kIbNE#IGelxvicCAw3*E59rM#}8=$xuY6|JMy~(ROe<UllqdnU-|fG
zS=7ys<a1Ixs<op=JKfz+lJLwPU;7T=r_`WoSHH(gW<XPzW+-d}@S8^THNi!Z$$k9n
z3JHe~_O_ahWCUo>PK}C+iB*(^NcOJZzfTRT0e>{r@!nO(b?*k7x#JDi?+g7-bmRTG
zhmJ-M^Ck{)b6*2AJ}%YfscieXrKueVWUZb5cy}e|zIugZH;HcM#P}xNrf-k5YT_bb
zeR?<i1T9C3;bhsu^s}9|i;9SR4i`ey+9_yxXRN2nqg?a6t*@kL)6uB21H5~_cHd1r
zV%#C&A7uwOFjLLIz2)IBT_oo35@+fM#Lco2OMi<tZ>r$W>7Fk|M^rLbUaD~uv$Nn(
zOe!0)<jlg(#$D)7nChJDViGX_L{>>eQ7K9m$oAc}Yu9Eh*{gzkdUQ;>%0&FFheV32
z1qjZ^x~q1k7jf)#y#PNLr&g3&TdOeIS;~Bq+Rf{1%WF)cO?;i{Yh|mvR=P6|Yq?_P
z1KbyvxA*`0d?wX$G&-hmhHXoZxLLhLP?M?9MB|bSwYl5^jaCnNy}{(VlPk+@Usy4`
z*~+01EMzma^g|ykzUW0tmM@>tV($7EADG{mfAh$qn=}zS^r$jr)7RF=OQZG?G(saV
zU@u<T*3#19e7t_8!P&#wc)Uf)!ie(HVqz}GbgMrsTC#lUhjk*B9RZH_qh-ssGht_@
zr^OUq6cPD}J=0_+SR_2365&q;cIXU?N?Wb<x~i%Q3o)quZX=7hT&hyka+;kw-EYtH
zr&c3DGK|aKPzVTDig+3X=TXDx@Lph|@j-Q}m6=4%+S~pOi1no=zpVp!Z2>u?kx8wK
z9c+88KjqhWcxts>vT5&HMixf4fLigp`WZ!lYCAu*L>f=^Hq$AYe~sb?KxP^!I_ocF
zGt%m*ygbI)F3;6S^iWEh`%0mledZraU-Bu7)B7F1b$>l0|CYwbH?v{sJ3b|i_f!$z
zzkH_H9?tK2+EDK`1bD_*rr3gQmAi~!O}hs}YtPUK-tM@qW0yLZ&EVl%v17Fo0Lj}q
zJ>|TK!Dij<*IQS>@-=|ZEW1L2de&z=--(%f8%Gx`WQXmr`%An*!pic&mr>7T3cn-#
zy9&?UITHQ_@qAtXJwPb4(%xlHH&2Q5>6%*%<uWg+&o1!hF=<R+B&jw()gAS=uIT1y
z(6u?gzb4Jc@>TxR%~NNr82Bb>8y>H`Q0L>uZ96mZHYNI~UTwlBEB-juob{#3fe3Tu
zB#|>b+h)@9i|ft`j<m_P*QYd@iwUxnRkFzHJ3L3SY=X_}Zl&*<x}`eSSC_9nX?q<`
z)fO@SZ7d!_*mvjkmgDDh#6Mp0lzD&Nd2KA0?Tq>RTYhRI62Y07B))m;ac=M}!Q$M?
z&SA3C39W_0`KIUV>)-zB+C%~CEt>ecMcc{|46gX{UPZG0eYl!<68(lW7Nr#P4ST+L
zM6tTx@<)<GG6NR*IGy4e7bhnvfJM1@y$Ei#yn_c0oX4J9v3^G}fJ-2kYPOfsvXP;D
z&M>3)LYC{F-WI79>U`6$pw5kQ)|oZfAQij@pFz8EV*vJDZv$01BqRizIGmfCdu_SJ
zK;tREzylwauk=(gd%?oYd;u}wh+-PhzGctn9H}5NMp{;xo*uyhxIq|uI5D)c-HWiB
z4;?x*HIPAbCC6bvO+#3R7GCj<pw-muQ@v+f*~=1*G=LmWA(a7U_b|3p?#Axd0<tBU
z(g?Do6~^4#n3$p%^i!@9Tuxy6hl?Bc@7vdbhmn<%Dy!mI4h#u+WAZz5Rd3ao3*a;=
zHT-P?0Zr?rk~cGp8JCSI&~*(vAJ9TFMrJiur|Ozo-m9ypPu~aZQ{eE#1%N7C7*7Nu
zKx>nvCr<aZOq5c@{!1R)=ET;~1st)Z=QVf>-_POSt^8T#5v=jb5AAx(ZuT>kK_5Om
zEVI}pMm+Cft*Mbthn%JrG&{?HXRgG1zk2lnTeut8O9m5+texbGy>MFoc5{gb#NV*F
z=BOsw@_0$gW%OC>?`ck0+OOuR7|85zeGM$haOc$3_vbrfE0xw5NLA#Evzlv{1qZ-r
z6huTs$U0)^*rXqpt=ZZkJU{8GX2m8GDkVbr6_Oe=F>!VpI|>4mIny7_D|^d@6d9`>
zzkhHtRIe_{N603LgE})rolVSdy@uq`1V-GAO;iaaciB$?Kr##;mqpSzmRN9q*_s%W
zZkY^Sg6|{)FJCPWl`fk0uIZHllrza;Gz-?PiK9QR=i79u08G<J`VtzF{~74W+-XQl
zt&Z1^3X4qY>e-cnOa@p69{*+9#P2nrr!MVu%^BnTO`^-l?KYrKNno?W*M}48^l-20
zD64}agbF~KBps!c`b^1aes;VY#v$Ba<hoNZ6aZwKRzLh-#Rrj>P7a-Snrdm16*zS3
zQzq{Vzdokx^TuZE#+hEEJe4Ko;th85so2pPN!B%Sx<^$qAAgyDGv8vGEFFHG3r2hy
zsefq(jc|B_?evu*fng_^@awmd>WuLA)w*P}%5}$U8;$G`CAVze{NBrJ8%!}+E><h4
z+2w>WoY1<R0@p8juyJk4K>i#7)GI&kJ`z+^1cn9nWvv$m;Ouk4EHX0T_tQ0VwXJs#
z?b&l0skrFHi-hx$qT1S!bi>1VDs})F>TJXOtUo|&v)hSqmJO$MXQZN(1l<o_J#97C
zGnnXH^+kihg?;bdjN*QeeX*LQ*~O#x+G0qgt4}iR4NdM#x`f16^4{WQEraGUX8lSF
z*CW%RrlG+QX;kz^u$pQ|eY)k)Z=>z+b7zf!cEu27Yb@++tJFM0?zZL;yWeTvxQHZo
zr|S40^R;I2X)3Ln=H-6&E6v7=mPP7&kTz`S(xvq-tK()~G|m>;&ArD`O5s{E*48ss
zt8!^&6#@V$Z^U_9QEg|B*v(lZD`4Hd`_#sb8=pRYEb)BLxw2SoS)0jL&%n7Kl9H0_
zPl{v#gvxuWz7)OoRk+w)5iyGOeyyePJM)PUvmAD-0}Yd2g7Z^aRxPj(bTfPAg1&#h
zxNh6wlZY1yO{NDfd)-WMqRPeG36Ktx>3l?|B!NvK9dqaEx%21qFzvumvI>Tekb-=8
zzW0I_tk80*Ge}o4mKZ%=@nJauv{;9P%p!6*pApTEnaGRWHWyvIi%e|gt6um|-{SE<
z!AkW<@GhbW=WGF>uK4v?mD49CVS{J>M_jk#0gX`ciT)JTDfXbpk5`WN*2u!C$|V>C
zfcm+Uo7w)9HM02CA<4273!@CR-fC*aQ=$2m+?Nj3)=iJ-IDBeH&*|udca?_)?LOns
zfhbPWS_IsPq1OD@kvy*+{hr8ey}Mm#TW-NUh4a$`TiN9%1d3KKXC5P<St{W4ve}VR
zaY73cHs;r_Uteae5p~PSOk)EDQr9^5jQW62IwTqBrPZD~UY~sP?zlf_n-75OnFFU+
zeesf1@+xg}|Kz#%%VWLx8VT;-ok9NVZyve#oJr^vN%1^66gj*vhg|>st}k_5iCPV>
z^mDJPz};L^!h<<7+5R%9Be+*MVEeVVCl_6LBT!Y`pMA7aLA7hZ8@t0_R&)mb#zA)O
z?D_LrZ3W(hp9{DP#3}(kWu3dlc%9igao<@kKvMGM_9tgCCw<BNLhdZmEa}e`YcUxl
zTxYZbTb702;5nm4EFbaWr-3}ornIjvd7Wp*$DcGctVm%2jku-9X2%<3k(?^`9tYh+
zXa$nOB<OUOd^~E<m~OB00CDhER{)`jZd<Tfd=4!-o>ZOPbyf$Ct{hau+nw(=vjy<m
zzW5-opDL{v-_I%ahS%_0@fmhRHxQOJ?cMty)e6On^%5|?AGtjkI7x6?92ScB@8$lW
z*KgkR4adT%9f`e`VAfynF!tCqxz6X9uAIc(%>{>w+A|RgTE7E>f@IBWSFSB9lcFkh
ze?F5CwJS_MKC)=Ze&siZl`dn*qu=+sP8jRLW3H{F;!<yWuar^k?2zSd=NNB%K;xs;
z56)<ylb<I{Vfor^H@iCH@>@&n=7yOvT0J-vwGy1RW0L(X$9g&wilV%&wgCeGB712S
z^{o1Zaq~#8r#mmKLj^(L%~A<!M$zcUQIE_<)8ul%&`Vv>*I-oZ#D7&pDl)vi!%>hY
zB+SB+S3GLE?~5OcRF3!yLeM5K?v*bhQP11kTS%D+5gnM3{wZ^@Z#BWFjy1g%PTP43
z`>K3BK}3ciXL6|FimuCs)$1kLiUg+hZ{D<NhCe7nw&2iwVaTxPul&!e>anW?K}rZI
z&rdYFp3vfaVbJjI7II!8GZ}YQ*<*EuZoAJ|+y1`(?(C|J&1|_7+V1Mx`NEqNz~XdO
z$A&fCO-mVT9W=kZzYe+1&J4A};H&Q)nx;p}WtF}4iev`|2VJVI=hq@xnjCIt;HZ3m
zfhHr@lPAxEU0bVU6r~7nEgCX6oKcn9U1t0o9EI%<6HB+-xSPYBEPC2vEi*o;F}8QC
z9OF1*)~Ap^ma|?1pq=0I=dr>a-&@!0%~kI-9%6pgwo9y^m`W3pP-(yf6kh6*Vw+5z
zbXYaj^-6(~Bx#cOHB<A?a|O+u2r6W~C46Cg2satljH2xv=@t~TbmsA;+BY{hb6Q+4
z5uUW9AAD46TzW-F8IejVOolx}cj?~G67hP9)H%k2wcLQ}??HFBTl@f^Ut2DpY^qD0
z<A6JMu(jK#i9C0aUHUM*2ZJRor&LdMY<?N5(%jCHTW#(GAS<w6@}f))>1RL9T6d~)
zwtQW|R0hzp)&6lf*^7jQBj`rSqLmh)?V@6m@lPaA!N|13)PMMd%Efl=pXa%I^7+15
zkXVbRYJ532*rfd|H*po33XV*h(h?j<UqY}6%rlfwx*b2?yU3MoxQH#sPdILq;UC8t
zv@$%UBb1^l2X<dJt2J~C=w9-pb9UeOF#+Swk}Lyn@Y>rsn!CrA5^4!t$hyk@qMGX{
zFvvdHwEwba(Hf&Xs!><UrZFSqtv}&L`DZP^yX|(dz&vhF0e0dZ8Gq*Fbj0}Zx9tdI
zW0TT83+tZ1$dk+U9s$2qb`q}nHA_6U+@-nNf<+E<bBg<#!&Zs=^4`+gbvqNRBYpAI
zlB}NHujax#UVXsRzh?2Q?B8d7Mp#FfC+O^@xhutsbCEA2FcGK?UhZ9Wtacb+eOCjO
zdO*xK7=HLHVn%h6Nf<$SaG0P;6^4X)?#I46iaGPPdX0J<9!eX`1u<#8q|O87A(9v1
z9ZP;3ZwLof-$k9DjRL3n@r>j8*5pk6U>E<n5Tr2<k^bCjqHk8*)vby?2fR9xSeWh1
z5QdV8!|#<b1|6`+Len2dD<_P3n}vaLwsE|4cW*5<Q7`&%QB;&$x^FEHO^S7v?@+%l
zf7HX-9rM@UBF1a|`V?S`I4%%X_gU2uA?dc3xbMw1?Wr=6sbg{(YOCou!Vx&Ov8diI
z|FvCR%wt{lZNh=ty1RmfzkJ!LsoeF1Sznp7tfI+JfBov1Tmv?eJtOH>O{h&QxZG&g
zTdk(`sr6ZRWO89~SZu&;RE8Y#Umd*q&7h>uzhGxU4CrmiRVQZ{VV(unV|(`OF>ZC2
zUA~Kc7_fox@EiA@KM2g!XYlIvYlZ=7&U;<M^08VU0l7<}r;h2@hoiF84d*X7twHEx
zV!DKiUB__j$ZS%i<ioCsPJa?o3HX466jHQ9>cOs<H1cA_<L!0tdA5xIUhfDH)~%!7
zaGi%oY|O;=i&48+hDmar9#tk;lzY^{J<3aR&h=%x`zPh=Y?~RugBDc^4Q6h(5TZSI
z6TYj^z?(HP;hTXs?m^G7*=h6XAK$w(Wt6=p$G>+=@BR`*-yW;Qx*;rS@nlydt+-pS
zN{hV<PpDMLZ?j~*czHNDhkTU8iu&VD3GY~4Fyaraz9wWvI^3^TX`nMouC$wS6%X;|
z&Yc{c{L1^i4av&X?`NE4aB=wPB|>WB);lKMGU>4ElH783S``$Jdh)xW4si#IAyg@i
zc#aJEm&Ekf4eMt=WTu*ME5|>WVdiOHHIY|v{nz&;LC?67c{AwXv2$|au{qf`rNAzS
zz{-IJ9|bA7ly}ekqv5UV)L$%Bf1~0(xd~8!y4G{ma@IGSP@Jnb@LsZFy~0qt`ilpq
zx!wK0U4c!OhWDN1F`|i(+pgNy!0u(G<G?d@>jnqM<$tsQ)7$HmWnO4igm1UMSU?zf
zaNU+4gMw-pMT?h37cub~+?1e7q8c7Z;4$1w88XG4F{TgpBUsUu0F0es4V8^lu=r_v
zyEO2MLwy3=&xMOZ3PzT~7R$#g5;tw$e8qiD%j<pWQ*=BuWAlgHYOD_j%`h<+vEHJ7
z%H6Y`NvO76n~-E~{wJrt$QlGkeLMU`tEfOyf+uRyhwuCDZQ<stb=r;=q^##4Rlq8P
z`y6i5`<D$B-y@IqqvxEuwBUJ~o9T~$T8auZINhR_(mzMZ%(S<f?{2>;>(b~V*QZZQ
zz+GLApdZa?`|-LwTJ4f#ke6e$1f#Ix#oM<(G|kFs6uq(eDlBX!zh1f4X1vZJl4dLO
z_{;X+_57Yyy6YBuOC9IgI%a0IJhwJ(bDE0Sq_Ef<*>ASDUN*9WJ}*+fnd8b-3HZ9X
z@$pP^(XmYdws|SuoB}*ia?6Iwy=L}AIW809i;-B}v-`5lTA!ZZAFK{Onp?sa^p+{k
zzf{Odqou8_3z(gz`j&dY!D1U*!1PhjO<m6~>|Ax{1YHTLOc4r++#S6R3||_g&%ZRJ
zTQIH;&=I4FE~JDi6>`m?dfnEbv6pn;QcVtgVKrQmc;zCm4M(9tNyDLHns`3}IG%3@
zzOsruSiWv(vYJlW`sctcuCKS-a_6@Pq+L+^G?ukGb~b+IRu<h8Z)rp9=7g4_$;JHa
z#Ve+kzVNo{=srZX;2MspFUXVhb+!Fvt1e^(Ahr7BzU%^jVPz02pHHlnU-rJpEV&Nl
zA%DUNz@;uXkyb(C`Ayx#6yB60@aEV1D5^dvs`Te`>sILO>~v7E1sQ0acI+4Mjnc~T
z3h&c~J5<%#bh2u$-m_lf!`C{`Yk?%{k@Wp>k_8}B=qQcl<Ksj6tYE*FyU2fO9+<;h
zxAv`ECX=!{nxx&tbz0~8uekfghIv)iSO2Jj+A}=VOLQs+M7DgNrP|-*9$sA!vS+LP
zMJEdsldpKD4i}ynEj-cR0lq*=PR_@6e%6d6#qZ`Hb!k8S+B3XnD_b!5W39=d)+waV
zg!etF^Xu?ijiWpG?q&{XHwF*@=UI|$rhlf=l}UI`e}4YGtI$wlIFfz<=zy{NxgoPH
zSqA#Ut|x89z4$KNLQZWPuiZ9qQ5i_(@0Ji95G8fYqNq3YeD{w0a@i@UmBbcR@yH*%
z!jz(;ccvW@K#s{_2|w!$Gxg<CGCML~qJ-6TYU?VchiiDEeguB}Se0}o7o~{He#VLb
zG0;<-CVVmgb0{datjx?7z9)tytgr920q&$(Ta5NpNq$lPQG%i;*!obg!WZ_QcPd7X
z6NVrsA6H_ALYPOHYCPF5qIiC3P+0y^%CTDRsFJgHj+k|a-}qw9QG=4GeP387Cz2}9
zZ>f)H3!ENBm=7OtTM@t&v^0F9X*ad`_wOU-12?HMUe|vVu&ntK#G{T{H)=$Id3%f_
zl&MOfUbq#7SXuMS9A-c}CAJiWNrk8+6oyC!g`z6skiYwIL2U-2ekZEIL)yP@n!1@I
zVEO26Ub&yZScPo3+`l{@WlvrWsTn6+Mk+E|Z`HrOk26I{KV3Z3G#Y4_mQzWAKpgn3
z`LQpkV-Y3~_DITZ^>*_%8S=C`HE~xixb8HW(f$I*o|g|zj!BW=_=NQ=9+)H!5%Tec
z#W!}Gum1F4^K@>CfqoMw548q_HE~tSEA~TMQDIz_a(LnKS-}>Ivz^iOKhNV><z?fn
zf~gG5+Z{tvd0TgJaq;8Q98u+d2<Glh{B~2F%#xpX;c3t0&P%7LHymlC<#_lEPTh;;
zI5?_jdj}O^rcK-cL_DL1JH9{PJ2|!MxE*L9@?aoTQjzsXqP{JS<d8?9$lLva*w)bI
zpcDn9Bn~o*#J#!CVG}thHANvK&GY2c-;>m6s3Po5*T+7iW*XZK3^uEE+|8f0?Unt}
zZ`@xQz~KbFvCQi`T)0q2ZYz*HwilEdvTWT1_J?WUgC=76=46#^)DkYMsJ#3A`!|Qh
zm5^&6x6sn61=rIEP3*d@?3eEfu&JiSV`sO*;)_PnF@->_^3bH7==>QiI$lq2o5Jww
zV{gp|e+RBtv21oezSy!j_hZkm&lv{ZfP1gCx>3pDl3w5b%*CZ*4QI+t^T9Lc&!4y7
zv-%B;vvoiCAw<EE$thI&H2Z23r;yWGbCkk;@&qh%|GPv{4<9bg%E@8iXfIk4h0=s~
z^}Af8N{h4~s@<36w{de6Ua{kP?q&R*+W%rBNqP5MsqQ(l-QuoYBq-85gtg2^s>xEM
z4ZLKX)TeO4We1S<v$Z*@=PfOh0%r4u-h*HPby{MO2*RKPL`7hA!T0YHASIgaBI!*I
z8MA-JH9V`66>z1bbM6bsK!<!r_>s8Tt3Q0j^xGD_KotoT3DWVb#5z4itKL|LJUE(t
zCx0%LJ?P?Z{WDHi{*3-2p|M}84l=0?=FQIP-&V6==cP5)e^XY^?&HxYJYwTEO*oZM
zUm&Q(6)S6&>Lc0_Mk_hP&Diphn|JD6z?0@-(Eun`P(aEtU@&kY{P)zgH%KW$Xf<@J
zV+K2ufK|6gPJhnXxuzp?5W|-Q=}cq=y1zc{zS;Zm8Om-99B@Nn*rq;O`enga1M_0_
z>Z+yq8dYGiw-cOxI!1Yxd{(_6*_!Rjq^~7hyJpZ_z!J=gO;SaH%$kL=c^jC-BePm5
zFNp+z_*eot-KLxmbS$C0@aa+4#34=uCFEsw)@k(@!wEMV;{MsxKu)-G4Y67E8b)NF
znx%o;Im}R{CKQMP-+Mgy+?pCf4&3><=k~E*`o(YWHE|QRL)BH#qup}~OsPrfmE+s1
z&6x^;+CLH^rubnuc2GGqA#39ab_2}I57Gu(u0L@!0J%X3{yN0(PJBh|j8r;117DY6
zMU?uFzP**<5IDxpge0ZOt{tSKHgZ&l8YFU|4UQF*`P=GD$(Sa&u`Ye&r0!l`cS3a_
z?HNU_cDmdaHD!pW-s0wULES%kSou-pKNBSp3B}(ZuI}4c1feo83kW_ExO?n~TOtO7
ziaOUYW#1OeQZ5~+*ZA;ABT}na6moonZ-w~OQ>!(0_*PLF19w!~R48I|@9=11VqzCQ
zD>0U-A+~CQGkkLjl3Gio_dV;+yeK@;^h*{+$0vH!SyLdt9(}9FjDnU@tTN%n;DiX1
z?pFJQ*@NxIJCrjgVm7J4%Mxbya%?GLpuaLBQo=H12D%B(ppg~vu%+J~t+^7l2?WwB
zq&;+ku-#CQ2q2?k)bh7VnzU*FxX~Ze@d}BCzNZX@2@j3MkTu--_HdQu?<dTcV|lD6
z3?y6aFLAv*!fQS82`(WBWDnUmQGynV9G;!Dz2u?FLS7=6shgXqK$}V2U`xyGGn)l@
zf)s)R1Bt9dXmlg?hZN?0UHnEpfY5Nr5yX(RNFjC{1^a+l&|qu>-!Bc;ZmlOP#9y7q
z&Riio?`n#<At+gS8GmETs7pNlYRSA2{v)*GTjw6TxEzaFJ)=PCs-zw!5Oo5AErfz#
zwR{h6t(=4Kr1MU~V}@RctE`6(<(B0Z$q->oXEfvifl2}A&E?{Bya|g*v@iG)5p$vJ
zLJAicBgS{9z>7;R@$Scvsl9vltQB7h2oZ)2dk5sSLmm-DK`rqU$T1S}zbmObl4!M1
z*_e-)y=P=(WHQtu!pLiIvL;@?5=HJ9?1+dPU$P~v5)z>K>2{Y@;&MN`?eI<edh_OW
zgq?@rpo|dG2$vQDI|&0p6g_Y3<}6AbdB7k_Rw@`dheW4;^b&kxiAdBw`jSpwWVnE*
zr~|xX+8xE?wFVC$9o3pDC!81&&5)F;FKt>+(WG1&^30AZb7Y#3Ma5W+>#-}RDKObi
z1azi-LB%C7FLh=ppK!oX8hrqb5CZIYH&G!E^#N=GFfPKHC;*fCQ^-^Xlur4DVv%c*
zGb57@hJJ}`IpiM@3PyQ(c~SS%k{KB3xJs04$~L3!f#UvpTBFjaB(P0eJ-jcmLwNF?
z-Td4XM$Q)2kDA&slk^XMzGdR{UsE3mgYyd^<S$DNHXrnZ;(*cD;1`IPD^Y<1H3Dte
z&J=1_M^Gw#8(u3&XC#^~e9OPlBvFB0&@!fzc~IsMvIS934#us_n=)(x6D$X_=thxB
z$|;S5309eiMUc3dI$9y0guho}EkF>Z&P{c<r_Pxk5P6(#lw3!G;^n9}HIOKhO2f1F
z{JOB`%hxw-z}`V3=M5gH%S@5(_0rbZyXCESHHk=sCVeU>(WqSu5z)5%xhEp-Ar=-<
z+}|M|cH$xHIBSfmrOiZ>BPl;}P8hLLdEg<#5)ybXb*<hXaLjh-9QLntoX!pKk{K_i
z3S7#2T0Yp8tc2gaiW(#8K$jrI2@DwmO}jSn+--!@`G=!h*J+f&b4Jm|$QUFl5TYi6
zi()}00ZJa-P#sL)6>6Ium-WUKvH*dEBTdejfEX_OVY&7<@RjveQFXh6Z|A=7L4m#Q
zRtu>_5COx9wF(d28@!=*`=n;lx?;}Bf9N-~7=V_Sx{`Y1YK#G?<gdwo;```-<UU-V
zAY>ve3JIU;Ze4%MxBsS6+Qk9UHgVnfYp8fFw!L`{E}BroOJmk8ZGiUWen}x@G`d<D
zb38=hgE^Ahw(-7hy8WUgZ0p|jXG%I{i+XIQ7dJ%#l<wv_q*os5?y#Ow%WRv4<-pe!
zvr}&d%7LG?yCjZJL=k|4YACAro5Z#Yx3(g($$-3R7=^ex<NlqV=2w3vaw7m%e7z;>
zL0t&?pnAE8N&GT&<$nC>N2_rS_XsY4J7*?gp_`-1@So5wy@B)C`03b9S9sv1)+bMx
z_FR_^mCEh6d}BMMx!ij_0RE9%-<H-)=Y!eT24xqQZ9lUcOV61)@}ln6MgCcdy=638
zoSr=^h17z+_!z11K&Mq*k`dbY8q!(Rm9A{u*u-_tpk$)++Pin}UcGqnTbA+M(=Dr>
z@!f~8U~fYF01*~1PV?%8+o=G5)^8s-D2|~we^VW4dryd>z70flw7kWn7y+OgcT$PH
z<b{pgh3J^B<j({~2b)-11P=U?xWM2;uzA~FNh^I)0$NeB>OEQ`lbZrhfXJ|Ix^K@N
zJt)5FjEV$J9e0Zm9#3ehV=wSr4P)Lpg34}M=`lkV2TE~IqV@wk1k^Ch;c;1pB>)g}
zV^>jRzx6V~?6k1vQuu7d3d!{BUidCa)H@bm8~+Hf?vyXvuynuZtCdfjGeL>!P3?NW
zMnqJ!1Q<^$RO(QE*V#Ly)b~;R4!rOYh*Tla$&KbON`QhU#<=qu(X0+7*<6LTQ~u>E
zF*EgR0)XtqQykO<^)HWdX$1R&i#IbLZ}jM&RF{G6$AXD<6X93>4y`16gX?iVz8gqt
zKXWAaa9`>^R}Xw1g=B>UjXsIR-$a^&o{69e3iG|}NrjA*-6`8vtb^Gm3uzZTmF6VF
zF;IPy&||Sjl#;m9KO}u$c6DDp7u{ymEKn*?0<$=h90@ej1ySOf*UZ1Z%Lj@1#oYY5
zc%hDL3EK)lO}``XwO;hW=wYJo0p2LDO*C>xvh>NcFc=bOQer~{hD=KWrW>|@+NV_m
zySfzh?-9tomi6pLiNbwktVX}P*;QBuLi@!f%iZWu^n*oqlUy5u99`vgv<wVk8gDGl
zlbHbkx~a`ZM>h2B?;BF_bPyd6heaX?Iqwvd(@!1sc=!H2`_p0z0+mP;0G9NW)g5Kb
zZz@FIh#0r7N7SZnV0QNBXbW)M3I0`ie#&#xrcG=v*|q`o3l5zYj*+mzVc1%><&wyQ
z*>6OjC90`&&nF%E_BXz^j;|0z-4z%2;Wd00VVI!6VbWK7gRo$%Q7P{b&n6WrdQHQi
z3G6Bjaz$ZyQ~JS;p`@6H>vls2REEFdh|1eorpqM7iO~6!)iNQJxIjI`K@SrKpLrfT
z#t!A^1JrJI)bj`_T?aG|l(Nd-k@Dp6;{{1BIBAk5`|xPEs29D7z(ROO@^Em75t%7L
zLAdEB#wDlEBkv-32N+ZnY%4(ue>qxhSUCUPmd9egyc=W8^Ijc#Piz1$mIBW&2p34{
zv0)UPuL82#iqT5tC@`Pik<73}A_IqT=qR)~YHDhe3UMdzEl%oBn=bpJA--t~f2yDu
z0szt0lbSL~hETAIxt+V|2Y8|F+qZkfG@}3(sd%E!qTMePbb4C#`V7tHpfy<%Xios$
z$iSj8sx>XKxoh?VXF~j^JOGgpvaUpa0KWSprhGyn4#I!3>+}*^x7IKjE3Y&XZ7fkh
zQA68ogPYhJfe?U|JE-viD7cgUh=PL4B0>JwiQFH$epze>!dsj>cdlv&*Xdjc3}UP&
z@6MtaR-It@9;yKv0-rzzlO_nlSd%6QBon*8h!3OgLlo1xwFwLT4}>W3_71@f2p|UF
zB*HQU1>eY&AyJ~xAu<A3x)j2tJEyV|AlM$RJDXAN#5Z8g`s9WsB_%}I4{1=xpVj~w
zDXCXrkpn@|xU<X4AdQX%srL?GkaSDbo=E=yAt3U^D@3yc7B&)!2O{Btp0yk_+bh&I
z;OmIO0-gls@QSQ4a+@&d63}I!aI$`ew66Rmc|g@@!Jddbi%cCUc-vS2(GbZ5Gyv?%
z`{|H`p{oHNq&m$enamGqX@HL`0aT0yMeiqIag8)bA(W}8s7OWM7Fig#lEp_+54I4D
zAQ+iG5Z;}OVzs@EnS-TBM}h$BCaq@)Km}XVmRuwkyucNm+tpK_Dla@c@{*LX2+jrk
zAbNK4Nho1N5!SAPs44$+>kPHQ;L{SUz1^P{F#9Dtux@ysvB@byH}<&kU4Le^hBC0i
zwV!m0r7wcV)$Xulr7=B!(@=jAWp3A>Cb9L0(Qe=$1=cAIC~?WQb>W$*%P12M{&b-|
zOhD}pb&9g~Zpmxc7XS0^Gr@%xv|SHTFc6Qgz58taPJxcn(H-fnJ8I=A_O!L8D@dCT
zWr7K*C`k_C-UxyP;19z3`RCJY=YF{K=HuV>iz$om(Jr*M-F(?u8bpdx9_8(($+7A`
z=oL+?)I7>p870J1>~G$pS?GmZxmjFrbjzyr!&w-m!rDI#ax0gR1{}EUp7l!>rIR;S
z|MSL6W^r}9ia($J`=UVt>hYnl2UEv;ltzqT==7iNyB*=cy+i|x{w)e_N>NVeUBB=g
zH+@lUh633*pFRE;<7&2S++*9Rzu($N(3sV@On-eU{I|9l@23spTPZh}{~f|r{9%y^
z_W~*nff=*Hkr1n{)eF2UmV@hD&mtXyrYp!Qkw1rB&Q$#Qjq<<U-}is4aq$1k7oI?2
zl{6?#VYeMo%iBVT0|+I<5oKu^86)5_<f`jQdR4)Qe*$Y>mlLM68`S*isH51I0+cGD
z9^G-y?#;`WsyF13StNl^NB<S0+tec7HLQR8Hh0_x<jn&QW^5dTX2q3@{%Po(Ap$X!
znY8deY0N~ULm)`r8})^Fk?5vHN}wK5vzVp$I<nLMF_M`w&<vw}b<_HGrpW3p)eM*m
zXhA%;50Z7IYv`O|i(s<n`TV!PG<{LMMLQ#qswh-g2`#o%$`IW@ou#|`@bCbmLHjxZ
zQaoyYT&kjo?fu(Iy5Tp1Ss?Z<$#H=5KA+e@+5PZutLn*>@-cUw3(e0M0f1_Qr!;k3
zvMbZ=Z$s+JtIXnW$`sA&_KT2qi7nV8MrSFf*Zpm7wcjv`Zpb_HbF*4M-#vmDRo9G{
za(cu6diRxwM<6yV3rJ0n6*1(#|Fp>dX+!igt3M<{M1<(~(j!-<{a@eZfp0@#CE$i&
zle#9#%3J?T_UVgYMRr=WY!o3?u`S!TYm)D7|6ku7!X)H14_<tMFMsUl=vXr+iyZlj
z8srEjV@06wdsZ{rulvW-QS8?c<v%*;#4FV`G*<A^Qvx3Uaco$p|LWO2eG##vWz=$b
zMjwt`Bfl1EF^%~d5cJVpmXxpO|5>Md;8Zy#sEb-St*8EYh8bg6#qj!5tO^MORsIk)
zPNn!CM<+z~<3$hGtiQ2j!5luFRC4s49c~AueQ)iGlR{rt|5pdGXJz+jHRD2CB|e+Z
zEAzkCJN*9+7m)bZGus=fT`@;$MWLM9T0U{$+|h*kzQa47{4va3A6oRTtD?=;ewUGK
zh??0-m#nSp{%o87wj}?$+5dr#^8a^O#s8BY`2RLy&g=~Ff3yJqvyJxu?I!<T_`h7y
zKOyITd>5h%g0hm4v@t+U50OKx<*3#y$UNZh=MdoU7Xd=9;H1u|So!_&1H8^lIqkoo
z8WV*!y^(jqMY*}Fp78(ixCZp{NB(*X`!k53={LBzxU{OGKcY1ay<tm`AzUHg4ygQM
z`KpCa+L!)K#VDsMAprsD$|({m8RUY*mG*@Rn%;L=@32X5CQbME*#fW7oolf6th>d#
z>A&6Rf76El515zzyncV5YHVb8jw?0NDB&5yy{0QC6B;TnKR*0W=GdV}PdW;?zcU1i
z-SvKQr}o34^(wleuMY5u@|661cm7?cK*&q(rP?14ZM*zq-G_6B_b*@iz3KbC?s3QF
zyh|y3D<U(px)oe=vQ1MP+AWo>X0uERhph|SF+~?e{{RQ_Qxq+l8=)O!nXXJW>o2KP
z#=#Ox(u5$v&zSQeGoJGCOzaAZ3me4kn&p+RQG6R(cs=1yAl=0-JFs{^w84*6KAUG!
z50J0u8!lToVdLbr#sA@-jG=-jtz!CPM?ZIuX_oI?VxJM7Put+K-haY4HU}ep>##CK
zH{iOHN@<^#_@eZtIDO?<X7YM=!nuWb|DS(^|MV38dw*im|JuR7cJN<z(3^**MB+91
zgYABR?AnPlXrSeVpQPA}vTS|!88SZ^|8B&mvdYT%uQ)NO*i?b!c^eJEc3lXN2p-#p
z*I3A$_U7@m`)<xs`Fw7^5W@MA#3<X*uyO_@pX*<wuc4g0QVkiQ07}>!HyY+03d%&6
zymIRkxTw*k2=`i~Rv_vcB<`=2C4w}laTTbZGGCR?+aP-3h$w<AgGCIUY=t;n{@b>2
zrBwc7I=?n-+z5S(g)x}6yv>U!>0dV@aSrAKlglcYh7wXJFM{n3`g?Q~d!LeDzqSd_
zPZsUn^BXPDE>LaDTI|6AJLY8YM?VGx1dL4Jco?T7{)SCUC~ltp>bTS)P*#^Z2azDl
zEexx8VOUN$xgZM+4K5W^D)tPuRhflL9a*@P>U^r%-aX)@16jlnq}+ESdy?4f^ZGSv
z{e6!gKc1SJ+Qy@P*`0YY4gz9ccoRwcRzxkA$B)6?vGAjwPG+X@&)pvK8MVFI3FY_a
zr!TRATUTOcVsKzkk=<_^yNNSr&yMsr2s^CZer;hkxyfu+r-Hw){FqZ3B<^}TKq5;M
z(|mW~jo5!?6aq};h1aA1ybg9-2>r%eHg0@>!PNyl8dBtuf_IR)Gwp@Yk4<oHES{=J
zrs3_-!gnGd<jqEfYVV$RVD7l?wtVkekED^dBA^;8byB_)4YgaIWofwrB<W`VO>srY
z4C2p!?59ca7;@SsX&o)6;|#VpdbudP1^m`sBf<03Q;4jT;KO)itsk%TvtQ@ahYBvE
zINngC&SRZUo@n`-6aL4>{-2(^fA9aFwcUT`|KIulPx{V(?eAav``7;dbJ*qoultW+
zw%)5vXX@THYpR9{E+?3*AHST=H}2`MS^ai-Ib$WYdT)%^_#yjh$;$bMTCQ#~0oU2K
zh6(<uVnnq6r=i;d?4%TX`1ttzMsu$->d-lmFf+~1v<s_3H1HFAV+VAmzQ!dYXh<*S
zoosoj+L(TiysqWC_T-6poX~O|t+WE8Ws;v!lQu`$P6e3`(kYyhk_{D}%CAqixS&Gf
zZF;!*U1Z^?MY<I$@V82=Bc<9ExS!+%&FHb`sOg80OaMnLN&Bp}mn$nP+X7jP_{>C(
zunWr5aTB%3ZO$oCsteHnjx*x6e}+6}tDqg^e1<4%XSNHCCmwsV_In;}%E@zrP&#~u
zf?~-Sq0|nqqr{Tq4h*5w%t28yRB$!r?Ac5t0;&*>4I=T1>#9YggenxuTwv@b=EkW^
zqobp`M|Qipr>~JJz;{$2G$IriJqA^jl|`ql5O*A%^Iqs*_q86%HN;_B7Zep0durl2
zAzPsbM|+n|DJ7v?*kH*?ZR_?E4SbEMZIBN+LyVG@BRn_Q0l^RE;TO&(NSXNk%&<l`
zJ_|yROGP&5qk1PBr3C$?Q-&bF!9$~G%ir#Knx%5t>+tS5EX;+ouWSwKqmTuov;L`;
z^NN$sWC_qs9vBlD7WNEHeyoN3-QhF>$xxbj3ESCT_BoP^f@^Rv<Qmz_=oBR4%+ODq
zQ<*jvJ1!u}wzWA(cviF4cDh$>dfmEpT;>Cf$GkUx&s9vi_tYE@cF8b4Elmi8Lun*)
z!AHSWKFQ}u4qvz##9t}r43F<2BR0gTX^)dBQngT*<ySy~I5nMJ_xSPYfDKR#m^f|Y
zdZ#mwoGpC9`lQ}sPJ{1cq8g?u;zhgV^%D0BP3DTr81A8H{Y2%O5t=xb2s|Pqj;T_i
zWnOF_-<O&^ui`a}vm#60eR*_xcc7S`TwFXBIhyLRbc6Z5GuQASP^+=qJg!EI56wjB
zUdkP9bk;gS-RWKdN%a%M=4@%)!5m5``SriFe{k*+=kNRwJxVMADso2wx?<avDe1c{
zTAp9{9c4GGt!abP3C}6|&C5}EQ^=uB(P7?t2~ErWx!0#}yfvS7Sicfy9&Povi*HY>
z(Ow*T>CvL~)wuX?2L`=^5kZ%|H{oR4;NNE{WufS&_l$t5>W1GbN+ToGeHQ6TIQQdO
z5p);R_Nh3VY)8rElhb<!7O(htoh=*Zx~SltjT?VPDO0_84OQHO7Qfw!UN$~33=(oo
zRz05$3%GKm@Hi9xkhY#j0XlySBAJ@s!~NEMPnh3qLn0jcUFYQVE?lw|LTDFA@#A9B
z&_(<Xy#~_0EA8b*UF~Mx>&#Xa*~X0|Bqs8q1$8H=4Hsw$Pat{U1ZCMXH0T`0F%_F}
zGR);pPj^bOO#NhlmOfQ~W`*|&GrcNH96w0wz3PteQl+=$(5dY>UT?0dDTo87h_?vi
z-AIY;!G2+r@3#|2SC+_HCLsZG7EA(k!K&DmKS6=O#kivLD060VxcS8;jwh00eEaF?
z>EB&vlTo#%Xr)84&crnRD@U{&N>pwfX*O}Mok-KKL-405NE}nUuTk~w^Se0j(cN)}
zS3!pln__Pn90$5T&Xc+GfF3SVrw$HlqR))VfDbrfpv_B)`m1AEVN{!N-jy0oUkQrH
zUi#Ldys|Q935~!8h^bh5F-Wu~|9*NsR!h3d#*~49K^5XKL%6zZ=u_pYak%CkHid*@
zN4X^{4sKBlrNn&uo%O64l1r9|evFd0*@<Vpc|ElHDi9ZZG=a=t6-T%_s-353<)5Qd
z+=6y*Yt1?=^e>#is|mWl!%M*8uJy=!CTBG5WZ@9h?NCxZ^Pg#99{i>1>YiEwhq;sJ
zs+ry_y0aPLF=yr3E?L9r-uU<qPq&R5FEE-&)k1%0h+|dG+t}DJh_AfeazgfP79mq`
z#Ga9+Aczq&=VXcjFMLFV&g@vi35`PE1T;{n3^acI37z@DEvw0oZAb1%6udspX^YXg
z`zd0=j~qF&!y|D~upnHdAtc&4`gYSbylCYX9+*VmmeUF*>%*u>arQ0l7inB3cY8i!
zJH%#m8})5ehccMvKIKU+I{9k$Mt2QPsXfGzGVpC&a5{_AmW!Ow8J!9h6}4S^aeBZ+
zC3TLLPSN-(PA0GV4DUl@JqN|+CJjFm87Jtcai*KywgXGKH<{ntI{8E2b~9(nz-djJ
z?uhvFP#1*4?ovMD;L#O5kbCk)Cbs!(^`k;p`W{_MA5F0HW;(^~LVsCPHf$VBZkXkO
zLQ&dOJ^)@flPr9gOvF=25i`-1`@7$6-U`l~w@_fXpk$a3PFZNwYaXZ0+Z;W=!o^@Q
z=fFL3;+q$rk-DZJyyrxoY}&P~CzM7z2+wWP>v0O)d+1Bq`5T}F@j86#bX7fwMHX%b
z%Gnf?HE(f-r)PzUiOFET@*Fq1D*Cn^)46WkUBSNk(djL#A9cVzkxgSe_QgL7ZOyV{
z{KTJPFg%V{){QH{0`-$4yat{1t=}7KJ3M|2o2zjwq8McI62;#yt7&O*b`pc5V_`4B
zuL1)D6UM5w^T*l>{TPD$OsiMC5rm2Uj;qmQtx0b4(N=+l()w-uekEX0eI-V!0@cjN
zQE052_cBdhB;NRL|5kJPX(gOBOpP9e`+4{I^PpSXV*AIBAvVq=XP3#1g8)n$c*Geq
zF@qMk=7eS!)(D)#yA{qitiy>!fPu7~IAgb@8C@P(IDkYE%wOZl{;ft<P>O_Bn#b1&
z965TFapW@PQ$vki;M2!s<}e>y{W-U+UQsLBfxhYx;^2x2wP&GIo4_SB_(VLWBT=9F
z@yyvwyZPycZRmZks;99Xc)&Y9Gt7F7i4xoC*U!1}XDE|zL-%Bs%HUg##rCr}z%wy=
z6la#m&C>S^43E)hEkQ()(S#o6SC!fMn-tz{cwjRW^WahR2DN)?6Nl|nX>2;qI3A&+
zoZT_8v$UGZZ4u7{;}ZPfZ9kSp^i3Dxa`d=vrrSrSlCeZsI^$doj|gz8J8?h=UrQCG
z(Jy{cH5%%|l$-sYCm@769@$)+hT@;OGS2^<KjkN%cvnrq;OnxFqgOBBz&Y8-@UrU^
ziMEnUoX&)Rt+1PEW|AN2Y?+40F-B*0vZ(q-?NOY`zKQ%l0_@UMzATccfs}YBPOasP
zApHis0BZ81^w8z1R82|xPf49qUsAmSRYu)+X=!OXb=6k87oXI2VmKbDlZt~ew%T2k
zL&MF?Z#wG1n&g%jmspN5P-1)is0Io+Vlb?4Scz?`D*D{jto-Ljf>^oei^T{N{Gk$@
z`NWVXRYC6fv18eA>+;5?<YRVII9<DFqCi7Pa&Y^i;4AHZW=d6-I0O;yLp)}}`plU#
zDKJenD>x#(g`q7_y|)m6eg<UB_nkau)>nJy&K>gx9-KM$q~E6BO3jKe>sE{u-YsYY
zbw*jhv)5+$b%PTw(YK^%u9eg730n0$dTlx{DL+LschWna#fc<oiCKd#6#hn;H8|Ss
z2{vI4Hv2n7!9Dd!`!h%@1*Ee!mqBs&OycAiR~(|TBhGtK@H!m6a$$!_+0~B(I5ea2
z#|78V#%ZBjoSmINMjgcy1FJTpaqAhuNj)a$lVQYT3+Wgw;oI^wB5`od$u$tMv1Ge2
z%FE%5NgkZIb`}02m=?#M+*UwORfLck@vM+*zmF_Dx`859kN@SsR;Zt!VNA1c3(4lf
zakyW3+q_g+1h%{R^(!r++>s?7>N*6=zIXEuv0Kg=<}lL1j_e9>;9Tvpw?C{WGMHS@
z{mX*pi#D0M)xq$OT-p`k<~UU{OR-Tg@jl(1&5@1E8ZQo@11g)8VQ?UnaSGh#XUy$_
zBVyz~0x98EfYT>9-18i%wggkk+#rF@#6zn>x;=<<3UkP8ygsh)0`NzW7tZs_B*_4p
zO1W--ck6&hh`q4f<>o(iues$5!lqq^u-y3b@6Z3?c?g-OxncVvIY8F4l+3TlIkB^m
Jr*Gc>zW`AW?A8DP

literal 25736
zcmeIbc{JDU+cx^GlqRX9L}*roB4ySr$x!AwWF8YT(?lt0l9VBpIrBVMLPeR$Od|6<
zkMD7*`+4_T`;TX>y`T4a_S)-it#1AB{S4P|p2v9{$9etk%1VpVtY%zIp-^Zf&YrqR
zp)9wfP?qVeT!HV@KMNkjmlZma;-~Nxf2K}my5h?!%d;w1DHLW8@^^`M`;Z=mvYjGv
z>bSg}e{Z9`zgPQ0;n0MifG&^jR_)$LjhB5*`J8<opPD|Sa^jBre!Y9)PPZ@a-*7?I
zDdhEu+aF^~bxu_uEO=pdFo9dw&+n>>tKFc&Gl2=`{=^0Y&62`5g>5r@6E+&G{Q@=V
zF(uB8HSLy}jpj=hABjRSWjj#%&%Y_fJ3g%W`~4%QZ*2MJS3Ie>|NisGrd67M{~5P`
zW7gk)UXt5w_xBp_L(dK_{qt=%sYfl#|Nh3yo&VW|pYq}{1f&L<vXd`;Sb9=VF;+9W
zv(u3EG}SLt4_emh44a;(j~~Bg7P2+$sgAD8ycYZ2U*OHVckfJ#Y9i#sgPh0xSa&XW
z^S?Jl*P=B)T|88q;*peeIKQxviM=9Hfg^jo&P3F6<$Eza)a(IXUO7KMzw7IkeJ=YR
zAQV=cXwVaIt*Pw#GU}|zdnLS-NtQOY_qnrUer<_nwC1VxgU-X3gQ+MzlOi7+M>{W6
z#cDNMPwhDA9xfLq{p{0Et91F0bM$%b)$df^gop2w)S*x&YiPx0Ux_+T?-LObDGgp6
zhn8fwcP(Qbs~S0CvtCz6tEoM^)NZtc@@uVms@g8`2bG1auG>0g7k@SGeqV~==g*%@
zsac&~HDx<e3vQygd7Xc8`0g*RdHwFn2u1;`x4}HkP9t9IN-@1}?vPKtPm4Q7eW^fb
zAnQ$Ap*OYQT8f*LX?=>+8*%S-)(k6oxO{ucn_L6usmU*YD0sF?)3+!jwb@0eR2vIH
zXRzhN^>u&dF(^*&hEm3$YWs(q)XSJxP_}>Wt521QQjA`0%|Jd(nY?92m-Tq<z)Nb%
zXZy{Zs+&63FMfY;Ydv#<ZF>6E-;oy0IqVu4)~`-3p-@HS-`m2(MYnl#=<gs`&535$
z+|~5#ZwCi01-7kYJ+=5eZr4n+Zzw%>U&qWyu65kBF~i2a=zO5CibkfbLfPxn?bd=4
z{fles#<OUp!E@!@xwEf-{koi=pT8WVbL`=luV2f{-iXuqd<hUr{n^&$ylDfTiOXT4
z@!B%xrIcG#^|38JT>cOGZ8QJ8lfRg2lcisGRTRg81G{rr7GGW9*xBMsHL+T;^c;#*
z7{Ox?ucWKH7yT*;YNmd)_=+t|J09UW?|$;}KBA_ySoNkZ?wL5c`hgFQWH}|<4e2yG
zPc&X%w_KA<A#N~MAtPqgSC?Fupm$F?KrqB<YB<8G{cEIR^b5wL=I_WOD8;CU*4Jh`
zrapfBILWk@$E+?%VrIPWNm2X7;1jpyL(gxmdZ!{s!+2Qs+Y3G)p=;)A7Tj~<T^C%U
z)zdE)J>#r+#;G=n(d{1Xs_^vmyy(ZHM;0ZPs@7O{m7J-m>8m`S-Pk|p_wV0dmt~*$
z_{o!G#|iV0kdUs@;FE&a`u*`lAs=tAiBgW&Vb{vZid2XS#ox#iw^y&GrKPo=bl)au
zeKtxdwmLR<K9W-{#jrlbOwgwLsnzfA(K`8_5$FAQ82OB!4!0L=>68`eu+6j?Y&jnC
z_N^fv@0_%BHP*4uvuB}Lj_kX3o!qct1G{qED;-^3n+mC;5$Al^BbDP{N6JSas;yo=
z9qVTDiglffii%1d2IYuZ-CHa{laY>Zb-Av&>sW-tbqgP8OwZ<j`V>x{S2HUOR|vtq
zqwsMoyrkD}-Z*cppBnjX(^<NMncwo5<3zuLv2o;hUwv4f2W`*iN4utbVsov3ecqsV
z`LenvuSHW9yX-4BJdi?$wUG~(hN?oO{Ds;CJ$fc4lS~h;oZgX&iV8Ajd)U}aYGO3b
zNl8`Voyd0rM4eTCe-C(4(Ip?Fo-Q9QyMvxx{_O2FTNF)A-;oD<yhk$f@|VZ#7vJ8&
zGa6*NszudanWZYBx+-?J^h$T-{%F<YbCSMXRqixQNxFsW$V8=EwO@?a$(N7UIbDSq
zN9O+aYWk%K%av7CUp(X1ifMM4ks`C1el@JTqJo~8IXXeFC=yd){39;dJbO%$e*eW!
z14H&4Y~S{Wl=>@u6kL}YbTn4PVKkilG^kP|%~G3FBcrm7HWKR$7hjv2=rZSU`t)gg
zr@7#h9+lx2cAYe9u&L2_!GGm-S?O+xdt0~_Pn@_B%=2Wg)Wx;}FPhY<P${Olp+Z*o
zukSRor#+WcM977WHaQL$4gdP`73)9c!JRuR_w3ypi6LX5%~9v_b(tL!&z_&|sf*Y3
zC>%;Lt5<ZM8CUplW4Q>|Rgr9mvGN<s*R1uKYV#J0nRL{gow?5<qKc(9k`|Me#!s`A
z=M)z7$jm2mOu-9Yg9o9~0g;%{moZ`XBOTr4A@__c!?mZ5MO+(bavvzEatYgGR28Yf
zDB_SLuJ(BrbIz{#?s>57+_yekvYuY>nLHC+n7tYj7WOiR!*zbvp*Oy8wB;skq<XrQ
zX5kT=Zh5b50>hqS*D@Qwe*Ma$9#qj)J5sWOhSBir)BWx}sT=18$I=_k6=Kw<BE^b|
ziw~=7DJws3bqN#qX6dep4Qfr{@(m1((Q=(r2y&fIcbT6ui0yv-_F~An2t2T-x3?0W
zfqv^&qqGM|Cq~%xs<|%N)iD}TZ{P05_OxfNZzo%9W*}E9S}j#EK+xtu(EZxr5;5D}
z=N;bzqKqm+jgS=Gb+TE)Dk88WJFC?!6fj5%2mth)s)r5PvVsq~Oi$!4M0+tEb#QW)
zmw&1lqi$3yB7jRE`WS?t$8GtnJ7p#7CX$bhKMA(8h@LLiEBxy6L#xjep~xb4F2!ZC
zmD;<<^X}aXL88u;DQ0Tkg?{>YbF3iwU1#ne9L?UaWlPwSWh*)#2=%AE4id6#aclK2
zI7ut=7IB%0y=|3H@%}xI_YbXCJ)yrmcK6&^jn?#dy~SARN!sOtPdOL@PQ8#gtNzP2
zlP1;RNJ)^7kDl=jr*u}A$>TC2V^76b-M+`e!!wFcnEd>7m#oPCtdZ|Mnz`73Ha*qf
zWKXod?y3kgnI7$8JYxD>(7JQ|rYH^Dfu?9KjSNF<Pxqp|Y-~{{J=R64B!=!i|NPbK
z)Av+aTg2WWgvMqKdm<+rNH}9nRAkwY$iF_diiTBGeQ0RtS)*@p@%dQSFzo-a(Fz%p
zFOT;;`?Sdrc^mto`p$-3NhUR1lHI~CvuWhAtLXOb<KmL$&KkVYdiP5^mVC`bpH*PB
z-rMG3`svnQm8r~DtMs)NtJ=R^bHHA1a-PtTdU@oVHM3HpK?#f0i^CFRdky`}A1mU{
zW#C$fb)73Je;(6O?8o~;;A*J;cmD{0BawyK5#x$bFTE#im-<I!{P}~AHrbsdP$*<f
z^QoU-M0=61$<%PW@BBNLx#?*<xO2JY!Ih(vU9|>53cg$#!a4Jw?$S;7r8ci+Q;5++
zl67}&7P9WVBvGHUY3<zZiE3evX>Hf!tJ9-KGz<sdTb4^_JiNs!XdPbQ%^JI3E>wM_
zH8J&~oSe_Yhp&)|^YorPc~TW3xkVvbRbe1^!KF01Gr7Y5;_CiGD^AFL?nQn?s*wtK
zv2NjNW+R!SK&N4e3W>*8e}9iaczAKxsGKj>@2Eu}vZ5(_gk?Hnka6j&<4c-*?8kd+
zjT_S9BfflTCwpUZ(rylKR83_|Z)9ZD{UiPji}UD(qMSS2zAs)x#%N?l0ykg@JZv9(
z8E?@n+K3>wV`R@PNs-s7S!5^r8#yKW=jE)d66#VdVr~2CRC1<iYsAI2Wql76iBi&X
zR-j=zk|b=TtrR8`RK12f>lJP(N2jDUs1TIvG-X9Vpuv|$|9uPvGG2^)JWdaP19|DD
z1(-|?=F!q<Xhq8JmuyNH^10N_mYy1HfnbSOxgPPWza6oUo6n-Df$i#T<R`UZ=5+16
z6^$-4eaCr&zTCZfZvSY9&!C9fZo9m^JP}PFM-2apydy2PnN_*2u2KPlRgb5e?AmDN
zu%WYmmV_bxAq}aOyYF@$t5RYVbxPA4+sfxMYd1E~+?+6-kdRQBY(j!eQGy`%3o+N6
z{<OArd-m*6(VP&Qo1YoTm>aJbanQ^6EiW&(Zg!sNLVo8_uP(`Kzg&bES(jvFT>kd%
z#fukb%R4;jIjjqruNk&}yzOGd9rlKGo#x9UW*42DvP36aZXWa4_!JkZe0_Qid6XsI
zd0U+4y~XCkk#u_+(yun%@+hJzn%pletnNHLdPu$lP%!mZ>u*f+TGt><iO{|#^~@KS
zddP^G;U31d2_e!!qGl=qfP)nX)d!+1fPT-NKcDnY6zJ8wF~g|f{?=zzMrWk`<<153
z#ok)@vGYTZCI4Z=((T@{u6T;<Iwl^5Tf<vo>iephEV6>}c6H?rS}s%VxgupV9WN~o
zoBlW`S^tpB$sTc{a@ZlZ5N}N|Hn0ADnQqpDm)tr^f-EF7u-)<5jE!`3*$$kw;rH*a
zO*W~K#*Q6Vd+94FBcpV0Gv@*3$>p9!?d5JumMu;At*NN^%wfE@E3w%|{TNo3{<jw)
z)GT)IqeR-RJW*{h)-9Bt%jq7O=&gOjBI2N|Y9PJ&ep{FatIH2dAuXq&+pRncmpc-z
zFe&zpG2B!pVqdapq}FWVk}nAqalUvBF^%(!S}|spt&LNHQP|G%*k-L?l>#A~R7cKD
z`f_f}dQ7m0$j~P`7LAvP2op_?C50P4yhDzj?wud)u98F@RF`2BH9g+f^W@0xu86R}
z;UdioTbzgTw}{S^=j=Ol=z{C~R9MZ}eMUa^S3$Y+b2B~2L=z@2w{G2vc^EZ*z2Sh2
zYNL7TinR>uOOJb5YbRIzh}T`lcyb?BhcpRC<R_g6P20b)1y$nnb9JHIGqal64t_Co
zN~;To<dBY#wJwKyVL3GSP<fOoO{ygu>vhT+xvuJPdF;sKkTW-~7PRMD$QldQTvT$J
zRq;j@dxKo}VsIk{a%R4Vna#@m#{#I``+-B_d9l4idFSL%n@#VJL#*OdyiHCcQbASD
zE$^2|JwN#2x5o;9{wp7ceJpBtt$v-&O{zfHie2Hyt6#j*Q>i`Bp?m*HHeJV_?1`qt
zUr8O82KzGyrpK<$I23p>ZFzWIK^oKP^z4Aj>n&PNhf1}7l*`G8wAYL~RsFW8OWJQZ
zzIh$}2SJx%>$0z>ySlnmQ%wEJ;<zLvC3&-`9e`V;Qh#&Uc9K=zetV1NpgmJXs8q$H
zUE=3`L|o^yn)}0Yr{(tl{tndkLh0jzsZYzdmq%lRv%Pv}JuQ@<N1IE@Zar%5uccYb
zC}eB;S%kSh(ZIWlyCOj7nlZ|_&El6e0hs1&TYh4y27GOu%<|l69D1TtmogVLkM=jJ
zQPZ-lwPrYY$K}WKo7A+!sySOoOck4-%(Lj5iY%cGq24UuRW>AdcjF%USWS_WX7`zn
zem7M1Wf0lKe&mSal`B_5>qnMnjy`Endw%F@$9cJSWCT{LwqO3jVNXvOXx@Eqxk8Zg
zCd0bxHIiW`@>Z>;kXhYffD*~mo|}eFUalUt4&hm9(46B;ig`ff_K6gPJD=yz!#lpc
zi~?5nynp{Gwk$>^=}OxfFBXxyQTA6yo1NrP2q-mW*#j+Jp>s)`AB%O3Kmzf+cTev6
z(&d{_WWIZMfLYW@SwcdBY+>Xlnksvg?YM+s_==S^be+2u^z}nCt__%HICYhWj5S;>
ziNMxmS5F%ZaeR&v1;t-ya*Zah%~?0#VjZ2=IkUr(74bW)mnX2Mc-HqRB2;C&oK8iW
zHg3+z{`!nF>c<b|_OCvY<+q)qy;(#eMI6UFYqVUekZ$@bzFf+2nzBY6+CzXDDhh?T
zOUF^U?2`!;_Plc^&APx1*F1B^op2h<sMi@{HB2KgjUxL$H@^1q)~b}cz#e1goU&6=
zc6MoGR70g+l6nGQ>`_J6)4bM)^?lC}cCfFlXD6>PqfpDV?JKWKHc7txWn*4*MDWh%
z1u}EfV->r+g@0a|Ln(g|z$3!`n>efU<<99(pFX`3r2S-$oWJ>ulpjz2ApdM<*_#&!
zwQqDCY5V!}@TK>ZMyn!DQXp+x=Rrsl@`m*mxm9l^p8T>(KVM_9;_5jQDhEt`yvB_Q
zcP8^vk~2Y)*jdj3A&q_)8kpo~?`eNapQR9`ST#~277IAv{_Uj_;%eao<_e(x(V&Id
z!UU1cMZVmzgkEtN>;CG?9rSh$^EeRMVVzGa<!%-L6^l%FzIpcPcZ6!Pu@OM{*C%Wx
z&GQYdmf^C&Co)F93)%b*xMqwc5-J^20#+a_$R+aDEh_J#1Ils7gs$};ZcxO+K5RdH
z85LfaXOKXEG%BT2v?8Mqu~Q@Bbqg6;J~>UcdN};N%eD#CAO8`KB=bg9pzrE$Sb;_l
z0pG|tn>A)AVChw%=5Du2Upjw!7LfL3U~$%TcNCD>H+s4iK;#?uoU^l`-D8BsubS<U
zY+MuL{LO^Lb@qzL{A8Qb?9`VhYzm3`QYZTw9S5=(3$24@oKI)8J@SIF)V0P8fPjNF
z?c3>3_I>l?EiA8+$(<d(cf|C^r3@#O)_kTv;v^RW7k*g_DxjXD=TcWjUaAJ=K+t}7
zyRTL?%J}oCj;JTU5}1|I6O$?2Z^69IW9P12C_EybKW9MoqC(#P!8U={K=6h@xb8X_
z0oJF1fh?uYd$PMm5)%@VfKI*Z*;SLm0Y%>+nGQvYUE|-jdd(WS^XKpD=;+9!awfIv
z!u&+;9t}HA;XQj!FHE>Dg!%CrtZ39$$XRdN7KT+BWmxuF5amIkS@H8jd6uRT5fSb#
zsk<Xi-`ngSGr^ZR_N1Y{v^qkLO=S4<E>g{-0OCZxN3iN%m>*ae{mK!$Z`ZCo%K++i
z+e%yWJjjmnE@F`C*D~+@5%17)ojPW6gvmVZIO=fOT$j1gPjoV!@r5iSJ=MpH_s4#d
z9yv$#fHUz9DX8XWr$jQwGY4`Kf3@s$E!w}TX<_!a*fc6dg<KbBfarnpTfYjJEab7J
z4%8QCqp&0>3KSDP9o?I_xP!NE-;TKS;RYbXlbo4;A-RPPgdVa!QOp|yo+zD{jtNDr
zH$6L2B9+Xm{gKL>j+4t*5|s#F!x>CV5<VT}vSC3EyBnD}3Q?oUQV1m8QS|~flmlfz
zKBILeu@S&K?DF9cKj!7NTk>yWVTr*UT)?`j7;Mc;Hg6Qn9xaz#qLGZ!DFlP^l3fVZ
zD;dJtm=)=EwBKf9&hj{)ec)GOBdu2Z_{oemZ;%j2ZV-}pA?>@^4piLL&kyOw_$8$=
zV)0?sbl>C7DP;?C(wXKA!;6yejaO4mvkb0FF*Et{={JU@^4FIqRcTjr^YoS_yGGMH
z&x1~-NuI*vYVfA_+yx<86{DesuvQ81`1I-1w}|MG;EF<f*6M%Ycd_E%=1zNt=jwLf
zGSMsqRF;y&*$)p8h>jfg;Z#%1og04%QZSNTA#xu(d-p{#t#`_YY`QBY$R6k#II+ty
zTmSN9Ly!%jbyK~GB{44==E7#DModsIxNkZ4Jl}t~yZ1=!sY|sy_d2ZwY4+^Wbm-c{
zdZvv@p!KAH)1)Qv!BEDRr`Q`^WPL;ieEM`sWTcq4#w-jpox^lj7)?#KPX20(6TG{x
z^*5kKc^usARd1g8t+JIDxt%5U=_CejZS3qSTH2Z<ql%{>=T5eRunq+q#=t((6&A!8
z$nU6&I);3>kd6$AO@D(5NYRNamuph2+Rve;|7w|zJM$S=ewOtEN7x0xaipP|&_N*i
zFx}3hdDngX{ojEr@nfHv`W?g}D%un^&UC~y9JGQ8*hOCTlv8&%63Rg)<pcI4?^tOU
z=-ou&XT8c*znL`5bZvH~oPD&@xIQIXi?(dY_Y$+1METrAGj~|U$QJeze*xXj;Acp=
zAfkJR#vb1=4^qn<Cp&Q?>Uyl-2+P)wHQ6!vZ|FpYl!V04WL;I1(o5C-{tq8sGW0e?
ztOM&^%ALNd<Ec_YTh_+wdPP*RyZKD2i`%ps5VvDBdsf|&)jF;irO4?`eJ)T~JL?&u
zW2c`%;815BNIr&`g_aLDUFu(k%LIvfK6r3My&s_Qa8(nE2a$~L#q7R0&ND9@GWsm}
z7juPWdWfViBbV+OAmOTP$7}V@F5epR$V%<4t&n%rmw6wEYBItqO>nyP{Yz2jj0h{R
zU!`WLjrtO6rNiXFHYL2};y}JH9=v6S{3z<#(fzJ>WY^A}Yc*K!Tu#wg-ZLrj7>h$M
zjd_<^NndTEILb{HtsrhKQLsuyvcfs~H3Xsx`b&p_iE=P1>FC|Wt*MS(d#K^TqrM{q
zy5@~Z@{BpN($Te52`~rhNKaj}4N%${XZo^*X3d(4sMwtDp|KLNg{<iDovX$;8Nn_6
zx?-RZd}4V;-`Z{brEP2v5E%J{KRmvlt7!D>Q63}L7JB*+tdgx<zrUDharqX>mq#O-
zxEHC*CmSo|O>_bG9c>H@BV1$Dw+U{mbafK4TCGq<@%lTZhs#G?4Be|i^n-|TOB*b$
zcH2y;IcafmaYz4ysX}jJH^!=^eiwhF{-s-V;it=|Kt_JcR|xvLwevrM4=@zU`0~~j
z<S$DX*4|xvK;!H@RmHYX{fnDcc&0azz=U8PVAi7;0<%5eip@}CTXbvtUY@;HyRYM^
zt3i$Zo~0$#*-mfHcnQ~;oX!|@@D9*yTiedvf=#C}5%<=0c=YhksPx}~j>0+B$n1au
z?)8J>I>Cz3s+w~`&$nLQ22K~H`S)><fZrJ+Q_pxYYR+kV{P=P0-2B;cgaGGxx8EVY
znmnWInsGl;ErKGHva&?p<`r|ae);l+5Z+3CKbK-%jJ);Eet{r&@o0nPP1>Ca$U9+4
zph2By`cesKu0++1C~@IhvvVq9{2Sw{$Oy1^HFG7Omz;h)3Ya(5X>oOr*67q3r5X{u
zen$H<HIi@$L8zKx9bw!1BlroMOr7zCo7`AWT~=UP%TZaFgwx0<CTBF7=Xo3y87)1z
znEEEjhAWNN70=TH_OVF2A68GdP0U5T(3|zBdhSsRT>@3ea?lV3owo2j2AM1{I`Pgr
zkG#^Z8id)TZzlf1{w-$J@BD&uwUAMQZ*Jg<)XL2%j4fA}2P=`+_gvxukrQ}hzbZvs
z%$H9`TGgERt-tQz==i|Sty)rc9mQMamhITp4-O}&dVoWpHh5J3bl7gB_CopeUKh63
ztr$1ntLKt_HBx=^Z7@$gV$t;OkZwWv@tZ3mFT8OFFbjeBWeDi{Lc}qJXc||4OA}HX
z5%X(taaO;p{-nw2DDG(|-iafS;|Pz29EKaPHC`<dAp{-XJ{EvTiJ(^3g&D1AmBcf^
ziA7iLHY0G&$w4cm(GasA{$)!0i%`iASVX$71dR36C_yk;o8M{@Tq<K_(btz!Z$8p#
zS>Ot+d`Nw-h)Cm`p5j0WP?ZLe4X5>4?Cd=S+M8=_09+I2bgv`RMk32jBP=Fn+oH@?
zO)`8GA#!Dw^XY_YI+zj~-~CwK(*FF~;rAaY=x*^7P^o5p5`tvupdczJsQT#9BX=dS
z{>DrtAjJ_r*BqN3#k_b_&*va~Af8$2?;Ql$%FFj-_!INB2JOzOx=Wz#H|ObjZss)R
zH=2;qr_~2U@{OR{KL5alf3VnT9E;i-BFWTt#u1Q-o4GaLY3I4`=i}omZQaMgQS>`X
z6NTqdlj`$?a?~3$YtGTAPqnDQ%5?53A>1**jT(V>-PO@1(>5BJE31bp#1tYfo<_}5
z0dhtpV;(gc)@qjx?Rwq}af5^X`OK>c1K3oY6R)rD-`h2-j{$e@u@wx^jJEZ;+)cwF
zb0}<<Rj7nxgWZn!^VXm4Y+%t6vKwqM4f6b$dd`>2EUnn<Xp><Y(J|Kg4i&Bn*1vpB
zCyK3j*75R0<ilDyuSB)v_InB%IZie;o@}45>-=(ia1Z2sr%fh8^Mwl++>21ieC|m(
zF1BrL@o10_htj%8>i3Ah#$~T>JB)U2*z`r?i`W+zt+A<j{?Ci-sL-_-l6k>tM<G#S
z8TxRtKDOJbTqvV7f--Mw#=HYHf*}`S(b_V|&`gi@Fc~+qo(K+lnwDzY(PjG(l#B2Z
z8NaP-nCx4uIrX;~*xe9lU-)5<6|&|ol?518Lds1JYJUq9sW04M&;2yj@Zgi(2S+v)
z75kQg(WCJlqUH$P_-wyifu$dmU3KiO$2YG(ZfwqH(kps4rqY<B-@&4q%u`UD`%-M;
z$67rEU<2#JO?Nr|@dCK2NDy_9cIP1j6oaIu@p=4sW2fxwcVA~0;Mv*ffCP|`1lt+c
zB}G6)=}5Jm+e6;70$A)MN2F4$rt>$K%S0GxO6vr*Ei0;?=qP5tVWK(*8kdyMNc+p(
z`qNu@X~!47_|`ie{Ex|eavDNkcwr5S-lF4T*GKhZTP|tc*4D2I^b32XuQ|eZ_2Er1
z<)KYKicOx^GOJrdy-IAI4B(!S9BvO@Mqcej?Y-hihx;t=-J-w&3G)VtXyt4)JO%X)
zGon|N?H%1xBr3LZ=ZQr9Z#>Dyl}uQzN_bDH03DX%8#c4ne66jm?h_^f2q_8+v%_Wr
z!b6>Jycsi^w0aw4G#@ycXz8c&4eDKNELQ$e-?w%5)p}_=Y~#O^<VR%z?p$PksgUz@
zlIYYgI#%&t%oZt+R*uVcd~<5`v#<K<8(Z*eQ?1B>xT4_Ok1c4m6Ld;9?X%7BxHu^G
zK4A@lTVlPzz-tf*q(*ZQDn7t4l~Gax5{3YL0uM#aej7VX^hW~#&15&q>W*iAHRS0x
zUR+$x0F5j)7ot`9=(#l;WHaY=YFvhm(^AJT+wO_sPF=Msq$K~e?X=L;bZbh$Z=aP}
z4<!cAU0j%-6UiAz0eRF(`M#K+{jlqWxPc2@vCi=~%oaE;l!s31=qsrAH>AhTT+MOg
z8XUVWnsd2>#lhjLg>A8L^wGrOO-ip9M>`wZ=+yR&x}Ys%5p$^o@4F3)2Mt&YR%KqZ
zh}OtdL`WU!iTs2(ce}W|7tvHh64f$M^1Nen?Y7sngX~?KKU*m$WA7B5Tbmq|#n>M$
zvb>GI0OReM`o?K$#o?=87ve_%@wQxC)kLZg8PTb?;x+pE`o<{0L?3(>w%E9jFo(Av
zZD&v(V*d=zU@>&Qw{h(+`ZnITn}OOjkmo9j5-trdzuk|xCl;2@ekta#V>)U+dVF^Q
zBIZ}?T2P_NK~BSWp>BslVK9T80c$0<!}Y`Ti`QZ^v!DgYN>@#{3L&y0G}5z>g2uX3
zXxOCv56&{$#jQrD8{55mH$#R?L)sPBnFTH9F`q)c0O>Fka5TxkWo-M{VsAUXygE7T
z__0`EHHy693=LinafkoCpdx@`Az?bqc1Jv-J3H5hiYK&a*jS@ez;5tWjm>k3*)0c@
z2Q$QItG^r-Hqbw&mw#Ls%5^Bq<wq^2!w-(snOa#{9ZTI`OHjy@7?Y~V5O5$}m}?~v
zbI_NgAe5T29kO-MtEd6L0^INh8H6ZVi&FjL$D@G3hCkx8i8v{bs<cRP8Y!skvBOeM
z?D-nGKmLG<ww@YzQ08VPBr^sZ1)Zm@y^CzSE5C%z7&{a_nEN$mX`#KGS67>(DQl?x
zxMA`BB__8TrU#%U5qT$yey<{L;@6M8UH6ft>*BO;MkK6Ur1t@n&-=>A$Q(`H;R<FT
zc4h>n9AnJLO<GY|A_Du~w0NHGfvi@6=m!epIrHu&B&^VSsv8nSRrZC6;vbst=ADEI
z6c`L#a&OOWa2~HUaGzO|THiPFB(m?ofdl8k4qkY)^K@mLc3$orG3vnmqj>I|C*fKF
zksAgTmlI|SoQc^&ooU>IpafoUQ_%Q7wDkZD#t_tjF?Ij`^I-Xz?LXp!iq}nSZsHlq
z40!Y?82YNcjqET&zLf8`byv^5XWWrWj4q#eo{t+HzWUs&wq_p@MkBY~s0Z5ntuXcU
z=_a}M1hq!{k#9$tVn$F-@zSqx$}1Lmnx&O*GA^}Dv-L#yKDCs05mwL*6Ztomz#PED
z#e4bldO6ygn4(8-Xst%v;S0b^Srb~Svov@b^<pJVNqJ-H>H>xaAd0_!Cnbp?{UBDB
zkDs4WC;dDjYfvTceLcb|H2$QvwdtdpzEY-nUDB5*Tj!~C9qCodyLQuM0d6>et6#=k
zu!kUzB6X*)`nOQS!QMcVdb=gnxQadYNZ|rx9va`fUS0~;)}uDD`(c;Zi4v!3CVz_-
zRbSLqfeQ$jQf3_kecLTSShyDfCrS`Ftkk#Emp8G*PoaLrCYT8-kDnjNo(Pno6-*BV
z0f<R_bB0FFjHpPVUt7;1)0dmXX6xGxokXnn-Z>nE*rLaVX(bV7avEHj5jf82pZB<h
zxhfEhc!Q^Wm}kE9T3WP5gM|XuQer7!!D2`9e&uE<luCczvi$Z<;Vglc_viFCW`Sb$
zy+4Tpn6s9N?!%YQPiBe&1g@UJ7C59Hqmrm!s|lk~N12VU(3PLJ;7z*B&%#UMS)bA~
zy4xNeL@swPl7g|wpd^s5N*@mjc)Hftaqt7RR5G>tJ--11j&){_xkiKFaXGBs4~cY1
zJ!@5Q*Qh?rcF5gcTX_pC1=L?wbX7t*H4iVoOULH4$;)+l+vFEI@{!TaEr75FhE+3-
z*P6}t9>`7573*5n&zYsC-zy3dyn;I2b@&Tg=vN@mJ(s*5N)5Vuc=Y%vX|A$nc+B-~
zJx`+2caX0ln){zZ%EUM`nlBqa<S=R|r}dS*W%AE=!2c{7&=G|4Y{VuSu8Icmn>VCg
zKy*~VDonN?(GN<dV<$CN+IdJ&kmi=j^?5NI`Y4|ca{VPcwYnroFB;!N(}QCUgvp6S
zXly&*=i$f)T8g+7#A{yE8f!0V=1x=XzM)!Psfk30heYrOf}+#K+%l@{*q?)`ixUi9
zgcvUhYnbkim5H<RCG#9v-&-x?aKmwpg<q|0VY^jV9<A7)u_PQwtJRr9VN_XL5>{zS
zKwFe3HH~vcp~c9R2q9DiFI4Li5v!T4ihp?rdrfGIAs#I<F;Zzr$FxKXuvCM|Oc8{X
zNJa_@VRtP$L3kOURqEO?J?;@ebw{$FV}H6hrsUU{<}w0(jhlyoC>Z9i1s>9M-^`_M
zm=+D?!QR=BW>7|dJbnhQj{}ZlsQ@XSUS50(DM%%%@jADa`ocm(Bcad}FPTUNAn|Lu
zz2^^(u5Ks197sJTbGA*y90hJc78Ul`2WnPjhtCZllGiTeJh!K8ybn<G>n>DjRmGZi
zl%Bm$9GpLx&%F&xOC3A|>P9Mi#|ZH?;Gf_Yz}|tb&h5Qh;=gfF^DLWP-p7xl-BGbC
z1lLMr{Jf<r1K_DfD?0fKCZPFLkx$Zr!Vx5&z=fj(HTG<O$9l<U2QHvk5>dUI06Q8f
zE<@`i&Ym5dtcr*2j?jee^*>U~UV@@}3!Bml%{|ur4FY5zJM^djCL{v#oiVNu+Wqwl
z=te#g(DWcGMOoxb?X9PJ0I>n$8lT<ZCAq$}%z~Bj0xb^3yJ;S<ip8Kphbu_}33$+0
zM$;ot+u^h$Rv~JdFp&BTngK*&f#k~$0;}{?N%8&~aEgTY7I*#x{;V>?#w5?|)(g;|
zJyl9t3K-C;9A`&R-{QyxM>Lud`>RNO+>RuqpYiPy-TgK;8APX3#Hvxnrtzbvyx2fM
zmMlO|EWlr1eTqui2a7~z2lJ*eM2Xq`;OhwqhT$`hWPbBpZfO(m{EtF?P-jGwkYf{5
zi-0^CO6(#p9d0uQ8v*mfPmqFq{N}InVkH=0mDwl=#|J5W;cqd)S`6)`1??uh!4$If
z8E=+oRO1Zn*MN^fN6Dd5y#TGA$miks1(dhV&6>-<L!SU)Y6BZuUsJZ4N%cF}Fz!KZ
z5Iot}TBn+79-Z3cP$a)G7=B6z#9pGrV6LTL^>~A_5Yh`FAdFDQ5$|1B-c}T%p@f~3
zSHXk?p2`Mq$1(lIB>JsA_VE}{v}R&VW`BmH54!@-Tz4~uf)6+$*|6+{x9D`ZdCrtR
zDD%#X!UzNe1;A~Gj2Hp4CA<MD;O*qviIU2xo+b;Jp@f(AIclK^AE%z49x)OUH_2h!
zUS+K0BKf&sQ{q3_TeE!iCRtco<in(yA-PDz$Hx<02lB(hGx=hS0H!n<1cCFy+{6nW
zJ<o_LCGdJFy#pK8-nfE|gQVUGPCVsZ4y2sA$|X;(Uk-CAUx|=f2GS3)yjH#z`gu59
z9No>ix!{W5g8wOMwS-1+628AG2+Oh9jnjJV{q1DBS4~mH=Czh0NlJ;`O+AO?r||mJ
z-G}^-7_R#QCtyT1h}7S1BL=ANu2r-a)Gm~=x1iOU<zHeJ%TZA~=J!}^d2(w|1iU8^
z)<?V3L3#DuWebesk6g1?+W+&d<)Rxv(u0{Yg3hQ}V-qbQYs;Yo<wbOM@MIqKrMU`!
zfvblNzHf`|{w$3-q~EY17`}o$Jy=jnqVhBaVbvqrqci4CX)fKT*)Q3+>Y}xE(jJ@T
zPcAWu*}q1t!s|W-+pR0%tY2vSA0u-CipW@J*-7|taw3Ld+gz7%`Z5sTz^&2EG+Pv6
zH5;SolN2raw{=&9$sE(AB*<miUD>mH_j7i&h>LqFVyCp$XnmT;QscxNbChb&enU<=
z+0Ca-6;#OLc%XC#@m(^Cxj4Pb`>Y6-iPYnr2Q6t7T?|Cw%z0MjLube9^7R3R8D@wB
z5k16p6DVwdAfl+bw_JwtL-y^|K<9B4`hBw7OSP3rD%5;%cJN$>j9KbMI4PW5E}e#+
zJ6g<JGMPj(sfF@ruKYWYqp5M;{Jjj@zDR_96^0G7(byRo82@F=?r+z`1}>lOTXQQ1
zGCg(v+cdxd#>0lPc*N=_GNN5o6Su-x9D5JRd1QQW#0Dq_0fUD=pzS*(XWO4Wp?Uhu
z83zrSRP)9IclKKTeafR)rX;IPg+#+fH5I~q7mup=Kw=Ozi6UGzYYYjK3>ZA3GKW20
zM!aK)pFzpj-*>{6R6?DkTX6pZ_Ca<Gp(Ax38tJa{IEm;+Yv)=EV-C$W{)4X$Z8x}c
z=T0dKDLl_^4ZH9Sz0|AEh>Q1NJB=GLVG1fFxw9{KX)6q#KXvLBSw2vm3O0R^ZVT(V
zd*_ZUL~13QO$U?@?(SF#XMtA>@FHr{i7A~FqL~vx&bh8Y3~BfN8n3dK9-4Now~u+e
zf`Z$~7JGB^KG|c<t_vbj8Ydto6LXaF`1CAf+sXtzNy%<#G%%OM!Q0m2tDqUDiRo^#
z{~h2K{g~ilk{iYwZ#Or9t?Nbzc$N2XH&JLvq4mcM920?w5Usx|1XmoZ^XP^zjTG{>
z?^F^`7^`g)@(N05Gh>DH&%krnQE2qZ83G5fm#0h{L~(5_`LAp?TC~9HY1_u6WRncb
zUi~=h1Rxzs%aic}5t~yr=`7Tg)OXTUVVEP8>03vDIf;jkNOn;puV?x*W#Fz=z$|gb
z*3)69tucID-p?iN`TN_;Fwk$)A>R-`I}u)1f8M^40oJs3#~eSh`r&RoZ20)Q5-$uz
zMH6ja-rhB!%53szjw-8iCn%xt;?&Gih9lzox_q|Y!!8-m@E!=KAFZcg-Y@-VxU^*5
zVxo^bfnnuz&C^GH++CL(6=K7fkNmFw;N0N3`9`4*RfO}y#+CbEI&A34fCliEq}t1Y
zmv%WKm=bxMSQ2BqBUF<kNi_s)Q~3IG3^DjP1G^F{EOEV8e?N@?PC}axv^M1SZY1^8
z%UX&4?@&^x#$CFOsbdZjIYm6)qVtow-~0vS_DDV(m0&t%i`tXyERa;-z@?XH(a=L@
z@YQlr5t|!*0&qoFsvJ|$YH8T={`xdjFIbNI6g0H8wMjdI=yc~U3~bTsm3?8rN-sdg
z!74R3UMfmVwSad?5RM+IraSW4GKy&w!7!s2*^oOw#tkQg@;0fK<&I)TR1=#OAr0Rq
z6emGu3NrAqC&9uXGWdSk=F=U_9Z%g1tQu4&FvbL+fL~tXl?QnMWFO(dnjCsKrGi8o
z+Y+!PL46RP6p@Bm&)mJFkmF=erV3`N0FuI><rK=+!oPC?_PybHjzP>Jc`4#rpTpPb
z0oR2n=)(>g79d@0N<=0)p~)%UTtPD_Jb4xtU&4+<+d2;kjx6QFx&>=t!1-<+P*zrk
zeQ*<@IRp?TfqB`DGq8aZ6%+W!kQjVn14yxGj`?e87et|gvZyW9?%cBj5f|Q^G5Y*)
z2RNjlQT#Q|_oUaXQA4o|%b@zTCi^fL2+T49;YQ@t%26lAAz*jN^!-<Ap^`<R#_Dd$
z7FxAh;|EI^#xU|?h$qpM>DZ)6VXT^P`7S}mm6h_6byoxfAZGZmxJ+sj=3U&(Lpyb-
zqDm)RJw1VxOg@PY$<A@B#$C$k8q}2ALtmPg;}*n}Y6!Y_(Z8)%1g-*mt_#H2n#r5}
zQQFe0)PwT+NRtKCTbSdFf!~M-LYiYRJnWpDQsuYV6d}3EL-izF25D?SH^7ny3?D8N
z!W~==p?iSaJ5ljhVkK_ED&*1o8jjZ?9!fYz84k}J4noyOXm0#+5(sp&rYse3!{;O=
zD*z{a0HUF@o<<18V_zhu8{+CepaSK_hjd3g6?1jjcyq~5+f34w0H=iUpEd<W6ol)x
z@xKCZOV9&pQ&3NfBV7TIPKXEQpEd=wN?aYFJb@*dxPM8%2H>$As0#9FVpPBugw!FA
za7~;M*t=i@)v?p$L5avi+(U~&9h=4cWj#G3RBh+Zoht`1k&Ft6S=de%#i@e4d}T<^
zEb$B>04Sii-sYn|S`CUN8ImwTi-cbz{R~+BMhGs8ZBa0<LJ!-=!*daQ0I|Ab&_Z6C
zXGmZj$>Fa8+6fRK_U&WqzkaE3r~*U$4!%b_Cubz*B*<*rCREl`y9_&^G`S6k*8|R@
zqC7;BRF!=V>2gHCdBWyRfTF@X<qI&$%43GJUGjFU2eMi?`KNEpv<34<l%T?ziJqDg
z1CQblstsxsx1)AWw4{yZNE`&VlQnAgalB6V9M@0=SN!QLi@T0$+QG>TO9RH6o;<@#
zd-^#k@0tE|m~H<|S}y>lP$WHn-ucf@)q4N5mmTj#_Q`-B&>C(p@0i~du9=pmrIdFq
zYpoYscia}hLlNPRj2R*$VJgw0Fqk&`{`xWr%8LEuR$G++Tx<yz+$Iu>6Q&{Uf<F&~
zo#aD;pf>m<N(=YjTkiM?24(jWhSzDS6gQK<{c}5Bfw;jg)p(WXMr&!Ygi`Z&R8G8y
zTk1y;->EDAmv5Sy!vhlu=h8pFUHkVkN2<eQSd-BURI2@+8rP@D@GoOte3AG3fSkay
z-DJ~Q?~7x=BVD5UJA#i;-~q?&+p*&~G?eS>s5k$_AQW%^J4WoF-SO^<$f~442pw`g
z&(zExReX{E-cN24#Sb}8sPy>ajqsoQZ4deW{`<eU=kNbmGvWU~F04uFORHaZTo&d?
ziKBwxsR-TqDTfjl(yS!7iR7egFlJhjLTDZ%4)~C<WpT6yua^CpuDHxAZ3V>YpWRWy
z%gf7Y!hvuGe?}Z4meWNsilg@OKYg8UUiY^NT!aPdD-<^L>#e8yr-{>UKf(xdc@;t#
z>B~eIl0^DS%nCqmC3N)Tw<sDv4^J=oL92H7&u#7YW8tk@waRrS5t_GZojV+q5TW)+
zz%AwuFn-Bsj?#OV{%`Z>kwHRi14Xl|rS#fN%q)MH`0#Jr=t?W`2iq<ntnHCNKzmy8
zMY5K{^>-Ch*8d_dNR&#X#6c2XYt2u&vGQ+ss@wJy!?K-3z9&^C_)NM^OA6K2e;QVg
zclXvNI{bPhzFUI0lV87ny>#0Kw@ZKbC}sOu8Wv$?LOTOMRszi*^H{ch<v-1=D^I{Y
zKy0N1ts&@>AD;b>AM$|pcYtkfj|3zb1yH_=SN^A$cKhe^{`?ofjiAfzF|5m5$zvV*
zkH^}L)L0@sa(}lGawTcGvphw)vGqURDFKlH%B93bQgfqUFlwF%-I98tGC?j~C2!um
zSw=7DMj^i2KY!FUK)Qgd6V5mSr(9tfW#yT7|M!mE^``(+_N3Ma^tq~~nrF**JQ8O~
zAN~EiB#8FXC}q~`Z||=g4ayCTG1q0ERVGLOEHJw+kkv}tZYaJwc3o0T3rL$@%mN)_
zlwB*<v-4l3S$vB3OKX{}#!G?>^!2BCwowGAIR1C5@HTYTGIwtO`?!>X`2XIP<Nw+y
z@pWtGpBG6}|M(P9cL}A%fVTR9Qerm^3RBL%D}>62Ug*dQK`M${P!%WBmd^F2_c$5<
z4#5B8-s%6^7y0k#_Wt*Y|Fe$zf}2bg|9AoZ-*?ylJKq1<c>f<8<L}3)DckMR8qJwS
z9OOy00vdb_eaEn{oJOhgWOr5gg_F4p^N#O(s1^gk`{j5RbsqBueqtr7nYD+cE?c>3
z@n>#pe!TwEp^t`rPvlUpyZ7(QqXeX9WsOy{$W}mJP(;1qxrLiW-saCi3@uBMV7S2j
z%bqy#v3b51LHoE8+n<=jb?F{CtAhOb|0=edTo~^ctM1NlX_@S4D2koj!9Pg7-X)h~
z<IX#*(Y+iY2R8($xKG`T(E6gc;`NfyU};^mb5HjQtmb)Kn~<~nh4e-0)BCE={q*?Y
z)*!1&C8v9CzQwBj<J5dBzdhBMCckf6Phg?0uF$}Q$UtI^mcL`r#8ojINbq>0-Sx+4
z0^~yrq3rkoXmc*-IaK4KEj=g<g@4A933>mrPQj7VGN*^Cm2=ubPEJlila36g(w{>x
z-nOsSeDxM-^}>P8%@cn=qW%YmKYaRr@!Wv_v9I!(#<ZoI&8BL`Cz~_%<sH{j9>fi(
z9~2OE{26ELja7DxW`mvDha8<lw%PHSb-EPGTc9gq>vrM&WOW<<ti$d5uP+`G^6%Gw
z$AK*Tf7ijk>ww~RL=PsRGAO(!r)$77_6;qeygE%nC500HRwtgpalF@PC>`#z)6UM$
z9Oseuq6<kuxPC*8rlZ-W)wdVp59dxq(b7<V`wl<E&zEBZ?-IYW2h0rn=Bj50175FR
zg^yIe_0@FPkJj(9J9og^EBjl1T%{1Wl0s3HMy>N|FLcVd(Mfcph5y`5p;&fO;rt?F
z>3HS)Xh?ciZ4l&aOCPp`;&ze^_maI@9jnC(67SxfI}lqAgDFyPze}OCl&&Oqf>PJ<
zlm((jm4ZJWd7U=`_%SIXL&G~k^P^!KHk3hQV>qO9%7<;~KNpk(kFD+?j9%yPs1eRX
z6pH<n`DTjS3$Tc(xRldS{+~+)kxPC10j=eoR<7vIozgHZb~a{STf9`>F7j-=<IRpo
zcm70EQY?8B*{w?fY50O8BKD)38%Jz}$Hsbt5mL0@NulsNE&i|-O5`0}Mf}t!dL{J@
zDB0f)pTZzaE)K#+P}b+X*`!{`=Sxs1udK*7>#|(udbEZzo9DQ8?gVMf1R67jeCE&X
z%$m4er;5tkK!ojBefz}X$bH>_g3hqQGhe6JUm!7w1%lw8?{8fEKF)Ds=FXYaId$s(
zR$kJst3pQf@7<EnFrPR&`LcOdpPmh~@Rg2yCQ;L|FF6f@-maam(bI4U$9Z(G!+_IQ
z$JC+nJZ91b2({^6{^BBuF8IqNNRZWlKmTK2lcUCg2p)|&wDmvFG`)~qNNHIqr2Bc{
zQ{l{5>^KAE*lj$atS;lrraKEWBjtGd_ZzAg(p)fANyp9079ak93=I5FgOPvl|33=`
z{~iB-#~%^s-}v)CT$KI05C7eV|L(*8zBu%U1hMI<6ew`kk^h6)a>PrFy-N=;*C$Vi
zE|<MIpQ$u}|83e7MlmjNYg>q_+x1pq-)7)X+C?hvSW)`vMM31)MS{8kQ2*P%_C<=|
zzDc141qI6KR(kK0<98C=ji$+FUFc_Ja7vSE!r$)a-9y%$r3^fm&#q-SxSiBDeUFwH
zwm}ZxQX)EIDhzXVJbYI_&_M=i98J&<M8<zG@LOJ5%PJ}iLn|}ubg9SdnD1lu?}a!3
z!F7^7D0L4|(P_<fE44w%J5Y}%K}VdYmT*pPiR?W_CZ;x+O+8uX2R-6(Y=VA}8jiO6
zyyjSx3S0;cXc38rXI)<;S1Z@$3TmQH2BIT=ih*lCf2Gelb{hBAjYm81vhkPj!5^fd
zBpbsgai#V4mI5>rMTxAYoI3Rhx6_3&Y3TDV@1)KK$n?7K1Ra7KezN~sF4Nf9SoGl?
z4}IRRkuSz)+FqE%L;#Cdroq{jkCS(lQ;uGG@0Ql_!bAs_8&biAM@8L(ogyC|mu>J;
zd%|g-JV|X%F}!Qx+@nUFRpW16E^*}>U(F|RvFWl-*kLdZKVaj-DI7b@Gy77MGi}Yf
z(&5g&G}>9V%RHkibeD+Wpy=<-G{;WkSDzo$J~2Dw?Rx*tzPXkxEliIt)XyqLS~tca
z9A8j?qmv|iGBPrr;}ijZm+7tndt12h55Yq9T-ZJVBCG5L9O2=GhQL_U0i3>YKh~+8
zW56y{`9OiU>ug&ZI#i3sw{UB2gHOrWN8q}DLkLs&9dQ=>x0|l@^z^`rxE1xWn<|_+
zfoZ=UOP(V)vqM+W3;Jujb`le3jmEWrv^B@_VKUD&b^f|PEX$<9>(0JSs}EiI`H4Zm
z>T>No4$D;;nsRHP(rk&#Mwj4_mxa@tq#U$8|7>Gju%l;N`f4+*u-uxcaLXOgm|2$V
zy1*_?MX_jdyta^ka0cy{$tnhGZl5^+@<_BPX{pq6<y^IWaH&TKUPM7jLt%P-GJ1)b
z2gAfErFEnte9mhiZPbXz=0{gR6#oWFRu|lqf|p|V<hlvtfUBZv7=68za863x@1=F?
zu5aN#0I}P0cB;gcD;h({WMeaLvZUp+1H5uYG5Q((89h#4`6&ZyX1Lw$qu?dwo0<I(
z=onW+W$e3p*|r42D-fe}xdVE>%VM>1@%+c4(M9i4>j0IrYAY3`DHOM)?&Ujj<jBk{
z`n70(K<KX5{zjF=xs==TENWt$Un?-)-^jFK12}-YINd_Qo}FS`_JCPP2RuW_7*3pE
zD%^JUJVwlIfh?v`aIB^S5be#zr&7gIT^HudP}O@DuSlXHmt=A13?^ILNCYhxhH#jW
zp;nyhvvB25bDgdT;u0}8HiqX+@e@3XZTES<-@ysKg=nm9LzjX#Oqltw-6>4#?V%(+
zOLYyeQyXAf(9|yp)JO^B(K~lqe{tXp<3SaCf-zjOXQ-{P@ZpY=kr?h|Q@F?UdgcZs
zV5Icgu<OhxJztH@=#si-+LR^0$jJB;9V~Yt#eahJy6yEnE>H9*=l{&V_eS}EqOKFg
z_`Seye>&Ew&*JBL;4jQa|NBhf@6894*K;Vo+ZXMDgMSSI?e(LISN_^FxRmqafz7(;
z3<-$}fFY6bXrr~9PuS8|&&=SgH$^NPm>f^dWrjfS39t5?NXbB5G6#-dV1!rE9_oHr
zaskyV_o|wjLiBO7!iImK@7wc3ySOrY6O>cUHENx0nHU*$U}w03-l;-Z>{aV<tf3)s
zu!>eP@*fNCytw?;a&oXSF7IrVjq_Rf$13G$?V8YCtb=Bm5Sza{SN!rBigD5ME$ZtL
zJh-A~M!V>s@^D8N!gYXVox8NIlX-*+vupD@sso4F&>PmdeT1({s1a;`D)$qX!tp#_
zO0*6F=g>W^*`4M%@kD=aBhSvC;cp&z;ylYjv^uepKqkE7;iCcd>-vs(<~D5o1JUAM
zj5eidYbfI72yR8y7G9ZXsP)96<$!&36K3)LiQx6*3(lG=0Dtw9T5R%oZ7o?Jm>BQR
z4V22j>FMb-w1c$O<j&iS4m2-_1c@Oe+TjEpo!QBupIn0vs5D=xj5oi~##vn(hB}V!
zZHAdRN|>H<sx~M&rwV!!SzN9)i8#FJcN>m<;jGVWb!TcC;#<;UIg5C3XAM`{_V4^{
z_kX}l;V8O*(?0IvbRrRQWEjK|k)?D?x30=MmN?t3l<NrxZbnkhShX6u<yjQ`S5lfP
zapcFcadh`EU~}swekUjQm7zVLJR?5-5E6@+ys0Sc#FO7FT<Gv2uFU9C1kpCQUcKRw
z$w$MJF4D#j-j9z=Xjp))YL`8DEG->u<DvTI`4q-C%LcA4<sJ+qrs%Y(j+c@>h&}nf
zIin#YXf2fCJf&sh<Z)q3Gp?ROzAU`8itg(;T8NY%)l#<q{H8|1saYXOF~}Zd7!Khu
zVFpnrJL|6UJz&Z}X?B9Ny3cTEr_1n@pil7fe$_O<A*MrUv1RTWx;`OreT$tEtTp#y
zo%>8e)Ob&wDt>vi#G`~Vm~-XhDz<HL6V*|HFLaSo^i0Hrm&xw;^76V;rJ&@~hcGQf
z_`(Tc$L@%*0`w6ord(_HQ7S;=7`x!Ehc8bo%Zh^Gs{rOg$sRPn<zo?iAn(<_ZnK@*
zv}P6BCKJZcoAf$3xHYb0soR}97~KMBl$xp&ef390C(=t08(}j238s-F8j)wKjPTH@
z(*{&lbavOTk>gu^SSGqE*wFHzoNq*FIYxai9iBjwGLvn+M`-b+9>R2#-ihj<h@Cs(
zAzy#{L~!lzHMc)5N!>`yG8{ZirALxLpB-bt*75ds?$!O~(646EwSL18Jh(zQK2SDg
zB74A@`#VC2=QrwOW)3qmlBbe7sefN{aEVtI{^duxl#7(^6ODuI8h+N;&G@Cd$TGRT
zUz2nes$Bl}9Fe8V-Ust5w~%8g+o0x|kDFxSAVKP0=ayxx{O{5+hwmqzKb!aY^5J_H
zGMWb;U1>@h0d^5Km_v-6Qp!Y$>wMzr*m%H$1RKQOH?T;1h%iyI=8hbT&6zg7r`6W?
zC=JW@&xdbdM$s?UydyvjkiZ|#-H@>h;>`3&-_e!I6xj}RK|Vl8_NmTYm>YOG*7a)!
zhTbgGx!Mw!6rIE+vh`=~Gi*R`OsYH6O`%Xxk^hf?ebGnF>Nc?jSYN!Ssk<1EWt@J}
z(fiRDGC^2O^2BaVu#p_Ny^_Lt1&v(KqPK9V|LCQaFhN=fn(H;tbKIg~eIZ|e*{hW7
zxh)TnN@ec#k7yp)+!pBAzrTLw7n_*M-7>c$C%~R>&&Coe*pfS$U!D;hyaTS`=68wY
z6SYA(I8|3fbSy$f!3p870{KcK1)<U8fJ(yK+TR3zz*g#1+oWO;pzx^HE#){N<E6;f
zdZUrK&~V)p{VMTxLqD&HBw~w9e!rF@mvYqLyMIE>61TiEgm(sB{qwa=*t28GFe*9*
z&Q%1>Z-UUxQ9tu>OU`;UBu94MKW0u4x7i6CxVJ8?>LVPdy6BvaN5_*PUiZ#Xi!XyX
z^C2H6`7t3=ushD9V@>zh=SSkE`V`|l()%IKY$I<(4)jVJ{J4hT$ar|>3=IwUIY;A-
zi5vh8*hbyz%O1VhtD|M&g-EO3KN^m$yR9Q>KD)H^JQDsre8i_3ImsKzPyWhIig7*~
z3VwQW#25~x6CD9o*^cn2t29&;p9w_DLL6$tgo8Rh?g$vbdKZSX{YvqnLU}u$?Ly7j
zi;{<Joe>a?%qKKKzZjcsdmzMxG?9a&x!eKFq67fb+tA47jc$?n)2T~w1fer5q`TmQ
z-rK*FnuyK{X*agGP29xkIb3KJ*ofZz%fjen8p5$@r?7H$(K~U-X>yPOr$^#|p@Rrf
z$>Pgjxg&G3k(b8#d)~19<)e!RJ~rkH`!>A>Ts(xsJxDQt^SA|9(6VeJa`5=)_cPD`
uAx(0RFBU>)&tbOl=ijgY#pBSuutZ|ufxNYzN(>oaiPO@jVoqGT@xK7*Q+N0P

diff --git a/reference/bar_chart_counts-2.png b/reference/bar_chart_counts-2.png
index 1c76567a08facb921e268634bb02b5796f2ce1fe..49fda157cde320c409300710582603473d7f12f3 100644
GIT binary patch
literal 42744
zcmeFZcTiU8_BDtR6%kPZ$x0GXK(Zh~B}ot!5djHGR-)vL0YoJUf`}v$QAr{oNiqsZ
z5JZ$5B}&dg(yU|mz4M!zs;}m+Z)&QB>b~~H_dVe```LT#wbnilFQ_Vz@1om9LPA2W
zcve=8gk+mD3CR|N9ozAn_NQ@E_+z_)vVtuB#Lu!!z8C)3X>(S~j)a8Km-u&6(7?1Y
z3CST6McLEp&QW8XF77JL8`4wFDjbUYuRh)ucg8|-JTdymyQY^vio&&(l#|~6N>1{V
zPfW<7iq*Wi+;Ulw@+V6=ALULpbC$z9SSYJ%SJ$Wd;-5$44b?>prw#S>#&)<-R~0(d
z6-<gv#(y83cil_*pP%4Q7u!E>k^S!v8^xA_|NbA@J&!i&vHbUkw48+RKi{JazGrYd
z{K0>IzMSSSQU34u`d=LEVgK*fY%lDd+V|h@iE(ase)ylSJzzNS|M+y@TX3D(Hj5Lw
zQDS!6r>CcvRwj#Y{r=A0QQ)#)OH1q9%`A=@UvKYg<84_Q!(5b<!SnvKg4^8|#wfY%
zX8IKma9$`mBWcU9+DRF#<L<eawqoVpS-SikQ?FmY{?(Fhc*1e)pn;)baA>Ia+?;*x
z$B$)|m81jJVKQHz3tueu^iWUJW1N_n(D;2tM~C5~{cnS*r7yv((+vvDS_yncMPp+Y
z7OffEW{2t(l$0K6ISdRAa{oBWQeAIrXLqZwg8XxNdGD`szq2YTp9APcA3uG1pOk{>
z(2*mgR#sLvPENi#IigBWkL}dg*LQYvi<f=4kMnBwG2%DU($WXG)pu}*RX1(0+uG#i
z<*oWZd02dsCB(0ug5{I5*Iq@#Op-Lcw8}Uc->La#eO4(csd_tGTU(p)HesE7M{?3V
z49?TDF_LZuwa@scW@j@sH$G_d$Okc5PMubJb(YfqAb**`_>+u<iB7+C!%7xG!Nw+C
zO53TP)4LhP)pI+>S~DBsWJt;8IIVN6I?pt|KIc<2KisfI-+kI=hLI)15Z83Vet2)w
zJ6*rEl|`91jS&*kf`a=OC%Y>Xl*4z&4E_3b_wnPsLRK9Iv&@_2eRfgxjE{eP@lP-X
zKgm?Qy;v80@}QLa3DsCBp5)b!4x{g_I>r4NPg1ig1bS<yx^wqp(SD8mOx_+;AAOPr
zYxXEdxf-GTOw5i$BSrK2=({g!cu2$Zu8KEU^|GC(4U)GzJ56+Oji%nLkCEj0M$fV`
zH~0Heif%r2rpebcj*i*C=FPLT86;f~C<HNiObZ6c-y8fI8SgOKWY(U|qvtj*T;Bdq
z5NDVwDk_?F737unrD|uD-Q7l}(lpz6Ui$h(N8a`z>&}l<r%#{G_+!SKOzMoQ^JS8B
z<(wICtcwyORz>5TPNG>G@wBgv{7Bp$)SP^UA}%iOQI^8fOtS_SU-F5~w<9CzKRQhY
z;@msK{QUerjko9Yj*gng#jFM4xqeSj_Nj4kacLbZRWP#T=jT5tX3O@yu`#s`>%hyx
z%1TK~`!MNp@=JsAM;W7!9y}<ijS%#ywrI~Lznr8V+{r=NO4_x7-P!-ez`(#?RmuEk
zQrIik^_A`oy41?3$*Y5Eo+HVW;e7h?&F^%nqVw$MhA+-dbY6A7AJ2d3jjFJA_hPqK
zn&wp_G2%1M&bg`i*R!QO{(RxiF>mJeaSO?*3FqsZ=*%x0xKB=Bk<iyaH|Hv8QXdo0
zRp@qAGB;T$T6K|y^!X1j*?tD+js4i0tSgAr0H(C7Iq#~(nWWs!>=V4q%s7SU+ASSS
zvPi5=OgOsSCMBQbZ67${@kgj=bw*ikMBHhD!EvJF#?+DmvxoOSb|ud5)LKoZu^uL)
zyqqkYoIB+FsHu2!jH>n_4#?()V@0ewIFogd2B{`?275G&&M*D)<D2RWl5YEW^q*|C
ztY&33A-yo~dil=gZEWSscxZ-m&MOP!a`~@0leak+<HQoqQziW_`;Vx8#_q6Lo-t-)
zW9w<w_mVq%_Cb{`GTYg+XOAZb)r)EfzA|fgi8#*HvV82ocH~Ik=ZE{VC+@STb5ltz
z^=#?2O-xKA(iYFR_>G2}S(=5eSvGk+J=grKLe3gdAY&piUmvylCp`~b#cGSV78q6r
zhG@`itglSU2Z@?}JM~syDO2gTsIV~AXmgsVOV{gjk;m<aFB~|kv70+=7hS-1JoHj*
zp>NriSDy^LITvZ7A?>w1K+}<X>r>AytCYbL3zOZ}Sg|BL+l*?<whxNEF{_P<m);m9
z==A#Svvs`kPN$Sc-~Io*5_7M$`S6Cm)T=onTE2+LY|HlDOp9}KvWaR5-Yc)!lG%J8
z@9Q8ZBO{XKti)@LWPY~=3kC`2y+O><BAS(0x5ptNEJuCLxVnC9;Oh&Z6F$>d5#Te*
z-u~dxqkX*b_`;3vY#+><_jGl2+1$F79?6jI>FK#+&mMUlou~_W4<79B_VFn#FE3|V
z)6O&rNU_C<F6ADPU64s@W<7SSwyE>b--1)U=)cWm(+l|kI*!q^ii)S@<?omFshMuN
z8gkiWYJEt0gWpB9yT~Je$;rv7@&P5QN>irOq+ZpUYilUiC4Z}wg-)mLs-$p>PwG~o
z1;=zh9=JzJA^&h6`-=uM3s1WurMi^nl$2vpl5S0#3pd3`xZK57B?}+@7Pm!05?O|o
zWyPkqY@1g7KUc$|rfOpHy5XVi`uh6R%#486c@-7^hCVfuO;?|nn@)A*JJt8s^%6O;
zx6J2U)6XIgH*a5GddVXK0^g0^FI_gRiz<Dmo4=chS=5SQ)<=AAs)pan;v`wv^wiWT
zGqblouCI3IW$HDjXx-D!y2;f+-&n)2oA&s%+hvl6Gx)G6!*xYYoH*$5XYTa;$j^&O
z>RisQu4m#KPNixfOP_wzc$k%S%Z(d1&Z??b{7k-btN#n->he(Rm+ES@DX-JZRHED1
zSTdxf+#WtS*0;JmD<7oXx!S2&yZ3gf|JEj>X_84?x=KuAfs37@!}7{Xq{PtDbYIAb
zYu%5Eo8^8q;aR0rt#yrW&im95)$?Z7&jp6i^2Wyfj3*sG2Qr@YuC_$U6f~{#&d<+(
zxwec``_$kHm9*DS^}qd~ojN7Ci-hW^#^;xEetY-sy*9;=rA>~1`1tsoU0mYM`0Uz2
zPA<2xz82R!8XOXG7dz!Tsy{0EGujQZe*j3O=}j*VuKmApv<9IU#?_(0LS!x9k1;hU
zsj7;&1g7(S;Iq4R>rPNmP=j4YW~Psb2jYu7BqU@vQ>>^plMr3<D{c;-VSDjj0l7y9
z(odZaZ7%lm(i+&qER|v=jVyc%$+Fk>-gfc~O{r@vZjYm){5v{y;soy8xzmzu8QEW7
zR`6DxJM@^=zG!iWGVDtmfRWl5N&3>#(u`5IzgKB%bT!9H*j0j)^NSH<IIpe%o$1K;
z1V5YNW2L_~Axb8nOH{VEU$ynX_4B&~{xDAZ{rmSbenZ4IO37RO;-dbd;J%C;_x$@m
z-d^0YZP$Ulyg3%F0&*)T4P41OixZtx<D|ibiYh7xc=t0gy<6J7!Xo$Rh22mckPj*D
z#Xp!;p>2(O+dqqz(2?&%kz?I0;#^?z^||wSRx>KzP^=f7WY>oqmm1z_d6&O=t)#^}
zIWoeXCq+R)@nq;=`>}E3CmiPl=zL;@&7byr4$!z3GT|8V?(P!2dIb-1b59UR4H+=k
zYeNd~q-SL05fIU*=4P6-;&t)6ckf<ERAb+|ZQIUmv%kA_baalJeLHka^Zlu}I`;NL
zOcKs7T2uyrCw7JJ+_B^F+}-=3;SmuJkpo$IdH0}j$*8IAv+61!e$zMISNWx`?!J8d
z9hBCB!ouG1adKv6=A}P>UaCY0aO!>(QVQoKC!iItPRn(@2Q6h^BSn2`3Z^UQsfVjJ
zmX?<fBdNT!JaO;C2caklmwiZpG{jwCPqAXpFflQ4YGtr(-n@D0t7!MxHo+d_^RZHL
z+S+t#YHBvKgXh@T*$<0}(K=0bl^41#+6>h(5=$y3CdMZvLq^5zjfgJ8jT_fIm21r~
zraW-KduE^pOCj3baSu!MATUr~MP>J|zP?-YBbSX#OkSS4vzhbCI|lA6@BC3?S=iXN
zvMYtYcW~lC{ois#HL3*YZ!bN)U-8B|J%Yo=&Q7K(g#98`)Z5$p#p!$7-)g3_==Zmr
zb#)cTVS^t(zKtiMQ|!rz)16gTmT`0x>FDU_>Fc`}!mj)hd+V)6DqWIB>Z3<gN5%WA
zITUhvmsj62DdaNg4ZdAGS~**dSf&nSmJS3)>%oJ}wH?^SB<;ET{Q2`+w{AUzay&oU
ztWfAW-vcN!IuWAsMm1W%wE#sYWaOd&^?TvBbFPJ5A>=5;*Z$1?maktP2-m-mW2LJ&
z?=acLc;tMHkZaw;{YO*=i%&R=9KhL3rk38sdRBMjZ^Y`QDV#a8S;V@_U*B_iTSP=e
z#wfSis~vw9#{HbSTu8C`Oy-ZWuxv(hS#7SLcP;Ecv{Ccw^)It;FE#;@ap@GRS#{(d
z9wl$c>Gm|Admhfs#iiJE-(D%p`khv$$<84PDd(vd2J}25_ToYoEf>sKORy{~+}uiL
zhn~j71V*29GC)erwf`Lw^=?oxzTps_h;`92N79wFz!xtLg>qgjJ6!xiy9~%F$cKzZ
zNva#|L_<RZ^;q!1LcJjF%Srt%Dnj#Hr-}<oS@1+n1P)1>)E)%ZR(RX><jDEKyv@IW
z9(GVrgoio~VuPH)<0NOQ|MKOOfdLEPvM=&#-&F6Xv**rHjlAJPM4C0fW5g=m2h=W~
zlw|kHu|?Wq5VzlfML6K<c=??U?e*)|&6-kLi{It__@UlgpNix3wObccaSPh^pY84L
zY|S*CUG3D(wb_K!P!9CQ-aIfc;Dh@8(zHG%<GY_&^_n#wO45C#aMZXn-yg}zwB=X_
zA;98Lbg6f`bGe*v|Ml@e@0WTCb4j<^#`!4$g*<)z^66DUC66L3=U96VMQ?9!uKRLE
z|Hr%c?(w_K82w1Ta^CS;fqC;g4$&3Yh&OMJAh6!GbhAlHGGdwcb2sKYS*t{foC{tE
z6R_zy#UN%YJG1<{f={i2TkV&!T8!ztckdnq1PHsth#gy3=g}+3t+JD4$`G~cIPMad
zs8yt$N^Mx-&+puUO(%1IcW}oM(}d<xN-8QJzT#E2?<Ov4KzSr&G`ye7e8?yn82sy{
zH*}Ux&qk@fc{1<wX>X##Kz~1H(`yD~;M2=91Jih}WMNk`j2^OV(h#FRyXjP<h-IzS
z)t!=V3!kwWe5%Jf@-C&Do<a6Qo4~4WvNY8jLb{)VS?aS>w}&qZXZ7zGMRZON9zHy+
zqEhP@`!h|S*}N$w{j6J{JR7ORltt@fy|kQUtpiF@R~*EnZS?H9_=eF<ew{D{I!5~z
zu!VHbv&(4p^ot%=S67z-2)@73$bm+e1c~?zk@QzyrhJ~%c!!i|`1t|lgP<T9-bn2H
z>!0q&p;^#OHz=3hJndSjx3s}FB$vJq+t(kdlgul4Ta1Sb?ud^1nC9)UqgUv5H_`R&
zSS(Iul=fuM_n4;wPL4n8QM~@=sOQ@Jm8F#xtS&98@#Q(e(+}O+nwk?11g@{XZ^{%c
z)}g2uYg_xnfQ*svxhB4yoX$J>O4_dQ06#yOSSgPSnI`9s>EvE$O4$gKUO$LJ8sfhG
z$(MqXkud-fwKFFy98D!z_X<$V#aEW>cn&S@DIqjh1ETefr<+v)tvKrQYzH2_`iL4|
zRq_B>qDtp}vPP=F$K`ek>D9-Rq8j<gP2%>$w~-{dsXII_qlI@}oCwe>bmfxzRMlD)
zp&Rq;8Rv~g8AIfx6!)TYks@-y7qvI9auKx&S@)Q_$?xw87jCA1Lcp--y!KdG2&wbK
zvs?Q!&m(e>tx?wQ_suMAEq(baiK?n9qFpp7)xGMny2LNFv1;di|2_*ZZ(UO-f6c;p
zdqawrVCJN+ayV}sxPhg$#cryRi1{dKFD7z2p~qB0F0IHf-+%^vi;Kq3-Mq>DXMXf=
zTS<M)RSRWqI|Y+JuKh3%&$;P81Ge6yA@vlax4cI;*^I4(^|=fXunGYA2~~$j>+i-l
zlyr2Dq}P{ZaxLQJ1H2pA>tdz#a~Wl1ue^WCb*W;Es@cecnqsPG{m&>z{liC(Le#@U
zdqNY{DG)(5c3K;D#G#^i%V>YkyQb(B((zo){-FJ>ceo+m?E9;SV*&Xyta+K&QR=NU
z@^|jsc_wjNOlA)4bcM;(&;Sz5qho&6RaK?91)pmB;cutaY}|pshdc9grgp2TJ&ls+
zW0m(mesrGvq2jr7<;X@n5>J?J8}PY?K7IcD5n$r4;*GVm)O?m26wTv~W14cK3}~@r
zJj4S1{bf;9rk17+%SRXlj2={V*s*;@AKLIraX&uO^2-uwYB#8Zr=cPh-x+#8_RoHD
zW$1M!VOa4TaMp7nqdr!0B-Z_<rU&u^kbVUi0H5l-+}s_~$vE-rFS5C)|Gh1Bz*=KB
zeGV%cPLo(;)2Ix7l60A2Bl^}1UM}lhKyQ|Fx#<Bvf85NnDPl8y+4%do=c;pLzZSZ@
zgZu_t2Wuk?=d&3vBBs9K+4tJkJmnEQdg|~IXP}^)PJHK{i(2zW)th~~Pi~S!&&bGA
zU@?iP5Ot};#UHn5IiA<avMr2HUoW?IHet<eal+xjKvm!|kSw@C^|_iv$%y0E?_S`Q
zb$f3+pya;T=|r9ARvpUKl4Tw)H=?0tWW*-#fAD(nN7CH~OK8rTd;@bLY)*~+W&Cr<
zPE~b}>->lho~vf+*DGRW4pl?G^C!yYdxrnkdC)8%?A~j-Ute9CZYgxjxe$RAb|sgQ
zz35&wEq&42Lc2+ha+7Ho&oNL<W-|<zmi2(|h(7yy${Y0L+k=ocI)=+7Z~c;06uTE4
zj204&f~EN5tuckyS9*P!E!s#G4x4I>VW$I`97>i%ql1P7omF#MY-fVREx;KBjZZb=
zuWhVD959SVyc@ava<Yc7OBaZ^0mp|2G_ozUv<4=+3jHXgmPmwe{ve1D%KiKA`TOto
zaSJa->bM4cY-0J&AWhI&f1#9=xu+@hDmrww%0R|XpbL++RUoXVN7IV6Kaks5bQg6R
zoZjD~MHjRx;Zmy8?LHe|)8)zTF;jJ9X*{PprRyE5PPn_LW)Q0m#qGZCG=}=4=6Hn9
zq&z;#wI39|8QO0jUy>Qn_-ApF??(jyM6Kub!_Q;lP+X_x=7f^ZWsoOtb?zpJjv=D)
z>$s?z)@(S_U*$a2bEiQZe37Be8@EgJ$zhxq&!`=0(^^~V3u^i3ker&oiR786b<DZ#
znSrlWqs46;9H@AYEb{aqdmCFGZ;n@>&>Gj$F7{mWuB*r9BYvH;INZRBp8UewTHNC~
z-he!t-n*ZMy6icK6e{{hh~wx{GAyjZWLM$EczN<4saI)Y-Dh@+ShNsO@lCYLO>#dP
zKI$S;#-F~-o@S%G&q5<2xNi8|-B<Ky<Y@8-)=IPpR?{LHX?g(&QLO?-(@f7bSFM#j
zoa3J;qz|->>+W3e)SX$ruDjqVNfPK)Y%7r_VR%C<ObAFnjwEF`^C%)(A&`M`yon63
zv@9}{f=NQt(aq?p#?Glf%gc(pX6%1|-v-KsZ*!h_^d7H`HBllLB3(xuvmPV=3asis
z$QOZ?nF_Hqr34<HEZ*p9>Rj^WH>~JE=EbwtZ8Q@qJFP^bneUjIl5^YE@$x)4(f0l^
zg6su1>0O<onSRF6&Gu;p(p71{*usp#{g{i%KQktjWr*OyKDqY&mEv$qIxB(p0Jp$R
zT*r>ib)8RQIaxeNs{Hg=x&uwh;N0)V6K)GBpv!)MPbt+J(O@%XIJaR3Oz*zXYMMP!
zK}O&OAUVrU^75)eAZ!~|+cZ+sTz#<^Cmo=dy{>sZlaoQ%o;$Pnt-B-|tO^f(Jp3{(
zjStAlI7cDdILo0i)@xnNb7fpKKF`rXobmPfSYC5(546P>Q5GeF5)u-65zr!<+29v<
z?A%Fd)kxbvIA}2ZEiR)boaZWatmhxDn@uS@(ICD3dDARQ`xO{*gvioDyS1^UQ9P2_
z%^#c=9k~}ByJzl!-Q2;q;w82Ja{oQ{qeqpS_GR^c@@;ppUBD9Wu*}T{pCaM8dXQ*B
zt;`!<%AFYkOSlIZSi~h}*f-nHkBoo-B9?70@GQZK+(nnBlyFxs%~$n}jJ*7Ibb7au
zbqVJB&H31hJ6lK}hlaBK(C`!n@blZgzp=3~9d|;bzkSyM&fCaDG?wkza;Q<ggM%jN
z*|R6bxafA#@cL8pX!oEwlLcD4Sm1n%U<|I6-o;MwnD+lMI{&4r>a>OiHPNquu_4G(
zul40ODMh?Gx!+zZUk=E-)puVjc9NhUym#)ukg6^GFT-{|Mxqp*O}fjhN&d5PV{5b%
zH=3OJq#J(Qn^^8?M}xfk;BgXk_ng`vhW*l~JM*1xElpiVDpFXQom*d90jAGMKJ;{7
zKao35@QF3w%j`hvxEh0{K}PmLn8ssi2vq=yl4u{-S6z@EYGULNEfxeb`@N!tWG^)}
z$BnQRJ2Zc%Zr)5P{W((cpkf!1(wn=x6I8_`C0qoM-At#JP|8%cX9x-kUc_D8tMu^j
zATB8XkB1gd$>{Ij4{<l~Si?uny4d#d$_gAR&#p~9(@w2xR<_Qz>g0BNJqEfn0EKm9
z^lp=x(A46h0$7S~iI<M7PJN=#%(aQLSwp|}x$4Q0i}{Y@5<wIUCyv*DpbKJ>Jc9@0
z({{7-qp;_n-$#0-+O)4-JERoKc_%dVK%6arAoZ@Pb#TEib+;U{+@8dfW!A76ILd5$
zf04%uafUcYkTKrj=8CjE_&rEW8QW;Iz9qP+3)rX<LCNae2wObf(wZ7FqM<%}cE?A@
z@m)QwzB)kPo*QdU7HuD@QgmL|)z;Tj0ALE3SL8gX3}R+QgNR)6%}nUv37bPm(iC1^
zUcDc|*6!QCe^z2)wqBadOHYYbqE#Eh$G6n0qM=8xOq7S8j8^pppWg#wz9rA@2o{+%
zTJ?xn3H`x?4@&Qm#=Fc8PR-AUsmmv*m3DR#su9BcOc?j&ZwbmY1P{<x8B~e5_FmUV
zo|FScs5^K;@JO?#v-1gX+^cEnzP`SsM60j(gyT9IhvCLIL1R&~*-fCH3KqNE2yIA0
zLgGc^Z=00`%T-XrOC!l?MhVJFii)L(w}1)ZVCKn<0(6t4SJL#Tc!!WfK%ESV^~%OK
zl+@SPr=(A#!|_KKqdy}kcO&~FuYUQEugClF(NfxpD}h5iX&R~8nt8VDyQq&X1;t{G
zAxrh8=5&=^wJ!A0_gcGbHdAj0)P#<u6kRBLw0^#$W$)w^3O3EeRW-GcZ&}+&08S2w
zck4wcEo-G4$USk;`DkA?JiUieyydbD&3m;+_lM92dxLtZsiwbq7Svt3<GA*{-&BN5
z;mP%9b+-QE2eXUifBMb>+K+wR33h4<vOq+^3tiAdRvjmZmQdrQt%+Uo&tKtLg`LmT
z64klgr%Fl71{}xR*gsqyC&ZI>WIg^9Q}1cg3K!^r`+3ym>-=*O@jIg@`}z#$EPL&+
zsVS2d0X~ICt$$%lv}KtamU-_y;X21juwxN|rYwgJopOw>8-eg67a?Gr(nW|bPkFB1
z|Mu;IKa(UKXw*kPd5#1GM-8QCeXwZV2V`0Xa=}mBVWgzJot~GM_d=pNxb4#bkQdVQ
zBq7FaAqd_diI)P__x!jiEFZ}55RDJ3fWSWNb9J`8mr^wO2@V=tXg{xc(DJH)fPj(p
z@JHAAo5&C4{icpcuj!WUB8rjfZBIZTv5Je+L7tPjaA7a#Xnma^cIBtCC<N0e%+*Ej
zYODH2EEbCoi$|+AJrh2Dd@saN{@mwN#`TpI=ot4|nU>z&R%Tple7>1ImO0z>{C_f&
z20%@^=h`2yZBDb_(Uz>v)bM4rX<^^@3q647fOw`!(yucy$L8NBUW`r1srKr@1zI<I
z5MS{tPKup1Uw*LV<aD_z=UP8CnGe1K1z@U@*^6^V-V2CKGslV%id&XM(9q!EFW^QI
z&93flX7pIX`OJYMz=|0&#8-CV-+kPT*aaWV8qVaVwzO#awvu;f^w))ieQf;(^myyn
z=bgQO2DZjnp0+>IxU}RPmy?Ryb<T_Zk--15raX)(cX@d^4rGQ#`{$D2+`PQ&5F$dp
zTWD5;)%f<}^p=#XIjR~rH<^k6tRB<;aCWA<5{&hh?YmDw?ARUChn@8P{c)|DAr%4=
z=zWn_P&nE}V^`HVY}NlI82r+m{#jjJ-E`n^-&Xy@px=ou+1=gUKW3<}kM-nvV|Vw0
z6x-!0a4kNjnP@hyf#E2lx7b4~u(jol!~Oqw0f1lkazm@6>%I0^Y;2t9U9!i<U2UEc
zEnW>2fD-gW-V+0$e5%`0M1Y*q)6+xht-%5b(fuYH$;`;GL7J}`g5cl#(;JU)KlWm@
zm|ey2G&YA~k|{v1d{BFz->Jv~?ZsIf-m?8YSYs`Ux4gO^dwNRm9Tc^SYKWXi^oTt7
zJT+2rlTdoy7LGmT)qMoQ_$A8lTfIW@B=y9*qTTNMCktlxaHvK-AhcSvdwXW(wCmcr
zva|yzS>?anv_?OYflhGkc`Q*$9Y%go@*WW$=6t??m$PHE(2ei1xlue@w{L&xzC3fr
zSVeM7pPHH3dXC&c@73$udv(dL2bD6J4uYRVMQpQ|_f~!LslVz8KeB*U<WceXO<T5K
z1EkrLV;gT&6;h^u7E-KfT-TQz)ahOU+e#)hB4GtO-=7N6kt2_=4b}5rPCB5SZNb$M
zI4tmW^=w^>Gpb95$<ZWr?$z#%wOE@x8Q(oS!-GFDr725ETU0UunB@VO<wSuGt8P0f
zHzAvVK3z$w`RmtnxzWqBL&{Q%6#?{M<igxNq3B#p*5HX-Z%Ia6(o5<=o_^v0DwpnD
z0~k><h#0*^TF<{WsV4rsDP-QX8=~VURF7#WP;qD|-|FPeNL!tOApqnU1@b~ABwm||
z4ly8s$XXs}?5x`7!Zkg_vy7;1{L@pqg-{jH5Xqr76SVX-2;YR?0J}5z$&-5!j#x!R
zsOd$mK7&{!C<u@e1~{wZnz8nq#_Q<zq2KPNWm(-en<rpg{lcpAW7&Xgc+QZ5ZC5tL
zi(UAHpi4~D*Ow5hCoa%S1~5r#53fS#QT7aG6<@Mwd>zoAz+XS>pd@^~Z0lG{`WD2?
z84s4_M>KqaNNGg#B{E(Kd=oGjU(W}SHuf#@z(d|hLE(F)ZT8~PDYVY$!k<PfpGebL
zTNp$lpjM@6Lc-~Fe5aGgqQgOetPBn+;A#cONZcybo{4AGN8cWB%O}Wb9=8Ifr~!2L
zUAD3!0&buY-%N3zKPAC_*Nnbi^y-r{Y%RMbuKw<MkQk;1_V1h&{VSCTfiT}ry+yi=
zHV*R&@L2KSAo=!r9qmP)7j~|N;yA3P0K%4>UgR1Pz;{1@-8p#D@mSfXPwCh!>PhN~
zxqFnARaKvct#)<1Y6sz6))24YQw_(*;gct?4&UP|zR{7JK4o&9<h|RXRlJy)HB<_m
zX6IsMROu6*4>x}*4X+YU=kVc8&~Eu%_0W(vrRnpj=a{`OLLEM1Jp=m2&>d|j7?+)N
zqE`NBbY3FNr>3V*BWE*OX~eS<Fa|OqA)5nhk|Kn%6s5B*TJHi9#(`=QxzWv}5-on&
zOe`t{g~Vo{no1|nb{iq-+u91KUAhzu=?c~t36DPqAZ7?_`woZaophRb)@WSbnP;ca
zl&hrrxF-+1;bD}*CJu?F?`itdy#iF+>U(*gFpGTWhx27uMn;BrHJ-D~%)8$%$dGS!
z^F>h3*}_{3-9(F4CQkZ!>9w~L41;BB`+SeZUxp$1a`ICxuSo<3AlaF>DmV_P$YU-|
z?_rAp_6qp&<!qHDGV>m0kGbFmJGcv;^6B&DsgkJ9t`TjWeB)y*nErRCJJK7gjl;Lx
zYKzHQ6mMU-0mfavdkP)$&mQ}mAQiB4xkIQAadGWL`7iItvm3V(J(HJt;?<alnF{p$
z6kG6E*;V)D0?WRBB?pwE*~7uBmGRl^_LaJ^8`!giJ{6wH4$W(BtablrQ|c2P6HtI0
zqK?pPsQ(D4q1Axci7vM!GspL(auyg{f@XgE_N^Bq+3wx4SvP-PD0Foo1W}^l3}%r#
zaY6kQxJ5!TS9vb96NvP$G2qW0yK_+|C}BAX`Ox4k81mdsc_$<_8a}<xC{^#Tf7%|;
z6@QFNRJ7UT^!OEacJ?anBgU)@hCq=1d3Hn3FZ(8-g}>6Y#%Zec;>%#ta&T1ot@doo
zuU0vDhG#a#L&zqq4KI~t#;1wu;y5<#YLoq!K#W*fe7fSXfR%;l6xBal=}*ggphx$k
zJ(tw#luUf0JnRV89mQVyw$W%FU|!1UpB-<7g}|RF+*S94!MbkA&MgJl{Rah2{7d@?
z(mYMCa7N;F^C&-*hOy54D-BW}tJ9Teaul$LRH@AjxUmDgmtM;5%na|W>2x0i1lv9J
z{M(!J%)KO&C@D5;e;f+HQErI8Zu~t(VDm*oBH`y181|IhIkTw?oVo$H6ZtJiURtY4
z<2rl0b#cGbkd?{8_&NCbDIY$3xbe(*q__7Dn!^{^6K^lQ2~5$^n3IO>fY>}0fsB6W
zNeqxVTMAqR(FX8zIRfWl6SAKS|Hx_%!t=7mUFa&Za&p(9T4ik6r}X`1mgD}OLYLXs
zHW4rfJzsMY%xWup+OJCTSdgjDR<F;0piQtp(z@t0tTS5U)yw&?hFldYF%S9+vkZd(
zvpNaxsJ??l2R4+RiHShi$>MB9t-B8Fn%cf?+u`HKFU&07#seed97w*~>syOF^7|L=
znEs}X@=4T;30=*H)uN)?Yr}FXw{Wm~o5izx&1z4NX&KnxsDyM+UNo+mZ4vRSv~!3c
z0<T0~eZbb?srpcTKV5*l22%<e?#y;aN5aU&By=^~qH1;sRBna|4g5A*x&D%GFT~yb
zrtA%6JKlPVS<;m)>gYtYQx~N;v$M!af=WQ8Ffum24zJBY0izuRF9P+5@W1TIjC)lG
zSWc*y_bHeIv6VkpR2TqzfF=_s>TlH0xg-?lop0=JZC9%8;Ae-m1)alZg!mXsF4=?0
zI!i^COvRW>24feA@ECo6ATN`QXWsoweaMq1#$h#IzY34WGCWl+Hu%4-Xk}&PnE2)`
zTYPH1DEb;5D>T#dx6DTTc&jNpJ3F7<<to0pP|w=-o-<eJBGjLQl2&QUPMeNImPUem
z2128k=t?(KP)8xJH{{~tS{jVBR>=m9yUl%VzL_s1McQ?42lV+0fcSHR9~fa_BMeG3
z%B=lcooAm9a4CR&01b6iy`pPoM;j}!5VRNCPMza~JEIaL%Z9L>J)l{c2fQwhEqC54
zC6p27rt?zEvbGT*A6|fpb79)=q4ndVgLyA`Xbc${*(bEd{zW&`)gTcQ=^miz7r=CA
zm|?*B*H53efO{aEGayW1jJO4$Kqw0rFJ1(5coccn!to?6Ep4vj`15aLn@tZH%WSjL
zf#QeV9URszRs1+3eJEKejN8~Te?h!v^X-(*j!i9JQ!GqbOf4*q+D@=jE;th;-pK`L
z$rF8R)zbwTp}9_5HgDcbLvsY3Rb~<dRL%=8Zuj3>2O$7sM##|O1U6eQc%qPYCh+tP
z_7vF~SvN0N8Jc7D1tbk@Y~EM7sub306}jiVI^>ETo#3&b3~^N@noL0o?CRl%Kaa0y
zsjTM~S83;SVRIsYh}r_p`h{BJg<PBKL}N^_vMOB%;SN0`=60+~^VbcT(CSvsH%tv|
zf0o0dXkXyQPk61bN_#$yjPygo*ws7_7I;T^`Vsh`D8;3@xp#rIsGe;hu=U8kPMvXM
zD2vDinJGE7gFsWVP{j^ZX{m0!R!ano^MgO4*N?BL1RdfOoLzkcYrmr02-SsZB%$wp
zf6bd$uh{G-IwDGS_xIO&s<EWrmn4-Lup%+6*RNm*i%L&V)fD&2m(&9n)DkGEM^WcY
z(4xoKO&-@kZs@Pt-z$LDQNGcCu>8VJ`G&7iZgazj?TfNNW}l6@&SyMHpI|bgoLEWS
zO%}yb;x_#4Fml9~o@rb`JeVyPCVW1)imkdN)4S=u?M{e!djw5tk84#HxXh}=7?KBO
zOEhbR2Xdyua~jg6R5<dpBNLR;W8udzQ{>sux)JR#py1B1D)ZM?KnlG2MaS|2u|6*W
zEY6G<C0&R+L+A`ux|eybqp3aNGV|(Z`&VnwDAnP7L7*^tu{-`!7$0R#Sx;=Sb5s+N
zPyT6utX*r(eJAQv6$sF;R?RURBD<MdDHQ1Ful`Yv?->0al6(NDj*&oh^8~7!t_ryN
zV7oTp?Vq&UuYvy&2W-s*sU@c&{&>yi5s9^`YG8x!wNs}^08y=`a??wu>;Tc_3C$+P
z@aDZ&&z>EWd)o3`xsFCR!BPL|Y{g~OuCCRa;8@Cx;TBv9Dy{TdpJnb9hp0Vy!0Qck
z?VZuZ&eOlV)<6+jo^j|8W0Bc|SS0vlz|b9JWSJuwWrt<%+bq1Ka&dKq!LaDDr1?7f
zpIwVz*0s1FX9M&l^SrUQe_e6WCC_6eyLDXKH9KCcfBUJi!=2%o=|7YYDHsJc)1c)h
zYJuQi9YN;dhHq4E0EnQJ>|IpcMnWd@NkfsTg~z0%^xoDpdoIQG+g0(Okh|>!4nThY
zBz?OkISFCx%OK|xjf4jJioFZlfTKQL2sW2q0nk8~Us;OjdlwcKQr$Qy4I4m&4Q;B%
z3X8{C5KvY9{Vs%Y49{CV&(;_~SXpWV+{s4E@M%aA@Ti=ztX53Dt^x(?I4U>;bYP-k
zL4v>dMwL<S?w9)#?n@V(757H)9XsYve?`eCk?*aVngs34ME<0~&!o#IZ2Nco`t=L`
z$pM;^`a|>e7ww{?uYlg^6<|p|yc-r<{`@^|hC!QX6pol$sB9Qj5vpdTVb$niX@VY&
zRCpLJX#0!VHs*5uL)9Oy4h~CR8!P%%#=>;uXJll2+E`bHrZ#oK*H9aMvbkp(E$lO$
z3?@cK%M8ZEd|y1=mVU9<jsuz7#h4!{?G6E>loC<0drD~t@eQCu7VZ{9vI+_M@lWh&
zVV{~-)-WaZs4c$-X!B`!bxy&#*q=d2pDmFtVM;!?Z<D|seE`@+21XQuBSJeuAcEoc
z9KMm}v^32X>9x5hEc1`;v3-ZzvXX7Y*q^3;&$K^g>p1i7ax%4Q)QLODlyN8sU<-W+
z*_!WD;0HEgKENePUOPD56~%t~D-z~Xi2;hh_08q2)61v%YR(gwd4`k!-bQuU(K2H+
zSG@U!xSqJl9|Y$FmnMmXUuMB`$A)KMo9R`gl>%#e_j>_C)%{JQHyU5l@}$8s7aD4m
z!6>urra%8@G%Zp>Au;0p;9K>?5Sxhpej~I2KT=5VbTFPzSk?ROwSD)&Ls6VWenbi_
z%RGO_^agp<jZfj=3=BY&h1Bb3ThJ0FS8%a$6dENT=^N44!bnvL&K1qmYGpdWLr0+-
z4WjadO%I7DEUCQ-=V09W6t55z<=Pr0xog+1eY~tr%LmsQ338+c-zNNgWw8mcC^Xg8
zF34KN<Q%>7?pap;BA%FWc*3d-x^@I-hK6eJ2`TAe<K<;S*nN&t{sIDdMh&bI)osIt
zpvyAax85ea4da>V|9Z<om%t?URHrVgP~wZH*xc?eG@o?Q9xL!6J$FB@7*YPJ!HkVG
z?UhQ^m0y-2d06cu$x(Tk&I24)^%ONWq3W<MXw_tc-!YGp^3cwW8m=%}cn7D}FwA@X
zvk)pMnVEy4q8Q>x(!#^TJ8Rtu@*G49!J*<Q^n#xq?#Rouk*x1#8M*?$yn?K(_hnJz
z;6@F&eR#e-SyiYraey1>>HNz%RL?!dtuQJErG(#6TTnU<bBt~<)!F{le*b`kl+A3$
zQ;3efwdbONLmQ@8SCg>tNR7shT)EDV4n8KE_`oC*{rGQM;33Mrdk@7s8BH>Xl&ruO
z537As&vZ%2se+Y>e2&rJ42z+xX1ymJd{?eqc{22%Kr1~|EkUWO%|_l{V>p@UO?6(|
z4pg7<+TxmRan(NaILY6TP*#k(b$=ejkx$(Q7IE+X{j47j*q|Gv{u*z*M^seQePukS
zjBnSgln2fe_!u~jjBnCn^?S{Mp$Rw$#q%EG_j#d^`XjhGLB0s?S5oDbR5;Idtr`LB
zT|=~%8dq)C>lWlwHR7>|WdjiHkF4my02`KKJ9mD$cb)HYQs}E&t2IzA54ly^@B1`F
zTIj!+EYx(czC9T}?q^wfYu3eU96A+HkfBpO?&O#n)1rZ%vb+l5O%NCKA{LKz<b@dH
zc-Yz44tB<}pnE{wxr<#|Dh>t-UO=;q7)aFg<25J)=bENxiiORaIM+sxS4pvw?SrG`
zn^{Z^lmNwDQD=ABO1aF)+7`d6eV6WgEddt)SLD5VS@yrx;<_tq0FVfxuGdz{`c#<y
zgR!z3dm4<U0%2%B%URrvLNX0dL6&v+h*OgA4Iw&3mva4usa~15SvxyBpLMb7l2wET
z3Xu$`hxZU%TkFqpjem)VyT&c*q32H?wfojWXQkYXrSy@Zfg~tOn4j@Rb_@PVS)cIc
zjp1M3hY;Pikx}mmkN2vfSS;2~l}EMnsU~vzcayJ5a1Mpfvvfru!s@3z!|LezT-?|N
zlIM*vc*D2whVroMIlAwJSVKhyH8JrUcN!Y3FTbC5LXhAWf0%)F2=R>l$3>2Yk!B(?
zOU&r@B9s$(X`6g_)}RBNO;WCoEJl*3vi6+pF1DUw0QaTnprs8x+NTDxq?VZW9aApB
z{>Pcu4@$QCm(eNn^%rp3Yy|<04D!^yNF%u%FpMp>8{C$hh)heq6CcuqX?n!Vmz$26
z*J?Vj5hE#>7r0L+e6t4)*+n7Je0&Ljo6Y=b)Q<oeeGSaR^a>!2?&Iw{+y6@Yu^l-f
zd@iV+c58&GL~Ed|tjznVKa?nB{~x`L+AV&owi}BhKb3Q9;Z3~RaP13tz=llI^B=6c
zrMj(`$`O0D5q~8WRtX86rtOnRV4=cA6D{fSHW3AALUyE9Q2jOs>Ws4D+jHs0sjFEx
z*%O&ACI1|FEtbXMOExt!?;1~^oR^<(i0u(FdMQyo#L?ITsP5IDclyOvGf~*L#5#eZ
zGa9%NEod4zrPhE|hLE6^n~JOz8U0p5I&*HU4N^rF{a*2xP+&AutP<8mAX*$0u{cO<
zJCOEVA9r4YJv5L>l3QI~b?+hRFJHfw0|WqJkb!XD3{Mr|lQphCs|ss9yjwPy5$esr
zVl)jsj$%xPn9RY|To@nn#MBb>=NYd>m_4sUDlZ#vNk(T}UELl7A`(wsxvgaaB$+de
zDg<LMru#~wKYT@+jZM~B=LzhUkQ!mLl}YzBGBqUv)a+*x6?ByT16<mnCI4eZL3-oS
zQ}5D@m2{(qsj$q_#o74<)bg@{-IV8OIDg*WwB?vu8V_9h^~2NPs2hzKQNQFbrGZ`l
za#$qHDVJoD*=zOs+$LeWL6zQuBWV*-5#g{oC?zQ??b<9R_~sa<4z>{~_;NN>1H#f>
z#g_>00pT4&C~+i5BMDV;E7WVcI*y|Qux|KcnF^u#QQ<=mEwDQmpo__kx=;0Ng2Boh
zNSGA-HF$=T#3)<qyd)Y(@JIW3E5GKe<h#yuuTO5QQ&<<yQ+GM{krToaQc($*6+-Dl
zhrQN!t^hhY9Dwkz-qFo>jPu%9H~aB6c#LnAQQZEq@TuU;KmFj5QCI{CSmH~;EUu%f
zdZ~Zxmj|-U>RjXb5GiTE!EyUY&CMlna$rOThr>wQUC4pV1cU(FtiQ^H88U(-BqUx4
zXr<tkLdR^2!u2P-XlQ8S9<tQy7P-?BqZ~#?uf`&*TU%R+89J%8xl8J)+ElQbm4S}n
zN#-@J7$TJ%^8d^9okZnFMmutY!&+TEG)4V*NoLharR^kZtE+qI=#n%&N-{fs+E%<<
zP)Td<!{vxNca)dQefKWKU>&_=7tsS3wcd4RIYD1tS0^IwMo?K9Gg&YKcl1|Cg7YMb
zT|mq%YMNqI?l^l1nS`<_kw0tx^biCOHJ={gaEwQ_;M7Pt2-VGAoDl}idmzdC2#Utm
zHY247Q0{C0WR(9=o!sNkMJyk|XvwLUBOiYn8TLS0b5{ZAFBs>2UpfRbh<$$<nOy$)
z^C1q7?Iag~X9?}^@ZrO#Z36Bd9v9J>=H};b818-f^X4=hI68%{RK;rx^n?r9{DuL*
z3)PBOKPgs^XrfwAt~~;Q0v^)VWNK5rh=TKcjZd7!2h7@Sb4BBq%y{)J$kG(sOw)RK
zxVog4`}Y%6B77@%VWQATCOqgb<Kw4cxak3dwrjCP3X?6{!M=w^#~ufK0}rrk@sWSk
z`9&{0>b*=%fq#{F><YrD2D$eEKw~_*HctH_2~hN_LH4}Rc?s78VMPE57X>K*bTy6A
zY-lV2NbLsya)zHje|`Zig5bv6KHRv6ydi^06Ff!)BPOIyf&8jUSicW^sCCEw5_Z5*
z^Q@S|MCQ)AktC^%jH03Ow6qV{`^jA4%C|Tf`Jj_$KqQuKF2G(p{_*-Jq!6QR=jepY
zuFXUtzYzkheE88-*i<;WH^We(uA#kExxq|Gv%oohjP?u&Eb7SeWf1vdom;+8!zg4C
zOk$0+Wn@X+Z$@k{%me&Fg?RMy#@DYuC%TJ+05J@p2f8qMt*goJ1XU~GHl&%6a`R_W
zZ-8jm<I7FR1&DY7F_Mt7Z{g$$t+JDOC|xB#e^SBQUuF!=X(+U&|J8GNFR&H^LiBkj
z@>lIQ@}csf@qt4-I%Nh+y)<3PJPmncy>Cd#vun`F-SeB>@?Yh`9mgT8dFVkBoI44+
zTkg9y_$P8=^y9hsDesPz&oL3ZsxjW7rY6~*V=e01LFY!#ReD`b2tx;Jqopeu81*C!
z{23#>7haHbc`WKa845t0ULz3&@4cTx<*~YNVIrcabN;A=L`UM&`z>k+Y&J^{PNlkv
z?SW_QGlegqrMd|DxqL)0JmlULcCYhBw8*a}g(pVabJFe>-f~A*gVOOVHNW>UwB~eR
zndA@iRYzhq6BtdyV<(8-q(;@y<bmWiKL*BF<~e~bG;!@}5K)h1PX>VIf~rfEm<)-H
zQ}g``7KhgTmyQY$j<<|JSTpF!UpA-dcVFko7L&bw1wllJ!p<F^K7AVV{TNCyIXrA;
zKi)<)R3Gcbzj6p=07AuQ$oH1E+t1^%9jMPw4289}^_*TXJipa-9x@xR8_W)Ds0|Jc
z9a-^t#HwbSnFU#rQzKk55h!%5Gqp+_+NIfoM?28N8wQ5wefKD&-dDd!v+gd+5OK&f
zwT8R@wMv9RgGkZFx?3REfspQr4Z`k$1e`swotCIeK$!wjHzcf6!v&9Oq`V(K@g5Q>
zIBwB=raZ2;u?V0qJe=K3SCW5nUV80c<%*8jpDAaqNM6bI0m&qGUVv&LIPSEss%~JH
zj&hx4fQJq8MI6xfj(^mHDU2LPsI;YOBoh(TW?8)n?I^I@3n&^;*8r>8zj|}<6BdFG
zML>q_<5?CvVZYKaQdCA&rrfvh<*A@CzvSejp6kn|euGpTvyd__1>1{*=~_a!eqcCw
z7W^H_U|qC%g9wIheNleIKTj0C+zxwZI^Xq6uT@G<P8Jx7DsM3AdKPRTkBo%sKZ@S=
z&to3El|Aha>)~-I=ziJ!rgaQ{=Ur_b9LnEbjIT|K2buC#J1gmoWCk-aVnpZbHkz8l
z77)GhXOu6#l97Fbw})ht9!!sy6V>F>TOIz6R@r+_|0?GMu7{iT5qwgE^|98|q;ZFl
z1}mTf&tC5Nrj53SDtdXqf7wmtBFhO8uoQ2|zG0BtV0Q4UN}@p}w9UJ;f+m~`7M8Fh
zp;eDRt6TRHt43X;zzoa(Ku!3`&dfez*pW-nnNg+MbrrY}&LEO6ZS0*9UfqLVtQU(B
zxdej5f{NG9)UMvIr*I8iOm?q35pyL`{h+x0+j6yw=xxJ?e<VJU8}SUwi_J$Vw0&N(
zR--b|ZTWZfmf(ozoRJXN7pt1a*3%@MCUlI9j1Edj!Qxk5^Z^QVZ7k`C{(rpy(#$|G
zS6&qj;l6{=?;O>BlOW->mxvUN{Kw`$-rj*gxCKmCwvyX&uu_8BG0_X?oH6#4dR8~^
z6;bUl5~1awX=f*FzGKIZQ|jsmU?8;Yq{=6Dd5U&c^<eVh+omUZ(=Z?%>#-2=>)uB&
zh(}{4>l&a!U7U6=fb7un;l_SqGFomlO93aVK)k|ZXq-8MiL4SBn%4QB3W@{@y#nuO
zGXE)JpmJpcglq+NAmMtB{J?zhpjo5h!G%C98tvp2{yM1`3eef%`kslJ9yhb-{HS>{
zMm&Y|^z>k^j31kUp&;;XVLJ2cnMr`gW+O%n`Vc0|262YpKEb-A&ep&{@VFe5=z=E%
zG&pzLYXpbqQZK3d{Ld>UUWa)vz23br*4p<tlQ9`C1ww>gUtOk-bkPBa5Bu0=(79(I
zzVUqDz80j$$4f96awE5da4`hOHa2taxe))!Q&HhSq=tmJ0aNc!jhzR$)V2cLNMiUZ
zdgNU3KHvyC5sL@dg@-VVwy`$p#ShD5@}Me@=KDh?bx{v7BSjDr)Hh@j)UHqUloD(h
z3}=&}nVV%{SyFj+d=nDJaks@AkO<Jk7$7(>!*%Jc??M{hD?r%HFy?+(qKFJD4LxTX
zNOR+8_w%UEH_<%Z=^-<tYm?*S0RZvWL5yP%Bg@&1ur5LgCcJ*K^71c%6(99qx7R?e
zsbLr=_|y!-^^GMd>F(}MaV2KG0CdjA&?d3vb<1F3c0up-aWiy->IjWP#91d*qYqX+
zQLTDJzdw@~nt7iU6J<yGM<QA2&!M&(oZMA};ETgVy;<XHasq5&Qx&(UpW6izQUz)z
z!q{n;T^!4c@RUK1NqBV8Qy2mR6J(68DFiS=^8;m03&)&+`1YgRdIcxWoH=8IMxoUK
z@ZpVO0beEZ&piZa4YzsX*Pj>`+=~&q7cUO^(~IuGjE$^?#j!mMCvHQ)WyN4uup?S_
zLKh|6qQGW*)+{oqF#-G|=`tCrMOp5xKAXud$tVo^K`?G9_L7Fe`dafUxPenx&IUOD
z0J1u7dNHFVh3AYM{eV2iuvB9t9)A8T%f`XM0_~nSFCfh2KL&iLo`mll{D2{H2#4KV
zaV>Nin21V%YocwB^ZKB}#=JY?=hkQwkF0`1AN~R;sRUmM##keu&P%BCVB_`?frZ}Z
z;M#ZiVfZ>IOgA!;y;of~NJ&Wz%O6qYdaQ^5!}xBj4oMT^Xsz?EXn}xWF^ay8z)Hd4
zWp%`c3yc5jGSvfA+zUY(;cy*0;|!lQxBA=LT$f%GN|T76zWUn>gbRVvlY^`9W366C
zkq137#O+*wavJh(67`x^(kih^;OWcn?KcLOfC=fMxlRyy>k`+&5U46JWnnyPE73>b
z;S+PY;8ZYYd5|!pfe3~})ba;roe--IZ6yhq<imgqMpA;%bzw$k513#~ZWCbh@slT8
zKtL@mEtL?nlGUN5^wtG;AWa>{a3S7up}LZPI70zmg>rC41TrQ346tVq<IKQ^w=jn(
z;WD!o90lQ}&CfrH_h~$Yv!w??tnlx2B>WpYA^t9#Jbjwg-`{_Thld=%LxFHasHqXd
zypf{Tzkp?&m!=LA^WM0Z+}zv}SWU6^_u#|+hfKQ-6!-$Cch7F)g3Z9&dn@Ko4kBU5
zAQG**ivnPeErE}Wm?k1r5yCD7`AHrjKJzo2$NUC-9S}2pstGhpaIikEvUP+ZACh&h
z^E3-Fdy0d?nau)q6l4LQz7NLaV1b_cRm4ZUD<qsZ0QYw2&><2GD)-uT?3rHfb!V6+
z_)r%($xG1o5Ch&i1<sTh@W*8QcHlPffVZ)2V8AB<N&6vEYZ=DY&zKiwi`9RB?KE~o
zh+&QUXRCi-(=te?hAAF<G1fzhIZv{=2M-uf^<|CD!%=bp?qT>ke0;Plo`_|fclVGX
z-m##11CwE8#;7*5QHNQiq#t~F7j@D}b$At;lGfWJMrr@PD<%@A2VrPS7Qr9U`k$M4
z9~BO(x#kN|*;hjN7N_*`?>Dh*vGn`)ZN?@fTev?)`Oife?FY~&(hbnb0|Xyun3x49
zqYTlUF_d5yk3%dqzh>_}nDN69!xQ?ug%$)KIY!=k^q&{ee0jaTI(xogw(cZx49Cf?
zfZAFWt$ASS>vO{m@}eWcuc2LX>g2vp$&fXo$D3n<1(h)`3tJ`o-!;N(O<L|svbZIr
zJCOc;u?@)~e*Wq5lqYDv;$dOjv1=DmVTciAFrb(P$IB^*NW*9&=oh#~Dlq<OgBRIk
zw#7=gWbE4@XUW(^tP?G42H-zfF-II69K3`v8EgpFyj9rIdw%^gC}j#M{P!I^V|5T(
zZ(*)HIZM>CP3QoR_K%z6l)(d_>tqA3!Df;nVlM>e?+dt&9{p4Z^x>i-u9Q=s4D<6q
zY8IX3EVieJTPu7fV7!Yc@mHPhS$O~R_Mhq;IM43G=7rkTiWg_}Ut3x|#NtMT4oX_<
zM|vZff8OwOu}B?S5Mk4SH#U1>7p2%i;yz+vqkNF(G%NPcf^&8Qgzauh(fX9&FU#hS
zm)K++u^X&Cjs1ivhzx$K40$4MmgSKv2u}<WQfZU!VHQ%*xRkAt#4IXkB_QtBO?Cgg
zW+;-lXb_Ixz&Tn4si<n#QBDZ8`<|ez>TR5%x*i39npfum<^jLqU?<~<*C1VWx=Sp>
zOb+IQkb(`-`QddG*jd8)b;!8HYGIB~4D;hu!|ar;ti;Vwrt0MFgMhl1yAN-*0lYSZ
zc8Fn~4;SjcQ2zT8BuBY7jlBRYgj@`9=-;7qR#3<U#Sg9p^{S`0caycX^#MLThE1C`
z5xq8%7LeOYVSEJ;&t6a48ytrAS~jpu{dO}NOe8#FBpY+`U`if|b~$gMBhO6zUi|M#
zi8Yh$fAQ?z|JJuM{cnB=)c+Sx7h2K8_<rkndFE|B(^0EuuXw3QE+6K*>hvi|Kp^&z
zxJW}&=i^t`=O0bEfBpKO*O<VdDsUDS#rf<B@9#_j<GcC?TRzfrxa^K0IhR_2A*Rda
zx{4L_l2VxtqHK8uF4UWqSK2<(|BV6Sf41|>ZGn&MpP&ErtGc3Wp9ueX1KJ%sfUuqe
zyUAh1lmwuV8OCH8D4ZAJRyPwWU?4Wj-yepZtgfn7NU{f|JtZ&&xs+xIaik0r2Jhib
z{|k;i78$iam|ef8H)sw1_7foOdkh8<)y)}GgnouVVZ;Cyxf>*}e|{GHH|ZV0J@X@j
zrD$c!e_zJ%R|!l&-+=95T%^J)u*xKBi&1Ha7ahEP%Zd3sMxupuM!I=N<@Psi5XTC<
zk0U{iNr7Ko`p+<{Jzgh(x5<#)20sY3m0a`vwNgJjtnr1n7Y+k4)+Mcd<wLRYhM(Yn
ztYSY~Zq@Vs;@~vlqnZhd9fvN2G3V1j4sjaE_@@_MaHJyxz}SrwPUx-io`O)}{3vU}
z(QDaupxbkWhd`lFKUzQj_w{J~r%v2!u0n3d)Yw{|DVkFm*k4Ko0NKjn$vAFO`;11K
zaQVPM6{oQwy)YqFU6WC_Wy8(n+J(JeF31G$-X=%+L0yRJ!zJ_2-15f~mUC0hAD#d0
z$nstH(-ZkP2c`Xj%riULwIr(>Ue&752y0fC489mWFL%m)bM-~q6#>Cw>80s4{^MH&
zPt@A<jXLZZ(pmJ7?1)Vke?9r`UD^iui$X@nmg}^VuJ(ZvGhZ;ybm;Qs%L7H2VN2hC
zbPL{K_rmOzQ+os$VH5C|14C&2Oi(N%qea0{?q)dgezgEyer>F@SMrag(@kj7I~<yI
z#pZup613?l;ppWhUWWG}?6%X%+1c2Qf~r|q^tzLnRg&MnHM6}ds%Vwldmphue9BCJ
zbJzG6x5>irN+!3Is(f%ZA6(b(8=^bw4OL2TO#J6lUc{%!_zJ%D=jj)FE`Rft`Z2Q1
z{O6l5JgUVUlX|Yd6BaoCezaxR)`IrnjkWF#%Nh62lnNhQ0+7W;T^uR+i1S(G6MtR2
zI>2`>#&-{6+o13s@!=O7^`Ib~^@TSPAGsQY3(vp}a@51wZ9PlpHjy{P(Y%%TyKF|{
zLf`>u>CeN<KP>eOKZ#BBY{TE&whYJD8d_SO;Xw<#G-FXj(i&kl<fu<8`g4<xp1%8v
zC2@$7ro%m*szO3S7IW_qu$Fpn^29dl5r5MnveP+d|5u;)VPTdVIXN$1zPxNsJPnfQ
z^CkJwX1vcVC)6hgg=hvvazuz<e_O`AJRCgJ0%ug(*HIx+g%UF2_w5{;CLLd9WC#!o
z^t>QBHPv!foW5@Pi-Hu(zt<XyYZbUwa+{+bQiMii^AcVb*44jk$h^|B!nKn)NXsK)
zp~yeA0LN#!1Yqx5*`6c*;#xbdKX5m_NJ`Z#+L*S23cOMwQi9pJ=gwp@$KOwkQchVZ
z?2(-N#!-J>a$X&W?_=I*>0f><v&ZHCvdFk_Q5U@oqbhl)5v%I%^@W^cS{bjZ^2sOX
zi8cLqx%ZqLd(0Ym;w656zTc|){t-{ikVcG*jQr2&sBJZk?d)GZBE77LwH7^@mY&Xk
zMc>2WiIZuxgGPQ6@y14y4}4ge!6&h+Mvm>4IWx0xIn6-+uy*XS_F8ENj(NLUfH>@b
z|7lM<xA11-E8{X)`^2QA>dRMjfA)6*oXvFD)n}a;!uh_64MjEfcZOZji>OxGm?l1c
z+cILS^-25wV1>aSm(KG@iwX(#lj$#=d6z%&k#M)(u&_`uG&CfpVRY~>u?Oks=&JiR
z#=F;fAl5jWhVCJb^Wk)O9q;YbKIx5F=~<9=CKxdvZ~`#;3W-TnY|?wb>X)42weeKl
zF48v1#f~Rn^o84VJio=TK}xB|xM=fOi>_lUJD}H%#XrO$Irre^lMoi*_o^^bEr_Os
zz{Qaa-C*fgdq}0f&=gJi>`9usmt0gNh5UMBe(7mNQ*(396-D9z2Z*TAxOg$xYkkP8
zj=z%O$&nammg42F)&h7HUje3u6hneM=i+Il+?}O1mg|Rzg~q5}TNTycFt$A0vql1|
zjCr8=$Xf=79~Yx_cPUl`F~_2HadM<3PGLd1`h|}8k5i|2I{)2`yOjP3>I)bC*(A5`
zCYf1SSd5LawCVn4j@CUrs_vl3Ev-rGCL?3mbu>&o-(TZ*Q<gdR(WBz|yNN@YH7w9h
z{e711B<}A6gZ}=fg~HYX;x9?IvH#r?B%GX^{w9e3#fkU*a}+EC4e`wvFaG~S{J*&t
zW<C`a6)BM6P-1KNJg5Dl9NTXE?k@I9N>09{s~i1k&q)ivW<3y?o>TXj`!B`*QO5_~
zjAhjD(u!K?V2(OQE%C$u(cYIpMR{i1mQ(BuN_RBcwt`8g1V@M{ARu6397+X@q6j5m
zB9lOYDP)q-q@#&O&_Y0F69r@_KuW-3G%<<{1t?O*jLIYwMJZSy^V_GA^iB7D@2$J;
z>ihcM_1cwQy;irW|Np=L`_9>C?|sfM%4odU9{BRX4uJm4=)E<>L3K6L@4B>ksA>a0
z0Zqd_DFp=viw__FA<}Kul@C@Ux-2y;{2ewxgLtx2!=zlV<i+_#;}}Wscw)3B*nOw~
z*!^hrrjBnHjbm0(&*st2@J85C47^0469b4J+OVQJjt3135*?s$#m3p~-yaTx;Wfz5
z@W=Wg#oicwI^&Is*C{DHV@eKtiqvO4U|PXY3yPc9li;6OC+@#5#|6LaIzE!%Kfp@0
z*oB@ns24mYLXu|=xS>To2tD?|Vk{o)NC$4c={BO=uC;GKL9N83ywSs;v7?Rry+Px}
zS=#zJoRhH8+)xeXZE)yyjkpV-ZS@rj#b}wy)I~rX2hf@<-q_gKw|~-EjsIP>#Bqnb
z>-%$>yLg9@ewP?}yFp{-q3n0SWFrb}yiP2&>y5}*_kvYAIyy_%fA(=Gc<hm4y%0|P
z8an1j-mDjklOa~Knu507k(3PQwge1`SUhNYMtZF$_OD*OI_6tHxClIN&zNfuiGam}
zbFAm`(a_#n9Yd~`bXqFJv!2i7zEWfb$HQ`vl9skQY2UG{9<(t~otvgwR8(q}#(~N%
z%?g~c@RaiG=G8{NRs{Chj5Y+5<>27Zc2de;l=Zf6|BW*4qfd6MV8KRzae6dyx;I<L
z@T8Vj@ymU%$X#IiLCkoF+^#-3JrX<}6*$tGKhX;ESg&`vNl*Z&;AoWUJ*899(mY>t
z#<r(tDepWxVs0{dLKygvrNJ3YXaL5sKcnislLz)zLtZ>$dxqcmC)sGLDE>qC^iKn)
zkM>kWhXYY3Lz;@-cx+#~bnZ$6Wpp}`O(>~F&Ct7Fz3kwD0}k-xcJ)LCU2${GQ2qp_
zc3x`6c!EafDWIhb_A=HJg}FR(SJI$Ly6E!y_rVHs?#ySLHB|;x)&6LwgjM+}n;wUV
zLQMwmzh5cy@@eq?DTe<bp<M>5a`fzJKr^4KLcNybTY2{ApEETZf?TBocY6&Ka*UO_
zpT}WbdHnO%`hkuMcl^%ssppPma$!$G*Dz#aLpPDwSuUS?e#T@E?=ZJ~1#LPcy&Pzu
zhkaVTgz%(Q21>I&e{pv)USHZW#;kw~CwluSPCx!qi9m->n=BN^DY7(uLHqymd!bA9
zG?9Nk8$b@jmUOu~1(MUgA^TI7xb4n(eO8bTi;Ky2d8?1S*3h=;2SP@w8K}HlGSkwU
z`d=yJmpHw1ALQM`!?v~auV25f>eF&@uA1+=unV2QZ9D`+3E!M9hIxo!gRMO3B#McE
z4SzFSgw;!&;ywu~1ru@DtNwugvnyZbbc7l@-oNnP=+sDQBHDuecjv#JE#iJbnZn?Z
zmzS5&#?G#^@kP?U)RqBo2lUF>9fj|_^A4R9OnYj5Y9KEecQ=FL&n!oeV0=YIu2VxB
zjsu|9TCBHL7(X?&+^1wHo~~&H_HMZ0XqZU+`rd_Rl$f^6l_K^Dq4f5NLhTSNgvHJ7
zg<cJKKCAZlO`m_};_B)twsPvaJxgUz&Tz$PSe)%4Lo6{k;cSag07TjeBvX!VZvk8v
zbjr`4KhK`93E`Yq9vXuNXh4-RILzI>Cot@!LZ+Bi&o6d#J#o*+)y0J?(ve(4btxRI
zSW_v7#?(lWkHxc_9+Oa1##zq6o9=-he-97-xestAUM>n;e1y%U3>-3F*Z%$mZeen=
zqo70bRU|7%V(YKG`v>hDXXpEnlf#+$t=??J$4>_QaZY(mNQb*XZ^cwe;V?(@NdnUk
zz^jRFIpUXFPBEG6<&L8<t+}%Sv8x3mMY?+E)ZP)hoe!NFKp$mXOiau&{EMSc7ne3%
zlcQEK=PmpEr$30Qjo^(5&oJtJGrRcrKQHn4t1=T?_jaI1ic0Kd;{bUP<M7}lprZOt
z`I{31pwqY*|DnMeD3E4aSXgZA^>B9H$vfYcB^W3+^gSi}=9il@Gn8ElH#gQVZ`#ja
zZ0q}}paZj2;t~9cCjxqtqP(Bs-Cb-qLL%C~IzroTu+vd4SKa8mmuC-4i>Mj{ENyus
zKA$Z)!hT=5gl5@6xBbw#(sQ%UtP=g=;TiLGEna&_37!LFTd-8zs`X_jp2f6}iSzd%
zMFK-3f?VA?lJlLuXSY2tW-lxU>ZUP|`Y(G)wgC{Yq~ax<95WH}>B%Z5<GN&zS#FiT
zq>|j++^%fT)<m=l30tONJ@R;D^4U*cFOn?Xbo>a?(Y~M(g_tcs(7N{h_kTtQO8JL#
zRWCtCW3qtHhHAH}psvu2&A3r4$;iqwM;e1zW*1!hiNBQ{0=H$!U<9)qb9)|wOLr`j
zl}=CTcV5`aW8w$h2tqT<(J0An`MhieYd(Tlz|#eZ&WijQd0zbK^i?={0k<P|CFv@%
z;KL5@K-a_Nc<-iFNTBZLj-DLuk0$tv6MrP#rR7hq-orl7G-6QhbYTil4FEEGnI*t3
z{#^$&Kt-Db2VwkR^R-f>E5B#oo!MvATeLKL^10<kT<F=yNV{gXa6ksg{o5;Xh6sVc
z3($S5BeYU0c(k%;v^$nF|Kt37G4YC4x(GT6%usf_V<@F4v>jVgfRgj@=Xc*(vf1}I
zR%Zix&G#g1*2e;Ih6ijz{+#aovhE_T#bA8ZIs3mAR`vQhSRV;YPYKKy><%&eq|swb
z!FheYppx;%c1kt3bsbDa6V;kC47SzB>~o4@EWDru01U>z$M?U1*;nRJ<V4gM>e33<
zM>Sp(YB+GYc%;n`HkbRbM<f6O>SkdMPKC05NikNW_G9xmIz-uM!$7wu(by>Ip?LJe
zuZG*ou7(-MAm&{|-QEbg!n0ykN+<H)F$LyOn3&Yp*9#wi@n%!OJ6PZ&v)(z+=Iv#;
z^<c_%Jj#=lyu7@->(4CX?hG0!Y)`^Z@U4gLE%m5EB6#rGG(b}v290S$F|~`8a#;Ry
zGA~8za;yb`CgY7Y+MoXT7t`u2#P195Z6)}y7KAXYfern7GeT4nnoJqn^M9QSFcd27
zfBVXQ3z^~C)|$d1TEcs;+lI_*K_*@TTci5c2Ta<G!w{%Np}TpmnL@|#C+<9m{Hrng
zu-vo8NRoV#{jhD^7lSe?pA1lSxG(imK|uj#qpo0atMz;AVfkEFji~fXSZzC*ew;E@
z6X4MiBRE*sp1Hu{LXvQTyqTJwzI*G|t%wy=<}Ew<>^l|@%3n`sxOrP=3{<^pzn*x@
zAmb;0Sulvf5h<u0rx7N#(FXmN+U8BHeRg(<&>oXYN`hjW%eF1Hxx^H{e7JjqcYnhP
z$RY$skzY3;t~1N=-o#HQ{vI&qn$SC0H$&_8$)KsB#Hc&<c$WsKY|FnpqZR|inS|&<
zzw_xC)yR~DldECz*vX?<@Au@Z#ny-MeSq?=VdzT<kd#y4=Sj`T*aHW>Cyucr`~r=x
zS;agi+Rr|tx69c-ex1)332KaEnffn&TA<fwGScE1&MY0P&x$Fo^MT&dC0$Ce1F^j*
zYm&-TS5&KF&z^Xn$YzO+j}72MjH=~<0}&X^R5C$c1wBLRr!1#*!^G9AbR>uC+-{+1
zdZY!&v#ZB6{x6*K*rbSO6*41a_N!B1-PEo8XZnGqU8)G4l-eOaR=^B{`54n;4xyul
zwOEqr6fhlVh*)bPr(0fDs`+RSkL@l@YFz&t)Y;bf?@(uYUt6uXp{zS7%yY8#<eeL|
zo<O8^pj^?Xd@NjwD=;|7EDaw?&&0qSTmb{6@WJJOgP@Xh@FJL<S5YHV9CeMYiwT5R
zKBYxT=uAp8y{}`L!46l-cPH%|)qD(H=o&N^*+D)0@Vk%atOOr;A6jHZ4dC@d^)e4%
zJK377qMQepof7<#TZ|uv%+h7wxwu2k%3aI0$XC!2E6^E!07{J*OBNT%+5J)Qoq2jp
z7N#;tm>(n<c)6f&JOP}oBW88*+lY0jHJE7|qR0rY7{&{ueJto8!o_55UUhm_Nx_3#
zn0`^xLg2KhQT|uVs%KcTLRK8c9DSk^e3>ci<n7kRFcm-~d-xZH$m?9B|EO_s*7Pr7
zT%SQezbT5&5Bx*k!bv2zF3-gA!wG)f(crt)S%i0~s2uHgGKmG%bE`Zosu&ZAm-1ou
z%i;P@roU;OGj-s1>*nwQNym4J6RM4{{lb~>7wtl(0Fz=pC5GEm+pQs+=_-FR*=JcA
z!xRoTxw7AJr)TA8Jf3r?rp$Qw#$oS9@V4#KQzHcL=--^b5p-t^u<b^eK&l8v4mNl_
z=^ewd29VqOC^92>hb(gHzV*W?T-tW>c$unC=c&1B_hCni$9@LMZiJQ%5qj!3z|%e0
zfV|iRn_~?OX`c6%I9+N-2e^Tyjn@GpRQr+kmT24WEP+?12Ogoer^VQ?x93J<eP%@+
z=CU%21}gxFf<-?dk4J!MPA(}anaC_CIC)iHTFMS~+YO_Muoc4pK}k#8a7&rNFHkvX
zdb}M-Tn917hg)MbLR{UNFlCL1`3b;Wz<L%3GbgiRpuuk#?-!VtfS_{36a|W7rlzKN
za(O3+&O-v9X*xu)>e%61wr$%s)nPLAJ_P)eps<!ZU;{NGobZ^56P+5K*kzrlXDTVs
z15uiH`9XnfcIKn3jB3V?Z0par<Xazbm*+LR%bk|W3c~U(|7Rh$T-uD=dj8@52hS3d
zXXNd~o+Zp%avHJB_C6f%G2iO<UJKX8z*J^A9eH2}pK#ZymnkNqIg1ZpU<zSh_5>(G
zgGa23$k;kPIawW<fdyN^V3TWB5<ohOhmLHA>B$lEoZ&KwSmmN+#-WQu7qSL{m{%=F
z0B^7HW`xML$o$yT@>56H7P<256DIP(YRy?I|ES?RBd-=L_@VjR)~s10AVjs1s-G@z
zQ&W+ngeF;3%8G}Z(pA%1ip2d_b#UaggC<@v%Q^Y22j}~Qcit#d+s%6m{*|i>e#C=N
z)e+7NgBr0Ya4DYN_&N|K+ZjgVuHmSXmr3d-7xJoqgXK?xfS|{$tcf+0HQQPX!o;@#
zu=ayWc|UBkw%x?j#j!7qrYDA2JYtR;g+#6La#P|EtV6^Lp3ihUMccz<>P1*(4c)$=
zLtN_q7;mq#P+rpfG=_L<VKB7cu5oUDvUuRACuRghV6_cdTts*zobOrF1<SpgpHCV{
z+X{7v4{8F`sof4tOedT@e;xh06ZVlPwDnj@JeRhomH$U0KfbBu=G_9{rRP|0N>n1n
zzTtHROE`^X-EoK&t0HzqZ}#JcFOOt9VPFx9hr^+37>q>BG8lNIjqA8+VR4qCpXy}L
zSY2W__T`#((^w`L>~;!EPH4QP@^ExAD@c*P$UIry^iC5Jk#S1Aw>8B_d(N{$bTCkj
z)8+aW?D|nhL-mvIDoPZ5k0fwifI`vhk8VFByGrcwZ*oFv<9cak+98<WZ37kc>Ve1!
ztJ{qxqH6+@MeTF3vMM>6@ivUxdEIbR-zQ#76q=4?N8~zWqvPQn@Nis4ncmslKIP5p
z6tg`<m^s$;G)Bef<=%o5$40ek@M5t7tf}dAm6*D=ac8sN)&bT<r9RlSHSe8S#zP-Y
z4;8?(R5o7-3+Q~GMvxJ`#4MjNci9DV)B>DLO3lXiX)7H;wy5?98j9`5JLLb#1R;!o
zVr)?dwSD+K{YHcP_|)7y%jnp8aiE(sjLKG+HcG!|YAfISe=h^34^bT9JW0GZL-#nL
zD@;$0#_6Yu6eU11avouN&7$W&Zk~G8;Ri~wdD+<n&uV=t)`p7Zfm-OuFbCA7q69>O
zCh1c{m_?B1daE#Z_(pY(LnZfTc4Rfk#SV}wh;mk7>oRXWJxd@fA|hf53PW}Cgg8`G
zy8b>?A7meU=X_AkG7=?r%KXZ_ykD<fl{TyzInZO%*66^P)A8T0iU^Tau2Y#X*DQQe
zf<R+%w?-pAp=RFlhqzsY#2JvUn(Esz<!W(c@q<Q(Eh)bF1JD3y`Imo?>5Tt^%<(TG
z|6iiUztkBz3ja)Xh7t0`Zwh(3oBvsQ*_^>vd5|7bA%9AMWVuKZ1J*iLY&~5A7fIWQ
zEo2}8Xosp;J+0DLceS_>5|U6^c6ls=wSr?i1lSD1{pdqDtNTF%LQvX2Shb-B<^~Xq
zi9p>Dl;&`zbQxQmo;_?NwVQ8=LU~{6BTZKwU0wGF)^Kj`IdGtUd}_)(c&sj<V`;nd
zjZ*%5gTF{f>T-AVnYBRa9c`=$ibUg&8#f5}HWSmD(eSas^6=-|VoT;RYOUgk9Bk^0
zZJ%%i2@8Q#T@5odxwrfQpRZZ0PRh)LjeZY{7l({wh2(y2Xz8zT4cR#c&KbAK?`J5<
z0q`|__}_LNJ=&o@O&)-|qo_`r`X{`C!C~7Z_yE%6@1FcWN=)K{XWyUWF{5lx9z%y%
zEQUB-g9n0=rEs`Xvk*T=vX6_4i#BM)Wx*3K*cP*}LdUnEyjf`B;7}GP!PHU*x_@Rl
znB+Lpn`JozR!;E|f@*{G^1`O3Cf%(4Y<4WFFkKcGi5*2E3>@9~+f@XJ0E|_a#v79^
zI68J3YL{oMVf<T+>{Ut@J@y39T|_g+W%m8FD~8$+x&C3O$FBziRY6&>D+0fMeyns#
zk(FYx+5yA@xb122nuUxbYm^-EIv1$ZgI^vcic;fXT@eT>)8VY(Kl}Vmfz8n_dX3Sr
zj6|K<@8Py5m4n6GZ*HUmOS`=DtgaZdk-7e`A}v*vKL7Deme}?fCUinQn7HEtrE(|O
zi+pYp><Q*Xug%ecdpe+Re_{nu$}koY?4+tS2dx_3<M-+<?QGl=p+?H`-2H((EtOi9
zkn9(IrB6;T<uT!nbmhkQ5bl8nN$&;&Aiek8z!ml=ub?29LU0f(7LG}uYtY^13!pMc
z^282RFAL&hM{=j|>y=NQX%_bL2!hEz89w*|de8?f=sr>QFr*&?>4X!+ZS|6L!PlTU
z!WV!AIvnugE=(4y<$qvY`I^Y(Y}J#X_;YHE$L(RRWf$E;30)z>=VFp`xXqJgXW&-v
z`e}jr9v<lwD2{t!E2uUe?`OK28>--r%A5RsiLg;;WuguVcy(v_KpgGiAM(b1fD>+S
zCj-a?s{SgwslliTbaa?wZZgW0eU_F{sEtV2TpbpOB6HAu`lWelR#yA>9)aL?*W{ZU
z^j;gW85dgs6&eoQdS7Mp^DUvqW6vxO97w{vUlKymS`~|XjV!B<(NQiGniJzTRByUE
z5d=0z*q4^ht^IJW14`^F5Q2lax(O6wZzs3c8CMRh{*&HFxPZZVUbm!FG{>@433P7B
zE8f(0>?|`Zd@E!ETBis^y2X5NVAps8@20Lr`1V~RD8g{&4mCew^6Lh?bU|C{LJ-=;
zTZRKO3NKbmrnD4vDzW^Kg9O+e%i!B#@u(PrbB;s<y%>loiTE(nyAWA+6pBBpbg41S
zRI<8%R{}DQ7;b=Oa~Q05R}ZZFH$<)(!CEr1rFf^hve6&*(<8CCJ3~;t`b;6TB=A3b
zsQy5|P&dX$n4z$>_3MgwYq{}eG{@XW``A-A9K>~$H*R}B+if?tPdNGPYFOT}0qmH;
ztIH=>vi2b&cGs0Qr$MxVFs{=J&6l`@!Erk8=EkG;yiQ5!loy(B63?DJ+Yg-V2O2b-
z35Ki+%1Y}huUQPYvn0UeZAFA#n~!0~3SH48Ht7XWq|9<q!qK1<b6q*{Xo-3cjl<@=
z7VH+fl2HC@-MSL>zpHi@niI(F!h`Ij)_cWe2E$r;9-F^Y1phGu|0gHL5GRuh8luKM
zKgOW$KPERZviW~dt^ua_Sal75vO~4L&(EXi#dbBg;+QPxI29w07Bxa=s`yZ0<I@^}
zCsm)EH*X#*=fSv_xY%c|)?b&g8|kKol=Z<O5TI>+LcCqAd<{rEpFOi;f@pID(L!|t
zs0^q#5FME1;CN!=O~BtW%dviiinFsB4Ih#HX64r)7FR^scw0?@;dO+i8?{<j3D{*s
z^i}PX13m(nA|u8@NoC<+rX7&#>FRc$U6Z-eB=Pu<uX8eAu-nHD{^HNTcDU&m<R81i
z$&7UKlE86C%n}fVj)KUDXHp{iw<>d*(d=YA6wPO^W!zpwadyjx^f52ukv(DZv&Sv5
zP(LBP?Zc@=b|s1sT|An0`g<Y7;7Bk@`mP^?IZA8#-R2(S5ut8-Yb^8Ua+99Iz<M8>
z&7S|IWU>+5QspGcliMf3Bs+VpOWL=}ZnVOZ$3*CLeqnb84d*5#2Jkwm0tI^<$yAn~
z2nYXGe)1`~@96zGxyw8dk)u(vquiGC>6?s}n^(v@0;O#B)r|8Q!EXq4CY6S(CbD=@
zxrgD26vWqs5=n~Sr;U#lz;S5;PXp&+J1D2kFKf4^W}Gla9vOaRxR72BB>xX+pWi%I
z$Nlkj4SP5?df}IVm?VG{+=cTWKn3HYM~^yHf?sWo{jn8FwIQk1yj+doFvKwa&2ym`
zdz$l0Jgz_;f2;8YC=q{hiLA-I^=GKxX7Ed3#{VTa9h?xHMQyEbV!K^;ez`w;i{V)B
zx9#0uqz^pn*S@m9#iwh|k`03$@iwn97TW#~sX>8MuU4I$=so<ZqZc=R;_MpriQOd=
z!YA|;wbhiJ0*(|-y4y@8CS}35R=cY0q>~pkEr#2i|IcgChRlf<VZnQF5=U!RrNrfw
zzd+cx%CTo5)0aS0SOu_HL4+?bCFyWv3DN{kLAE)PF1A7H#osfej7%a2k;s(NHb6Zi
z;soAFH-$B}sWV!R!U^R7tBG(O9_a=3Q1PZGEG#X1zIao!fyW1;R=vL434y-W79kE2
zK@`SR2IYf=H?1bp+!LrUuVES}qVpS#g!{-y3D8J7F>z4@w`P;Ojz&4!gg1b;L>ANa
zBc|UGge0kY^C3e|4EU7phDTmcDE^Nl^1G27Fon-PAgtMZ9>%22_^!xqFE7PGt6;E3
zjc8z`s=}K+M7M#AsQZSG-bPF`?1%OpyKLm~mnxBWT46}mKuE$eV^aMtUMGNiIjpSK
zaqYFW7ob*Zu-uCkVmP+1@|!_{8C*uXYasgRO=1>#oyoE8E{Y=fUDiV^a~Z%glOF@J
zUlmc7zo;Da+K4N^R5mU12(H8uHE8N&p_hKyb@g&ID<!}aMx_JN4w&^y<P4J2)LE3_
zVQLWGRcHe2Gs}~rY-6CvP?uFNj4x=yzl=<(!2(3gS=7^hqRtebf+@$hS}Ek^mo1vX
z2;mdtTxbh?Fx6!@wSuLMVd4RU;fZdFmaIUTtFSAQJxB&0((b)svBRhU9moUZ(uEr?
znwAwjsGXmZ@GBbYOP3c8B%*;5C=S*RnEha`G9!QT2{dQoU!?nj$vAs69PG3ud7b#=
zLJgv6_5*9sxqdKngkNi9oNU!u__GLD^LHYkoJ2r&B9?h&5hCq6%ot1*0A2SiZGUy|
z;OIRRf-$qpNW*I%i2)3E5(WbQCP7wd{2bs_2xD+%4cy9#?MKlD{E0ikjHL?t%7#)s
z1z`7hG!4{egtv~YW`^c8b}4MySN2194EczST4oB4cO%vy2Aj9{K6H>yp6(x$EGmNg
zLhi~(4T2X8*FNC18+W20M3?1`MRb%jUsAwPy@|eM9j))_2!BH?e8e2CD&*E?@`}G9
zvzu1f!F|H*j&|zC?rTeHKM9q)QWk35RS>kL5Ti55*<d<GW5(RIuxYN2N;AFwM)_0w
ztMX?J<uBWd?)k@)fJ|I)xhb$yj3Q_h9Vo4bc^<3BpV$mkIg)D&O$KSkA}9!67+w9K
zJN|g3T@mUvK(rN*L3m88uzdTF2f7KE<>>K^`O96(p1`oAEq}XAKgZM`QNTd?UakS$
z1&mhOneku>C@xQZ#D7BS7QW>d&Lrcx0K997T&FB_GPt>LeC0Z+L0Ctk|LGZXX3sNK
zyJkIS+nl#dH@55ybIgc7dpbtwXCRHd{?+BXU))SisoM8h<=d4vn=&lc8eR-@czbQx
zj{%4F?u)u+@zdPjA6!_w#Bo?<{)qO>A8)_ap<<imxydO=5@;itRGmKlSaeseW;Hn`
zNSt&d+q$pq(FOH+Bfok9jviHPeJF0KJyR5j@_#1}E!OK1B7E>y>u}ToJaqBI{E|E|
z=|B)<HetKgGhlnZv<+|X>_$XRIO>^Y%RKiO4_*wr+3UX!o}QFA?k*nrO-Bc#N?TTs
zsKSD#kiz)7hW?@&4hUiZlZ9$%5b(Pj|EZQk8FyU%<M6}XT6~|<{bu?rNFxeolG4uM
zaDced<eqomu_VmF5^ug307;O^$`p3T6m_V|og?JftqpmzZ5dZKkzE%uHfc3fG?=za
zQJ#wauw&UpaNF;f$8g?5bKaxXBSAI(ZQ(=;6qJDO)&??tR9}CfqaTVfX<sj;5-qqu
zt|t`g&df^Rm)Z$==onEV<mF1`^G(s6Oa4Sm%{N4Ko1S0@-)&W#{sy#Z--mhM#;635
zmXgw3)f0Ouj8G{w+9W9vyG?%z>!Iwb%-Hcyj4Si-QL=)ujk0{`BmEFtIK#G7u22Y6
zI+@5w3_w_Vp#3O}ue}I_6!;v=B(0fGz#;jNg(N+*AnjxZ^wXt9c1ionK|w@ezqwzP
z)4X+3eONpU;ehu|)IJKWdlPvK5z*6ns=+Uj*X0^3TpM2#fkC;jtDT9Q=C~P_#)T*@
zR{0@r671G#etIPr#jdM9Y->XRrYl%Mkc7IwTt0Cmz0@3+CD$+2iKE?mrP1h$ae^YW
zi&q4VwnhaWX{A#c0^J~_>jPQv)YU91?ZLUq!515d8(IQW7f*++8wV&)@SHFphN2lD
z$NM3d5<;cTMq6V4{yK5s9hef+2O%=-{TA-F_t0C#;!R-3x#ekaT&+PfPzc@(iJQd(
zsjz|eUTl%Xn#xWhAdocNpDPf%=)e{XH0R3~71yAHYA{|NpaC!0vEh%OFEHPH5u*}J
z%46g{oGk+gl$6b=>Wen?aaY4mcndQ0xi)Bu&VdPZBtA#XvCP-}BLo?=e%<=P4z8js
zThBUEy#rxBh@9ba!oNi$#d7|=Rx0nQ0*LjvJ_n!5yZ{^A3KrNY@+RiKQlpwy$HjsN
z7x*YkFs(+!4DY49J-9gKOB&0ILRZ~NFn2wqi{bZ>@wZuHGJKy@s`tvZb<#C_qrZ$#
z3kDlw1*o40CWPvs@ZhnOU>AY>yA|Z0n;e77#th!>b8;n(LT3jpb6hxyb^JN7uCRER
z1Qqb5L=CJXYu~(fP#eu(u7kHa$8r1&rq}e`U2M09hnWWJmZSft$uCWZfIN`9r3A)@
zpmTCe_IcQsa98QJj@TuTNVdPwTW;qn``n)@(B^ZHdP6>oJMoZp%*CatGm9+IskWYd
zsVN7;O3A!XBuD#?C$ux&bA@onPUwy%=sLhwsz3JZYWfUsh{9ALpOX*ung<(@YKxLh
z?^dw9iL(v|qxc6YH4Z83%;u*f@K7{`BKN!bV3BoSDNd7Lg0>wx^mx}4PX`u*Ywc?*
z1zj<;y#~grph(gd{UEKT`}eE64$mYH2q~JdGg^eTb1T;^4Xp4!3d|P)7rYJ%{wf$r
z^?a-68b8NX$w5Z`k49IZ6Mhh*nM&>NmA4Uz+vu+?fe_~eZmyn29~C`N@nDZgKrblr
zi{u6VvrGNVAA3Q*-A&8}S|3aM;W2@O5&tye9C2xt5?5ye-oUaJix2GNJ{wQZ%Bq1H
z9LW?SZR%l+F`!1`*7^EO7U7>BNc=l<9POSGugT)gn!oAYxyu8NpKDu=4a^?K20m1l
zZ2UEcpMN%w&mm2d++Fb6rrebfmx6Ehd}@XxmEY3z-M&<Nz*Uk3i7o{tENGMxF$=;V
zw_F2cSO}+5UJFj_0qWf-vN^)vO?DA@N1_mF9d3urATo=JbBL`TpS0k^!JlfDyn0Hk
z4o1_ocaBmjCYK5I5@5bCK2+xN5XhYx0thwf-6A2fwuEApo6j)P^+p{Xj#!A#jZHe<
zt%-!qXdm3BH_M0c_0|jM-E@F|n{Q0tjny45y<<&|QF>nmmiU?H!%vkh5sZ+JUjMmw
z=c~7W=@D9iy^22zcVU6>XXPcLEE$ZwD^CIbGZ<I)&LlmQvE@4?ApH3U{D7CUoEFf{
zYwJNR-=gA_5bp;!-B|u%_;o(+B1Cmh-C0S_Q+7wQ|69(B6|M7KKy8BDYs9+a&ws%k
z{qxu4Uw7~i*jWEs#D6W~&k^e8S-=ekC^FPoO|DGJF2siraY6l{$jB~=5jPhXWrq{B
zu8{Y%+CZA|Qr4`8Pi*YLa3d<p^Ij!@^{t_%F5pKe=vnuvue1jmWoy6GWJFk#1ZYZ0
z>|8s!uNc;8Tm4nGjFOj*^c8fUcz6fELPvB1b(vAVLh<E+^ws7f9|u2RNDXq^?O-W(
zelST%30~u*#v1_m>!}^CWV}`0jlS8yN@<TMHVV#51C;-}Nk3XtjG_?S+3V)da}Kx{
z%JRO&pvvM~<BlrEua1z(*)&07OQ_DJWfCs%XmoLq)tTf?UME(h5=p$|ffQYN8(bb;
zXO>fQDv=Ew6EfyA3^$*OS~m<|vgK7r9%-|Fz$!T?TQ}<JI${I~H6yi+l#HxkVZz9z
z4K<qu^=+jnsz#v=#gSg9w4aZZP8&fjZCTVRg?;PiHl`)|Tzg7e=!c@rsgHYvvI!I2
z_AJuW$p1_hE3y#hJ1g6dombJlkdOxc){IAmO0<saLArbrE(zGsi|$@R#YCf3QAxxc
zrN%bUG-(Igritevx*uAvl6Wp`Q)Ghs$h|v4qFsXT({GsN=+=9oumuw~gm#%0Zsltu
zZ_~KC^k%&YOprnqaO{P$D>i$@Y}>qs8ZZ@o5};WQ<RDa^DCNkqX(^%B>DU_a+vp`r
z4I)iaVJpYrB%VF=D=YZzPi6&oZ%AZ8Gt&eB!hXw_y+*k=MDGv2jemv=P59fZ7=%Mn
z*Qo3J$9NME4BQ36yq``dRM<!g%sWd)TgXBR511)F$3rxmZnO%$G2QKt9bymZ@gNRw
zguC3m>{yHxjFCc0Vnwk;;=bw=l#UotWEm!rNGwO*Eg|QhrKRLvIH7<oo-?)B*Y>4e
zgBoA2pwd2n^R#Guz`gg(ce!6d+38w7^<+7ZdWo7(W=*5*c_%N9Td_*?k%Ahz$rlOU
z9ia79-jYRhKjQbE=iJ4|8~?UUM``|Lg_zX*<`a35WB2q*E;32SrZa=Bl?>^KmK9%b
zwhrX*Nu0uXh0n3d=`;RFznZ6my`T$YXP*Q;aF(I^-Iq55GD9BS$)i>*@(+;pmP8ei
z@n2-1(VDu4N+SNZrFVPBJC=tp0`6;A2~_0hNw~;F<?T8c>Qi(z@HFkcBWE=56m3HZ
zBh-|co+$^>3j5_saESF=45-xvtrF0*D#2x@^<<vE?Xei2M<A=KC+MD@`|pSC!QQ}(
zwK(X)j?i(bg;vpm*~kuvL<IdveeHXJ?l4kulr3@SE$>0ISrw^I#KOs5tRwJ~J?mL*
z+pN8LB<7;IP6$UpjH;ba;c1`J@m4yHnFW1meK#;d*<G+i&+@nBat}uO{h77_&mM6x
zHPvd!he-_x@E{A&2ihm3`iR(Aw6;@oCG7R?%^tMeA*!JozKyH#Ohg0@fy?bCKLlCy
zs3(Xuh`v1&lUF~e45Hw2#NMdfs$yhOoCyt2rZaeuo|cGBRKXhXPw&ZbtUSHIY}0#~
zXjlP0Vi2uQWWz^@ID8s5Ym7p(|LN;LP=M~~rDtwv^Zg>~AXq(rdyJn4s_uWy&cn^E
z3V!)?DU>hwtL4^zTib3N{I#}aaiKyV?C^rWnhV9)9@J(HNQNQ26Yym3$+QjW0h=`t
zKTS!tg)4Ix4;qg>K8Nbk^Nn>fZj3DCJQ$fxSQzAzmPM_gECT9^ggrE<o9>x83K_ce
zd@`NlBRjC?O(}$rQQ;E@?#w$bxhn`Vx+9FJOLW~1nL!12%o0J7QZ|ZsJa0n3_1f|n
zjX-+dD>|<i-4tS`loK2h^$KW^?V)uyThI;qbDxK)UMr@1JnUEGE?+s)-QmhNa#vA8
zbL-gKyJLwPAVu9}wkka2ct>s3`*W+v{`*KG=>Y}R`nc@})a~XxkURcgN=%;Lp2gx(
zSD)-Ojp;aYhKXE49oAiBG);gXxlgT-m4m__gJyJSn`20RTA2q((DTN<1!5{IPxLpe
zN6xH*MBCyh@Cg08;508`=#)ypyR1PphxOojJcgU_H0jH4d!t=ASC);-GWw4j+#F$C
zqO)27Cw6xE5H`RdZb289Z0;0N)JMeRO}9@S*-G09GRQ{5yn#^|pLc?dXy{j9*KNc{
zL7O_?QZm1FW`^rn+#!*k$BFjGzp9Q@&XG4pI62%*-fKtLL@3LIGv_WlzGXi8!bK<T
z=zbaw&(z|$|F%l3mlx~K_85?Yw2uvxquD~6^g?j^uOgdwS*(sAqJZcK%*MTprPcK>
zhCN3p%`DuvzvGl2{ib!))1MCNqjy>xdL@SIXkucZi0mHNBP6;~j{uI|251(#-xP9=
zVQh{NloL5};6V-w@4+zrHTbeiI|d?0IibYFF=m0!_5{h>O*1?mw-wWMvU4~8P<gNy
zV-qnxEfS?+Zj%vI>r2E>4;GPC9Z7~iTq5lQv^ghlh3)lQv|wNLS16N!>(DRe)_+{d
z_n$`Qv?-deChHwcdeJ*7GkWdjxnxVbV^j|^7~X%J>9N$=dhoM@0j>f5VKZc(c}Yfc
zN61djFno)xgfRav>)QYHL;k}m>wn%I{QRCOs%`e^^*0Qw&1$-P>b!qvf2Q0;zW$0$
zQMyyuu-d0XkLpMD@6JyTt~2C%_XIXkc|TrUXz3r8-8d2V*^UE(9$T5w%)M83f#BZn
zuc9pXw^aV~>;CKWWk%RkH<LiV7@-BR8hy2cP;|P%ps}gB0f>sk7}6j;$(@Ae1Dad$
z5d8<kYD+?7hcUNiYD`k<h|$V^=ndQefV&o4HEXcir$ouB!^=d&6C4n6%uLVs427Ie
z2j8QUJM#P6!&g&NS51#)O~*ic(=~*6JA&9<7@s`z$c~rbl6w5x$8AY&B!C$k*op+V
z&6d$rg`3odj|lSBaY3~lwk5O#XLT;0ezCmSSNn<uC|&D%G}cAKrs7fDfv_g~U>?IT
z4Sbcd2^vm{CjW(uojh>(1{9j87wLN`^<>3)iLD62myneY?Vab<XYT@!#3w7B5K<|K
z8;19BQt~|E?bI>M1I6A2@Lz>|PmSzg>(xo!1`!Rtx|9IPx~W-ujGI4|PGi=@h@cyt
zNtNL9E>qmbIAt^J2dH}&0Rq<2ybUt*^a-h@-5X*cq@B;%Ve^Yb*eTBMAhzjCGXxZ4
znW<Ah`0-J<^`P0&CF=#F;X|bX3}Aw7BY~A8#x=A2jPc9wOl=FvxdAju;o0p0$oG?Y
zO+z=r0y7$KP|aWmIaT+hDei+zaWqCi6l#u$PiZ5z>h(+Inyp*XZy~Fsf1VHL81-ox
zn$Nx+iry?^LS0@q0N&)76g+k3k*js|$HgV@4$Q3WgMp~U%_!j2^ZaiMS&-SO$+Yw9
z_d}h%C&=-WUNiTS>Ek(hlro1fB&DQa3eDX-0M`7Dj~V@6Q%y<J#|la?M5qoUy}aXo
z#}M}y7Y=`VIal-6<1a)7d7v`^ozP2z{VAHtWro~-(=8%7IXMn9C+bx`F+{hZcsykX
zqgG6|p~Lu3y%##3sO^R>l6?=da8cWh$cZ_ffauL`pf3Ah99zRSTAV%kd*4(1L8;xe
zLGVP!@^mSBYSndgrX(|O=Xt>=sN)~giy=;5m@k?8nDeRZ&IeNLh<M%cv3c=@-}%op
z)O_c)hR?K0C%71&q-7yNDf}U|iia+kk$trQ&4Mv}>TDWbGMmwM4Gux6sz3TZ^v1_f
z-}8OksANow4w0S116`yCf<SBqp@64!NI;r1G@o-j)EU!Hh~4#?q|-(kiJ{qS#&i}C
zG<q)01xHC;#&7B+He>xxU^gCcoRz0CQ!9HLidZ`bK=yhCx=zFKahRL5=-1T%AsnTU
z4~oXTAhl!s%|%kqF}&jpjd6o;LY;>dR9R3RP+yucJ0x$gTjc=Tr~Q>FISB*`2;0^U
z>PN<*Zmi2g|2hCcW&u7CQb*nEc!?pZjYq?b#BRmIP7jHx2CmqYIQA%oiv@6ke1THZ
zfp}{&Gb!6DAscq0K=w#Bjg7=w4F7R?i0W<NlgqHDSxSg=poV!<TOV}f*~11>ub_zn
zG&QdL+bzP`wpX^n7^qEURh=0eUo^R+*>5$&+a3enobyN^qIwnIT`>SUZc@*(L)Q>(
zusCq&um^agub<Iy3PWkSsW%BCb6OesQ<T<PK*kuEpb(<rW(aJfKWP|WBz~a2gY-k(
z)%N8s^D<H%c78JF${dt^F~Q^c!ReW#P6uHA&|!HIjaWcwS?`6OSekvn312d!;YQra
zzErX(rb`hNd!R3-XNI8|MBr1W?nS`D%cP6q{_j(PMD}ITfDVot`7WoPzqN%X>v}0W
z!P3$*n=(rOvPU_Dhsb=0Q>ZwbeLuSLaZt}2Zh1Ik>q#@sr2RPWo(-cRGIAXougATm
z`03d-gG5bGFn|CHc+Mkc0|-rs+HHtJt|&7eePMVtd8Xa39VsJBXC5>dK1#F<)D6zy
z1Y*a}c6j)}&lTR@{(8}EN2@}etw<d_oznF*%?7)facsE8TH*!C)d9nLJ^W-lOvWA@
zKJj3iDD*sGxRKc*{1+&xdN5r>bjD=j35^;I?=b<!rO|(vXgp92q#@nQzh8L~rzR4O
z$@+w$y(Y;PLKB?maJWLm;QM5NS<y!Wx1My2+V>zSq-K)mb3zh4X_+pX%U}(n5>zJ(
zvw-teD7@a(kxdQ}4C7CvL_+a=10-p3j?@pSL9bGd3jyoZtaf#l2l$3;mR8a8kI<*6
zbwEPvNAsg7giYDOr!6t`#%hq(+LR%c_VsZwghj{D8;WCYg&X5SM&nFp4B@EvLd?fv
zCfY;NrPf&*ru5Yx_QTls+F{nmA6npj;GayJLb730gOHkRIeurJXaFT?PbYN<<f$$9
zja}e-D*q9D6g2_e8|wK>c=T(=0k4JRpZ6)2+DKK|BdIB(&yl2c*yDFLF!)`Vm0d&S
zS$_jG`3>kSHnko9K_%z|%20x%)EWuFlI^wqirX9Wo=3VD^d{r`i}?i@LF7g*PkPFj
z=Dm+Oy)|jrzk2K}ROoOLwWJ9d@3KHtCKTbX)q6qFf&U=DUXZmMId>RTVBbk3+ELhU
zYtuH&bfEiwnQk|kHs%FS6+P3<j*X1$l6iMq5FV4ZjWpEis-QV{Y*7tfEPvc7jY$a-
zsRm(qS5i*f!H>w3&vwu~f^W+d&t+7+z%^*rO-qKSr1jx@tSQWE(xU+lf}=3y=uu}t
zUQ+<0|8m>J&<fVMsmDb(hGJu4@_f}9hos=eJOv8OyI}`}>DdVe=H|}$UD1|vAZBhh
z<$8qPW@N9>UFeH%t0#a(;t1p~`qHy9ecVu}x6y-JO*`$`JsnYgIur1q_n>IDn;r5o
zW6J}2sVMh#4Ts?f&U>atgn_^dn?!(0kE3v7Jn!a&pfYTG>R+V)wj3#zt+OCI@WpH`
ztUapLbp-?P9aK|`cV7WYGs0nP*R>4i?gfdjJ|=T#-xzHT$3TNoYw|z|6r^+>jGY&v
z+D!ctAbBk$7)N5qZTR#|?lU!T!G{D2^iw`uEtt_f*ZlcR&i4RAjRi^m@6Ft@I}W9@
zNDOhf&M|nWHL^qy@}r)iH^TJICO1ZZL)*mSP#oSc>zg(Hz!lUwjlE5r^F8O=-XA@l
z!?@y$K^ON~8u1o3aF1z&qHcAx8HbtsdZS6840{ITLsQ>|nb}7T;PH#)Cjy(bpq7sf
zoP>{c5W_ieJw!bmmfOQ0;s=iuK2OpLT%~F-F+JZNZm4SfwYI?+GR4`AH%Vet3lXnk
zTjw(Jwi9K7i8mV!hlMqPnuO)_{A7S*iSQQa8hVpQ7K`LjzvNU7l^t%235hB4tdS7l
zwy(NOhFh{#i`~kfBNkCpKm}ZNvGKt;(LKO74UQXTWgmS-ehM&)2PCNQt4ZCZ5d<Jg
zD7`6ii4()X9%bJ@5zLK&)O<jaX|tRAmA4|2Bi$xuW=DfZ3kSJ&Py)KO20XwcC4RVt
zoJZPu!CgrpqC*vRLqB@t``XM9@d(z2rf^h~Q*E1Mq_<9kT9I-9FmDdpZ|R*Fcn2Na
z6~rPUhN}3Xd!f*(hh`jLC$Xs^<Lg4k&1ls51nHwc`1GT5c{5?ou3Qmym<OG~vSp6$
z{RKr^VxOay_Lxg8(Zp_&hsJ#Ki;pR9lk<+!9}T8MqSuADW+y0S`6tMt;A))k*g}|h
zfR86u5H|<A6~1rx5c4L{5Bvc+aiF+IVA4f0CUX_<c&+W;uXW_89@;eU=bxzY{_`r)
iUl-xO{0<&X&v114=DNwD6HjTeS=-D$&iv@e7yk=vxH{JW

literal 42791
zcmeFZc{G=6-#4t<q(P%7W0N6cAybA1LqsHzxiZTfGE))}5*Z>g6(J!*#;DAa$~;dY
z^E~r>&i3BdeLw42>t63a@3Yps*4x_G?%MqPoWJ8dj_>y~ea}aVm!&DT(`+XpA)%1D
zD4|3`LTXP!vgH;z8NSjM5;KXv$ZlPdmcZZmvveWf4S#L3yr_1EgoNIU_}`|0fhm0w
zlEWl266cidBS$+NoaLG}#3!5Nn7<$Y96}m%-c)8RDfQx*2`6X5`}Ak(vX|Z@_WJ&g
zy<%c)_Ju`~Gx|-ctWP4<BQ43}-lBmLd-V2J)~v2i_IVf>jDNUeSUa+0zsRx>C22kJ
zf_K8{>q_FRV<CgYfBy7a{>&aH+54YAm7hqs|MMS#9=F^>z5o4FaqiT|OaJwQFAsJz
z9sT!@wc^gnegFA6AyzW`NB{nqHy!1cg8%%O#4evr+W-F4(W6_x{6GG6e7Md)&h|Xp
z9j`CHIDh{9W-jdl@0r26zU8@*irQLFmE_ZEV#kmFb-U?p)_Dc|`V_;Ouv5)hw?h@f
z`^p18{rK_Yyr?zZYRBF{O=s6VhsstwF4E+aPrgb>=&1-iCTQJH-rL*zBr@`GO^sY`
zUS4T=`POT1l+Ud#&(*&-zWOs&gWBBOTxD3**;&MKe$;q!5kEE6<He|+z^zwQP$06p
zJd$?(-HlC3SFhH-Nq+hAY>f8aD_2w$72R=3N5sS!2EV?zpro|#tyccS$B%cm7dlZd
zEiJLCq#SH-Z|@!(^P3*1{?yb&-Pzg6s`{3WP4(?#;wyD^yP0Hz-DMLp=G-39X`VZ`
zNxV<5cf#Mhzjwx?;$$bI#P?>7kI79VR^1;rIWG-_Uc7jbbvAN!)mig{HL2=b&5|OQ
zm8jJMi>{)Byaqd0S64Y2#Zy&$>*J(pou34AsO>u@_4wWOmH3p7{JXlN&FK}DmFc#s
z4@SF+883M4I>04h_?6CPthHgYC|kQ9t-!Z8*VuckU6yA{9v|Wjp4bye&(6yF@!poL
z@9f6ZM?3PVg<pK_UlI}$%DpqV>ua>Q#iR%|HT8oB4_-?8QW-VBJM!jQGMR;i1)0m=
zTO=}4esh6<Md#<qo=;ZO{W59;O{p4Qwj+%<aV-ahtdIXR8MwO5qCIzSD7Oy3y>n-Q
z1J*38ckF4#tfQzw?Q_p(?5eGK>=}G!t(1<1+Dfh7uQ}B+KEK)2Io6g_?U>w}W1+KS
z_F;vXsPp0;+=?%wEt!F#p|9=N)KjUvb~BdseDaE3m5Zx?DIdW<^etwKu<h>$)Y|sv
zrtJQ{!cjGAYo6Bk#=4XCEAwONmObZ#=2j;^?G6*Lh$`ue5U`L^RD6;m_PqM{rp_O)
z72*`4#eAGUyf|~0YZslM`?X}16VJ1I#yj%Egl*rH^vOTxJ7;8+cxx<hfJ3{W`KCuc
ziDJt2Q?uh8v?GnF``M@&83Sf#Z5Ef8)e{Xj;+jU%O<Q<+tP^CPWwdw%RJ7jG)jeh1
ze^JlCKs~GD{{77ol9ET**tTcgZjze&-Jsue;LxE*YMBPxp0#A??=We2!;~+7G-G$c
z20lwg;Fq#8nis*1MJ`S<bE^x*8>iI+gt~HS5>|hz9^=x?br<Ngzfd2339BMi?7H^A
zP>_b#_P27}oXg5sj!%|k$eo^2Qk>=HJX(X1uHxbp>oazvin%PF`IbGK%{%g#G|ije
z-P9Dmd|4r_N%w1{&`?uabc08}?2lm^1?!hGYtj;5?=6U<PzYsoxvta>O_ll4Mx^w0
z7CK3(E_*$Ecs?$@L&Z>K$K<d6{_fPAPM+}FivB??3cWLR;;Qj)vAVjr1!Mtki#=XA
zB#}qW0`*;%hhJxp-#>c){(Z$f8{;19OQBqz+G#mw1ER95`lQqb9A}4OEET**eYMld
zv1cdO7P{K<*#9m`l1k^!mGG`Oiq`%3aaAdD;%CxTserq~-zDGQ_Q_CpU%>Az$GMP?
z60qu(pcAtGi<(RG?5$fzU022gu&2W~sIlCiKTBjTFWT##z91XQ<%jJQ(LkmqEi1d-
zpZ<)&h&k)|1f?GQQfjWykdTMI)ZFSXr8nXlOwt|aOnR(KN=m3Yjt5pSNJvQ?<>C3>
z*m3wzePqkP4Y@IEpJU!}Je6y`FF^b;gGFOXxMFdz!7~yIb#<D?G#!iS0v*>SQk+xC
za31}aN=Yy4jTDnrI8!uocD)d`<xz9RzBQPe8H{!-!w%WWFj!{duRGCMhy{zyyF0;^
z+|FIR8f&Q#W!w9Co7xH0#n=at9SN60PwJNK)VS;Mr-&zBTv?eY_G6g%7UNMVj6;`g
z+Hz|$*UM`wn{wjeb^#_eCZPwx-RAc8g1?*6bcRl4srw1t`E_GseXZi_SN`kefybnu
zJb%u{?s?w8;8i_$Uu}edv@aFsgAt}SZ-0L(t~izCQ^wzq+l;p#Lh-Y-vPzGjOLuj3
zCEvA6%GtR<@k2$$#RpzqpT2zga&%2S)4(sqI#nY_C6`5F{z6*QF%gmW|18?{V^V`n
zFSQFDnMW?l%S)=Lgp~9t8E(>edd*;ReNcSkl*89E69u}nxe*bxQjZVb%!tC>y)@qR
z<CR?aEgRh|i=rhdl|nt*SJrWq1~@?nMeI*jJ!9YMC#5?RG2>uuQ26WDuij|4_4KnA
z?pt>=+`ySF9mumA+rE4E?j5t<6=IR1PAZMO|8&3Lpr9aKo7l+WVsY7LZ2B2d&CS>2
z$`fifXY={ibr-s<WLLiUM9XhV&dtpoWNSP8ofKz7s_v1G56>YE*UqG?uixpG@A4=w
z_oFR$j@c!V+|c{=#hLT^?HwI^X=qGh7*1RmPiZ=RyYb~Y53=nGWwSh6FOcm#_>$P}
z)jkK<^+GAIhPV+|a?G`q6BRcxFfe>G;!{j+_%>{Ve=4e~&Pz#=DJdygE=}vx3EPmn
zt<6ze-??*ORY&p47x_((yi)?|(6Flo@BDgP-=`$tCP2me*Nv0M?wwW>`RFuIbs%W)
zz3~qzC9U=Kb>=!D$JxaAJO<vZbagDAzL}+D_RM6@g&rQ%b5C`%EYYp{Q<IZtv8Uge
zweiPT7q2g~qlA+R2na~7%wUgi55@PNykEUnam6@Gy~l}?<c(^Y{}*5CV}}oa>=rV~
zqQO6?h3Au$5)@O_Pd|A0@F)kzPGFj(q$Hw;H@?;KJtplRHdXxhF|u}kHE;NoC-8D|
z1C9I^^&}-GnM`-i+TOjX!NHV4g9lg6ukfKiEiNt|6lLM&RxtYU8q0ZDNT{WIYH4Qh
zLR`A+n_EiWmtXJax|*RUvtw4m;pWYo8CCQm_KNkcsKUMITcrbJ6f}D2&L1V_4>K{5
z;?H^g&0Dsl>sM1%Mtgc*Nm6FjDH6eX^T#^$EKc=>@fz;B@8O}}B=e^X^;hs)behiE
zqmNVy6Frmf>(5L>g&tS6`(L&cV6}K0{Bv@0`j^?Rz0sSdOR84p<>ftf=a-yE`GpG?
z2zXNIa;#k6V#$soNi~f@L{!wXnp3Apv)&cmp^~jB|E`7P$~irYr%#_gsK#$(75h}A
zSNU|PK5lEaS=&R8t-EjaR|MJ>%ijC5Z!ez6vFMU=bj&O1n;U5=-@#pQBO?m8s(NTj
zB~|^AUF}g0vD4S8tQ}NURV(K{<mX3-ls6j~D@5=aKdon7MSo>lNKX7VGIvoyK^jO6
zTh?oF(O$FImEPFcn7{?oGc!HEfBR(USC<0ua2GB9sorr?6n~MDZX=x;?$XrMJZbdp
zFo$NYVxp#;+|KdN!sKST0sZQbZK2!9$)C*Le;6DZ6y%YtnsyY>3NYs!n)F+pVt?W*
zXU@<%I5=RV6X>d-u&`%rjDnGo5j{0lDM2>zdiqf|l@xMuadCSG2ceoBdo^-h*YYgG
zL$w_%H;XPY;u|P88t*9#p9BWp19<G4DBdXhaA(jG?N3i%zoessexN#3`s`VfqUGQ0
zGEQV7W2pKS6%}VqOxTEv=<nBykB{$eOx4JBS>ZSDEO^wGV{uGee52CP=+QnVqE8VQ
zV?9unsQH11=v-MQ*YFjpaHo@;oD`={o$~hclO#Z{PSNAYNIH8*$5<4QM72z2ZHIva
z1eyZ6%N~C#iOcC}PS+K*>?Q$xwVdje#GZ`3o_>qiaV9?#?>%|4hwpad&W2>wL0>xB
z%9<JpyzRdI`}YE85Nm~Bcj(Zeit6eM>9@Xg_w{)IbjGP?nIv9)z00KOt>5p4<TL$M
z%+k4BORMh~q;nafekCrjm(Nt?S@n_mGl=@2`Si4ZxRYx$ye}g&v!|!$p1V5<?qiJc
zk5@+D<F`4xxR`ZlJstl1Xg^x(M5mULs4NN~*)#35CXI}HsO@smVjV+5;v1{HGy>)v
zNkxDIeK;gibwYNdVU?@YESDqCrfC=MWZ38rQV4Te*!Y31B`5d!m3+h`8uT$17HK;z
zrb{88QQAG4blm9g-MeQn$IipEFVmoQxv6f>v9SN}#*g?{y+(~Ghp>g2G>er0!<k1Y
z>hW^3+2^5bLPBbd4{c<#EZ(+c8txd}-C68be2bRzw~cVYbQSw~+D#$cIt=yo_2;*w
zgCCf7713ky%1|K&Y_b$-{K$?RIbsj+P1IT9v*YgUS|V-OSF|>-!J+>C;`EZ3n3(sY
zN9i{LJ`c?~{sajArW>2Y;=VCJL3PTs`DD<h;ZwS0H=5pRou6Y6cP;pKU{AR}{RIh$
z2l4ND-8R+)szSLfChb*JsBnlamuHP5MI82_0ZFK<KUWl&x4L^*8vLR@S(O``gVlB7
z#8UpV3$K6l0GWrKz8&%{GZ}T3eD`i?G^`EV+JuCJZEogsL-kv9+}5%b!_lI*Z;Y=m
z4Mv}LyK7h%^`*dJ=AF}md8O?$wrksU%l#$0id^&)sP6=?bZHaBqAlC(f*v;c0pEu<
zXj>j+6z2;a=Q#E)Dosaaf3ZDL8W_#k=r~W6Fw$e}Z(S@F(6=NVyzJaCY}1@+xElzE
zI7^kbq+7S@PWM-0pFA4<xJYYJaML<7?X`oweK(4e&zd|BFK>Ok%>Ec2(6CQvG?d0V
zC$?<e^*QE(*YRizlhvd8DMy)#jt@BeLOIFJ6$}~-|J19{fWq=zM7sZo(^%{2puw=`
z1IZ00rwnQidX&4kxSZ0f*i-3Zt%9b38@jkUQ^#Z$!tw<`Al<0`DDD<HFxld0X59lu
zzJOsHVKp7Woq_7AuC7J5%&M-SgD9t}AE4&erew>p8CH_qoMO%YWV1W4-t&&^earJ>
zzSxT7&svIH@^97QX8hG&;BYmu25o|AH#2B}7cd4Hc*wIKqCwlYZ{I^p>)YJi%p!if
z_5F#)6gAzzc{;y~yX?E`GmaE$Tc~ET20OpSHtZ=FQqul*fRZw-qYf3}F@q=#pfGQ8
zRC#}q^ZsWM5xxWxEMA@7f$~qlDKH9+bnYtIRr7&7$2m5joqM>Lo{UG29v$R2JxKIb
zFekD7-c2KOr5h|l+&<5qym;X^)mOg5Es&JK#UX;<jE0I!(;E!t(9TAhKJta)RC-ZI
zN*(7Z(#tP|6E3<Gug%jENO*B&MfX=tI5`EywOQVCkDOW?n-VDf*H_;)X67Vn?hX)Y
zU0Xhgl97+=K&O0A9m>5U)Gr`Fnm{JSt}et0X-wG&5L+h4MtbVJUg)&2Xa9bWU$qfC
za;}BpzqWU+tgS4l#+xw>3=XzArzjoN@Ou$$IMsCd5AOJ2GyF6@@4b3z<wx&`h=@wf
zhvI9qLG`s=MJwa^M~l;20cpQw-B#U6FRYy2JwDUh*H@pWBVMpJ-{w<iX>Dh15X!>D
zB-1+k?O>rcH+!^2vP!CAti-m=R+TDW?jrB!r*Ch6rj~7bC|G@zC^<VqhrcKI#?OF^
z5#869f~=CSUNcWURi!cX3XcMyKX7;4b;~9dl*FkP!{{S?e3VmDQ`zJGYT4!;K4=UP
zF5;2mZVa62?>{oSt;Q(Ur3}`D^P)h7r@XBEL9`4mtvtciIWvpz-@i|e=TF2Eypq&6
zDg+WmiO1Hyv79a`DXE9ObJYXnO-wj#edJABx|{#h=9Rf7o%%f6+iE2puV0{0#Kgob
z;<7!ffipA(wR-Q9?s(94O2UTpHn3EUwv~LN;S|XPKB>`k<j|0jjIGSJ%i*$fme^tE
zL+8XB@m7_?M<WBlpwJKM-)fynCZ*rSDE2snQ=_UgH<|V68CpA37K5yaurStO_3l$n
z5qm96$=q(@gCtdCBtniz(J9tWltY1IA}wDSZSinjTi#Z8m`T5~l2`23XYx#?t|wvd
z-}4pBx85%09p1z`A1e*CU_8{AO1r+&wLwsP5axrZMc3YcMY}!oGqf);k=16RlfI>;
z#iv0C$2#c4;Kk=)-mw4*g7%XyzqAPh6RN*AI&#A7ae`2(ZRMcXoM7o3iQxQN)l|VW
zvAqMt*RQ89zgOoZ+s*J862P`+cdV@Tx~k9%SxW>yvP5$%O@D#f+}yDJ!qc+eO`SaY
zRbe$=POFPn?fG}>^t6;ZDeZ>7l?++w(k3T0nDjWye3f|p<L2t(6n|xAED8@kUCoO#
zO~1{~#O`B~eF+R$I)HX!uHt_F^5n;chK6zN=LCorjIMu3L0e-kz|1UV-_q$cQD`_F
ziAr%3q}n=Pa{C+gtT&e7<(F2_MaTA32hpotzPu~XcI4Gi=v614o27rnXnN1zXn1pN
z@mGWehtfjuiK_&C@co$@kA-@C@Koth+ua9Gx^q9NdD%2_%4y#8G0o|!H+6%!JH$~~
z#I8wg{53<@lh;4<$&s$d(Q<a>S)YUc@SG#qsX9l|N!L~T(e@80XAu@fC))k@b)6e{
zOrhg6b~>|-X(Y3XDg?!u&%r;*nH$>H;`+*jeB+O7GYyY&AO(}z-Y7w<*!akjuNNT?
z5bHyKadSZDJC}uyyZmDwaZh;J=YbW`+JhUSRFc17t9e!z;so1;PR9e%*blzA`=BaC
zyRdb%U6@@ZWsh(d&?9&)ze6X)xB<IIlqw&r_0<L-MR+cBxiLZz`IMrTNtD=>6b?@(
z)%U0#x<3=I7?{1imBwoyJ&!Bwg9ed3{_wc8KV1n<AZKeCTF+FQMX}m@iaVwqc@4MD
z?eD%q6A&xnP@<{hGWX1~)0N3(b*g+3oIbVl?J><zXV>ci$251l_jRSw)v@3H^pGM<
z%q35<?ciyX;C`F9k8yrKN=r*0v|i7%NowKdkodtni_Qx!W{@S5ee)T~goZ_-{&b|b
zH@U}|DlE2Kl*l36<J0QWaZ-Le$89W3bhCgJWwuM4Nd^>Ufaa8KD?ma5`7@{TMq@pn
z$xrgPZ{L;<^cRtefP$q^{92wJK9($c$q7sA`L(XDt{i%we$L&Ebr%SGI*B#-jPhK5
zLQeB3p9VW^n29PXu*}CSAV7_UJqz(iF-=>P&%FI0iqk26(`I)7_}4ESOeijeaO^GG
zO5d=R(fP&*R~Q)XF=NmB`-&EOcO<_*R&E&WVlc(8lBVqk#H&$2Z<y)2=BT!^i*?Ln
zx7eQ6F|BR$u3FPeH?`(nMM?bKimgS`M0AaXp78<g$B?89WwNudZ1vhjzi+H@KTdyX
zMCNV=k?VF&dKxO*CYP6%WVTPwj<)O%3=CA*{6YA|F7)Bg-6bAV)!fBl92TP#wP5Rh
zzqrH2-HIlkni=k;ruMQZUTbXZurCWcrTZi*%6!DU`Lv(ZF}nD_+_8149Cxr9s$K)+
z&zJwIogjNaIax(Mu?Fv=pTlBkOw=p+C|z!DgQ2}y>YO7*eEq21#6kI^Sd27M;518K
zyhvX9>C@CmT5&JXv(M<NIwglz-p@v@ch3p&ijWIz1s*>?rAua*q!Acw#kW=m{xCKC
zI=VHFR$+Fmje0ku*n3+6N|puU<Ox+4GDP;c4%l~EY319=4-MRhe(;>n_~_5F)ukE9
z{J951550?uilC2#bTG7pG&IV)&9@j5`_b=LD<BrJ`%;o-K~%vQ3}VW8cz7lULUm|3
z+F~wj1tcNQ8Qux#anfc;v1NcALbHO{(qEu@UI78Sf0~>|Ekw_;T%5e=yf)XA!Jkn-
zY=f;#$#34ynr|U_E?UgxLFk%z)FZa(lBW?7?6)7a0^N)W3$0*@AMk6o6*>tJRA6}c
zM0;cJ7hlh>6YU>(3knM4qF9z=#(I12L#>EGAt#s^Xbq{K)Rt$mq=nkMUtIRWK_#Sd
zl-*qGf$f*0L>{@U%pU<fPfU$9>Hc_+ih|j|z~I)*uUdtoo!~{iwE|rdumlu=BPiKb
zYHpcP+gdB}f!W2FwPpXo<lt7poElVwY%taP1;lf?|4>rXNMLkyKzqAp{Hs^JpsdZ1
zOV^i2xYb;=-WvtVhrXe?1MrwB)&-pJzimJBOF$mhtFLw{vmIa%v3JK;Z~b^BZ+FVK
zx-&&Rt14wm`%3JO;hI*uY~ZDXCvT8|-(ShI8D`P#)5tOJ!5$4ebNB7!;4s?Lp1pf-
zs-ELus`vm>WvOlbcB|nB9igZkLMcZ{-maBrbMA}Jfu3K#$O^RsaFF^?m_W^+i26GI
zqpHUHrEfYcBBJ@7Z2>&t%tLfekK_iwy?zIXn*O%9_|gj-eurs2D1l$Qr?3*?JM{+p
z`-x9M7O=9s+=~mcn_Gd#+4SktmXW43X{;e-T0W#RsZf8pu#+X-(DAh5Lpx173)JT2
zTA&l|0}xwpB2BF~>YkVgh!S;*by^r-1T=XE+}yJqz$oqyvK)8w(?d@NMnTIPF~+CI
zyNUx~(Co-+z|JE?^HP`hSsy>14Q5x}1;yt404fD1W%n8cM#+4#v#mRoHB8#FIe(gD
zecM?f>NNinzv2AYaTb;x+)Yn;J~o(S<=Txs?-#Cq#_oj=6(bkU<H?|!qzpxi_1YUs
zY$i_}-DB{9EDEN`+@%?<w{6?D2w`cGC=k!8e}<zk-Te0QoI&j(RUqIl=qFm+`MCNU
z*jwZ~c6byQ7h7tvJ=-oLBjd@iGF8s#DbAg+Gs-koHBEb{A({G(a?*5v^^41|KY=h<
zt*<%|ToBO5<MQhux^9Y{JBe~s|4N<~bY7M%PARDycM<wlFnCm!NyGWNC{e4Gd9%li
z;tW7n`<LCuItyuGm)M10sEyQIf&PcmTwYwpFg`v`@O@_a=MR8(;@mdYGwytCQ@?)w
zV5j2<r}A6PLwE%=JcumiDAM<!qMTRBi~spk875ivkoJDbsdere&|E^=>#;_Kzn*QX
z7PJ2{9}NXupc)$54J?fPMB&15@vFfG$s^Ma&aTZ{oj&|id!}jlj0pE4#(t`|ZdEfu
zsiduqHmzuxP1|Me+Uk6p#rYsNh94$b*E0<$9`0u38eRo>+3x10Q|wx3+4VFi$nz~H
z3D8@_x25?i<*GV#b4dLtU{C>IC%wI&@BU1QPecW(k7?_B8I?}O3pD(u-l)kma%pJU
zw`VWaqnkYZo^Xl1kx?2zO5fu09?0!EosQN0q(m99>MOempq<eg$Qz-NN>!XPHdYoa
z`>)!b1MCyiVG_!z!Q3u&@uGLhJ+DIh9#86TK>jg2)&`%=S~4VuoFNRwS?pkRn(V%(
zSV*v8HMji`bNNi0_v~ku`-ru-n(RJT^ZfLVO`A4ljM%6|J5O&Tgt$4o9ox6Rb6&EB
z2zd()9r}-Ain);S<9?BV)C5#+L95=siq@BJ6YcqLVf&tJ!hK)g9aX_6JaAucfHMi&
z{-%6&`Gv{s-Iq|oVeHU}*zdV=<;qZ7PTJ9XVZfR<prjgg<Yif^In@k?K6}RGbfF1q
zP8?V|vv?-V4nIzf?2E1O-=hd#3h5{eybY34cTdk$zas}^AYhM4=p2<rZ)+<1ew!{7
z9}#|WxiReY$&-8X?Z$X=pHCVGl$QlD%kMKc>?!pu)vwW4AQ(lqp+b{KW;-yAMk9M#
z!F_ay4fb4(Fc6b&I0_*RUt=YGkH0>roTPjZl7-@$HNQq%x~|u^rLoqm3zbiqJgb`H
zfK_NZiZA`vmU_kfp>X+ka;ZxuUvfYJwu2WWpR0ia%K$m0fU%RMJGdzw3tqk?VRV@d
zESbiRB@kcDxL2Go0cuvS;f3c>_&uv0czP1mz0?erfKZKjclOb{At^s=AC9+w@IYVL
z*2K*+X}Tl!OgQuL<K%^AXo;oOYw=uud$qXU&VH<gr;4VM)yhofPvFYtT&uWvKH88B
zY#2f-!)XqBrv5QpK2mTm?3$3(1&Gog-8XGfj5$y0F$lH`&q1?sTIee3R0?$l*4$^|
zi>9?e9xePza7E@NXGo(&Tevx|iY{FS2tr2ev%#gs#fq<2!=F4koUD0ex=wt9yv_i0
zqlAFE0w0%ZUjLf~Xr|-QBga=+l%d<4E-g8Hr@4(_FJ>)mbKM*S$qVTlA19RY9UaxM
zWka&m%)kbq0UnR;g7I&}_nrFZAiN4xqo;KQ#ZTVmMM2AKQ&b3lGq}DFZ74*!4)X6~
zhMaQhd;AVr<AZ}<*h)8+rUx<@6j6LXudl6~GH(}*6Bq$WGU8iv|LNBN+%SpjCUzy^
z&I;QMx#Ql&LRBMr?G#LK-QLfSu%yS{Y8U=KsS`g?@IooM;ozxT4^rmgvK&p0jBHPn
zl!0IME%C~+9&05J|5%|Icj+dX>JU!P>X!32ZXAB2lFFuB_Vd%aG0L}8*I_CtlkMd7
z4SVJfj#?Q&Noy{2%8@se7_t#2pfV7AP}YZ7UK(`Whr8&1Te1^s8TYE^?CkIls^5Oj
zP%`#$9lJY<er#M>&15DMSAUp?N6C79bo&9empG}VW8PdpIDGma`@v~pxt$#=n^3y3
z*0r%M^o(V<yX7IF(J2C$*^N#)T80pmsQS<uyOfl|tNoXiTOsuH-|;=b&fNYLy!v=F
zAv(n;B*=($RaftzpyAu|JD{*N|881+AK2w-HR;Qj{p%?yfZx!uf-So^Y7K6`2I^AJ
zG55ow6Sf(_-@ZZ0`<bFP6CUvmBnPf>2{6{w4+Zfad?;Xnli?bZ&_}{Vow7@ao5>&k
zdX6xe;VclcExL1Wa#~R->i?7A;0L3lru~D1ePCDKzP_Kpcuv93d~e=C17)B&&o)`h
zExZxZ+=n}_Ek7K&@Q~cC1R6_%tWkSzx}{M4z?fuUWR4kh*pKkk<)c^(GZP`wp7|-I
z5GNf#CG3W?{#2*mdzTpeU{(j?nm*?jO7dYRHxVk~xpVgvqc0XglDh>kO;95Fm2}$?
zmAIuL-|g_dygK7A+O$L_L1TLLV_2{DBdv)2yHU+j&w<}L0z@US%zKB5L!NVI_&ZY%
zkK`jX+S5rdiGJ9YqLrU*X<4qUeJ<hO<I(r;@i>+d*z!X}MC5_0!{*)-dnMZJ3tFC2
z9xXBGu9w{^Etfhg0(ot^<*>eWXp+e2d|uO&27Wc(vaT*hK!>uR&t0;Mkehch;CP<O
z`*{V7mEd(e`aUU#%^>iU`P2J?u%W)voi_Qo=k2HOaMARbiUkCQ(Ho2XK6&ll@$3;a
zE^Y0oZ(DV){D_s@(NkMWasx80)SYkIFhk&4>>Upf@?g<0>MAPywsd#A{T#eynD+X!
z1^+50=JhvRAc{Tc?01{3mtI86uFufF^xmj`Gn#-j&T0=ddw}dS?I}{yuzyeDz!uCk
zY5;9=5w22@D-ldF>MRf<QY%68V<qsoJwra7IKj@oBa}<46w(->#lo*R3@_lsi4zqy
zHJ@?yQ!wu0Y`tB>^Brbh32CXc!?xA;OYZ+`8v{FV@aD~%^~_3jIVXx%-dcv^nzx0X
z*iJhfcI@=&10OzoIIm9>FNdbt(!>T6qL-$pr$4QRcCf$8dB*RHc-q()aiX$E#~dxQ
zi4!$&+UVQIl;XR%BsBRG%FK8l=sHggDV&^~;$Sj(`}jO<FC+Q{LN_#`(zqeO$WKT9
z>gMa({r$%ezgI`hTHhzdPi%&V8Cu^rALd5=E{G)U`>k8I9vAh%4u4ZJ{1cfELP0vt
zc@};Vk@Rqw`PI^4{=nMM>SBx8w=mcxY6EyTvy7X8afE&3xG>I1C#MPKUQd!1+46&6
z5%B3Og*2?8xkD9CH}4Rx)F;e%YhACfu!Aw&$Dlq*cI4SIMei1IbYjg@MjD6&QZvl%
z^`>;7U)+JM1aHJ^u7GkPg!6QZB&l-B^}Tm~)s)1`1Q9R?w|B?uiIYw6P3noj2Ccl{
zu_U3KU`RJs<LyF7$83RfeDXO@)l<}DQ>ve?+Sb+?Db`B-rKes=2QU!v6gAuHvZ#*w
z9Rb!Mq&}u^)hR0v(cb<2vvSl91cr<9WL0e~A$)V@@%>~-yCf!VTF#KR)i57qL^bMz
zo5hDNL*%B2Ypfg$IK(T(`Y|7A6z9p3tx{M0v<vL_V#@|<8iEMHV&hzLcCtf^00y@<
zwLezhvXsOEd8M+)hY+2?x=rF>P&>-u#=&hQN_ecx@=#m=05Yn!Fspi+5b6_)<}3IM
z2Hg3f`Aanrs1J6Zj=@<k-P8#stOuLQe(DSLhOHdD4ZvQ?@$zpm7wD}W%3*YPZZ075
zJ^htIeq@&=x*}b1ou$S3pgcX9bz=M3bmb7gf_)MduKydo6TL4MAj;@xVql7<%B(mb
z+Cc$xI^tkMpw>mPYJP9LAFt==w8O`6T^?p>`S6oo4Q(nlV;>~GBf`Qoh@^zlKT&+D
zlAIMmG696-Sxw2U-9B0zk<>tyef;ib_sFS(p))jw98FP2pdKB7^-*J@`n8LRiRnx1
zCT*tz!dIhrDqx5l1LN0r_(j$Y0Uy-wAu?q#)(BKkZ=WP1B|UQTq~i2~I|wVCpd|^)
zHd$Q@3U~kfJ?Y^?k)BD{qk>oSabR-or(#R`=AUEp-`u5rNsZXJ3G_RtI8H8R>!Muv
zY`x1!i)O54W`5+U<;p20C3z!08a0P^5D99`+ge~=S2}(pYKG^!$f;9T8b?bRL><XP
z)3-uc-0%2EQBm>6ECrCkg6Ewtg<#C*2e$+mNE6C>ZlpIZkKjWW9_~Dc%}r?RbZ6{p
zZt@4eR|Tg+o{s2Zdk-A&gjZwQmQ8`>lLiKTFjF9tWj}SR$A;_c*+=1LUZH=+fHuRZ
z2-EuO?xv}Z51cZ3{FS=0k43@n4DIMcj^4G4Nr>7lsU|DylVXjlHdqV#^nF<Mzjf-r
z>k1%On3nX78!yquho3x7pyqs>UfXCR{6f)W+ugf&WzH!`<4DPy@8M=zbe$hniz^>H
zy}{M3$7}!N`}dOwzj>7B+m1X$t)O(|Kv5zjz)F4?cn?8|r)8ebtt?FFqNo$`uFA-4
zRL=7Gv9_^W#t$M%EN*6s3?!;&u>qGosA|?=IOh}(m=C`%E@B6j0qWO5QODV01ApYE
z&gJfg@3ia89+f2JMKI+laL-Fznbrfcd={Mra0|J80k#eo-21KzlNBynK)ryUtdF1H
z7pRAxs4C7IYYQ3HDfPv0<c|po9>lv5_?f5|Gr!~`h3=4{1~nHr@IsrZHD^KjCmPUm
zt?r%irinNFGY#vA<B&1kMtwkuf8JT!bNhiB^CoRWHIgS;5obv9!=H`G0U?=5el0v+
z`roQW0Z}bN_AQvh4~MbhSykbnk_BiH6&3Zge5pKuQQE}BB&I9BE?PVQbY8~Xsp82I
zsUM=v>Yxcs0jaQOD`&lNwag=@=6DQ=qJDn}p!XBjST5@I@z>8w&OmqeC<k#hs0q6{
znTxOy{J?ZXNQlmYAMgOL3Js+ui18{UU1p2Nu)1O*MMLyBrrsZs9WV{P8ep_<EmrpH
z&TkNyuol0<qv569z!j9*7H+Jsl<JSlKuGcY8sP6=hRwZ0G#mRdCQm{@)#-V1GCRLn
z>+uoJOd*tmZ|S<ylGY(Vij$Pt2p1of9J&`7%8aM@`r;N4>Zlf-=TNSa6uIfWm~_OL
zSXcm)7<P_7KWsQ3w9okTsL(;SyIT%At@Hd!Bv$mx_ocS6|3a8$e?<2ar#v(-)A+*U
zB@eX%26=Aq{^Ua?ULW&c?XMLWV`fr0#l>}|cRHPL>S8^8RYz7ddr`ZaZ&N1}ct{yr
z$O7OO(Q9jKdotv^Z4^}=ulgAGpz)#gwrfdBq`Zb-`P9n6#i4Cd_-BhWsfGHprlRgX
z?UWUrSZdG2QUslTV*cZmpXDK^UU>S@g|<CAVfxA(&<DY^!yo*?%j59X^J8LZ5|8#F
zgWy%Eb&c~TLbrmhtGNwroF<UU0OWmSf|z^I#D)+U9L<w3JSMp1j-3*}RC2>DTxX31
z+r7xMl{huE=1ox>{5u(1c1zRHYAj!hYajXkG@0_>>NrQ}p;MK98s22;p!D-;?ysQ1
zfNULay7Kxmy`+lplQl~p5)0V0^<Foy716lOCUet2PU_-_odw;Hi_$gmh(`iTGNk$W
zrLWXl33fUmGiBE<cXq~_EKc^6>O<gMtm*C(-&hK;q=yJ+<x~6v$*Kombu#oSi(Rvk
z=ZO*Cekt&XmsDH{?ztuMszg%6R;}mBkqd%O^*+FxM0Bnt^A`dOZ!7~wqZ2k8pSe5!
zzSUY*+R%jVS{SmOnQd9KrqXvRDBPPb<Z&D7CWW5$uV6^y{<r-W5eMqwzKz{NR<x*4
zYG%(^uap|q{B{Ts&~Q>efBwE=wD@B8mde4Wy7<Hs0DpeWodVhEG$hF1HtEqSne#(%
zlDSl{f8RcQXk$d_O7)Q>Nx9f&T|^Ez#s1yy$~Sm=Jv{2E^D@f_J<|nMR_@@v@sXs5
zXFd^(b8=xJ)Oj88hUk`|b7<IT9OuodWKwU+A--~wkSSmUJI#-l5a<LnPV#=mL%3lI
z_A-0IxkW@GX;o$QlDHF<ltd0qgUs~4j&?1DXTJxblO5DtA}vdK@7(;K_pPR57wrh$
zt44A2qKV0y7Tac8r=7Wi!a};bjv-70AfXFjO7n`fgim0>z@+`P;*lGwizu`3m64@}
zo{hB$H>S`ABR)9K2TZWopSJ!f+7_K69_6??W9v#sIl0G`cJbp3t-#-i0<=D>qv>~M
zWjl58yGd4t!Dil%>@U2$wnC^qsyS}8d6JMMR3gyFsksaTl-ZtH?uvhHI0`mJ6&@b`
zv^x8C)7M)Tzpk+z0RAQPb0TR8M;&J4VFDl^%0fR;Fth79zuBAXE8?q@9!KY%*l=-i
z+4uPgJg7dAZu*QNK{qfn=q@n5<!JM%nkZ4)w1VmFNXek*8%$TfJH{!)DF?Llpc*>f
zC8f)!b&=MoWmAy!h$}v8W#{br?T62I!o3uct?4d?@ogCnZdGN@efaR%p)+%j_On>_
zl~Irc^m5d_*5YI4;HbH=e8pOGSM=iT_FOBn0AoHHxd{GRBL_&!$SDPl9jxkFDWKMI
zuJ0F;t$lD>+K=Y+gK8qa1nJ8_l)Qi3o^4=3cH__PkXS+wL27Vcl*@Jz+1uT6v_&?*
ze?lIYd*Zwf?_&zp_d=@54wrYE8#}@-r>YS7b?iU;foG~wLPQuIT^(7OP0&6+K}O&x
zct4DWo{I`~l{+F+`rNs5rTYC`jB$o*@T*JpAyg8%@}4>+`0}?64V;b&)U|=J)U<Xu
zL8i&5R;oW@Xj%XfPL2KbMY?Fl+4r%|*eu+&i184~k(Plw*4BDvv)bvmBwNfje?+dx
zbH3$zjyXMn^MFG72L@!g48LkK=oQmBl1%{E_<b!}LnuUEEG)j})^{Vmryi<Gulm{H
z=4t}K1YY~vu2x{ZKZn{=Ur_dqPH|C+ejB0}Oepv#G%wre@;D6+4?n_=krfl?<=qbf
zqoS@37%qhET9vth*lj+V#iga5234Ie@O%j=<t2JU>70nGucmUxhdWzgZK-qwOJ3H1
zMU-<^!G}R8qCq}NM6J>HJG!UPs)0BJkPK}y*%tPaC&(g6svHiS3F74s$=LoRxMXmv
zsNcfv9>J)MX!<jDVb`?H)#dN>Q9&W1dQMsZ@J>ldNuFRxzH_I<*|YACI|B>vG?PrA
z{GPHKz3x%IWy_W+oY&_m(p4ERh!DJWv8EOruw&B(UzCWr@9j^A>eXWEGzgJ5oQOrN
zQ4G~*nAL;XlGllmGH^0kl^tqCqL4~>0~(=}scFhLrH@zQq}2EVLWB@WeVA6fuD&RF
zFZjUTfHBM%AZ<yx%rbcBmOQ8#0S6)Sy>pl`$P9fbYt>(|w+Bk?`O3<K!J!kRavvc6
zTZTK%{jM~*^tG#{6WsE>NrP-|J6f53*CitKkzzfY5^K4kny7g0yWqMpDAJQcUExPP
zGagZ8E7xdlKOP)wNY^c|X>DJJMNG}rH!`wAK|uj~BOuBa!0KsTU3K**aD#U@Kao}H
zOZ?c|s&wmCZ2j5^w0=wI{kb1L97?$mSKp1$8}o=-p<`Bk5s_fiqgU9_Ksfn(@vfjz
z-i*T~5Jw;X`hbu}QT)e8!G{O2D90BrRgKa(k*nn8=3Z>wGwuK`v47b`gi}c95E?xt
z*Xvm_Wl7HpuE<||<jE#jA>%%nc1qPLW<Xp%Rgu=(`n7tHR9s-N>Z<X=c*lO>V$7Kg
zMaS)|nLw~;a?+B|`1@Zlb3)hJgTMPn9@_rO`UiDc^T*0PhFvb2$Ghfrt+n6&o^wPT
zK{Yp0be|gi)O7;`X1nqB6Pn{tkFMuh##jn1=U@Smn8L}HNvwhCbKI;kg-9}~areI1
zhBJ0>LUlOhR8)@Y(M<K|kcfyCJvW-Yu}$$uKqaZw(<dugqRCUIVdSJnnzy9Fk%$Xo
zZF_HgY<OV_YfdZLiOft-ky^wBGJ6bm+??H#19K(uT5?EyUVOn4=1HEc{#pPRWUiZ<
zn|r1lnt*z&ko#CA`Ps9$1NOl@7j_BJKCF+cWlc$+J^$5rvow<LCmm;vDhF?8sYeRi
z%1$p40dYOv2e=?zI4)EXC)j8{W|Td?CT%_VmEIX61BnRA66sCJJMZvA&KM}jFsPL2
z5S%qee2bFn4v1_IkH5s_H>5&MA0e3Ob02sw0C_a{8W+T0qsl}C6bR}mmg-r^%C@ip
z&4*L-SCE2Oy3xsg*mV%_xzSaW`UO@os1x-|?vG{*d*{e)j|JE&l{7kcM;hgG<!&O(
z?Wxk|Gn)m#b~%UID~azVRJKs%fTV`s);}WEgFcbk10&b_HDFNaB<3+H=YTwA@-vW8
z)KPN5(w%m=41N=z$B~MImNESvOQ&j|Gz8-fREw!y1z@`Nva)utnxmZ=W>5Ml$my?u
z-g2tsD7i&o7HKCf|4vl>QWWq59S=^RYGDF|itQK+xgyF1<sSzEu3T%jnQye~@-}eN
zP|;&T;6eb(<*1mR)o&V1)S@p~+ofn1Ie&=PT=18@9F>KEpKWU$3Xy{M00Fn<=%)El
zb91p<IJvrt5lqHdHy_lg5B}|E9LRo~!0lI*$2TCr^jOJbQv$#F0jqym#;}eTk?DbC
zKh#;6e>L9d%4TdrKEpi1GbQ4&2*atf-dIB|Md<r{E+;?}=C!cHkHijdPJk@zF8Mnv
z0pjXG(e>$S?ue9Q?CjM>zq6p9p85Q0dKYy!(QW+1UIO_rMK1I&b+GKX1C0eaD4BDI
z4SxkQ<>uzzKu$5E3e=8TBir=U64NzgeBhQW&i+u)&*C*}<x?9N+Iy+)tqTYMhk9}9
z0d8&0bb)jQcD0P-Ft!qnULex(B~-`tk(3`z3|zA2Y%^M7XePgiScZ<fT?e?zYxCvu
zotJplCpOl1|MA)!hna||AIjKAbavzy{ILlPJ3o)u2=`+~rZwv}koQ(NJl_f&?zHGE
zf=sjBc0X!3SBb5U%*SrRPeQ4<lN%ZNs-oq~3j6@<b;jc^uF&UOhxyb0a^Eescvj^D
z){#h7;OZGJ<CdY<h%Sl#f@lngMwq;N_U*fm`pn)ka5OEkeFK>0{C-IWV)Ey?fQ3H-
zMlHNu)6>(IsM*fbl`M%``TY2xo-k0V-c*NAEu9Mx>iZMA!V-Gj?Q&85F4u{ynOf2f
zcj=(J!8=Ki?m$dVIepn(`a|--W391p#LeJrg7EqJ`o?ebF#H;M%CP`aAS@)(DG5vd
z;LuP*n|X6$?rGq*8OTbdpA$6C$2hLEqJw}hPoG+~U2><k5B}PV^Z9J9gs?L>)H42p
zPc02aQ1O-AA@mUV2ncEJM<4#8s^j8`$pAH%<g2g!E4zda4Gs)=!rZtCrO&4c*7rAn
ziZ3Hs0>nC@OT03AfpLTPL%&QQa3Zu#N)pVaMML;s2!)t5rfk#E(LolWq_%b}{G2yx
z29Ass3|WGvUe7XlmXh!YBA3eO#uZ8+k(=OM1{1UFx4@7ysw%@vwu-dU^(=8yKb-#d
zHSE+DjNJt`_;VsGgBu1Cdl-{nL_p_vW2!HrWoHwV&LuY-J$7shEGgoiSz<uL)5(+(
zcI5+%0akrgI7m<LhgJ7<k}RW4SSiL`hL?cY`WwX$IBdv>ZHA>J4U<_t+w>6#cxiR@
zNVp9bdNXo3g!*qa_xoC;pw(vl<N?_k<zU=cg*(6gD7c@?%3@*uA3S5nA#6A5jb;yD
z{cKuOA36&{T^KxgP?@m)5DTt$&*m!d7yIq3s3V}pAz8+6L@!}p$K3pFNgqmg$ZX*X
zIIL8_ne*#fA4@hDfHd&s-TYMQxkH~+9<ak;IuboWxAeg_sZjPml)r0pHjsdd`d^po
zjrgu-=sg-ebRNK*D&ou1r`_U$9a}1>5b!e%B(Z?OqHjjkZ={X01^#|iR8%WnIQ7Ga
zRuq|cm>4sK>G7>EK&Of|200aj3A#%m*T66fX1`y`s6yj@3CWmw>sh6P%Naea5ksOX
z7`Vc~=uyz|+|l75uU}Y)M=B%tgAaHn(%=}ip=$8B8<HI<*V8u>uG=*+NH1M(8=^(f
z9SmLH_79p}DF<#-Q65+IAFK^UECt|IcYd_Rr)dpGRsDFXB(YbKJdR7+B2iJOFdClp
z(itcHcta*(q?D(o=LGJfW0t&NZ9QGgP@ph^-h+F`oNNwcQ?T?ag1HXPWPAyUIYe(}
zxv;}YyPQC5x8#qg;+|aPq)1PI9euG?PBA#rkAg06$l&%XnA)*OSNJp-axra9lU<Lh
z;31?-N2_^EP_Z`CmJh;!$K7tpquo`B2nmo(rmO}wWBRpLD?7>I^)$82SEGCe51X&P
ztEeY-$)D5Dc`Z?~<km`OqB0vI5ZZxxn4R(ggJo9=6+M-8G!6}nd4w1nqmi(Hn*T}8
z^o}=48VZ3lql?~TZhn4#%Wm5fjGfrv1f{Zsh0c<>+uGXtoy&?HksW0=oP@kCJyj4P
zdq}`MvZMdNAz_=u(RP7Z3mQMEDQ<nRkqn(g!J|w98iWpd%eEy58>*_a<9Q0<TpD!c
zU<2A!mBa{jx^1{5?_BP57^GK=$ZN?&?LKt%m0Y?JEzlTeIpy{fCJP&=r+cZWFy{AU
z6G6@Fi`hPfm(4Uf3K7bkum6@aHbW#}<C!CY5wW#V2=|S)W>t4vVMY#NmGBf6F|p1e
zt4kBN<BxlhPvW374gDN}u=suS{Z?3nPw#(*_Jg)}2DRkTKh^=G>tal0d<Q0>u!{;i
zUePHgDFeA3fkdhI!*wU}a^K~Q_Wi)ztK<l+m~(E2c6CViz(7L9Q!4mv#C*WFV=KJ~
z%;Rp=$2xdcilDV#JO08SI#<!sFIrN^ei0%>4jS#7O^_(L7s3rk>?RJJw(LIZ>#{9^
zM}NDv+nQ~@+VaGZPw$#IFv;sxrBRN>)t9fQTu%pN`VDruENIC^3f9M(5z*J)peWFY
zQzk!IGk>#cWOKlwOjQgRmBx%wy<j_hN;c!s)j!a1oOS8$rmf_Y&s(pjqU`$AzNO_e
zdh#W92D!s?P$W5&a+EL}^zKH<W?yk~ig4JS%nDJO@teIG_Z>W#I8?)JSktBJv#%r_
zBMrh@?qv-P2Vno+l09&S9|7T-NTI9ghPM$g{8sGdCi&Z%3MVV$y4Z4e_YIuS(%~q2
z1?-Byu&v^ZULapd_zIiOHgXMrU0vaqzLLKI>Myo7dlixOikl&ZRHt#%bqjO`?vzax
zz%&LT<P7nd2AYsY)8$lJn5kK7r-$eH<FD~(1GWuw@Lr~dOzhRTa%9ZeJ}6`xEVvDz
zq8tGv`7?6HKA&(cL20ErYvtc8z|E5Tq(jJ?ADt7;#^)xY!u7(O15+N8IbE)qt)7~Q
zYOZ2*1HmD$Ypv`)kS%U~xChKZjyY?5#^biXf1ZP1U;F0M^N3`%3lPU*<Kp(x(V33C
zZT3UNq#N=~#*ztncfEf#;h^9@-z>f~M~2jAF#nFtewNG1B8(PBMy#$&1Jnh`Y4|kW
z4!~ILJ#d3qU?zix{d@MfV-tz;hVb(H^L?(au1;|k%#5|)D8`W_hLhlKn+45-UYZGS
z`_%b&IbbVmDW3u5B1SL{BrBw<=pvq{(h=}VIZ25K4vkKOE9TuVOlN#GJppa5S&yEW
zD|cSXs28Ri_6*e8YM+K-ddLAZA`Dbi4{<ys+iZ}g0J`u(9IAAb`!mK@2oIdjI$JkY
zJ?q`=CN7Ta?>^q*4M>K7kIvhRLrrAuIKPvv1t@WI5occVw-p}_7o+p!z0qkve!eqj
zHN)U{6SK#Jf8C(6jhLG!ia=~^Y~*kG;(hS%iNP$)tL;I|e{sTX!<XQ^r|+8JBb~b4
z$U)3j!o*L%NDChXOt6el!>Fi!1!r!S0GdbOZWDr-d`=4(d-OwS^Cqr|m~%fb`rZwf
zSq9LQj)KxNrG>jk#c|yoQgffqQe*$9*qG^(|1)Lf2{+tr!j2|PccA<)ZOPh&!nix0
z_;p7C6wrHAj_;1k{6j~K{?L&*IC6y11-VZkISOD>7cl3k;X^i=@r7?VelfTc7%QE}
z&@VWm@no)gY8f#lkP!v9fJSt^^>*5}h1!r&eo8YF-P1@-eX*l-j*?9{kBBHClM_%2
zd1CvFr00~VyJ3P>N5P4Dzg@Dyf(hRpe+<$52p88boX}FR6(D_<{LAQBvlCs6glY>?
z66RmxQx(GL3tj*#NzRVmB&*eU-$eDFqzQItMwPnBozrNq7`r;c%1REq^Aon^9t3}}
zA#cK%xp?`qN<6)vlm~pQZXzv;EZ7C{wv;cmwG@bFoP`ocnC9(8F0_PMfoa3}@eW_y
z4c5kx*RNUNI6s8W9RsMYva$lea0`*MFcAkHLJz<Yz;Py~BPUL51J=mBJHde2+0^gU
zPMFU1fzq6!T}Xo>A`l+8VT`mM5ep>(D#0FBC$IqLFI*t3Fj@ig!_3TNTX)eBljZ+R
z{J}(|BOX726_~7IPkV{oBvt&L32~-{Pc6lxY%z(Q8?a2Sf3RkPTb*uL$FPd=<`O8j
zwQrj+p9rKTjg3&BqQ>i6Kxs$FhBI^ngoZv%SXY36gn<mZd9S0xRSeRi)sw>D&rw^A
zC5HdN#V2`Xh8y(f0gs6J3bKG4qx$pT=UniViMVpk(`sc(%8qAh>3|^3<9JC2>!Q=_
z*+?%C15H?YVkQvEa4yIJ9*2S3x)qHl7!!0z_emi}K@80x!PsKFB@|Ow$a!PDcqdpZ
zF(!(zCy^l_Mo>W%(KZlp*a8%-{6={jcj4?lVyN-u%fp!16&#y*SiwL%)<M9${UiKx
zD<njS90L;*DOm9rAjGNek}dteewE@@<LMp5Oe6t?A$IPCx<)9SiijWDJ2_E@tEo3W
z1@ZzL)+}^9fEWZZKMu2l80SRDt_SDeezJQL7*02U53(^t_H=S?P7-k?Xu-tPJr0X!
zoywVn29v<BFmIf?ULvaF>wCe`Q5czF5}c2M#a>^+57c&D(kHwtBtqGgbh1+t5E-~A
zBeR!n21!^bU^G;}_X<V8O~vjarYi;Sj?+N~4#Wclko0XYc4Gu0#{j|P?5wkO7ks=!
z2iR34pc?N%A%4nqX<EqKYjM?5%-^0!*b}yR54wY(&CniVmGODdZg$}3$;rvjDk|;)
z0D7pZ?eN9iU|<5898SbjXIE4%E9`H7PTxKG6qA1*?-Jezu{LA=oS@4xAFK|JZ^w>W
zQ{rhVfufa|B*y^Y@n}W{2J>|JUln3ga}-cJ_6jASM{f_^wriJx<wNhq)x$^gtuekB
zGvhS(TR$f1N#Q@wm@&Nt8ix&YU-Gv<#@|1Dvc8Gat$VL?PvCd_RBUX&7o+PFXLHah
zXyu&Ev>DQWKXWEf{x~ypEJ7Uz1uYN5XML&s>m9gnb!U49IEv5gJ#P-*I-&r=o0K;v
zpMOsj=63>mY5zRHCIVJ>@g)8ghxb4NiUnX&uOSFiR>UJxIue`0pyh%FT~bjynn58Z
z?p+bCucvpIgF|k5iQr0jk^x8au?$rjjl1r|_%t~Q3PV(lurZ!>f?{_cdzDCbAYDMj
zN#Kd0m}34pFg*MbHrwaVpKstm2)eBosEsK==6$q5wzq{Ono**Er;RW@w%e1ZPw#_W
zJ7baqLUO34D@YIVjD#DzE4BZ5B9Gl5WbHq$TPrcNho?}OWzBn6SQD!){SI49jaHZ@
zw%%y6jMjoxg;9v=l@T!=AA6J&V`)TyCpG_^#4c~FQU)~uZV55*4M6L6^6v-!NU8uN
zz0<4Q2hgr@*VCJBCoWHq8@rxJbhPEs>RtHzR$K|hY|Syk5<&OMv{m)4D4AS3Co!*w
ztyEK}@%f+2l?0X5eP>Wh!=-=x=*>UdCmd-dOeA7B<B6YD&}m%UQ8peT#|D!75(O!H
zeEVLZgT&%@KBhlIh5MUhD^Rh^lI+jZidsGsqfYQ^L5x54nw|bz1TBZWb13qN^=ABr
zD_36C8xb*eBD;b&YuQGOAGhW0C+6>!-|Oq^A3+I5C6=(U;lmtZi!DDwyF`W@#eNGK
zE2*Q5#5}P=))K&Nr4aZ$s|ZmDzTrVJXF=jH{N%Nk_-9LMVPYZ|^U>G|Pf!Y=$o3(*
za#2>c6ixU^P|z0iD{z@lNK_M9A+&VDC`Dn8#nDGI_DW7pPTgRa(9<VYC+_5dZd+Sh
zPfTb0{+Z-~4Fz)6n-HpfU+R--@~p+*zmzy^IBu-J{_j4Q>HqR$p#H!3>k`s!w{rAU
ze6b&zb=0`~Dc;2Oz?E!!8T{Wjvw5aN83C9AdYULodm+INyPBvWfBx)L8lKy=XWN0F
zHf4uJI9T7=3dk+z)fv5aOG;18zj-Zh>!XUxMmRASdk@)An&goD`@9zXaK+)jPdIUo
zjvoCVpUxG0)jUJ0j*XS|EPxN-EHU<j7QBUIb#0B{el|njHUYTalloNs_tPPWw+}oS
zJJ@eG(Me1T6Ho8i5VnIeLd>%wRwjis=oE0)OC+@UhxF_1Fzx_RetZ7ii84&D`Hzl{
zvXtWqUWBnnJMaJZhxPUzJ+!6ZvMju2oH)!B_{GoQIW@je7>?ipA6H*r_QWHwEO-09
zg-rGN%NHVh1uIdKcuK_`<nU9PdH?>f__%yKCxw$Bp&+cj0{tWwy6fc3%oY;ZpG0Kt
zBUGg5$o+`eK{C66FRF}LT(QDr+|M+fu795-gEwO-k#CIr1{(Pe6Yhqt5c~M?_#iR>
z2QT&1hxi9mS%irQh9Gih9Bz*#JcHYIA1V-cHfnftfQbH&w&m;w0L-!d&vVo&?pczh
z1))A*7~k!eA-*YXY5A^%2grz+?!uIM7>oFh-Mh=71;nV#(7S(MXLMR%7`Uc25wIb|
zdoqz+FEQrg!}~Gb&$mCPY<;8q`O0IF;Jc#q0Vg^|Q_1K0OA@4Fvt(;8X)Dd#x3)>T
z6vV?T8bs#B^G<EZD#_bh;3eI&`rW)UD;|u|+{buNdVJdH<Sf$oJZrvlqT02v!E<tU
z%qf6QhzCHrdec_ACzv&U{pQV^_W534Zo8X!SRDxorQht^h;UISJ1S`0MT|Up7ooW3
zbYdLCuNpy!ss+e(H9#!_vVM$)&@3xo-0ckS^FPCdT$nM{_-4GtS*LCG`Qf+I3bR|*
z4jD$)zuNuknzAxqTS>%mj4HTzH4@LzBeCJwWFasOsdNxwD2sVhOj(#QZ1fZbh)iF^
zoQK!Xzh5Onyb99;eEG!Kk=WEDh4&7tEckmTo!~p@HrkF!$7Ht<Z^*xycxmy*N^$Kt
z^o9+)I*1a91`A(%Nby~F`B3*9+NBYljn+}u&)$2-qIBy-7fkKM5x@#i-cP*2yD4(}
z{6Nng)cpC3d`61-gUvU+=o^Jt{(NtE&!pWk5YJngE0}K1a`N9DU`57Fe9JWNuYwMV
zt5>gL?zeMP4fLp0Q~_KoqJtpF#wI4q7qd1IFQoNy&xtTHHPswZLxKb^x}^J80r8D@
z#``Ai_H%l^d-iN>qfO(=mHJm7h@WtO%hEl@tiIhqqqQMljMMW2XDtQsdK*!E(t0KG
z6|7#4Q&dP9xjpgn8$XWY<!tQiGmjLUV_P!wAi&kl^qh)b{`vZ!U-SsS=orwex!nfZ
zdybR8+iD+U?YQ_%c%5_bQ{uhd{VslN^K%w_tW{udl|M+B`~TY#IE|)DXRbihz!HFw
z2;@Tz>JV3wCw}&0*|F|1sd?BP1`7(JbISRHi$9{*e~!9FyUZ_LJpK0~1mHHb7{7k;
zyn`FV+o`;^O#`6RPE?%gKSx`<>gI@>MZ!<Nxzk)PvzEUaAF&HxzuW(|+UxGB{~=yx
z3{}%B(GsuvHieb1Iq^F3`{?>>@ipV;&!0D*d7G4ULRHgBGSiSH+S&TQZ?>7GIybR4
z^L(=<SEw!y{ejYrXU21i*UZ4V6^lUm$9S##EBus>{dw<GcyGCD*RF9P320CU4K;W$
z%IR&xsXDP0)61fBKMm@*@<%h2RhG;D-hKM}3e1Pxx9qC0DyLU1vM@ERX)2n}(!5i9
z+5uwb_n$w5U%h%&fKcTUE+Y!(DFLoR`$pILSQqiYG+W7G;@6%%GduKqbF<+3jQ9pG
zd<boWuaRo5{5WXvp<Q0|`3v@XJ8!IXbu|yTq;%Y=6Giw**4OMd*_aFu0=v%hnbBtH
z6O9@cFR&Q9(stu5-FvZhuReSBES%p=9f94T6IWmL;~r@lZlJsmN{cUF!G)&TDtR*M
zP*6~)Vaz&WC8se5In+2=;yk~6iKVzMDJi+W6ulvY;b6=4#d7gq0>w-626a&{pt1<b
zOb;u#34`2JsTMCcIIqt{E5Mq~&%H%_rkA3B6)<jrMOSlgD?`|p-6HRjFCD1_hvc>D
z{rr}TSUz|2kJ63AYe}}te%wL)t*E$JoA}%P{=P}#B1kBeC2_{Cs#4e2cXGRYYhZdW
zQ}>1;DP=WRf7DM#_tg4&e1`BkEjjVphz#>XfB%#-U31i*Fa4kI7wk?=yq5TM#NQ;O
zOx=I>9xLmnKj-@Fxov-r)&Fow|NmS3*X{X#e=XjhBZ@4iMhJ*QKXvh<q(6kRoiu!`
zs0c}K-+sk&0tD>G0lEkN?CD8QZoO*GoEqXVz$Oxbpz0)>@SU00(6DGBy_}&M#Og<y
zPO&M<jL>|u?o17D9eN8oR^ad7zat%fh0|v2bT9p1?R|Gx)Mwi6s8KhuuvuFSBCC#~
zC=f+Jx`|12R6s>QDPp0?P?U~TlZ|dPf(|0mu_97NsZs~mAWe!Q3~d0F0c99a`cTjP
zu-WqMx92;1zUw-B_MB_E{Kq!)EARW1yFBkbJ4jr+x>jR_95oz9Jlkp;?QWbX_7P{8
zO!kHG(tTQ_ogS@{i}5<1C^mD<Fp2?1O8Zd!LS3^zAJ)4v2!aI1n~Y2>LP3@%yZSmh
zI>J>MqvJP<NnLB-337)=FV0=RUXzwv+(mP5VW?>S*CAFA<}KIp^@{Q7$ySU^Q*Irr
z-XRtGM1bGQ-8ryfaBz?|G^hQgp+N=ANv1Nb_4U_5B(GyRWeb<SQmhtFuiv-@(A0!-
z{Rb1X0Z=Hj>ym(EegOiyYfe=b+#ylWwh7191Z`UlYQp97&p+>bJXh8VR^;WX4u?3m
zZ`@dg-dPW`$l|LS8rbTcQLY^3GV@bkf@``A)a^FVm~bs`7gPyh%xvJtX30XdqI+?V
z-v+OYezH)rdkuHNQNzyPQ$DZXj%Mc_T+f^#+2`-Y&H<Wg0yjfW`|lR%mt0b7xqjio
z1sgw_j?taj<aGGasbd@~%*|0BY5QK&y|U80JR(4Q89?5;{R?@MgIr~&=0^vOjP4wi
zPaX`yd$)#>Z$s#AZ<y7T?W*H~(-i|(|C-`J;he_mKs4E{71zw1!kGz4NzcF;3%d5t
zg!#>Dq1O9CW+^Zf#N2+}XjNNVt`Hqq8R(x7ChUD404r*eCZ@pLr<N<`UTw`ST57hH
z9lP!HaYW~EO!DiPt2^>|4)^1@T`QhbD2eWd|6kD(4yWfLEjbUAHVs&19HxqjiZ_(p
znvRv3Z%c+#oTVBgG(B{iv+mx-s;qnl8zK<<tEzmdeQwjy@2wSGpX3Z+0a3S^kx?jW
z@~~dBvF!~{ucs+!^yPzbR<fMVqaT#=-hah0()@wnoNp!{S|)28x%tGm@C7vlEnzH<
zoQ`!G4a!woh6OE-S%SKzDdej4mRy}DnaUjw7lV8;MAol-=hkLCeD)<0|A#Pv%6O#-
z@}LZ;0`7z<B)>zEeAjOtWBs=25b2f*8CZeuM5%$lOa6o>%B8+Rm`Pupbj|!`CvW)0
z9wj|aRKTPpT!n4?xwJG`vogwu*%<p#?#Qk@4fgF0%Fh*yS-w$}_VDD|-q-+85Q?M%
z)+eoHue5j%7}~ut%JKR0UTt{HU6Hgqf;4+dpp4+#$720s;|4PmD_?1M-MhtMLf%`|
zwD^lzZfYL%-nYvoa=A*DCPqfdSyK_VWtl@?reE4@YvwlKvr%5&rO7c%h{gWw%egXF
zaUBj1i<X9eaqKHfYNa7^VPiV)3uk%1{!wm=L;Zs&uh%~cI{|o?VA?{A_HeT@#-w=D
zHkO@yf8HBnd{wt_M&zbHZsHIl6O%Bm^yi<~HSs{%Z~=(b;;9rp^>RiYrM-dzAVZ@H
z4?FBckor273sz@*s!Q$4Ojw{dQjv9S)8PX>W@cuQNb+jPvEG0@!Y~-fKi_@k;vZxv
zXH}PC;?lta=pT#Dj44?b<oV`{Gn+i<aT)buHjoSAm<#k8w)k*^)UJ|qSU$FhILkL5
z{~9QzaI30n2Vzsjz5TaR(FXy2QPtDalO8`3sCVg?1w$o2AN;SG^AsdMp<Mp_gK9(g
z{3X4~$;lO=CP%`lhQPMis7rGy`eCbE$MT;LS=z#gpK$M9iAR%T*!h)b*0Z(*Opa?!
z4Ae*u;N!3S^6_wtl=Cw(GDKpYM*3ckjA!%18mz`jf9De?POQ_9y3Wjo->nAirArf>
z{xM7tzIJmKuBdk~2i32P`kq;OD_EzoXLzQ={pmbjU0N_wq;!qjo7-F9J_Jcr2}WmF
z7PMN2S!mF<>mF`#tI<oq#Zv>s4VVyBG{#_!GE1q_d|i)OIZCDXqYD^<AAY&UPMzWG
zzClc^jTmn6;no&VWt;5>G>rE2^k+UB2C}aeALX)}(+&oGFJ5ul(9@?+nTJIZ`@~qy
z@0Y#R|K;K`n_bFRxIWv=G8Wrwk9DV+b!Qzfx)62h4<8H1<|#gkGwj6O`}VTrqOTrE
zxQft{>E(~%tUE%OU}c<6kHg-;@lBU0XGDJf$1QkPWmcsqC07w@8ec3Kj+N0q4YV}f
zys1gyiMe=G*D;*skzwa}%Wy#$*26&)6I&F4(K*+o5)%?i0d_(B8wkAnPLWPx@I_3y
z{_+S?n~fuUQcAH?V|SGN5-fV>)L;E2ncySJj&*j$CTBL@Z=Qreid(A#y3n{&8m%Ix
z_8AxOgxAbc@fhQ8-dqi$rv&*c9R0#t7Ih{tzr;g}BT9OBtJA^GZdby=-Jr;11F8?R
z4;v;NEXyhwOlFoM%)G$;E*%r+h*B_O%a6l6zrtk~i0MIQDKty2Z*QDm$HLOe>dqf-
zar9R!yqhBCMNp(KHcvQcZ!!ifo8J%sSyzKgxq@rs$@q-Mcxdn>Z)B&gBM;>3sW|<l
zo;#XPu?-RhSHv!B*c+0E60v4cqF(-V&9_#toG<_4==QWB=xaKFHt1X5nQ+=Z{K{l2
zHs9N?;$zO(w?L_2?)Lnf<tp|E?<XeW<6>8wd3!@5R0;^kPEHh@eTz_?*piD$3sIge
z-U;{bmn~3he$X<Bi?_gxs_T0cvzb7N_W-8^e-uI41l#K5hwdYRs}t?|-tEG7F#^9z
z{r+F7T0P_DPVL--yEV@FNr`&`6(5!d8gvc>jM|ul%~<>sZJj{9-4#<48T6MQzTA<J
zxQFpc$*0r(>wjHpS6>(%9c@NeDM5=74w;U1e}!6=zNYvpswd%(axuG52Ih8}W8#JX
zz%5zfJj;=<Xj?ht57wzuj=(_c_=AnxWDmZ5>#l|Tuw2*Q7Yt;WV`js;;*~xQF(~a+
zgLU8hq<p}_A{r?%Eq@Q)jLz+wCwKhjlRzgY)Ewc+?pW)lV%Q7E+C6z=7WfGMU3KS2
zug*~}NX~T5s5SORbnS1b^3N0uX5PKU$Kasb=6-{<3Yiw}wMOAk>}nMA>*{QPBttx8
zK>HKnk~<uYbz0S;yDc-Z^-h20pR@pYP@7%i1uo)`4Rdnl#~tl%n>}(F8A1&On1${7
z2&QXiWkpJEPfm+J%LRRTigL3a2auI5KHj@0yR*^AnXPd~MoN2NpL%mXy43^np$9B2
zV==6AEsI)KR8DcVA1+<GL^sE2M=kUz0XEy`qDV?Q1{Hzu*IQV?1$c-Ga;Ps)Iymgb
zP({jzcpYjiIAu5#yhKqL7XE`ef_eGy&K0Nsm`k>9ZAYXjL4cxk$z-8o1cDZM?%X*&
zCmB?Y`keOf<|&r^?&C!-APXDls@(`3RV9#gl#@rijwQY!YxYY#EL2PC-4CAVycng0
zZ-l_fegq(;{8bm_X|%Q72<`7c3ChdMzW^rr696rW$y9DKv!T1{2V9h{(Fv(gIbSa7
z)K^ZJWk_uTTHtqp4hf%ta79hC=g|pHd(kq>XTAQzxq9|8C{4YQ!$O!lS9-UbisPd_
zP+jAB+ke>Gis~{n*!dBFt^@n`f4EXN7uS}wx^4EMC&*d*3ko_S*awV^YLD|!N0@sG
z+=XKsQy$$c@&^Os<dpO7E|Z1*oq~CzOP^FIWY(|FYIfNp@wd=C)^zh0{~?lZAMy1(
z<1r*$PEzC9JY<E8MqYn(@9l%~)}RKK1CeT4O3O4UEO1%d6d!;B@RzV&1eH$rAxjzi
zb)^7in~%pr;gREu%5x{TzqtWCmo566J)D;>U$!F?IvWaPGdI^gEa*L*vfMP_kuwrL
z6|pmB&9N$5Ec+8Z@*rm0?E3BOa}h`ZRWKlC7{?;J<oRl&0CcZJG4;nXRI}>@TU2w+
z9fUs5H{b60&5TA9S@FKZhr@A$H^=i(_f*Y{`K1Uw=1y(?%p-xRDDhz^P4}Hbd6=9w
zb-pSQ8^(m+MeWyBt|!9cVBM+08FR04F^~OG%cMfXXCer$ouTlHVrC-+^X++msZI;M
zP@Ese^k!;DFv&07n<C8iCLm&U4>}Z^FjPSs3tnM}?clH};E+QG|A>!cvOna+zLL?9
z*zxu=tvvK7SGktxx(0`w^>%XCuoUwLUNB3cx`~Ba12D~I2nL?1@XbT8@N%0oZ6;9d
z9l?t(oACv{tok7>(QU%3hGl#y-SJZeeWBd;aNC$t<e(5H{a1vT5TyV~IYCYletF$^
zPv-0b5R745zE)103VY=b)uz>rOJ(wdtZI9j*92>AVQul~uBYAxwoRcYhD#_=O~^6o
ze81BD<$e|?c51xS@slj9hrppl*uAfmV<mePq2K9)Z)$1`V$an8TsF;(zzGl~CxW%F
zVe&(Jvul;Yu!T%aN&@6(zWFx4Z;Vi>x+ka(PFgF&!&g6-$`W{(tpty@!mavCN>xkE
z9In6tWQ8_@n!M~@N{wiBS0iJUBNQLP;MAfE=BOnbP^P9qj!3~s@=7Y;I@YD__k21)
zMb;MYT}pjwyx+CKIxKn6x8lS?kLJ_G@JDF^a1z?0e`jAh+}{x4XJ&}jg%7gX-nByE
zU5R^=@&5f+P$~;?pn;!pig`HXKWf9xt_I%*tvKA%k4{l|{X`IpL+K(R$$XF-LFF@M
z1-llE33_dCphN<fYk*#~5*52|hjJ|PswFPzr~vOw7F+qs)JX7D35L^Nk)0YTUaoAj
zSGCC@jadr8g~S}?2F2CXT4OU|RluaHcQX`Y{0KHmTcHS~eA2Lhsw7M2TydtX^>Ue<
zpdpAy{(Duo>^lLj>-}lN=j{eH4C&igb&$F!%08jdIacr69#@R6z^2YdVHLt84AKM7
z(!ElW7CW)YHpbhA(~kPJ>c;t%IiJcqrznW*5*r&E=gaD7;ZrKXg2y27$gzNQUbgTQ
zsFdCh<|Z#+tz?n26&u{0(@wXCI=9O2s*u4D6i(-+zmt#Zw-W@ezBm~jG&=hS#<5Uh
zhjH0#Hea(728qK3Er35Y<H`ov<r<AQaT5@j?d3F|5hV*xsj*fDjDKL3qMYS7u7c2E
z3iHh5S$&uj;8dN9rQG%g;NOF@DZnQB2Gt5aT(XhfWhTC8IeuI+ifONAoxWHu6yeK<
zMNQ(S{f((XnUCJxjXZ!ZY1YDRzqOni<ws^{W1+D)h;_W8hbRRsIYzlrv`;dzPaFbi
zedtO`4a$ZozF(ZE({gG9LR5h~%kPT%b8Ro|cTu~WnR3Dppni;@zWQ303pV{-kZ6a;
zx}<XbMy3mU6@nHUcNWg8)<^P?01Yx<sGy6-NVTNGkbr8>XPb+ehck8zW9YEc!&V5V
zUH<T~+|^#CM{VB)Ddfx+A1)q^a(lr7ZV|5GZl5Mqo~#O9j#-Mib!IDcp^IlmXR(*#
zdvfN@P%1p%447JiisKrg(Y~sVoN;XUDx|b%>~JeAcwr~fk4d7YVMxa@u{+-)41JRh
z6qc-1`GIIP=OaU)M*23-ftC0fdf(<Q-`25~VJd`B?cl0!)zm#lj*WntQhC;#`6X93
zC<Ofa_~8B}7&A};PNy!(5xA5v?L2Sbj#9?h#Pp)AyOlVPQU8+U$m*h`w7Mp4YU&o=
zgxFcxs^qf!&@ZjQHHu6uj+s;TT1tP3t~#jJ-aWrHXc>b}8N~``oOesg^u=?L9qX@K
z0aI<BC*Q)eLT9WyB-^#K<MNJ$r6@J78~Ak@Vg|xVT8PY2r(E$hGy}N;6<ktbad_ae
zqqDlxYxE@*&i)}Fsj~GZ<P2h>6!6v2w#`HDYUGIfNCOt(c`#g5+v4t9511znb@~dA
z`eP!kmK*3_q_o~|$8_Z@_*xr)OBIcf2}S}I*%lf)S^OJ(k)2ckXU@oFLj!GKJ1P_-
z!SaU!*}ILvO$b^gu3GEE&x^b<fV)ZNLd==21mXi+o`18<8a*U%OML+QE@)^v!g%A>
zu(>BMT;Qozr(tXc0)|esKo$_5lXg1fJcZ_7k?6OzVdfl=r+4s>p~k8}q0<i?S-O`8
z;nokFmgwmmUWjL~&Z<{-MN{qC?O~r~*EnSl{q7o%J)`>bX@ugx0^0x2Be{&fVC(mH
znk-|uDc!O5?D(F4*VBD@^;%Wwfj0*S)gL65<96Ckd|f!t?cUvUSv4b%{{Xfi=WD|^
z7g7{yM+Yz8Nu3zDfq&{H|4$i;e_zEvlMeW+MfC4C@|O+u?`QGfeHMW;CETe|E)cRT
zi7hf|awQDRNgfp$9aSjhb^A<_7E>J>QmH%U0c3Q+plE_Qg`Q|ZQw6R%{}9$7=$*rO
z`-yf=4&qjv7<>y7pN3Tm$l(PMiGZk3c8`|yPEm?atJFxW9U3}U@+T6hyMcI|@h%fy
z*?(Y@QXaj&faE0?X70kuZCSvmHUf5l%0!skI^l#iIVa~Qo0Wj2TpsyA^ni}?PC<bV
zCOhrnL?Is?2IiOeMp{~$_*iBsG9;lC&f_;{Ff;-Q$@!!UxU;^YVU0!r!R^My!SJ8w
zzcHEmNm?yMs|V!G+smVXxc@%ORN-E!-pOPsqTqoPeib0WU64O)@$PGP5&zxJU-jM`
zNFUmWFj{}FtgNzui*wRawFatpusHccjT>Vp2jVrYT2OAP6UCoqi`q*Z6Q7czNOdu%
zy<|<WdEx|8fB6n6?W@2`HlnR*GR+OfY!PFff>+=V>f1dagG#zcFnXbe0Pwv~1X|qf
z*jfcMR1}gkR5&L3!K%kHj<)=J&3N_Gjf)va*G$t($zTZWhaNwKclq|b#FK~VNj34C
zuZ+DaprSzC)dmMQJz$;VGZ>;Z^kPg^0ET1Y{Wg{h`XK9z3Yl+TU#P1?Mcg+Cu~D6U
z0A`tTk~Cf%uNd8P=YZsiy|T@-U0~GJT<+j#NduzDXRBZ&n(wQ5mL<e#L6br?CpB5h
z`0Rx~#Y;@g_ZPs<Qlsh667&+1YnX@deb5x7)cRxgvm9$7W?0zddIPeIfiKz$Bop;N
zor~u&svi?vy>H(#3%C8awLaJlJFo;Q7a3?>fk$8)^`gX@k(@#H<Rn_5t52Q-A=f|^
z?YZ-6{(kc_@9wZTu*&G-n3mnZ@~L-Yr(~}~|K^$Pm;piZ+CMeX?2j1hR}+}+wu9I%
z58xSeE{n8QF`CVN1u>|p<Tt7bbahtvkGxXvD_Il5Bt{a_46s|_RGXLH7gYY|_E^#`
zr`w?N%`Apnpx&^j9bU9)Ce{I68p(hnsQfz#2pU({B@(3_ef(XNYo)rdfFPU6cd?Tj
z&}>K#q+C?Yxi<}`1hhA*-35Bl4BXipQd8IJFXw{3k~edB_zj^CfR=0lI13A?Xp8|w
z2<!DGqJ<?As`^1n+G6uP!w7~LG)<l7b;pn4R-;o6{f4nU^5E9w-jFng`2FKZzHp+b
z(_^|2k{wSRc&nC)La3y5aww}iyE8_3)bkfcv`M8H@8Wv2N8<*T3jh-gyT1EG<iN79
zu)s+rk<12E>*z?v@9gLdz+2w}nEz#Mt@Y%%qygPBn9ck_W7^Iza#$sA29sEYgJB4`
z_q0<;clw*saf5}$oPA#qskU8B*>~jqA2BWv-!}xVN#2TL^yd=`6WE4dU|Zu`gy4Y`
z&*uVMBJh=PPvGh8V9xaMv@vA3mO4L3)hoc`op7Gdc(8#~9^2IhE;;+&@}0m{Ww5&u
zbo+tVZ(|X%)+69W-bYJI>^K;6PZHns^@AEv#ej1wPCK7B=?*sRDqfHSw!1e9Y7P?$
zyec3-g0(=Ok}gsx%ejHt{3^E<u)W8ni6^p?mjO02ONnoR5yaij(c;EmH?8zd*<uLP
z3^)L-wxVfrP))(eI)eK-?az10if`M`U^ME}h7?ps$j-shi2=D!^&?f2ef`Qd#Je5R
zvp|FDv>On_!fkDVzF@|j>xN*8l4DULwzRkhj2_6Kf!XMvNX8W>eWvZ~+%o>$m0m|9
zi}TS@5o*L?;;T2s8k$)V;4rtAz!k*xhzvDV)pez&RVHQ=&CBx`g?D#NU&%A<yjbUe
zu_oczBK>VQDo%jK9_kx}lG=2E_Qm$wA^Kol%Fs6uO`g#R%UlGLG=CT0;GmKaCXfXS
z)gxD+SeyR1*{1=(cLIiZMv-?DFoQb>5}J+WL;C>X33-zuULQf=&6z+)ZD2idjNn0o
zMY%{a`TI3NcAl61ro|Mz(KP*Q+z~zIkmU6;-gPFWqQB5j0fFK@mZLA8DlBCjoi+V%
ze%s>PUtxag@$3eio0JA>Fg_<oW66>wU>bKJ3lK&K0_9rpihIz5fEbK`zCZKiB-*!Y
zx+O!QT;Dqa+u?PDO+#XcU)e!*SgoN?+G=%4x{*Br-u_6UA88R&AS)1>wT>EdtiYEg
zPrBEmnI<xT$y%u1ewjiaivxdJ2UHn)9MUT^Ao?|pJ23()Ur;~HU}&^J4DW(eVvA{5
zjw|~i9!d9|$nW)YK5;eUnu_PDtUG?fvQWnu9|AGa?olU86nm{d?#UbLV9W8Je@|F7
zI&r(Y76frEw9E-f>AG_m^#da^K-U)k41O#cNN{IYBDeC>ohz<TXGnDfAR1g$<h1gm
zowJ8P65a7vQsPfMTM>4sh}fNK-`NXLJ^hODb9LxFqxvf~l@M36U!9Y#YYG6WRSrF^
zYw6lBD;!fo9|-6Mr-r_y_^c2kn1_9P&#rI7p}1Lo?>pSR13qLUOt}46F?UK{do)8F
zwTBVs?laX^k9IBR=aOiT@(j6j-y_?$v!}}wr1yUfsnxxe78ZD2Zr4JctIEbMR*AZ{
z#O)bq>=_>z`I(=aGoKOnJ+Yr7^>+4NYL|L>FKey0huPWR6LtLtddb3ngw(>v{~bx&
z{}&CTpp3!-s^+kOAnl=g_aSF{`!ZB9E>MO-&9VXGlpP4}#i3Q280}XMp^YoR5UQ}H
zGkX33t}n9lO!vd$E&k&p10uc>;8{KT9xV_Cjw=J6F1Njn7yt;g<J=~cR&T#vq9>Nr
z%q%?P`=6KOC2`jlojUA$3KWFD$I6`k`O|E~EmIlSS|bx7ibi(LIQXebKuM7x3_I5F
zbMAr#u!em+Au*AifdJ4Q(mK)O`Hs(R)#$|09R~=nT-ub9({+C@ejEJ;XegyfD#!_U
zgVdeR3!J$@fhRXO&!CIemV@eBxpxf#f~n_h!-vCC7xv4!rC-q$Ut=3we^G1An0;cd
z5~JGD-1kEfMFsH6YGvc7Bq=Ua1F|rZkZ;PJ{N+9CN}<M1g9IQYtrhj|!G)f^C=)O$
z|0SPq3%xyyL*Nw9J3DvZKZ`0r(dSq^qNGJijJHdVV0b>9;3_N^U{jgi%~Yh2sGInJ
zj;h#L64e26qgsh7IY>c-&8}0eQ{nHC__e{8S)G502~?>raS==^o#C+#!JCD^<Ssf5
zQ2CX>ZzGvR)C8$_TsQ92{9o(HWCCz4cQZ3p>2;72`_nxiK^eRSrQ$v>a5|E(07)3L
z6pxvNy#*B~2ypDgl~?ZHDH94rRGUIN)rhDG0HRr+m+>e8-4_MOkE=B;U!_zNY(5N9
zh<Hk7>Hh}7n51HYLMz5^sDXKMbKnub`9;9hYhQa8KrFLSw)Ir8jOXo}H(#$I32yxe
z%IWQ|1i<zr<(88iD%l_+tozox7#hUL*~Q4ztvWalDrSLig$n;RsHGx*io-oQqOxI#
znTt&Qt|?lW7PJ8T<=c}ee_EIa2I5fSgl4NmA4?i14Mcz}&+z*c{8t#2Q$OG^-_-Fj
z-jolgon-Mfc#xNdQdEK!yzq{6Uzj5Y<1ih6i9eO%wo|n;968O%uL_k}itL_}iBqlr
z0SDIU23PzII8VkWV#}#POHef~FIaNcT=Zo3de7i9%J|Xw<?a=M9zck_Mafwa8N+|(
z2A^_u>TUqAq-t5>4b4aFEUgnyf5KRrv>hUJda8=_UJv1%IJ+KbS8#BS8o~6cUAedj
z7kt>YUJNdpywX7e4Wyy+VHieVXp9AnGz&1;C8NO)`ZZ<PIGLq{0@saz^Uz_rU>=Uz
zyo-O+;^dOl7$SOn;V#hJ(>entF)NYc-Ga}E|00Pbi>NeRsJtXQV_eZ3O<DR3%Q_la
zbOwyO_Xub98SYrL@BaRMUl&$?UGw9qV^6Oq*xd^cX|3C~&VH56=GB)PcBfsv{_<<(
zif<K`)Ld(?+Vb%^>tmCj?Hk|B44*m4IQEB;SNY9j6W<pt4+=c>>PV3E7oXKt{z(h4
zGC1Rq$bYE8Cw6#HN=d81S6?FH`U*FKl5cMF#_AVJvCP;zWc!BbB3Tq1sX->j9>oob
z1TZ~6d%V#ULQi|eoVPc@tY4c2x^my9nRMG^=OEn+>FJ0%Of2A2s)yKZ9Seuq#yI<l
z%oJQ&;inAc(X8d^e+W{ON~h_ySEbdz7l(peqrPN`>>q}(?@~N@Xb?9OH5tOh*g4|e
zNG{atO1%$CAXc5$72mFe_;sultQp_7S+aIldOybg$o%LCBaY^Mgh0QFHf9}I8a6Ho
zjQF&47h@OoIVw$GrNiv{P0z%YU|%MEZ@CDQL$;ze+J&vCUb*nIFMbO%ksbmrDMS0R
z*=yeCU}u0C$ZSUAxg6Rtdp5fU_I%<;NpXn~THdK2zGW@c8RXe;MLM|}%*EM77<*Vk
z3NhNN@a+Z=pJ?2zJD<VG3rKG%-aCtt{v9+3VX=27i0vdzQEdww3tt_tK^Y1xW-03H
zG${Ks-uhr1ijItiTgmKY=KD_j3dEo5pb)dg{br+(Dlf+Ht=z|Bp}X%8!>5k9*=nOP
z#J$5Mag9lwg1vp+c=Qx<>XuV&g;<*pe0xY|ftw^mg<5Q21CdjD*r3Tz7a`W%KqlHi
zBsYm2E+{NCZET&I942Mb9~BNfup)hsZKf8r#-q$-TaKBMl4-nct}ZZ-9WNkwVwM)`
zPJS3i6J1JeriDktTI#eUImo>yF1EU&(8sBXhbuKiNl*ajmPRN@Q(C5-L%b1jaR~o5
za9S+a@;XJ;CA!}DgoKl#f@46wzVZHU8DsrVFa&8MEa^`(xJ!IqWZtG!)AqeoC5)<<
znN$P2V2x&$`6Oq+x<MERK#FH`EXiO&3J($5Hpk~<gvs&EUG*@W=+K9+-_w7F)Mry^
zM6ajg_8zDpD5!KpO-5}_3?$DGgxFndfsMq@JBC8q8z{mzI$L~!2b}KM<ncWZCAnci
z2Sgc4vc2^W->hprfpZ}xZ+GgN2IazD6aeXGi$?1{<!6y<N+9|7lET7@EJZ^Y=_O50
zl4&UIz=u|Hy|FmxJClapPSJ_a6s6chzeUt*(WRAt87C!0BV8_-H1(WnWG><6hoLyJ
z1>xlV?oJqoNm}QAgQ)?7<RR^?#h4*qW*G~`Ak`y7+Ww<8u~2ZRlV*kxNs~NP7(tk&
zL<K))OQBU^ZaD7@B4y(7QfMO%r%gNoi`@^6Hj{-jJ2+LK#f@U@FCnK>ks};L_0ZJq
z161I4p6v&qJ~0Op4t^MITtC_KhMlbKBn4ZBSHOpl5Jf&C(ILXKszekp*%?sACn8h$
z2D`O#POm0lC{iIVIXw)DzF}Q!&D~8H4+G)A#<}&R>cT>+D5yeA3CFFQyOge#ZsvK4
zGnZmtHn$BD6vVNDap>fb52Pc>JMoe-HBkgfkDu9rc^sj%=rDjx|AouxVd>V9Z@qh4
zNzrqwa{|*6st6v%D1e7~#ZIX<N^Owy#=|N|LS)GZk%7<S9n@^l*JYz{dI5^u90icH
zR_CJFk*_)JP<~VaJTd;z2-$O)Y@x@`pYGf$%AdgqtXqq`s+msFk(ftsKXADY15cXj
zCI->g^=kL#_N;u|+p@^Z0%^mB6iFnU(iEo~A`amfk@nLMDgFW*xEhek+qkTX(Mcds
zuF#Unv3j5}x&(h90*5f}`-Quw1y|m{>q3$m!bZUMJ8*7ez??dy$&rJTNcEyr6pMu#
zs)JuTu=7pQ9Z!-mVI`n4l15e(3|-imQUdd#D=P5(&bozg4!{Op3aNSD&x;Ih)2J`5
zCuS>1>5R0kizUo8Q-QZ*F5})!fMIgjY9zI$yz17|td16&#QS6-f}YJ5`be|Io|q32
z3y^F*WW3oQo=U5E`v<So?!zoTk_GQUP=#DC1gjrCsA4JR0p&c-_ras=l2?(ew~Cvc
z-`^3OW<UAJK6r-F!y4V@2vv*oCO-4qv|lP^Yi_jENozc@-6*|RWwX0rGQ07F!?jsc
z`JcIdwMWy7>z_S2<><xp4ZK9l5kElwNf%9C9=s>~EWY|@H_<=uA7ms90c^}P;^nML
zI}&at-W(^N6V|dj%w7tlrNXYZ*?}_8QbWu8xoQ@s^p{Up)NL;I<PI%{mdM3n+CV_P
z;y>?#{}mqEzpsJT>%YbV{`b51fAU?tSWUe-Qe7tjyx`bUYxFg#Ju4%K5CI$2S3*&1
z8o*h?{z;70eCo*p((%?nM~kvY6}J8gQU!JUV0x1ZiKQ{aF9NKI!qj-xR1^u#(zsKA
z4kKWhC#7zMzcW26yA;*hm4UB)fVyu%<%2|@^m+tz!WIaksT7?n<F*f?+AD6Do>|l~
zd_OUz3>akAb3TMW5$-&|s+!<9?{D)!qt`)ltYApHqtIOUdQYIzb%8=O9_r`p?$q*#
z!4~?)2Wzz+mm8y2@!0~bW$<-Rt~OLQ4FI}Ty^mxx10EJWq7!oCfj^K2lUzGYa<BCP
ze0Lrgg*}6W!>qp8DM{=*<T#NODMt$z8njtogp%A$crSd~bU=?O$vk@tdM>iYl2|s_
zulodx1EY8c;YAOJoiS!hXX2efC-CqJ;vC5m3&f@VrcX4iB`gkcW)NcT!UUHWm{>+e
z8+0yioc1QPG2e1|pa`}==`~Gop#aFVLmI|IRXiJ};DOX{3-=I<gSLe#7D;`v&NUBl
zBj9N|h>*N-{os;Tky(q=PPot>rTmwxdjskY+fKWiAhC9Nxqqi{hwSJ+j1hd<Jw|od
zv|X&dAI;hsZY(T?EDotAzxVl=NB1t4_Wy9v5=60z&-A6#|7NC=SvPquB_eX0AlFN4
zae>XCMF=hzQC6?DWz&&$VZ5G(w9YeJjL6eurNVlM(R;@MfQ<{4=v5FafIqA~^F8I~
z!rWiwIb1=*2PtT79{K)S`^Ph`Y-RbwKbg^JZgzZ!fiQ(FkOP+317O?*GO#-+S*Cr4
z);jc%>OVUh=6GDND+k(i4DP#kq2?earkY7apct+5`Fy7h`%!-245F*Sd_F&H__qb5
z;Wjbhmxa(3Y+s9K3<mxMAcDS8C5Uu=Vy1fhJhKL#RGaR=fmMA{Q}3l%96TZ0e11S*
zNGy}34?Wj~eSSqtOspV-Co|Q#`O8xs&jEd81iIsn9)j$;%9|`RDd1q4Er{V`T-an>
zY6ihg#?i^y1vuP5j`cKHHkO=GSXiJTOGv6mt}{zB5qYw{S!Qt+be9W*o`0aD9#$nr
zTHPNXB;^|^gsB0CdVs?OO$kGTEvfFuhq8FdBfrj6YxQ-FtQtE)S2}IR=8zH;FAXij
z#(-dQlaVvXszN7^Oe~ysxa=zC>byVOHUBT0z^{FcY$@#V;=WN3T@|Pp@z_ij-lpyj
zofnz1i2wKPY5di=|9*f$kZubB^OXagF$CFwXKsZ-3q*gz2w<k;2`o5V$L|c0lggFb
zZu$CRk`Vdrh!`WK9&tMTf?j_$Y+?_Ug0;ADh6ls(zBZ#s75D~Jk*mmfTJ*s^i#_uG
zylxbxPjx`}wn>)Vlqpt?Jnj0|E%cd6jJzi2&sr9yNJd3Os08dxg-RWBBffx$Zd0r#
zb{uX%kve^xBu<8-x`{uo_E%otg(YKE^ks1U6yQtv*8lzYvXC;aI*D?Y(+*P7%O6W&
z+B^Uvk^>n+s;^+BPxt=hD_La-CTT$4qTK5azXKh}Q880p0eYJ3tk3~mrfv>6%`<p*
zsS_j_0D&c_l0)OkR&dnk&BsSfe<nR61npMnc%^;wK}rJJP#_~=#-(*^IG~@Ek|G^*
zXpOZljf0$PM+3Wu15$pL&`W@pnnGX$7L_s%%OKw!83>GQroUjU{o^B<Kf;q`4fct}
zK?g_7vQf-E@4xO`Ir!{rmIzs<oZH}&MB3ran4UVVBIqMsiL@SZT!lejwOL1A2MjI|
zfooia7Qra$uH+x+O4%_WJ+Zd0G2g%F!uW@)z<#dr5zw8M#Gfo6MFRAZEDkUrZSak+
z2Qy^X5C5eFg@_`ea8Dve86O4=WgHZT!DeNEF79g?^^<oSy6-CJBvT*fe?K<xE`*6?
z*fEETSY8~$gzwHkv;e>p!ab|aI&u7OIz|q0oN%Y;6Osf8P~QiNjkgSPQU<|KuR)U3
z!~8v0K)mUV-H|{s|M505z2^bGmeGBx@t_amf*4MKXOsv_`$=XI**d-sy=Y5&Hqx;^
zoHv}Qrpco_$nuT}g+?pPhR0#<(7^X6drc5Vf{>`HzJmj#zY~NzKop3tr3GqUV0+66
z%O<6M@e0?y&~FrUV`~zd0QJiwCJU#)y8v5psvDb*!yUizI_dt`jiZ8pZ^kMwS4&I=
zt?%}+JYBSekYf73!_CGwVM!rk2i`c+Ik@35y&l9lj_oKN_Uc`l+krlZVR!h#A~PW*
z73Ah4Hv_F4jL6deMV~-x8yHKtrl(Wl&w{$GfD6b-N6t(*!5@|O`wYCjLWwlY!s9T-
z3@p<>X`Dzwu%HM0BYw=v7v(vG;tZ$u2TvB36Hjn_I0{h(l8gtX{TM_Uh5WMAr`27I
z4N_6yi80)+P}exQaRFrDGEWlxgP-;5&q5ynWGW7j41OSGBtJe0W&e5q;2z4Tqdw`c
zqm8_s9_LNB#I`37d)y!THC>73ug+#I*>ospy=}AG$&BK_`;XiXjg7+yZ9o_L;KT!n
zUGVeoCgPviJ5#gYbgNRVY4!7$I})|$94u1IeHrf*reC{q*8Q7z#WA%jkENxv4Lds*
zYbLGCRk@qe^vhrQ#o7lyXc&(=zH{)3h0j5skKzJ%gOSmzT{#V11a_qTE4)rhzYIqD
zT^ws+4Zxa4PSBo5ITt_%Cj!&a2CSiwN_l)fFnI85&Nu{OpZLm*`brge%*k9r^b~3h
zc}iRWvN=pyfX$d=-Ac|pG7-Y!$9?(IOGm2y5$1{-8fKhlWXj@kNcaI0d<?(If9-`b
zTN(dfUT=0`5T<Y$WkZ93c>;VZ6qJ#E0#Hfc9ATJNV2CpDA<trU1JWvc0n!)1M%OMo
z^+DFmdrRCst;h4y??GPkTX0Qp&lIBrx&OrihUR^;79fgN!e5-I{RxA~B2*SpsvUuo
zUFVLIoObKu6dIxqru8glW=*>n&HM&PlY$MPVUphA{WCNl>7o@-m$Zj$3=$*mPD}Ej
zy&~`#{TB-qD(Rt+=M<4*oQ7l{&4^Q<oM@f$%a2tdmvbe~sp^I*=pE`P#Jp5rNuL%T
zZ}#g88~ZTpBeaUFovDy&*p82UXgcH8=2y9N!S;(7Q&I-?N(|s}CQBk!$#%zC#e~>r
zJe_rP?gto})OX6bAN00BISg=9m8L?edW*?T{bYe!I|B7XtTzSFGcjdkdB1RiI3nJ7
zInQAr0wI(XUqn}I3^D*;0wSLss($u(>K?V~)s$XbnrR>a=v8y!kBs`~l#)==ZR8Tn
zSvX6|!5Cgu0I%xA3lv!}Oq((PXJZ|PhIv;#iev(nq^T;TNWAcdR4Qh^I&t+M9XXn)
zfFm|6#~S%%qF&!l&E=Q@wnT2`(Vei?-iBXPS~v(!{2Jt{CZ|_34y6tEG@d_JrvU_7
zRn!OrJzn3z6+ZAnZk)_u1{Th92*sU5p_ms+?Z@QC)-zKBzham+5zj<DOkNLK2mNiY
zekZU05ra)f?TTdBm6qFk(4a06VI_5vsLHr%wgYhcqlq*tLjn!iz9W{%oe2pacuN_X
z$@uj6*C+4NXaODT6@kM)WJo<pO2ok8NWY15m4a&Rvoc|y%yM{0P9%C7<sy>Z!1H$h
z_1BE<drmMIUl_!@PgMRDBX1AZJYO>tXYf`O_@i1A$%vY>`;99;a<Ie|T->UnGM!>E
zfii?i6P7T_;l9=qh9<VyQj+=!2Wd13sgsPNe#MwHfYd7$ZT-O&V`%;I8u+}iW<0!j
zG?EHiq#yYG+Uu-BU!vuNJV5wOTw->yneJX#G~>aoGtg{otV6?MClP@x$2nsPl$ojT
zjSqk#4&^0GdEw<sJS|dImIoaEn2{_L$llNFDfke%1=8XRgOGlhS*<%dw(9-NicHkv
zXoNHKbl{vMaU!01VNf@qisVDwiSPkT3h2bbc@|bMaHkpE6cq~KyRQ(-PqypnRZFvP
zFzn|!<`=A`(D|8cpiCi(pfFPT@oAKt6MA{QBc3&SYSy?H;UIB(AfmF$e%gNe<Gk%@
zc!K1^5yoQ<YS&c^$T0DiXLwlQDEh=h!w78Du#%;Rhn_7m&z}fBtS%Rloxnty@${pk
zbB)pLkjfaZSV1-yLw5QxG+_f+x%>6Dp6GGBv8VceQ1V@cVRa`ZBXk8Y-PN8qoh90!
z;(c(2-8sT+Xb@PLDAFls16-+cd`)M_JgK+z7GQj!7Q#uB)wc|fO>)t02Pgpd<-lM>
zayf55@M8qUko>F$ungE2&2SjKrp@s%1#%zpQ5Tc2WAuqKBbjFLX2VHD4sxeD%dgh4
z(B)EnMsNsP#AK~i`@Z(?{KO$st;K5%V!%c&7ER7$s70DyAX;p!6Fn8sTc%llWUK!R
z7D3zqiDAZz1IBk2Wk6tF4#{C=X)~kS3&d-Gk&^#r5&+})pZwB(n#VH^fhrAfTir8L
z8i6#@T3k0D{V=O;{3+>?jbc7w9QaUW$|niA6;2lJ^%mRejx~@1a7i)QT`#pPVq`w0
zZA7$+WFTHQ8gbmIZyd_<RTSb}pu%j&K!t`mh}BGdg^<R_Kon|m#1cy222|gP+dgF^
z?T6~W<st4x2%}z0lBjCio1fgkapoP#us4FlaWb)}V^$zjGRO^x#;~ND$IWis3eu1#
zuN~&FhvG|ZK!-?hxKA&bcXgt<Vux{}x9!{N8)QK<y!8C+u=?3$^|y)gY#r}VD;Ghu
zEd&XZgnj=$0Lw4E<sr$LG2gp2CzR36V9dG5`ufX*Ng@&ExZqqXlNGrTDVSNQGIrHD
z%-D*t8+|!MmcvX(^XWjU-GMS1PD1>8hZdbA+T$42R;i~ZICwf1c7lzxHM0gs3df=f
z=jFu%o$!SsMbWw9G86b)-z#NCp0n@U9kQmq^*ILGjzQCRDwe8Zq+dk=0L@QT@-|g$
zWwOXc<_*C>ZAIRL3nw7N^#F%u=Jst|{o>Etv;|PA5Y_6fjiHy*-6g`0yyN=!s>8NM
zAgedl5y1^zbf&!`V;6@kbub6EmWx0kuZfjBvsE1%r4bxhBuZQ?(1=#>*9sbI_BqT{
zdLIK5gk>lJO}0co%j?f#h?@326O$0C=iv><l^AcIQKUSh&{Q-TF3+N@4LwvvK>-Fu
zWrbFQ7i(IbHlyi0ifzXFpxN`5T45+tYmzHp@M0BfayVd0jY^oJhvZjO2OekYpu_Ok
z+dC=Y+&&y|s-<3nP-CXGh><jise=i}1<>u=w7wDWlg7SuWXx2m-ULWS!9$$8<_m_y
zj|*nEfYL^m@@VMx$;0~-$uxo3pT6(9spU1z0oJKE*eD57jg)8L0IIFfXxPDDu@?ZY
zd{F*qS7Jp@F|Y#pIz*`5@E>NKQDt}yt8RzT2=s4@%#SnyAUWdW`U0=-mU$V_@0MB&
zBQgqIW5>+B1<<H!4Zbu~P+7`2IP!;O1(&gT^YSJEv}7HQ)i0=nOxE<_<j-<C&yT0g
zcyK}!2m+40O79y5CQ!cW{E8PzK2(1!5q-Z<<K8zmvofX7F`0e?aYs>3w$G}W+g)jV
z%@Prks9%~cGZ_=ZutlrngQDRrQBaj;Xl8m&{Xl1dH7EJCppA2ZoY-WACV)$`<6Dnv
zA{ju?CCG6vhtAsa2#GJ$fJ@t0_|U%_uR#XPwSfUzL1zs^^Dd?(-90`5)TbQ;cVo9G
z9uzh_{mHNE0a6L*wa!H!7byM%#uK6v><`eqtQWOyGdNH0DmKxgzQeh#$=f`DD4R6T
zWn_Y*)h303@rp5mwW)T)!bYoD4(+adkPLtuLQ$p{HZ_Ks^MD2PpD|OQX)epP&$x9|
zMo){!*qK&dVC!8T&t68r#gfiggdUnllGX5x(ft`ANVlPQ7b5&764h%9U<Uw}K62WA
ze@BACuwABS2cT|Bd{jla5~htgL{=<Vydxn&U7E*mm{uYJQxm%5q0p=)V^lpJiz&}l
zLJw(UIZPpzf{UTyo8_o%T2Sd-BUlEfZHz9p;34(5lg*Sy=PZqxzg~mqGn;WVcN#mK
z9OhL~F0IfAz^<!8u@(;8`cU)ixLS1h+JK)b03}CcEZK(+Ua?^0wHEm6*NP9mq~-8~
zoYxF5U3vh0&_i3JvG+!k-3Rzk0n4_Gavs8y@ZPPU-NXpXhu+tgXK0f6o~8hh>WjwQ
zk%|K|*C9^d4V}ab>?_iNQFkyp+#8E|ruM<}^Me0GPYGM&rW^GCD<toqF5>?t(fm)m
dhQX;BKVJIrz%wh2&k15+eWU+%%2!9f`yWkiTzdcj

diff --git a/reference/bar_chart_counts.html b/reference/bar_chart_counts.html
index 0417137..4d88218 100644
--- a/reference/bar_chart_counts.html
+++ b/reference/bar_chart_counts.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
@@ -126,34 +126,20 @@ <h2 id="ref-examples">Examples<a class="anchor" aria-label="anchor" href="#ref-e
 <span class="r-in"><span><span class="co"># All examples use font = "sans" to avoid triggering font warnings</span></span></span>
 <span class="r-in"><span><span class="va">mtcars</span> <span class="op">|&gt;</span></span></span>
 <span class="r-in"><span>  <span class="fu">bar_chart_counts</span><span class="op">(</span>var   <span class="op">=</span> <span class="va">cyl</span>,</span></span>
+<span class="r-in"><span>                   var_color <span class="op">=</span> <span class="st">"orange"</span>,</span></span>
 <span class="r-in"><span>                   title <span class="op">=</span> <span class="st">"Number of mtcars by cylinder"</span>,</span></span>
 <span class="r-in"><span>                   font  <span class="op">=</span> <span class="st">"sans"</span><span class="op">)</span></span></span>
 <span class="r-plt img"><img src="bar_chart_counts-1.png" alt="" width="700" height="433"></span>
 <span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># Use a grouping variable</span></span></span>
+<span class="r-in"><span><span class="co"># Use a grouping variable with custom colors</span></span></span>
 <span class="r-in"><span><span class="va">mtcars</span> <span class="op">|&gt;</span></span></span>
 <span class="r-in"><span>  <span class="fu">bar_chart_counts</span><span class="op">(</span>var       <span class="op">=</span> <span class="va">cyl</span>,</span></span>
 <span class="r-in"><span>                   group_var <span class="op">=</span> <span class="va">vs</span>,</span></span>
+<span class="r-in"><span>                   group_colors <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"orange"</span>, <span class="st">"navy"</span><span class="op">)</span>,</span></span>
 <span class="r-in"><span>                   labels    <span class="op">=</span> <span class="st">"pct"</span>,</span></span>
 <span class="r-in"><span>                   title     <span class="op">=</span> <span class="st">"% of V vs. Straight engines by # of cylinders"</span>,</span></span>
 <span class="r-in"><span>                   font  <span class="op">=</span> <span class="st">"sans"</span><span class="op">)</span></span></span>
 <span class="r-plt img"><img src="bar_chart_counts-2.png" alt="" width="700" height="433"></span>
-<span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># Change default color</span></span></span>
-<span class="r-in"><span><span class="va">mtcars</span> <span class="op">|&gt;</span></span></span>
-<span class="r-in"><span>  <span class="fu">bar_chart_counts</span><span class="op">(</span>var       <span class="op">=</span> <span class="va">cyl</span>,</span></span>
-<span class="r-in"><span>                   var_color <span class="op">=</span> <span class="st">"orange"</span>,</span></span>
-<span class="r-in"><span>                   title     <span class="op">=</span> <span class="st">"Number of mtcars by cylinder"</span>,</span></span>
-<span class="r-in"><span>                   font  <span class="op">=</span> <span class="st">"sans"</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="bar_chart_counts-3.png" alt="" width="700" height="433"></span>
-<span class="r-in"><span></span></span>
-<span class="r-in"><span><span class="co"># Specify color by group</span></span></span>
-<span class="r-in"><span><span class="va">mtcars</span> <span class="op">|&gt;</span></span></span>
-<span class="r-in"><span>  <span class="fu">bar_chart_counts</span><span class="op">(</span><span class="va">am</span>, <span class="va">cyl</span>,</span></span>
-<span class="r-in"><span>                   group_colors <span class="op">=</span> <span class="fu"><a href="https://rdrr.io/r/base/c.html" class="external-link">c</a></span><span class="op">(</span><span class="st">"orange"</span>, <span class="st">"green"</span>, <span class="st">"navy"</span><span class="op">)</span>,</span></span>
-<span class="r-in"><span>                   labels <span class="op">=</span> <span class="st">"pct"</span>,</span></span>
-<span class="r-in"><span>                   font  <span class="op">=</span> <span class="st">"sans"</span><span class="op">)</span></span></span>
-<span class="r-plt img"><img src="bar_chart_counts-4.png" alt="" width="700" height="433"></span>
 </code></pre></div>
     </div>
   </main><aside class="col-md-3"><nav id="toc"><h2>On this page</h2>
diff --git a/reference/check_all_count.html b/reference/check_all_count.html
index acf9c0a..cb5cff8 100644
--- a/reference/check_all_count.html
+++ b/reference/check_all_count.html
@@ -14,7 +14,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/check_all_recode.html b/reference/check_all_recode.html
index 2b938db..33e2b5c 100644
--- a/reference/check_all_recode.html
+++ b/reference/check_all_recode.html
@@ -18,7 +18,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/choose_text_color.html b/reference/choose_text_color.html
index fc851d1..ff248b4 100644
--- a/reference/choose_text_color.html
+++ b/reference/choose_text_color.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/colors_tntp.html b/reference/colors_tntp.html
index b383dd8..20f3a90 100644
--- a/reference/colors_tntp.html
+++ b/reference/colors_tntp.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/colors_tntp_likert.html b/reference/colors_tntp_likert.html
index b5c94a5..725b290 100644
--- a/reference/colors_tntp_likert.html
+++ b/reference/colors_tntp_likert.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/colors_tntp_likert_orange_to_green.html b/reference/colors_tntp_likert_orange_to_green.html
index d18a585..83281e7 100644
--- a/reference/colors_tntp_likert_orange_to_green.html
+++ b/reference/colors_tntp_likert_orange_to_green.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/colors_tntp_palette.html b/reference/colors_tntp_palette.html
index 027bc14..965033e 100644
--- a/reference/colors_tntp_palette.html
+++ b/reference/colors_tntp_palette.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/date_to_sy.html b/reference/date_to_sy.html
index df4f473..cbf8ab8 100644
--- a/reference/date_to_sy.html
+++ b/reference/date_to_sy.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/dot-onAttach.html b/reference/dot-onAttach.html
index 1ce862d..fc26531 100644
--- a/reference/dot-onAttach.html
+++ b/reference/dot-onAttach.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/factorize_df.html b/reference/factorize_df.html
index 575df80..18735a5 100644
--- a/reference/factorize_df.html
+++ b/reference/factorize_df.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/fake_county.html b/reference/fake_county.html
index 7ef5011..5ef6ed3 100644
--- a/reference/fake_county.html
+++ b/reference/fake_county.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/figureN.html b/reference/figureN.html
index 589de4b..fe3eb6a 100644
--- a/reference/figureN.html
+++ b/reference/figureN.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/get_usable_family.html b/reference/get_usable_family.html
index 2106c7c..df85087 100644
--- a/reference/get_usable_family.html
+++ b/reference/get_usable_family.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/header_tntp.html b/reference/header_tntp.html
index 8c2e7af..e988812 100644
--- a/reference/header_tntp.html
+++ b/reference/header_tntp.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/import_segoe_ui.html b/reference/import_segoe_ui.html
index 329c227..2ee326f 100644
--- a/reference/import_segoe_ui.html
+++ b/reference/import_segoe_ui.html
@@ -16,7 +16,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/index.html b/reference/index.html
index ac37213..4fec363 100644
--- a/reference/index.html
+++ b/reference/index.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/is_color.html b/reference/is_color.html
index f0534f1..7875eb7 100644
--- a/reference/is_color.html
+++ b/reference/is_color.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/labelled_to_factors.html b/reference/labelled_to_factors.html
index 2a32d17..e99b24e 100644
--- a/reference/labelled_to_factors.html
+++ b/reference/labelled_to_factors.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/palette_names.html b/reference/palette_names.html
index 166089a..9969855 100644
--- a/reference/palette_names.html
+++ b/reference/palette_names.html
@@ -14,7 +14,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/palette_tntp.html b/reference/palette_tntp.html
index 6c52662..197da79 100644
--- a/reference/palette_tntp.html
+++ b/reference/palette_tntp.html
@@ -20,7 +20,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/palette_tntp_scales.html b/reference/palette_tntp_scales.html
index 2985310..dd932e0 100644
--- a/reference/palette_tntp_scales.html
+++ b/reference/palette_tntp_scales.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/parse_date.html b/reference/parse_date.html
index 75c1de8..9a5eb45 100644
--- a/reference/parse_date.html
+++ b/reference/parse_date.html
@@ -14,7 +14,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/prop_matching.html b/reference/prop_matching.html
index f6b015e..443b084 100644
--- a/reference/prop_matching.html
+++ b/reference/prop_matching.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/recode_to_binary.html b/reference/recode_to_binary.html
index a1d670b..ad6af8a 100644
--- a/reference/recode_to_binary.html
+++ b/reference/recode_to_binary.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/scale_colour_tntp.html b/reference/scale_colour_tntp.html
index 97c5d49..3a8ef0e 100644
--- a/reference/scale_colour_tntp.html
+++ b/reference/scale_colour_tntp.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/scale_fill_tntp.html b/reference/scale_fill_tntp.html
index 1906dcd..e7bb3c0 100644
--- a/reference/scale_fill_tntp.html
+++ b/reference/scale_fill_tntp.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/set_data_memo_formatting.html b/reference/set_data_memo_formatting.html
index c7ad9da..5b50afc 100644
--- a/reference/set_data_memo_formatting.html
+++ b/reference/set_data_memo_formatting.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/setup_repo.html b/reference/setup_repo.html
index 3355bef..9bff53c 100644
--- a/reference/setup_repo.html
+++ b/reference/setup_repo.html
@@ -22,7 +22,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/setup_subdirectory.html b/reference/setup_subdirectory.html
index cd3d4ab..683bf37 100644
--- a/reference/setup_subdirectory.html
+++ b/reference/setup_subdirectory.html
@@ -26,7 +26,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/show_in_excel.html b/reference/show_in_excel.html
index ac9e9ab..b9e63f3 100644
--- a/reference/show_in_excel.html
+++ b/reference/show_in_excel.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/standardize_case.html b/reference/standardize_case.html
index 1dc1396..d54c5ae 100644
--- a/reference/standardize_case.html
+++ b/reference/standardize_case.html
@@ -12,7 +12,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/tableN.html b/reference/tableN.html
index f6fa886..3b7c7d4 100644
--- a/reference/tableN.html
+++ b/reference/tableN.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/teacher_survey.html b/reference/teacher_survey.html
index 46cd0f2..fe325a9 100644
--- a/reference/teacher_survey.html
+++ b/reference/teacher_survey.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/theme_tntp.html b/reference/theme_tntp.html
index 7926698..f6ba840 100644
--- a/reference/theme_tntp.html
+++ b/reference/theme_tntp.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/theme_tntp_2018.html b/reference/theme_tntp_2018.html
index a11f950..981a44d 100644
--- a/reference/theme_tntp_2018.html
+++ b/reference/theme_tntp_2018.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/tntp_colors.html b/reference/tntp_colors.html
index 684f8d2..973e3f6 100644
--- a/reference/tntp_colors.html
+++ b/reference/tntp_colors.html
@@ -18,7 +18,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/tntp_cred.html b/reference/tntp_cred.html
index 3c7cd24..8743545 100644
--- a/reference/tntp_cred.html
+++ b/reference/tntp_cred.html
@@ -22,7 +22,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/tntp_palette.html b/reference/tntp_palette.html
index fe87665..500f5df 100644
--- a/reference/tntp_palette.html
+++ b/reference/tntp_palette.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/tntp_style.html b/reference/tntp_style.html
index edc348d..c1c605d 100644
--- a/reference/tntp_style.html
+++ b/reference/tntp_style.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/tntpr.html b/reference/tntpr.html
index c777fec..869c0ec 100644
--- a/reference/tntpr.html
+++ b/reference/tntpr.html
@@ -14,7 +14,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/update_geom_font_defaults.html b/reference/update_geom_font_defaults.html
index dc7e75d..a493995 100644
--- a/reference/update_geom_font_defaults.html
+++ b/reference/update_geom_font_defaults.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/update_tntpr.html b/reference/update_tntpr.html
index 84b039f..2f942e4 100644
--- a/reference/update_tntpr.html
+++ b/reference/update_tntpr.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/reference/wisc.html b/reference/wisc.html
index 51a48f9..5437f13 100644
--- a/reference/wisc.html
+++ b/reference/wisc.html
@@ -10,7 +10,7 @@
     
     <a class="navbar-brand me-2" href="../index.html">tntpr</a>
 
-    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">0.2.2</small>
+    <small class="nav-text text-muted me-auto" data-bs-toggle="tooltip" data-bs-placement="bottom" title="">1.0.0</small>
 
     
     <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbar" aria-controls="navbar" aria-expanded="false" aria-label="Toggle navigation">
diff --git a/search.json b/search.json
index f71c2b7..1bd5450 100644
--- a/search.json
+++ b/search.json
@@ -1 +1 @@
-[{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"how-to-create-tntp-style-graphics","dir":"Articles","previous_headings":"","what":"How to create TNTP style graphics","title":"TNTP Visualization Cookbook","text":"TNTP data team, developed R package R cookbook make process creating publication-ready graphics -house style using R’s ggplot2 library reproducible process, well making easier people new R create graphics. ’ll get can put together various elements graphics, let’s get admin way first…","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"install-the-tntpr-package","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Install the tntpr package","title":"TNTP Visualization Cookbook","text":"tntpr CRAN, install directly Github using devtools. devtools package installed, run first line code well. command also work updating tntpr already installed.","code":"# install.packages('devtools') devtools::install_github('tntp/tntpr')"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"load-all-the-libraries-you-need","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Load all the libraries you need","title":"TNTP Visualization Cookbook","text":"steps cookbook - create charts R general - require certain packages installed loaded. use following packages.","code":"# NOTE: We are not simply loading `tidyverse` in this vignette due to how vignettes # are built to create the documentation website. In other contexts, however, we # would simply use `library(tidyverse)` instead of loading many of the packages individually. library(tntpr) library(ggplot2) library(dplyr) library(tidyr) library(purrr) library(stringr) library(forcats) library(ggalt) library(ggridges)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"creating-plots-with-tntp_style","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Creating plots with tntp_style()","title":"TNTP Visualization Cookbook","text":"tntpr package contains function tntp_style(). add TNTP’s custom ggplot2 theme plots controls items like fonts, font size, titles axis labels, tick marks, gridlines, legend. function ensures maintain consistency across org look plots. Plus, style created design team ensure look aesthetically pleasing. function contains parameters users can adjust items font, font size, text colors, title legend position, whether show legend title, axis title, grid lines. parameters default values users need set . Consult function’s documentation ?tntp_style information parameters. Note colors lines case line chart bars bar chart, come box tntp_style() function, need explicitly set standard ggplot chart functions.","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"example-with-tntp_style","dir":"Articles","previous_headings":"How to create TNTP style graphics > Creating plots with tntp_style()","what":"Example with tntp_style()","title":"TNTP Visualization Cookbook","text":"quick example using tntp_style() theme.","code":"# base plot we will reuse in this section plt <- ggplot(ggplot2::mpg, aes(displ, hwy)) +   geom_point() +   labs(     title = 'Cars with higher displacement\\nhave a lower MPG',     subtitle = 'Displacement vs. MPG',     caption = \"Data from ggplot's mpg dataset\",     x = 'Engine Displ.',     y = 'MPG'   )  plt +   tntp_style()"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"setting-font-family-and-font-sizes","dir":"Articles","previous_headings":"How to create TNTP style graphics > Creating plots with tntp_style()","what":"Setting font family and font sizes","title":"TNTP Visualization Cookbook","text":"highlight two parameters tntp_style() can help customize plot. family family parameter lets set text font family. changes font family items, including plot axis titles, legend titles text, axis text. parameter defaults ‘Halyard Display’, TNTP’s font style, uses ‘sans’ ‘Halyard Display’ available. receive warning specified font found. can also specify separate header font using header_family parameter. need manually import additional fonts, including Halyard fonts, using extrafont package available R. Follow steps import fonts: Download Halyard Display Fonts .ttf forms Data Analytics Sharepoint “Fonts” category. Open fonts folder laptop (Settings -> Personalization -> Fonts) drag drop Halyard Fonts install computer. RStudio, install extrafont package install.packages('extrafont). Import fonts extrafont database extrafont::font_import(). needs done . process long, can significantly shortened importing Halyard fonts using extrafont::font_import(pattern = 'Halyard'). Register extra fonts R using extrafont::loadfonts(). needs done R session, done automatically loading tntpr library. can check see fonts available R windowsFonts() Windows quartzFonts() Mac. base_size tntp_style() function allows parameter called base_size controls font sizes. default value 28 recommended minimum 15. number represents plot title’s font size. font sizes, subtitles, axis labels text, legend labels text also adjusted based base_size value. font sizes base_size set default 28: Plot title: 28 Plot subtitle: 22.4 Caption: 11.2 Axis title: 16.8 Axis text: 16.8","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"further-customizing-plots-outside-tntp_style","dir":"Articles","previous_headings":"How to create TNTP style graphics > Creating plots with tntp_style()","what":"Further customizing plots outside tntp_style()","title":"TNTP Visualization Cookbook","text":"tntp_style() adds TNTP’s ggplot2 theme plot. Users needing customization can stack themes adding additional theme() layer adding tntp_style(). example, following plot sets font ‘sans’ font size 20 tntp_style(). manually changes subtitle font ‘serif’ subtitle size 25 additional theme(). Please don’t use combination real plot!  can also add theme elements coincide parameter tntp_style(). example, add border around plot theme element.  see available settings can adjust theme element, see documentation ?theme.","code":"plt +   tntp_style(show_axis_titles = TRUE, family = 'sans', base_size = 20) +   theme(plot.subtitle = ggplot2::element_text(family = 'serif', size = 25)) plt +   tntp_style(show_axis_titles = TRUE) +   theme(panel.border = element_rect(color = \"black\", fill = NA))"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"using-tntp-brand-colors","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Using TNTP brand colors","title":"TNTP Visualization Cookbook","text":"tntpr package includes functions allow easily use TNTP brand colors visualizations.","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"colors","dir":"Articles","previous_headings":"How to create TNTP style graphics > Using TNTP brand colors","what":"Colors","title":"TNTP Visualization Cookbook","text":"primary function ’ll use tntp_colors(), takes human-friendly color names arguments returns character vector equivalent hex codes: companion function show_tntp_colors(), make quick display given colors plot window.  can also use show_tntp_colors() color arguments display available colors names:","code":"tntp_colors(\"green\", \"mint\") #> [1] \"#317D5C\" \"#E2EDDC\" show_tntp_colors('green', 'moss', 'mint') # Note: the cex_label parameter is used to adjust the relative font size show_tntp_colors(cex_label = 0.7)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"palettes","dir":"Articles","previous_headings":"How to create TNTP style graphics > Using TNTP brand colors","what":"Palettes","title":"TNTP Visualization Cookbook","text":"color palettes used frequently visualizations. tntp_palette() function allows access pre-determined palettes easily: Palettes can reversed setting reverse = TRUE, can quickly displayed using show_tntp_palette() function:  list visualization pre-set palettes, run function arguments:  example plots show incorporate functions ggplot2 visualizations.","code":"tntp_palette(\"likert_6\") #> [1] \"#C2A60A\" \"#F2CF13\" \"#FDE57B\" \"#8FB09D\" \"#317D5C\" \"#1D4935\" show_tntp_palette(\"likert_6\", reverse = TRUE) show_tntp_palette()"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"example-plots","dir":"Articles","previous_headings":"","what":"Example Plots","title":"TNTP Visualization Cookbook","text":"now show examples plots frequently use TNTP using fake data set tntpr package. Let’s first load clean data set. lower font size plots 16.","code":"# load fake data into global environment # remove all salaries of 0 county_data <- tntpr::fake_county |>    filter(t_salary > 0)  avg_salary <- county_data |>    filter(t_salary != 0) |>    group_by(school_year) |>    summarize(avg_salary = mean(t_salary, na.rm = TRUE), .groups = \"drop\") base_font_size <- 16"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-line-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a line chart","title":"TNTP Visualization Cookbook","text":"","code":"#Make plot ggplot(avg_salary, aes(x = school_year, y = avg_salary)) +   geom_line(colour = tntp_colors(\"green\"), linewidth = 1) +   scale_y_continuous(labels = scales::dollar, limits = c(0, 5000)) +   labs(     title=\"Average Teacher Salaries\",     subtitle = \"Teacher salaries remained constant between 2012 and 2015\"   ) +     tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-multiple-line-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a multiple line chart","title":"TNTP Visualization Cookbook","text":"Note multiple line chart, overwrote ggplot2’s default color scheme incorporate TNTP colors. pulled hex codes colors wanted use tntp_palette() added chart scale_colour_manual().","code":"#Prepare data school_salary <- county_data |>    filter(t_salary != 0) |>    group_by(school_year, school_name) |>    summarize(avg_salary = mean(t_salary, na.rm = TRUE), .groups = \"drop\")  # create list of school names so we can easily filter data set for the number of schools we want school_names <- unique(school_salary$school_name)  # only plot two schools line_plot_schools <- school_salary |>    filter(school_name %in% school_names[1:3]) ggplot(line_plot_schools, aes(x = school_year, y = avg_salary, color = school_name)) +   geom_line(linewidth = 1) +   scale_y_continuous(labels = scales::dollar, limits = c(0, 5000)) +   scale_colour_manual(values = tntp_palette(\"colorful\")) +   labs(     title=\"Average Teacher Salaries\",     subtitle = \"Teacher salaries remained constant between 2012 and 2015\"   ) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-bar-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a bar chart","title":"TNTP Visualization Cookbook","text":"","code":"#Prepare data bar_df <- school_salary |>   filter(     school_year == 2015,     school_name %in% school_names[1:5]   ) |>    # add line breaks for better plotting   mutate(school_name = str_wrap(school_name, 7))  ggplot(bar_df, aes(x = school_name, y = avg_salary)) +   geom_bar(stat=\"identity\",             position=\"identity\",             fill= tntp_colors('gold')) +   scale_y_continuous(labels = scales::dollar, limits = c(0, 5000)) +   labs(     title=\"Acacia had higher average salaries in 2015\",     subtitle = \"Average teacher salaries in 2015 by school\"   ) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-stacked-bar-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a stacked bar chart","title":"TNTP Visualization Cookbook","text":"stacked bar chart uses percentages y-axis. Note formatting y-axis create percentages: scale_y_continuous(labels = scales::percent, limits = c(0,1)). set limits = c(0,1) ensure y-axis limits run 0% 100%. working percentages, axis (almost) always run 0% 100%. Additionally, geom_bar() set stat = \"identity\". tells ggplot2 plot data -aggregate data making plot. often easier aggregate data outside ggplot2, transparent, easier check. also replaced geom_bar(stat = \"identity\", position = \"stack\") geom_col() (parameters needed) arrive plot.  example shows proportions, might want make stacked bar chart showing number values instead - easy change! value passed position argument determine stacked chart shows proportions actual values. position = \"fill\" draw stacks proportions, position = \"identity\" draw number values.","code":"#prepare data stacked_df <- county_data |>    filter(     school_year == 2015,     school_name %in% school_names[1:5]   ) |>    mutate(t_salary_cut = cut(t_salary,                      breaks = c(0, 2500, 3500, 4500, 10000),                     labels = c(\"under $2.5k\", \"$2.5k-$3.5k\", \"$3.5k-$4.5k\", \"$4.5k+\"))) |>   group_by(school_name, t_salary_cut) |>   summarise(n_cut_school = n(), .groups = \"drop_last\") |>    mutate(     n_cut_salary = sum(n_cut_school, na.rm = TRUE),     perc_in_each_cut = n_cut_school / n_cut_salary   )  |>    # add line breaks for better plotting   mutate(school_name = str_wrap(school_name, 7))  #set order of stacks by changing factor levels stacked_df$t_salary_cut = factor(stacked_df$t_salary_cut, levels = rev(levels(stacked_df$t_salary_cut))) ggplot(   data = stacked_df,    aes(x = school_name, y = perc_in_each_cut, fill = t_salary_cut) ) +   geom_bar(stat = \"identity\", position = \"stack\") +   scale_y_continuous(labels = scales::percent, limits = c(0,1)) +   scale_fill_manual(values = tntp_palette(\"greens\")) +   labs(title = \"Most teachers earn between $2.5K and $4.5K\",        subtitle = \"Percentage of teachers by salary range\") +   theme(legend.position = \"top\",          legend.justification = \"left\") +   guides(fill = guide_legend(reverse = TRUE)) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-grouped-bar-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a grouped bar chart","title":"TNTP Visualization Cookbook","text":"Making grouped bar chart similar making bar chart. just need change position = \"identity\" position_dodge2(preserve = \"single\"). Note use named vector colors_to_use expressly map colors values. safe way ensure properly mapping colors values.","code":"# only plot the lowest and highest earning groups earnings_to_keep <- levels(stacked_df$t_salary_cut)[c(4,1)]  # map bar colors to values colors_to_use <- tntp_colors('yellow', 'green') |>    set_names(earnings_to_keep)  dodged_df <- stacked_df |>    # only plot the lowest and highest earning groups   filter(t_salary_cut %in% !!earnings_to_keep) |>    # switch order of factors so that the lowest earnings plot first   mutate(t_salary_cut = factor(t_salary_cut, levels = earnings_to_keep))   ggplot(dodged_df, aes(x = school_name, y = perc_in_each_cut, fill = t_salary_cut)) +     geom_bar(stat = \"identity\", position = position_dodge2(preserve = \"single\")) +     scale_y_continuous(labels = scales::percent, limits = c(0,1)) +     scale_fill_manual(values = colors_to_use) +     labs(title = \"More teachers earn over $4.5k than under $2.5k\",          subtitle = \"Percentage of teachers by salary range\") +     tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-scatterplot","dir":"Articles","previous_headings":"Example Plots","what":"Make a scatterplot","title":"TNTP Visualization Cookbook","text":"","code":"# create data set showing school test scores and average school salaries scores_salary <- county_data |>    group_by(school_name) |>    summarize(     avg_test_score = mean(sch_ela_avg + sch_math_avg, na.rm=FALSE),     avg_salary = mean(t_salary, na.rm = FALSE),     enrollment = mean(sch_enroll_2015, na.rm = TRUE),     .groups = 'drop'   ) |>    mutate(perc_rank_test_score = percent_rank(avg_test_score)) |>    drop_na() ggplot(scores_salary, aes(avg_salary, perc_rank_test_score)) +   geom_point(color = tntp_colors('tangerine'), alpha = 0.9, size = 3) +   labs(     title = 'Schools with higher salaries do not have higher test scores',     subtitle = 'Relationship between school test scores and salaries',     x = 'Average school salary',     y = 'Percentile rank test score'   ) +   scale_x_continuous(labels = scales::dollar) +   scale_y_continuous(labels = scales::percent) +   tntp_style(base_size = base_font_size, show_axis_titles = TRUE)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-dumbbell-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a dumbbell chart","title":"TNTP Visualization Cookbook","text":"Another way showing difference dumbbell chart. Note geom_dumbell() comes ggalt package.","code":"dumbbell_df <- dodged_df |>    pivot_wider(id_cols = 'school_name', names_from = 't_salary_cut', values_from = 'n_cut_school') |>    mutate(across(where(is.numeric), ~replace_na(.x, 0)))  ggplot(dumbbell_df, aes(x = `under $2.5k`, xend = `$4.5k+`, y = fct_reorder(school_name, `under $2.5k`)), group = school_names) +    geom_dumbbell(     color = tntp_colors(\"light_grey\"),     size = 3,     colour_x = tntp_colors('gold'),     colour_xend = tntp_colors('green'),     show.legend = TRUE   ) +   labs(title = \"More teachers earn over $4.5k than under $2.5k\",        subtitle = \"Number of teachers by salary range\",        x = \"Number of teachers earnign a given salary\") +    tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-histogram","dir":"Articles","previous_headings":"Example Plots","what":"Make a histogram","title":"TNTP Visualization Cookbook","text":"","code":"# number of teachers per school number_teachers_school <- county_data |>   count(school_year, school_name)  ggplot(number_teachers_school, aes(n)) +   geom_histogram(binwidth = 5, colour = \"white\", fill = tntp_colors('navy')) +   labs(     title = \"Schools have a wide distribution in the number of teachers\",     subtitle = \"Total number of teachers per school\",     x = 'Number of teacher in school',     y = 'Count'   ) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"making-density-plots","dir":"Articles","previous_headings":"Example Plots","what":"Making density plots","title":"TNTP Visualization Cookbook","text":"ggridges package contains additional plots plotting distributions using ridgeline plots.","code":"ggplot(county_data, aes(x = t_salary, y = school_year, group = school_year, fill = factor(school_year))) +   geom_density_ridges(quantile_lines = TRUE, quantiles = 4) +   scale_x_continuous(labels = scales::dollar) +   labs(title = \"Income distrubutions for teachers has remained constant\",        subtitle = \"Income distrubution and quantiles for teachers\") +   tntp_style(base_size = base_font_size) +    theme(legend.position = \"none\") +    scale_fill_manual(values = tntp_palette('colorful'))"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"working-with-survey-data","dir":"Articles","previous_headings":"","what":"Working with survey data","title":"TNTP Visualization Cookbook","text":"often work survey data TNTP. highlight couple examples plotting survey data. use teacher_survey data set tntpr package, fake teacher survey. Let’s start loading data set calculating averages.","code":"teacher_survey <- tntpr::teacher_survey  # the y-axis will contain text of an entire survey question # we want to place line breaks in this text so plots look better axis_line_breaks <- 40  # scales in HE questions, in order starting with the strongest agree_disagree_scale <- rev(c(\"Strongly Agree\", \"Agree\", \"Somewhat Agree\", \"Somewhat Disagree\", \"Disagree\", \"Strongly Disagree\"))  # put survey into long form and clean up question names teacher_survey_he <- teacher_survey |>    select(-timing) |>    pivot_longer(cols = everything(), names_to = 'question', values_to = 'response')  # calculate percentage of responses to each high expectations question teacher_survey_he_perc <- teacher_survey_he |>    drop_na(\"response\") |>   # calculate the number of responses for each response option   count(question, response, name = 'n_response') |>   # calculate the number of responses for each question   group_by(question) |>   mutate(n_question = sum(n_response)) |>   ungroup() |>   # calculate percentages   mutate(     # calculate percentages     percent = n_response / n_question,     # make a column that is text of the percent for plotting     percent_pretty = scales::percent(percent, accuracy = 1)   )  # calculate percentage of strongly agree and agree teacher_survey_he_perc <- teacher_survey_he_perc |>    mutate(scale_strength = ifelse(response %in% !!agree_disagree_scale[c(5,6)], 'Strong response', 'Weak response')) |>   group_by(question, scale_strength) |>   mutate(strong_response_percent = sum(percent)) |>   ungroup() |>    mutate(     strong_response_percent = ifelse(response == 'Agree', strong_response_percent, NA),     # create line breaks for questions ,which will make plots look better     question = str_wrap(question, axis_line_breaks),     response = factor(response, levels = agree_disagree_scale)   )"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"plot-likert-items---highlights-top-two","dir":"Articles","previous_headings":"Working with survey data","what":"Plot likert items - highlights top two","title":"TNTP Visualization Cookbook","text":"first plot calls two highest response values, ‘Strongly Agree’ ‘Agree’. Note tntp_style() function alter font size family text within geom_text() set manually.","code":"ggplot(teacher_survey_he_perc, aes(percent, question, fill = response)) +   geom_col() +   geom_text(     aes(label = scales::percent(strong_response_percent, accuracy = 1), x = strong_response_percent),     color = 'white', fontface='bold', family = \"Halyard Display\", size = 5, hjust = 1.05   ) +   scale_x_continuous(labels = scales::percent, limits = c(0,1)) +   scale_fill_manual(values = tntp_palette(\"top2_6\"), drop = FALSE) +   guides(fill=guide_legend(nrow=2, byrow=TRUE, reverse = TRUE))  +   labs(title = \"High Expectations Survey Responses\") +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"plot-likert-items---diverging","dir":"Articles","previous_headings":"Working with survey data","what":"Plot likert items - diverging","title":"TNTP Visualization Cookbook","text":"","code":"legend_order <- c(agree_disagree_scale[c(1,2,3)], agree_disagree_scale[c(6,5,4)])  teacher_survey_div <- teacher_survey_he_perc |>    mutate(     perc_diverge = ifelse(str_detect(response, '[D|d]isagree'), percent * -1, percent),     response = factor(response, levels = legend_order)   )  ggplot(teacher_survey_div, aes(x = perc_diverge, y = question, fill = response)) +   geom_col() +   scale_fill_manual(     values = tntp_palette(\"likert_6\"),      drop = FALSE,     breaks = agree_disagree_scale,     labels = agree_disagree_scale   ) +   geom_vline(aes(xintercept = 0), linetype = 1, linewidth = 1.2, alpha = .7) +   scale_x_continuous(limits = c(-1, 1), breaks = seq(-1, 1, .25), labels = function(x) scales::percent(abs(x))) +   labs(title = \"High Expectations Survey Responses\") +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Dustin Pashouwer. Maintainer.","code":""},{"path":"https://tntp.github.io/tntpr/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Firke S, Russ J, Spurrier , Pashouwer D, Mullan K, Orr S, Talcott S (2024). tntpr: Data Analysis Tools Customized TNTP. R package version 0.2.2, https://tntp.github.io/tntpr/, https://github.com/tntp/tntpr.","code":"@Manual{,   title = {tntpr: Data Analysis Tools Customized for TNTP},   author = {Sam Firke and Jake Russ and Alex Spurrier and Dustin Pashouwer and Kate Mullan and Shane Orr and Sam Talcott},   year = {2024},   note = {R package version 0.2.2, https://tntp.github.io/tntpr/},   url = {https://github.com/tntp/tntpr}, }"},{"path":[]},{"path":"https://tntp.github.io/tntpr/index.html","id":"about","dir":"","previous_headings":"","what":"About","title":"Data Analysis Tools Customized for TNTP","text":"tntpr package makes data science TNTP easier accurate supplying tools needed common TNTP analyses. package specifically serves TNTP analysis community, functions can tailored exact use cases.","code":""},{"path":"https://tntp.github.io/tntpr/index.html","id":"package-summary","dir":"","previous_headings":"","what":"Package summary","title":"Data Analysis Tools Customized for TNTP","text":"highlights package include: TNTP brand colors palettes tntp_colors() tntp_palette() functions TNTP ggplot2 theme using brand fonts (tntp_style()) tntp_cred() functions securely managing credentials (passwords, API keys, etc.) R. TNTP-themed RMarkdown templates, starting new analysis shell can already generate TNTP-themed .docx report Functions initializing new repository project folder TNTP-standard directories documentation Survey analysis tools factorize_df(), recode_to_binary(), functions dealing check-style questions Wrappers quickly making typical TNTP-style charts (e.g., bar chart means variable 1 grouped variable 2) Education-specific data management functions (e.g., date_to_sy() convert continuous hire dates school years using specified cutoff date) Built-fake data sets practice , including student achievement data (wisc), teacher data (fake_county) survey data (teacher_survey) tntpr built work tidyverse set packages.","code":""},{"path":"https://tntp.github.io/tntpr/index.html","id":"installing-the-tntpr-package","dir":"","previous_headings":"","what":"Installing the tntpr package","title":"Data Analysis Tools Customized for TNTP","text":"tntpr currently CRAN, ’ll need install package GitHub repository using devtools. devtools package installed, run first line code well: installed, load like package. update tntpr, ’ll need first unload (start fresh R session). can run code .","code":"# install.packages('devtools') devtools::install_github('tntp/tntpr') library(tntpr) tntpr::update_tntpr()"},{"path":"https://tntp.github.io/tntpr/index.html","id":"feature-requests-and-bug-reports","dir":"","previous_headings":"","what":"Feature Requests and Bug Reports","title":"Data Analysis Tools Customized for TNTP","text":"data problem think tntpr help ? Find bug working tntpr package? Please create issue.","code":""},{"path":"https://tntp.github.io/tntpr/reference/SegoeUI.html","id":null,"dir":"Reference","previous_headings":"","what":"Segoe UI font name R variable aliases — font_se","title":"Segoe UI font name R variable aliases — font_se","text":"font_an == \"Segoe UI\"","code":""},{"path":"https://tntp.github.io/tntpr/reference/SegoeUI.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Segoe UI font name R variable aliases — font_se","text":"","code":"font_se"},{"path":"https://tntp.github.io/tntpr/reference/SegoeUI.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Segoe UI font name R variable aliases — font_se","text":"length 1 character vector","code":""},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":null,"dir":"Reference","previous_headings":"","what":"Bar chart of counts with TNTP polish — bar_chart_counts","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"Takes user supplied data frame turns designated column N bar chart (uses position dodge ggplot2).","code":""},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"","code":"bar_chart_counts(   df,   var,   group_var = NULL,   labels = \"n\",   var_color = \"green\",   group_colors = NULL,   title = NULL,   var_label = NULL,   digits = 1,   font = \"Halyard Display\",   font_size = 12 )"},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"df data.frame used bar chart var unquoted column name variable count group_var (optional) unquoted column name group variable.  specified, get 2-variable clustered bar chart.  left blank, single variable bar chart. labels labels show count (\"n\") percentage (\"pct\")? var_color color non-grouped charts; set TNTP green default. group_colors, strings tried tntp_colors automatically.  c(\"red\", \"green\") get official TNTP colors, c(\"red\", \"brown\") get base R red blue. group_colors character vector group colors, specific palette desired title main chart title var_label label x-axis digits integer indicating number decimal places used percentages. truncating, ties rounded , like MS Excel, .e., 10.5 11.5 become 11 12.  ** base R's default behavior. font font chart text; Segoe UI default font_size size chart text; set 12 default","code":""},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"","code":"# An N bar chart by default # All examples use font = \"sans\" to avoid triggering font warnings mtcars |>   bar_chart_counts(var   = cyl,                    title = \"Number of mtcars by cylinder\",                    font  = \"sans\")   # Use a grouping variable mtcars |>   bar_chart_counts(var       = cyl,                    group_var = vs,                    labels    = \"pct\",                    title     = \"% of V vs. Straight engines by # of cylinders\",                    font  = \"sans\")   # Change default color mtcars |>   bar_chart_counts(var       = cyl,                    var_color = \"orange\",                    title     = \"Number of mtcars by cylinder\",                    font  = \"sans\")   # Specify color by group mtcars |>   bar_chart_counts(am, cyl,                    group_colors = c(\"orange\", \"green\", \"navy\"),                    labels = \"pct\",                    font  = \"sans\")"},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":null,"dir":"Reference","previous_headings":"","what":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"function run columns treated check_all_recode(). Takes data.frame range columns containing answer choices check---apply question tabulates results.  People select choices  (.e., answer question) omitted denominator.  make sense, question's choices MECE, NA option. works \"\" open-response text field, recoded binary variable check_all_recode.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"","code":"check_all_count(dat, ...)"},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"dat data.frame survey data ... unquoted column names containing range answer choices.  Can specified individually, range, .e., q1_1:q1_5, using helper functions dplyr::select().","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"Returns data.frame tabulated results (n ","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"","code":"x <- data.frame( # 4th person didn't respond at all   unrelated = 1:5,   q1_1 = c(\"a\", \"a\", \"a\", NA, NA),   q1_2 = c(\"b\", \"b\", NA, NA, NA),   q1_3 = c(NA, NA, \"c\", NA, NA),   q1_other = c(NA, \"something else\", NA, NA, \"not any of these\") ) library(dplyr) # for the %>% pipe #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union x %>%   check_all_recode(q1_1:q1_other) %>%   check_all_count(q1_1:q1_other) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>  response n percent #>         a 3    0.75 #>         b 2    0.50 #>         c 1    0.25 #>     Other 2    0.50  # You can use any of the dplyr::select() helpers to identify the columns: x %>%   check_all_recode(contains(\"q1\")) %>%   check_all_count(contains(\"q1\")) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>  response n percent #>         a 3    0.75 #>         b 2    0.50 #>         c 1    0.25 #>     Other 2    0.50"},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":null,"dir":"Reference","previous_headings":"","what":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"survey software returns check---apply response columns missing values indicate either respondent skipped question entirely, select particular answer choice.  count responses properly, cases respondent check choices - .e., skipped question - counted denominator (assuming choices completely exhaustive, NA option). function takes data.frame range columns containing answer choices check---apply question updates columns data.frame contain one three values: 1 choice selected; 0 respondent chose another option one; NA respondent skipped question (.e., select choices) thus response truly missing. also takes single text values column adds label attribute data.frame columns. function accomodates open-response column, get correct denominator respondents skipped check variables written something .  passing offered choices implicit rejection , \"missing.\"  text variable throw warning - may okay - recoded binary 1/0 variable indicating response.  text variable assigned label \"\".  Consider preserving original respondent text values prior point separate column needed. check_all_recode() prepares data.frame call sister function check_all_count().  label attribute accessed function.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"","code":"check_all_recode(dat, ..., set_labels = TRUE)"},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"dat data.frame survey data ... unquoted variable names containing answer choices.  Can specified range, .e., q1_1:q1_5 using helper functions dplyr::select(). set_labels label attribute columns -written column text?  Allow TRUE unless currently label attributes wish overwrite.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"Returns original data.frame specified column range updated, label attributes questions.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"","code":"x <- data.frame( # 4th person didn't respond at all   unrelated = 1:5,   q1_1 = c(\"a\", \"a\", \"a\", NA, NA),   q1_2 = c(\"b\", \"b\", NA, NA, NA),   q1_3 = c(NA, NA, \"c\", NA, NA),   q1_other = c(NA, \"something else\", NA, NA, \"not any of these\") ) library(dplyr) # for the %>% pipe x %>%   check_all_recode(q1_1:q1_other) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>   unrelated q1_1 q1_2 q1_3 q1_other #> 1         1    1    1    0        0 #> 2         2    1    1    0        1 #> 3         3    1    0    1        0 #> 4         4   NA   NA   NA       NA #> 5         5    0    0    0        1  # You can use any of the dplyr::select() helpers to identify the columns: x %>%   check_all_recode(contains(\"q1\")) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>   unrelated q1_1 q1_2 q1_3 q1_other #> 1         1    1    1    0        0 #> 2         2    1    1    0        1 #> 3         3    1    0    1        0 #> 4         4   NA   NA   NA       NA #> 5         5    0    0    0        1"},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":null,"dir":"Reference","previous_headings":"","what":"Choose a text color given a background color — choose_text_color","title":"Choose a text color given a background color — choose_text_color","text":"Choose text color given background color","code":""},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Choose a text color given a background color — choose_text_color","text":"","code":"choose_text_color(bg_color)"},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Choose a text color given a background color — choose_text_color","text":"bg_color color","code":""},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Choose a text color given a background color — choose_text_color","text":"\"black\" \"white\"","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP colors — colors_tntp","title":"TNTP colors — colors_tntp","text":"list colors superseded new brand colors new function tntp_colors().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP colors — colors_tntp","text":"","code":"colors_tntp"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"TNTP colors — colors_tntp","text":"object class character length 34.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP colors — colors_tntp","text":"","code":"if (FALSE) { tntp_colors() }"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":null,"dir":"Reference","previous_headings":"","what":"Likert pallette — colors_tntp_likert","title":"Likert pallette — colors_tntp_likert","text":"likert palette superseded new brand colors new function tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Likert pallette — colors_tntp_likert","text":"","code":"colors_tntp_likert"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Likert pallette — colors_tntp_likert","text":"object class character length 7.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Likert pallette — colors_tntp_likert","text":"","code":"if (FALSE) { tntp_palette('likert_6') }"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":null,"dir":"Reference","previous_headings":"","what":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"likert palette superseded new brand colors new functions tntp_colors() tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"","code":"colors_tntp_likert_orange_to_green"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"object class character length 7.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"","code":"if (FALSE) { tntp_palette('bg_6') }"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP pallette — colors_tntp_palette","title":"TNTP pallette — colors_tntp_palette","text":"list colors superseded new brand colors new function tntp_colors().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP pallette — colors_tntp_palette","text":"","code":"colors_tntp_palette"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"TNTP pallette — colors_tntp_palette","text":"object class character length 16.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP pallette — colors_tntp_palette","text":"","code":"if (FALSE) { tntp_colors() }"},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert a date value into its school year. — date_to_sy","title":"Convert a date value into its school year. — date_to_sy","text":"Checks see date past user-specified cutoff point delineating school years, maps appropriate year.","code":""},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert a date value into its school year. — date_to_sy","text":"","code":"date_to_sy(date_var, last_day_of_sy = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert a date value into its school year. — date_to_sy","text":"date_var date convert. Can Date object string form 'YYYY-MM-DD' 'MM/DD/YYYY' last_day_of_sy cutoff date, date considered part following school year. year argument matter. Defaults (noisily) July 1st.","code":""},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert a date value into its school year. — date_to_sy","text":"Returns character vector format \"2013 - 2014\"","code":""},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert a date value into its school year. — date_to_sy","text":"","code":"date_to_sy(as.Date(\"2014-05-05\"), as.Date(\"2000-07-01\")) #> [1] \"2013 - 2014\" date_to_sy(as.Date(\"2014-07-05\"), as.Date(\"2000-07-01\")) #> [1] \"2014 - 2015\""},{"path":"https://tntp.github.io/tntpr/reference/dot-onAttach.html","id":null,"dir":"Reference","previous_headings":"","what":"Title — .onAttach","title":"Title — .onAttach","text":"Title","code":""},{"path":"https://tntp.github.io/tntpr/reference/dot-onAttach.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Title — .onAttach","text":"","code":".onAttach(libname, pkgname)"},{"path":"https://tntp.github.io/tntpr/reference/dot-onAttach.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Title — .onAttach","text":"libname library name pkgname package name","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"function examines column data.frame; finds column composed solely values provided lvls argument updates factor variables, levels order provided. alternative calling dplyr::mutate_at factor() identifying specific variables want transform, several repeated sets responses.","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"","code":"factorize_df(dat, lvls, ignore.case = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"dat data.frame factor variables stored characters. lvls factor levels variable(s), order.  question whose possible responses subset another question's, use function; manipulate specific columns dplyr::mutate_at. ignore.case Logical. TRUE, match without checking case, using capitalization lvls parameter final output. provided, function provide warning detects columns match without checking case coerce .","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"data.frame factorization completed place.","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"","code":"teacher_survey |>   factorize_df(lvls = c(\"Strongly Disagree\", \"Disagree\", \"Somewhat Disagree\",                         \"Somewhat Agree\", \"Agree\", \"Strongly Agree\")) #> ℹ Changed the following columns to factors: `It's fair to expect students in #>   this class to master these standards by the end of the year.`, `One year is #>   enough time for students in this class to master these standards.`, `All #>   students in my class can master the grade-level standards by the end of the #>   year.`, and `The standards are appropriate for the students in this class.` #> # A tibble: 20 × 5 #>    timing It's fair to expect st…¹ One year is enough t…² All students in my c…³ #>    <chr>  <fct>                    <fct>                  <fct>                  #>  1 Pre    Disagree                 Disagree               Agree                  #>  2 Pre    Disagree                 Somewhat Agree         Agree                  #>  3 Pre    Somewhat Disagree        Somewhat Disagree      Strongly Agree         #>  4 Pre    Disagree                 Strongly Disagree      Strongly Agree         #>  5 Pre    Agree                    Somewhat Disagree      Strongly Disagree      #>  6 Pre    Strongly Disagree        Somewhat Agree         Somewhat Disagree      #>  7 Pre    Agree                    Strongly Agree         Strongly Disagree      #>  8 Pre    Agree                    Disagree               Somewhat Agree         #>  9 Pre    Strongly Disagree        Disagree               Somewhat Agree         #> 10 Pre    Somewhat Agree           Somewhat Disagree      Agree                  #> 11 Post   Strongly Disagree        Somewhat Agree         Somewhat Disagree      #> 12 Post   Somewhat Agree           Disagree               Somewhat Disagree      #> 13 Post   Somewhat Disagree        Somewhat Agree         Strongly Disagree      #> 14 Post   Strongly Agree           Strongly Agree         Disagree               #> 15 Post   Strongly Agree           Somewhat Disagree      Strongly Disagree      #> 16 Post   Disagree                 Disagree               Agree                  #> 17 Post   Strongly Agree           Agree                  Agree                  #> 18 Post   Strongly Agree           Strongly Agree         Disagree               #> 19 Post   Somewhat Disagree        Somewhat Agree         Agree                  #> 20 Post   Somewhat Agree           Strongly Agree         Strongly Disagree      #> # ℹ abbreviated names: #> #   ¹​`It's fair to expect students in this class to master these standards by the end of the year.`, #> #   ²​`One year is enough time for students in this class to master these standards.`, #> #   ³​`All students in my class can master the grade-level standards by the end of the year.` #> # ℹ 1 more variable: #> #   `The standards are appropriate for the students in this class.` <fct>  # prints warning due to case mismatches: teacher_survey |>   factorize_df(lvls = c(\"Strongly disagree\", \"Disagree\", \"Somewhat disagree\",                         \"Somewhat agree\", \"Agree\", \"Strongly agree\")) #> Warning: ! Columns `It's fair to expect students in this class to master these standards #>   by the end of the year.`, `One year is enough time for students in this class #>   to master these standards.`, `All students in my class can master the #>   grade-level standards by the end of the year.`, and `The standards are #>   appropriate for the students in this class.` were NOT matched, but would #>   match if `ignore.case` was set to \"TRUE\" #> Warning: ! No columns matched. Check spelling & capitalization of your levels. #> # A tibble: 20 × 5 #>    timing It's fair to expect st…¹ One year is enough t…² All students in my c…³ #>    <chr>  <chr>                    <chr>                  <chr>                  #>  1 Pre    Disagree                 Disagree               Agree                  #>  2 Pre    Disagree                 Somewhat Agree         Agree                  #>  3 Pre    Somewhat Disagree        Somewhat Disagree      Strongly Agree         #>  4 Pre    Disagree                 Strongly Disagree      Strongly Agree         #>  5 Pre    Agree                    Somewhat Disagree      Strongly Disagree      #>  6 Pre    Strongly Disagree        Somewhat Agree         Somewhat Disagree      #>  7 Pre    Agree                    Strongly Agree         Strongly Disagree      #>  8 Pre    Agree                    Disagree               Somewhat Agree         #>  9 Pre    Strongly Disagree        Disagree               Somewhat Agree         #> 10 Pre    Somewhat Agree           Somewhat Disagree      Agree                  #> 11 Post   Strongly Disagree        Somewhat Agree         Somewhat Disagree      #> 12 Post   Somewhat Agree           Disagree               Somewhat Disagree      #> 13 Post   Somewhat Disagree        Somewhat Agree         Strongly Disagree      #> 14 Post   Strongly Agree           Strongly Agree         Disagree               #> 15 Post   Strongly Agree           Somewhat Disagree      Strongly Disagree      #> 16 Post   Disagree                 Disagree               Agree                  #> 17 Post   Strongly Agree           Agree                  Agree                  #> 18 Post   Strongly Agree           Strongly Agree         Disagree               #> 19 Post   Somewhat Disagree        Somewhat Agree         Agree                  #> 20 Post   Somewhat Agree           Strongly Agree         Strongly Disagree      #> # ℹ abbreviated names: #> #   ¹​`It's fair to expect students in this class to master these standards by the end of the year.`, #> #   ²​`One year is enough time for students in this class to master these standards.`, #> #   ³​`All students in my class can master the grade-level standards by the end of the year.` #> # ℹ 1 more variable: #> #   `The standards are appropriate for the students in this class.` <chr>"},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":null,"dir":"Reference","previous_headings":"","what":"Fake teacher roster dataset from OpenSDP — fake_county","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"Fake County synthetic panel dataset contains approximately 40,000 records comprising four years data roughly 10,000 teachers per year. dataset includes information teacher demographics, teaching assignments, salary, credentials, experience, evaluation scores, hiring retention status. also includes information school types average student characteristics school. real teachers dataset, based real data. Fake County developed offshoot Strategic Data Project's work human capital diagnostics school districts state education departments, can used teaching collaboration. data synthesized using R synthpop package.","code":""},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"","code":"fake_county"},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"data frame 39,339 rows 38 variables: tid double: Teacher ID fake_data double: Record Simulated school_year double: School Year school_code double: School Code school_name character: School Name t_male double: Teacher Male t_race_ethnicity double: Teacher Race/Ethnicity t_job_area double: Teacher Assignment Type t_salary double: Monthly Salary t_nbpts double: Teacher National Board Certification t_tenured double: Teacher Tenured t_experience double: Years Teaching Experience t_fte double: Teacher's FTE Status t_highest_degree double: Teacher's Highest Degree t_licensed_stem double: Teacher Licensed STEM Field t_eval_obs double: Evaluation Summary Observation Score t_eval_growth double: Evaluation Summary Student Growth Score t_stay double: Teacher School Following Year t_transfer double: Teacher Different School Following Year t_leave double: Teacher Teaching Fake County Schools Following Year t_novice double: Teacher Novice First-Year Teacher t_new_hire double: Teacher Teach Fake County Prior Year sch_elem double: School Elementary School sch_middle double: School Middle School sch_high double: School High School sch_alternative double: School Alternative School sch_regular double: School Regular School sch_title_1 double: School Title 1 School sch_magnet double: School Magnet School sch_vocational double: School Vocational School sch_region double: School Region Code sch_calendar_type double: School Calendar Type sch_iep_pct double: School Special Education Student Share 2012-15 sch_minority_pct double: School Minority Student Share 2012-15 sch_frpl_pct double: School Free Reduced Price Lunch Student Share 2012-15 sch_ela_avg double: School ELA Test Score Average 2012-15 (standard deviations) sch_math_avg double: School Math Test Score Average 2012-15 (standard deviations) sch_enroll_2015 double: School Enrollment 2015","code":""},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"https://github.com/OpenSDP/fake-county, posted Creative Commons license.","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":null,"dir":"Reference","previous_headings":"","what":"Create sequential figure numbers — figureN","title":"Create sequential figure numbers — figureN","text":"Create sequential figure numbers","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create sequential figure numbers — figureN","text":"","code":"figureN(x)"},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create sequential figure numbers — figureN","text":"x character string description figure","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Create sequential figure numbers — figureN","text":"nothing","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create sequential figure numbers — figureN","text":"","code":"# not run, in RMarkdown doc: `r figureN(\"Distribution of cars by cylinder count\")`  #"},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":null,"dir":"Reference","previous_headings":"","what":"Checks if a font family is usable and returns a usable font if not — get_usable_family","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"Helper function. Checks given family value available, returns default font family (\"sans\" user provided)","code":""},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"","code":"get_usable_family(family, silent = FALSE, default_family = \"sans\")"},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"family font family check character silent logical. TRUE raise warning font family unavailable default_family defaults \"sans\", can set another fallback family.","code":""},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"character usable font family","code":""},{"path":"https://tntp.github.io/tntpr/reference/header_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"Insert header_script_tntp. — header_tntp","title":"Insert header_script_tntp. — header_tntp","text":"Call function insert header 'TNTP R Shell.R'.","code":""},{"path":"https://tntp.github.io/tntpr/reference/header_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Insert header_script_tntp. — header_tntp","text":"","code":"header_tntp()"},{"path":"https://tntp.github.io/tntpr/reference/import_segoe_ui.html","id":null,"dir":"Reference","previous_headings":"","what":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","title":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","text":"option tntpr.loadfonts -- set TRUE -- call extrafont::loadfonts() register non-core fonts R PDF & PostScript devices. running Windows, package calls function register non-core fonts Windows graphics device.","code":""},{"path":"https://tntp.github.io/tntpr/reference/import_segoe_ui.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","text":"","code":"import_segoe_ui()"},{"path":"https://tntp.github.io/tntpr/reference/import_segoe_ui.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","text":"take care ensuring PDF/PostScript usage. location font directory displayed base import complete. highly recommended install system way font wish use programs.","code":""},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":null,"dir":"Reference","previous_headings":"","what":"Validate color inputs — is_color","title":"Validate color inputs — is_color","text":"Validate color inputs","code":""},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Validate color inputs — is_color","text":"","code":"is_color(x)"},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Validate color inputs — is_color","text":"x color","code":""},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Validate color inputs — is_color","text":"TRUE x can interpreted color","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert all labelled-class columns to factors. — labelled_to_factors","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"Deprecated. Use as_factor() function haven package instead functionality. Takes data.frame, checks columns class labelled haven package, converts factor class.","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"","code":"labelled_to_factors(labels_df)"},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"labels_df data.frame containing columns class labelled","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"Returns data.frame.","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"","code":"tntpr::fake_county |>   haven::as_factor() #> # A tibble: 39,339 × 38 #>       tid fake_data school_year school_code school_name  t_male t_race_ethnicity #>     <dbl>     <dbl>       <dbl>       <dbl> <chr>        <fct>  <fct>            #>  1 100001         1        2014     1303122 Birch Middle Male   African American #>  2 100001         1        2015     1303122 Birch Middle Male   African American #>  3 100002         1        2012     1301958 Kingside Hi… Female White            #>  4 100002         1        2013     1301958 Kingside Hi… Female White            #>  5 100002         1        2014     1301958 Kingside Hi… Female White            #>  6 100002         1        2015     1301958 Kingside Hi… Female White            #>  7 100003         1        2012     1301575 Eliot Eleme… Female White            #>  8 100003         1        2013     1301575 Eliot Eleme… Female White            #>  9 100003         1        2014     1301575 Eliot Eleme… Female White            #> 10 100004         1        2012     1300549 Junction Hi… Male   White            #> # ℹ 39,329 more rows #> # ℹ 31 more variables: t_job_area <fct>, t_salary <dbl>, t_nbpts <dbl>, #> #   t_tenured <dbl>, t_experience <dbl>, t_fte <dbl>, t_highest_degree <fct>, #> #   t_licensed_stem <dbl>, t_eval_obs <fct>, t_eval_growth <fct>, t_stay <dbl>, #> #   t_transfer <dbl>, t_leave <dbl>, t_novice <dbl>, t_new_hire <dbl>, #> #   sch_elem <dbl>, sch_middle <dbl>, sch_high <dbl>, sch_alternative <dbl>, #> #   sch_regular <dbl>, sch_title_1 <dbl>, sch_magnet <dbl>, …"},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":null,"dir":"Reference","previous_headings":"","what":"Pallette names — palette_names","title":"Pallette names — palette_names","text":"list palette names superseded new brand colors new functions tntp_colors() tntp_palette(). see new brand palettes, use show_tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Pallette names — palette_names","text":"","code":"palette_names"},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Pallette names — palette_names","text":"object class character length 7.","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Pallette names — palette_names","text":"","code":"if (FALSE) { show_tntp_palette() }"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP branded color palettes — palette_tntp","title":"TNTP branded color palettes — palette_tntp","text":"function superseded tntp_colors() improved functionality includes recent TNTP brand colors. function creates user defined color palette combinations eleven colors. nine TNTP approved colors: dark_blue, medium_blue, light_blue, green, orange, gold, dark_grey (dark_gray), medium_grey (medium_gray), light_grey (light_gray). White black also available.","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP branded color palettes — palette_tntp","text":"","code":"palette_tntp(...)"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP branded color palettes — palette_tntp","text":"... supply quoted color names include color palette","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP branded color palettes — palette_tntp","text":"","code":"library(ggplot2)  pal1_tntp <- tntp_colors(\"green\", \"gold\", \"orange\") pal2_tntp <- tntp_colors(\"navy\", \"cerulean\", \"sky\")  p <- ggplot(mtcars, aes(wt, mpg)) p <- p + geom_point(aes(colour = factor(cyl))) p   # Change colors to created palette p <- p + scale_color_manual(values = pal1_tntp) p   g <- ggplot(mtcars, aes(factor(cyl), mean(mpg))) g <- g + geom_bar(aes(fill = factor(cyl)), stat = \"identity\") g   # Change fill to created palette g <- g + scale_fill_manual(values = pal2_tntp) g"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp_scales.html","id":null,"dir":"Reference","previous_headings":"","what":"scale_palette_tntp — palette_tntp_scales","title":"scale_palette_tntp — palette_tntp_scales","text":"function superseded tntp_palette() includes new brand colors.","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp_scales.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"scale_palette_tntp — palette_tntp_scales","text":"","code":"palette_tntp_scales(palette = palette_names)"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp_scales.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"scale_palette_tntp — palette_tntp_scales","text":"palette palette","code":""},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":null,"dir":"Reference","previous_headings":"","what":"Attempt to parse a date with common formats — parse_date","title":"Attempt to parse a date with common formats — parse_date","text":"Helper function date_to_sy. Returns date object , noisily attempts parse string form YYYY-MM-DD MM/DD/YYYY. date parsed, throws error.","code":""},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Attempt to parse a date with common formats — parse_date","text":"","code":"parse_date(date)"},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Attempt to parse a date with common formats — parse_date","text":"date character Date vector parse","code":""},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Attempt to parse a date with common formats — parse_date","text":"Date vector","code":""},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"Calculate percent non-missing values character vector containing values interest.  helper function factorize_df().","code":""},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"","code":"prop_matching(vec, valid_strings, ignore.case = FALSE)"},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"vec character vector. valid_strings values variable can possibly take . ignore.case TRUE, ignores case matching","code":""},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"numeric proportion 0 1.","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":null,"dir":"Reference","previous_headings":"","what":"Recode a variable into binary groups, e.g., ","title":"Recode a variable into binary groups, e.g., ","text":"Recodes character variable binary result, two-level factor.  values matching supplied character strings to_match vector coded first level factor; values coded level.  NA remains NA.  default factor labels \"Selected\"  \"selected\" can overridden. recoding case-sensitive; specify \"agree\" top-2 value, \"Agree\" counted Top-2, vice versa.","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Recode a variable into binary groups, e.g., ","text":"","code":"recode_to_binary(   x,   to_match = c(\"strongly agree\", \"agree\"),   label_matched = \"Selected\",   label_unmatched = \"Not selected\" )"},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Recode a variable into binary groups, e.g., ","text":"x character factor vector recoded to_match character vector strings put first level factor.  Defaults \"strongly agree\" \"agree\" can overwritten. label_matched factor label values match strings specified to_match?  Defaults \"Selected\" label_unmatched factor label values match strings specified to_match?  Defaults \"selected\".","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Recode a variable into binary groups, e.g., ","text":"factor variable (nicer ordering calls janitor::tabyl) values mapped two levels.","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Recode a variable into binary groups, e.g., ","text":"","code":"agreement <- c(   \"Strongly agree\", \"Agree\", \"Somewhat agree\",   \"Somewhat disagree\", \"Strongly disagree\", \"Frogs\", NA )  recode_to_binary(agreement) # default values of \"strongly agree\" and \"agree\" are used for recoding #> [1] Selected     Selected     Not selected Not selected Not selected #> [6] Not selected <NA>         #> Levels: Selected Not selected recode_to_binary(agreement,   label_matched = \"Top-2 Agree\",   label_unmatched = \"Not in Top-2\" ) # custom labels of factor levels #> [1] Top-2 Agree  Top-2 Agree  Not in Top-2 Not in Top-2 Not in Top-2 #> [6] Not in Top-2 <NA>         #> Levels: Top-2 Agree Not in Top-2 recode_to_binary(agreement, \"frogs\") #> [1] Not selected Not selected Not selected Not selected Not selected #> [6] Selected     <NA>         #> Levels: Selected Not selected recode_to_binary(   agreement,   \"frogs\",   \"FROGS!!!\",   \"not frogs\" ) # custom matching values & labels of factor levels #> [1] not frogs not frogs not frogs not frogs not frogs FROGS!!!  <NA>      #> Levels: FROGS!!! not frogs  freq <- c(\"always\", \"often\", \"sometimes\", \"never\") recode_to_binary(freq, \"always\", \"always\", \"less than always\") #> [1] always           less than always less than always less than always #> Levels: always less than always"},{"path":"https://tntp.github.io/tntpr/reference/scale_colour_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","title":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","text":"function deprecated. Please use scale_color_manual(values = tntp_palette(palette_name)) instead","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_colour_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","text":"","code":"scale_colour_tntp(palette = palette_names, drop = FALSE, ...)  scale_color_tntp(palette = palette_names, drop = FALSE, ...)"},{"path":"https://tntp.github.io/tntpr/reference/scale_colour_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","text":"palette character string describing desired palette drop drop ... arguments pass ggplot2::discrete_scale()","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"scale_fill_tntp — scale_fill_tntp","title":"scale_fill_tntp — scale_fill_tntp","text":"function deprecated. Please use scale_fill_manual(values = tntp_palette(palette_name)) instead","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"scale_fill_tntp — scale_fill_tntp","text":"","code":"scale_fill_tntp(palette = palette_names, drop = FALSE, ...)"},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"scale_fill_tntp — scale_fill_tntp","text":"palette One : \"default\", \"likert_4pt\", \"likert_5pt\", \"likert_6pt\", \"colors_tntp_old\" drop drop ... additional arguments passed ggplot2::discrete_scale()","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"scale_fill_tntp — scale_fill_tntp","text":"","code":"library(ggplot2) library(dplyr)  x <- mtcars %>%   count(cyl, am) %>%   mutate(am = as.factor(am))  ggplot(x, aes(x = cyl, y = n, fill = am)) + # you need a fill aesthetic   geom_col() +   scale_fill_manual(values = tntp_palette())"},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":null,"dir":"Reference","previous_headings":"","what":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"internal function calls standard formatting options Data Memo RMarkdown template moved keep actual memo template cleaner easier use","code":""},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"","code":"set_data_memo_formatting()"},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"nothing","code":""},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"","code":"# not run: set_data_memo_formatting()"},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":null,"dir":"Reference","previous_headings":"","what":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"Create new repository Bitbucket, set working directory folder run function.  set main repo folder well single subfolder can work immediate project. must specify subfolder name well long name associated project analyst(s) working .  latter two values used create README.Md file.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"","code":"setup_repo(subfolder, proj_name, analyst_name)"},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"subfolder character vector containing concise name project subfolder. E.g., repository name city \"Anywhere City\", project subfolder might \"ela_access\" \"aps_talent_landscape\"). proj_name longer, full name subfolder project.  appear subfolder's README.md file.  E.g., \"Access Grade-Level ELA Content Pilot.\" analyst_name name(s) analysts currently working subfolder project.  appear subfolder's README.md file.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"","code":"# After the user has created a repository \"Anywhere City\" and set their working # directory to that folder: ## not run # setup_repo(\"ela_access\", # \"Access to Grade-Level ELA Content\", # \"Dustin Pashouwer and Sam Firke\")"},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":null,"dir":"Reference","previous_headings":"","what":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"repository might represent region, like \"Anywhere City\", major client contract, like \"Midwestern Charter Network. Within repo subfolder analysis project. function creates subfolder populates folders README. use: within existing repository Bitbucket, set working directory folder run function create sub-folder. Use setup_repo() blank new repository add first project subfolder create RProject .gitignore files.  Add subsequent analysis project folders function.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"","code":"setup_subdirectory(subfolder, proj_name, analyst_name)"},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"subfolder character vector containing concise name project subfolder. E.g., repository name city \"Anywhere City\", project subfolder might \"ela_access\" \"aps_talent_landscape\"). proj_name longer, full name subfolder project.  appear subfolder's README.md file. analyst_name name(s) analysts currently working subfolder project.  appear subfolder's README.md file.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"","code":"# When there's already a repository \"Anywhere City\" with an RProject and a .gitignore # and a new project analysis subfolder is needed within that repo: ## not run # setup_subdirectory(\"ela_access\", # \"Equitable Access to Grade-Level ELA\", # \"Dustin Pashouwer and Sam Firke\")"},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":null,"dir":"Reference","previous_headings":"","what":"Write datatable to temp excel file and open it. — show_in_excel","title":"Write datatable to temp excel file and open it. — show_in_excel","text":"Write datatable temp excel file open .","code":""},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Write datatable to temp excel file and open it. — show_in_excel","text":"","code":"show_in_excel(.data)"},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Write datatable to temp excel file and open it. — show_in_excel","text":".data Dataframe","code":""},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Write datatable to temp excel file and open it. — show_in_excel","text":"Returns data.frame.","code":""},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":null,"dir":"Reference","previous_headings":"","what":"Update case of a character vector — standardize_case","title":"Update case of a character vector — standardize_case","text":"Helper function factorize_df(). Returns vector length vec, values match values valid_strings updated case valid_strings","code":""},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Update case of a character vector — standardize_case","text":"","code":"standardize_case(vec, new_case)"},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Update case of a character vector — standardize_case","text":"vec character vector want update new_case character vector correctly cased strings","code":""},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Update case of a character vector — standardize_case","text":"character vector length vec","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":null,"dir":"Reference","previous_headings":"","what":"Create sequential table numbers — tableN","title":"Create sequential table numbers — tableN","text":"Create sequential table numbers","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create sequential table numbers — tableN","text":"","code":"tableN(x)"},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create sequential table numbers — tableN","text":"x character string description figure","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Create sequential table numbers — tableN","text":"nothing","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create sequential table numbers — tableN","text":"","code":"# not run, in RMarkdown doc: `r tableN(\"Distribution of cars by cylinder count\")`"},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":null,"dir":"Reference","previous_headings":"","what":"Teacher survey data — teacher_survey","title":"Teacher survey data — teacher_survey","text":"Simulated teacher survey data. Data includes teh four TNTP high expectations questions.","code":""},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Teacher survey data — teacher_survey","text":"","code":"teacher_survey"},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Teacher survey data — teacher_survey","text":"## `teacher survey` data frame 5 columns 20 rows. five columns `timing` column, followed four column four high expectations questions. Responses 'strongly agree' strongly disagree' 6-point scale.","code":""},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Teacher survey data — teacher_survey","text":"simulated `data-raw/teacher_survey.R`","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP's ggplot2 theme — theme_tntp","title":"TNTP's ggplot2 theme — theme_tntp","text":"theme superseded [tntp_style()]. Ggplot2 theme customized TNTP aesthetics","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP's ggplot2 theme — theme_tntp","text":"","code":"theme_tntp(   show_legend_title = TRUE,   base_size = 12,   base_family = \"Segoe UI\",   grid_color = \"grey93\",   title_align = \"center\",   title_color = \"black\",   title_size = 12,   subtitle_align = \"center\",   subtitle_color = \"black\",   subtitle_size = 12,   caption_align = \"right\",   caption_color = \"black\",   caption_size = 12 )"},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP's ggplot2 theme — theme_tntp","text":"show_legend_title logical. legend title shown?  Leave TRUE want change legend title subsequent line + labs(...). base_size base font size base_family base font family grid_color color major gridlines title_align alignment main title, defaults \"center\"; also accepts \"left\" \"right\" title_color color title text title_size size title text subtitle_align alignment sub-title, defaults \"center\"; also accepts \"left\" \"right\" subtitle_color color subtitle text subtitle_size size subtitle text caption_align alignment caption, defaults \"right\"; also accepts \"left\" \"center\" caption_color color caption text caption_size size caption text","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":null,"dir":"Reference","previous_headings":"","what":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"theme superseded tntp_style().","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"","code":"theme_tntp_2018(   base_family = \"Segoe UI\",   base_size = 11.5,   plot_title_family = base_family,   plot_title_size = 18,   plot_title_face = \"bold\",   plot_title_margin = 10,   subtitle_family = base_family,   subtitle_size = 12,   subtitle_face = \"plain\",   subtitle_margin = 15,   strip_text_family = base_family,   strip_text_size = 12,   strip_text_face = \"plain\",   caption_family = base_family,   caption_size = 9,   caption_face = \"italic\",   caption_margin = 10,   axis_text = TRUE,   axis_text_size = base_size,   axis_title_family = subtitle_family,   axis_title_size = 9,   axis_title_face = \"plain\",   axis_title_just = \"rt\",   plot_margin = ggplot2::margin(30, 30, 30, 30),   grid_col = \"grey93\",   grid = TRUE,   axis_col = \"#cccccc\",   axis = FALSE,   ticks = FALSE )"},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"base_family, base_size base font family size plot_title_family, plot_title_face, plot_title_size, plot_title_margin plot title family, face, size margi subtitle_family, subtitle_face, subtitle_size plot subtitle family, face size subtitle_margin plot subtitle margin bottom (single numeric value) strip_text_family, strip_text_face, strip_text_size facet label font family, face size caption_family, caption_face, caption_size, caption_margin plot caption family, face, size margin axis_text add x y axes text? X, Y axis_text_size font size axis text axis_title_family, axis_title_face, axis_title_size axis title font family, face size axis_title_just axis title font justification, one [blmcrt] plot_margin plot margin (specify ggplot2::margin()) grid_col, axis_col grid & axis colors; default #cccccc grid panel grid (TRUE, FALSE, combination X, x, Y, y) axis add x y axes? TRUE, FALSE, \"xy\" ticks ticks TRUE add ticks","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"building-upon-theme-tntp","dir":"Reference","previous_headings":"","what":"Building upon theme_tntp","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"function setup way can customize one just wrapping call changing parameters. See source examples.","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"gotchas","dir":"Reference","previous_headings":"","what":"Gotchas","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"distinctions font names various devices. Names work display graphics devices bitmap ones png may work well PostScript PDF ones. may need two versions font-based theme function work particular situation. situation usually arises using newer font many weights somewhat irregular internal font name patterns. option hrbrthemes.loadfonts -- set TRUE -- call extrafont::loadfonts() register non-core fonts R PDF & PostScript devices. running Windows, package calls function register non-core fonts Windows graphics device.","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"","code":"if (FALSE) { library(ggplot2) library(dplyr)  # seminal scatterplot ggplot(mtcars, aes(mpg, wt)) +   geom_point() +   labs(     x = \"Fuel effiiency (mpg)\", y = \"Weight (tons)\",     title = \"Seminal ggplot2 scatterplot example\",     subtitle = \"A plot that is only useful for demonstration purposes\",     caption = \"Brought to you by the letter 'g'\"   ) +   theme_ipsum()  # seminal bar chart  update_geom_font_defaults()  count(mpg, class) %>%   ggplot(aes(class, n)) +   geom_col() +   geom_text(aes(label = n), nudge_y = 3) +   labs(     x = \"Fuel efficiency (mpg)\", y = \"Weight (tons)\",     title = \"Seminal ggplot2 bar chart example\",     subtitle = \"A plot that is only useful for demonstration purposes\",     caption = \"Brought to you by the letter 'g'\"   ) +   theme_ipsum(grid = \"Y\") +   theme(axis.text.y = element_blank()) }"},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP Brand Colors — tntp_colors","title":"TNTP Brand Colors — tntp_colors","text":"Translate human friendly TNTP brand color names like \"medium_blue\" accurate hex values use plotting. function can also used show named vector available TNTP brand colors values. Use show_tntp_colors() quickly visualize selected colors plot window. often used palettes TNTP colors, see tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP Brand Colors — tntp_colors","text":"","code":"tntp_colors(...)  show_tntp_colors(   ...,   pattern = NULL,   labels = TRUE,   borders = NULL,   cex_label = 1,   ncol = NULL )"},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP Brand Colors — tntp_colors","text":"... Supply quoted TNTP color names return. colors specified, returns available colors. pattern Optional regular expression. provided, return brand colors match regular expression labels Logical. Label colors names hex values? borders Border color tile. Default uses par(\"fg\"). Use border = NA omit borders. cex_label Size printed labels, multiplier default size. ncol Number columns. supplied, tries square possible.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP Brand Colors — tntp_colors","text":"","code":"library(ggplot2)  # Use tntp_colors() to retrieve a single color... ggplot(mtcars, aes(wt, mpg)) +   geom_point(color = tntp_colors('green'))   #... multiple colors ... ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +   geom_point() +   scale_color_manual(values = tntp_colors('green', 'navy', 'red'))   #... or a list of all possible TNTP brand colors tntp_colors() #>                mint|light_green gray|grey|light_gray|light_grey  #>                       \"#E2EDDC\"                       \"#F1F1EE\"  #>                           white                           black  #>                       \"#FFFFFF\"                       \"#000000\"  #>            yellow|medium_yellow                       navy|blue  #>                       \"#FDE57B\"                       \"#00355F\"  #>                  pink|light_red                             red  #>                       \"#FDDACA\"                       \"#C31F46\"  #>                           green    charcoal|dark_gray|dark_grey  #>                       \"#317D5C\"                       \"#4A4A4A\"  #>                tangerine|orange               salmon|medium_red  #>                       \"#F26C4C\"                       \"#DA8988\"  #>                            gold               moss|medium_green  #>                       \"#F2CF13\"                       \"#8FB09D\"  #>                  sky|light_blue            cerulean|medium_blue  #>                       \"#81D3EB\"                       \"#00A5C7\"  #>                    light_yellow         medium_gray|medium_grey  #>                       \"#FAEDB8\"                       \"#9E9E9C\"  #>                       dark_gold                      dark_green  #>                       \"#C2A60A\"                       \"#1D4935\"  #>                        dark_red                         green_4  #>                       \"#7C132C\"                       \"#60977D\"  #>                         green_2                          blue_4  #>                       \"#B9CFBD\"                       \"#006D93\"  #>                          blue_2                           red_4  #>                       \"#41BCD9\"                       \"#CF5467\"  #>                           red_2                        yellow_4  #>                       \"#ECB2A9\"                       \"#F8DA47\"  #>                        yellow_2                   gray_4|grey_4  #>                       \"#FCE99A\"                       \"#747473\"  #>                   gray_2|grey_2  #>                       \"#C7C7C5\"   # Use show_tntp_colors() to quickly see brand colors in the plotting window show_tntp_colors('mint', 'moss', 'green')   # You can also use a pattern to return similar colors show_tntp_colors(pattern = 'green')   # You can see all colors (and names) by running it with no arguments show_tntp_colors()"},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP Credential Get/Set Command — tntp_cred","title":"TNTP Credential Get/Set Command — tntp_cred","text":"wrapper around keyring package secure credential management. tntp_cred() attempt get credential, credential found prompt add (return ). tntp_cred_set() set credential. default prompt overwriting current credentials. tntp_cred_list() list current credentials sorted service username.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP Credential Get/Set Command — tntp_cred","text":"","code":"tntp_cred(service, username = NULL, keyring = NULL, prompt = NULL)  tntp_cred_set(   service = NULL,   username = NULL,   keyring = NULL,   prompt = NULL,   overwrite = NULL )  tntp_cred_list(service = NULL, keyring = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP Credential Get/Set Command — tntp_cred","text":"service identifier credential pulling setting username OPTIONAL. Can used specify different usernames service keyring OPTIONAL. Can used specify specific keyring prompt OPTIONAL. text displayed input box key setting? overwrite OPTIONAL. default, tntp_cred_set() prompt finds credential already saved. Set TRUE overwrite without prompting FALSE throw error current credential found.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"TNTP Credential Get/Set Command — tntp_cred","text":"stored (newly created) credential","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP Credential Get/Set Command — tntp_cred","text":"","code":"if (FALSE) { # Using tntp_cred() with qualtRics library(qualtRics)  # If no credential is set, this command will prompt for it first qualtrics_token <- tntp_cred(\"QUALTRICS_TOKEN\") qualtrics_api_credentials(api_key = qualtrics_token,                           base_url = 'tntp.co1.qualtrics.com')  # To overwrite your Qualtrics credential tntp_cred(\"QUALTRICS_TOKEN\", .set = TRUE) }"},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":null,"dir":"Reference","previous_headings":"","what":"Common TNTP Color Palettes — tntp_palette","title":"Common TNTP Color Palettes — tntp_palette","text":"Use see","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Common TNTP Color Palettes — tntp_palette","text":"","code":"tntp_palette(palette = \"likert_6\", reverse = FALSE)  show_tntp_palette(..., reverse = FALSE, pattern = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Common TNTP Color Palettes — tntp_palette","text":"palette Name TNTP palette want use. see available palettes, use show_tntp_palette() reverse Logical. set TRUE, reverses direction palette. ... Supply quoted TNTP palette names visualize. names specified, shows available palettes. pattern Optional regular expression. provided, return palettes match regular expression","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Common TNTP Color Palettes — tntp_palette","text":"","code":"library(ggplot2)  # Use to add a common palette to a ggplot visualization ggplot(diamonds, aes(y = color, fill = cut)) +   geom_bar(position = \"fill\") +   scale_fill_manual(values = tntp_palette('blues', reverse = TRUE))    # Use show_tntp_palette() to visualize a single or multiple palettes show_tntp_palette('likert_7')  show_tntp_palette('bg_5', 'likert_5')   # You can use a pattern to show similar palettes show_tntp_palette(pattern = 'top2')  show_tntp_palette(pattern = '_6')   # Or run it with no specified palettes to see all available palettes show_tntp_palette()   # For creating a continuous color palette, use scale_color_gradient() # along with tntp_colors(): ggplot(mtcars, aes(hp, disp, color = mpg)) +   geom_point(size = 3) +   scale_color_gradient(low = tntp_colors('red'),                        high = tntp_colors('green'))"},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":null,"dir":"Reference","previous_headings":"","what":"Create TNTP themed ggplot2 charts — tntp_style","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"custom theme including TNTP fonts defaults styling ggplot2 charts.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"","code":"tntp_style(   family = \"Halyard Display\",   header_family = family,   base_size = 28,   text_color = \"#222222\",   caption_color = \"#7D7E81\",   show_legend_title = FALSE,   show_axis_titles = FALSE,   grid = FALSE,   grid_color = \"#CBCBCB\",   title_align = \"left\",   legend_align = \"left\",   caption_align = \"right\" )"},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"family Base font family. Defaults \"Halyard Display\". header_family Font family title subtitle. Defaults base font family. base_size Base font size. Recommended minimum value 15. text_color Text color titles, axes, legends, facets. caption_color Text color caption. show_legend_title Logical. legend title shown?  Leave TRUE want change legend title subsequent line + labs(...). show_axis_titles axis titles shown? Use TRUE FALSE toggle titles, x y show just axis title. grid grid lines shown? Use TRUE FALSE toggle grid lines, string combination X, x, Y, y major minor x y grid lines. grid_color Grid line color. title_align, legend_align, caption_align Alignment title, legend, caption. Accepts left, right, center.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"","code":"if (FALSE) { library(tntpr) library(dplyr) library(ggplot2)  fake_county |>   filter(t_salary > 0) |>   ggplot(aes(t_experience, t_salary)) +   geom_point() +   scale_y_continuous(labels = scales::dollar) +   labs(     title = \"Salary Increases with Experience\",     subtitle = \"With significant variation at all levels\",     x = \"Years of Experience\",     caption = \"Data from the Fake County Data Set\"   ) +   tntp_style(show_axis_titles = \"x\")  frpl_experience <- fake_county |>   mutate(frpl_bucket = cut(sch_frpl_pct,     breaks = c(0, 20, 40, 60, 80, 100),     labels = c(\"0-20%\", \"20-40%\", \"40-60%\", \"60-80%\", \"80-100%\")   )) |>   group_by(frpl_bucket) |>   summarize(avg_experience = mean(t_experience, na.rm = TRUE)) |>   mutate(     label = as.character(round(avg_experience, digits = 1)),     label = if_else(frpl_bucket == \"0-20%\", paste0(label, \"\\nYears of\\nExperience\"), label)   )  frpl_experience |>   ggplot(aes(frpl_bucket, avg_experience)) +   geom_col(fill = if_else(frpl_experience$frpl_bucket == \"60-80%\",     tntp_colors(\"tangerine\"),     tntp_colors(\"medium_gray\")   )) +   geom_text(aes(label = label),     nudge_y = -0.25, vjust = 1,     color = \"white\", size = 5, lineheight = 1,     family = \"Segoe UI\"   ) +   labs(     title = \"High Poverty Schools have Less Experienced Teachers\",     x = \"% of Student Body Receiving Free/Reduced Lunch\"   ) +   scale_y_continuous(breaks = seq(0, 20, 4)) +   tntp_style(     base_size = 20,     show_axis_titles = \"x\"   ) }"},{"path":"https://tntp.github.io/tntpr/reference/tntpr.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Analysis Tools Customized for TNTP — tntpr","title":"Data Analysis Tools Customized for TNTP — tntpr","text":"-house TNTP R package. Includes tools data manipulation, analysis, reporting, including making TNTP-themed charts documents. TNTP data-using staff, though available broader public.","code":""},{"path":[]},{"path":"https://tntp.github.io/tntpr/reference/update_geom_font_defaults.html","id":null,"dir":"Reference","previous_headings":"","what":"Update matching font defaults for text geoms — update_geom_font_defaults","title":"Update matching font defaults for text geoms — update_geom_font_defaults","text":"Updates [ggplot2::geom_label] [ggplot2::geom_text] font defaults","code":""},{"path":"https://tntp.github.io/tntpr/reference/update_geom_font_defaults.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Update matching font defaults for text geoms — update_geom_font_defaults","text":"","code":"update_geom_font_defaults(   family = \"Segoe UI\",   face = \"plain\",   size = 3.5,   color = \"#2b2b2b\" )"},{"path":"https://tntp.github.io/tntpr/reference/update_geom_font_defaults.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Update matching font defaults for text geoms — update_geom_font_defaults","text":"family, face, size, color font family name, face, size color","code":""},{"path":"https://tntp.github.io/tntpr/reference/update_tntpr.html","id":null,"dir":"Reference","previous_headings":"","what":"Re-install the tntpr package from GitHub. — update_tntpr","title":"Re-install the tntpr package from GitHub. — update_tntpr","text":"Re-install tntpr package GitHub.","code":""},{"path":"https://tntp.github.io/tntpr/reference/update_tntpr.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Re-install the tntpr package from GitHub. — update_tntpr","text":"","code":"update_tntpr()"},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":null,"dir":"Reference","previous_headings":"","what":"Fake student data from the Wisconsin State Dept. of Ed — wisc","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"generated data set containing data 1200 imaginary individual K-12 students Wisconsin.  nested within 6 schools 3 districts.  adapting source, Sam switched school district variables (multiple districts per school) made minor changes, including dropping columns understand seem relevant (e.g., variables like \"luck\" used calculate reading math scores).","code":""},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"","code":"wisc"},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"data frame 2700 rows 26 variables: student_id numeric: student's unique ID # grade numeric: grade level district numeric: district code school numeric: school code white numeric: student white? black numeric: student black? hisp numeric: student Hispanic? indian numeric: student Native-American Indian? asian numeric: student Asian? econ numeric: student economically-disadvantaged? female numeric: student female? ell numeric: student English Language Learner? disab numeric: student learning disability? year numeric: school year attday numeric: days attended readSS numeric: student's reading standardized test score mathSS numeric: student's math standardized test score proflvl factor: student's proficiency level race factor: student's single-category race","code":""},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"https://github.com/jknowles/r_tutorial_ed/, posted Creative Commons license. script used generate data set , although well documented: https://github.com/jknowles/r_tutorial_ed/blob/master/data/simulate_data.R","code":""}]
+[{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"how-to-create-tntp-style-graphics","dir":"Articles","previous_headings":"","what":"How to create TNTP style graphics","title":"TNTP Visualization Cookbook","text":"TNTP data team, developed R package R cookbook make process creating publication-ready graphics -house style using R’s ggplot2 library reproducible process, well making easier people new R create graphics. ’ll get can put together various elements graphics, let’s get admin way first…","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"install-the-tntpr-package","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Install the tntpr package","title":"TNTP Visualization Cookbook","text":"tntpr CRAN, install directly Github using devtools. devtools package installed, run first line code well. command also work updating tntpr already installed.","code":"# install.packages('devtools') devtools::install_github('tntp/tntpr')"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"load-all-the-libraries-you-need","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Load all the libraries you need","title":"TNTP Visualization Cookbook","text":"steps cookbook - create charts R general - require certain packages installed loaded. use following packages.","code":"# NOTE: We are not simply loading `tidyverse` in this vignette due to how vignettes # are built to create the documentation website. In other contexts, however, we # would simply use `library(tidyverse)` instead of loading many of the packages individually. library(tntpr) library(ggplot2) library(dplyr) library(tidyr) library(purrr) library(stringr) library(forcats) library(ggalt) library(ggridges)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"creating-plots-with-tntp_style","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Creating plots with tntp_style()","title":"TNTP Visualization Cookbook","text":"tntpr package contains function tntp_style(). add TNTP’s custom ggplot2 theme plots controls items like fonts, font size, titles axis labels, tick marks, gridlines, legend. function ensures maintain consistency across org look plots. Plus, style created design team ensure look aesthetically pleasing. function contains parameters users can adjust items font, font size, text colors, title legend position, whether show legend title, axis title, grid lines. parameters default values users need set . Consult function’s documentation ?tntp_style information parameters. Note colors lines case line chart bars bar chart, come box tntp_style() function, need explicitly set standard ggplot chart functions.","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"example-with-tntp_style","dir":"Articles","previous_headings":"How to create TNTP style graphics > Creating plots with tntp_style()","what":"Example with tntp_style()","title":"TNTP Visualization Cookbook","text":"quick example using tntp_style() theme.","code":"# base plot we will reuse in this section plt <- ggplot(ggplot2::mpg, aes(displ, hwy)) +   geom_point() +   labs(     title = 'Cars with higher displacement\\nhave a lower MPG',     subtitle = 'Displacement vs. MPG',     caption = \"Data from ggplot's mpg dataset\",     x = 'Engine Displ.',     y = 'MPG'   )  plt +   tntp_style()"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"setting-font-family-and-font-sizes","dir":"Articles","previous_headings":"How to create TNTP style graphics > Creating plots with tntp_style()","what":"Setting font family and font sizes","title":"TNTP Visualization Cookbook","text":"highlight two parameters tntp_style() can help customize plot. family family parameter lets set text font family. changes font family items, including plot axis titles, legend titles text, axis text. parameter defaults ‘Halyard Display’, TNTP’s font style, uses ‘sans’ ‘Halyard Display’ available. receive warning specified font found. can also specify separate header font using header_family parameter. need manually import additional fonts, including Halyard fonts, using extrafont package available R. Follow steps import fonts: Download Halyard Display Fonts .ttf forms Data Analytics Sharepoint Document Library “Fonts” category. Open fonts folder laptop (Settings -> Personalization -> Fonts) drag drop Halyard Fonts install computer. RStudio, install extrafont package install.packages('extrafont). Import fonts extrafont database extrafont::font_import(). needs done . process long, can significantly shortened importing Halyard fonts using extrafont::font_import(pattern = 'Halyard'). Register extra fonts R using extrafont::loadfonts(). needs done R session, done automatically loading tntpr library. can check see fonts available R windowsFonts() Windows quartzFonts() Mac. base_size tntp_style() function allows parameter called base_size controls font sizes. default value 28 recommended minimum 15. number represents plot title’s font size. font sizes, subtitles, axis labels text, legend labels text also adjusted based base_size value. font sizes base_size set default 28: Plot title: 28 Plot subtitle: 22.4 Caption: 11.2 Axis title: 16.8 Axis text: 16.8","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"further-customizing-plots-outside-tntp_style","dir":"Articles","previous_headings":"How to create TNTP style graphics > Creating plots with tntp_style()","what":"Further customizing plots outside tntp_style()","title":"TNTP Visualization Cookbook","text":"tntp_style() adds TNTP’s ggplot2 theme plot. Users needing customization can stack themes adding additional theme() layer adding tntp_style(). example, following plot sets font ‘sans’ font size 20 tntp_style(). manually changes subtitle font ‘serif’ subtitle size 25 additional theme(). Please don’t use combination real plot!  can also add theme elements coincide parameter tntp_style(). example, add border around plot theme element.  see available settings can adjust theme element, see documentation ?theme.","code":"plt +   tntp_style(show_axis_titles = TRUE, family = 'sans', base_size = 20) +   theme(plot.subtitle = ggplot2::element_text(family = 'serif', size = 25)) plt +   tntp_style(show_axis_titles = TRUE) +   theme(panel.border = element_rect(color = \"black\", fill = NA))"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"using-tntp-brand-colors","dir":"Articles","previous_headings":"How to create TNTP style graphics","what":"Using TNTP brand colors","title":"TNTP Visualization Cookbook","text":"tntpr package includes functions allow easily use TNTP brand colors visualizations.","code":""},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"colors","dir":"Articles","previous_headings":"How to create TNTP style graphics > Using TNTP brand colors","what":"Colors","title":"TNTP Visualization Cookbook","text":"primary function ’ll use tntp_colors(), takes human-friendly color names arguments returns character vector equivalent hex codes: companion function show_tntp_colors(), make quick display given colors plot window.  can also use show_tntp_colors() color arguments display available colors names:","code":"tntp_colors(\"green\", \"mint\") #> [1] \"#317D5C\" \"#E2EDDC\" show_tntp_colors('green', 'moss', 'mint') # Note: the cex_label parameter is used to adjust the relative font size show_tntp_colors(cex_label = 0.7)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"palettes","dir":"Articles","previous_headings":"How to create TNTP style graphics > Using TNTP brand colors","what":"Palettes","title":"TNTP Visualization Cookbook","text":"color palettes used frequently visualizations. tntp_palette() function allows access pre-determined palettes easily: Palettes can reversed setting reverse = TRUE, can quickly displayed using show_tntp_palette() function:  list visualization pre-set palettes, run function arguments:  example plots show incorporate functions ggplot2 visualizations.","code":"tntp_palette(\"likert_6\") #> [1] \"#C2A60A\" \"#F2CF13\" \"#FDE57B\" \"#8FB09D\" \"#317D5C\" \"#1D4935\" show_tntp_palette(\"likert_6\", reverse = TRUE) show_tntp_palette()"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"example-plots","dir":"Articles","previous_headings":"","what":"Example Plots","title":"TNTP Visualization Cookbook","text":"now show examples plots frequently use TNTP using fake data set tntpr package. Let’s first load clean data set. lower font size plots 16.","code":"# load fake data into global environment # remove all salaries of 0 county_data <- tntpr::fake_county |>    filter(t_salary > 0)  avg_salary <- county_data |>    filter(t_salary != 0) |>    group_by(school_year) |>    summarize(avg_salary = mean(t_salary, na.rm = TRUE), .groups = \"drop\") base_font_size <- 16"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-line-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a line chart","title":"TNTP Visualization Cookbook","text":"","code":"#Make plot ggplot(avg_salary, aes(x = school_year, y = avg_salary)) +   geom_line(colour = tntp_colors(\"green\"), linewidth = 1) +   scale_y_continuous(labels = scales::dollar, limits = c(0, 5000)) +   labs(     title=\"Average Teacher Salaries\",     subtitle = \"Teacher salaries remained constant between 2012 and 2015\"   ) +     tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-multiple-line-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a multiple line chart","title":"TNTP Visualization Cookbook","text":"Note multiple line chart, overwrote ggplot2’s default color scheme incorporate TNTP colors. pulled hex codes colors wanted use tntp_palette() added chart scale_colour_manual().","code":"#Prepare data school_salary <- county_data |>    filter(t_salary != 0) |>    group_by(school_year, school_name) |>    summarize(avg_salary = mean(t_salary, na.rm = TRUE), .groups = \"drop\")  # create list of school names so we can easily filter data set for the number of schools we want school_names <- unique(school_salary$school_name)  # only plot two schools line_plot_schools <- school_salary |>    filter(school_name %in% school_names[1:3]) ggplot(line_plot_schools, aes(x = school_year, y = avg_salary, color = school_name)) +   geom_line(linewidth = 1) +   scale_y_continuous(labels = scales::dollar, limits = c(0, 5000)) +   scale_colour_manual(values = tntp_palette(\"colorful\")) +   labs(     title=\"Average Teacher Salaries\",     subtitle = \"Teacher salaries remained constant between 2012 and 2015\"   ) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-bar-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a bar chart","title":"TNTP Visualization Cookbook","text":"","code":"#Prepare data bar_df <- school_salary |>   filter(     school_year == 2015,     school_name %in% school_names[1:5]   ) |>    # add line breaks for better plotting   mutate(school_name = str_wrap(school_name, 7))  ggplot(bar_df, aes(x = school_name, y = avg_salary)) +   geom_bar(stat=\"identity\",             position=\"identity\",             fill= tntp_colors('gold')) +   scale_y_continuous(labels = scales::dollar, limits = c(0, 5000)) +   labs(     title=\"Acacia had higher average salaries in 2015\",     subtitle = \"Average teacher salaries in 2015 by school\"   ) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-stacked-bar-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a stacked bar chart","title":"TNTP Visualization Cookbook","text":"stacked bar chart uses percentages y-axis. Note formatting y-axis create percentages: scale_y_continuous(labels = scales::percent, limits = c(0,1)). set limits = c(0,1) ensure y-axis limits run 0% 100%. working percentages, axis (almost) always run 0% 100%. Additionally, geom_bar() set stat = \"identity\". tells ggplot2 plot data -aggregate data making plot. often easier aggregate data outside ggplot2, transparent, easier check. also replaced geom_bar(stat = \"identity\", position = \"stack\") geom_col() (parameters needed) arrive plot.  example shows proportions, might want make stacked bar chart showing number values instead - easy change! value passed position argument determine stacked chart shows proportions actual values. position = \"fill\" draw stacks proportions, position = \"identity\" draw number values.","code":"#prepare data stacked_df <- county_data |>    filter(     school_year == 2015,     school_name %in% school_names[1:5]   ) |>    mutate(t_salary_cut = cut(t_salary,                      breaks = c(0, 2500, 3500, 4500, 10000),                     labels = c(\"under $2.5k\", \"$2.5k-$3.5k\", \"$3.5k-$4.5k\", \"$4.5k+\"))) |>   group_by(school_name, t_salary_cut) |>   summarise(n_cut_school = n(), .groups = \"drop_last\") |>    mutate(     n_cut_salary = sum(n_cut_school, na.rm = TRUE),     perc_in_each_cut = n_cut_school / n_cut_salary   )  |>    # add line breaks for better plotting   mutate(school_name = str_wrap(school_name, 7))  #set order of stacks by changing factor levels stacked_df$t_salary_cut = factor(stacked_df$t_salary_cut, levels = rev(levels(stacked_df$t_salary_cut))) ggplot(   data = stacked_df,    aes(x = school_name, y = perc_in_each_cut, fill = t_salary_cut) ) +   geom_bar(stat = \"identity\", position = \"stack\") +   scale_y_continuous(labels = scales::percent, limits = c(0,1)) +   scale_fill_manual(values = tntp_palette(\"greens\")) +   labs(title = \"Most teachers earn between $2.5K and $4.5K\",        subtitle = \"Percentage of teachers by salary range\") +   theme(legend.position = \"top\",          legend.justification = \"left\") +   guides(fill = guide_legend(reverse = TRUE)) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-grouped-bar-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a grouped bar chart","title":"TNTP Visualization Cookbook","text":"Making grouped bar chart similar making bar chart. just need change position = \"identity\" position_dodge2(preserve = \"single\"). Note use named vector colors_to_use expressly map colors values. safe way ensure properly mapping colors values.","code":"# only plot the lowest and highest earning groups earnings_to_keep <- levels(stacked_df$t_salary_cut)[c(4,1)]  # map bar colors to values colors_to_use <- tntp_colors('yellow', 'green') |>    set_names(earnings_to_keep)  dodged_df <- stacked_df |>    # only plot the lowest and highest earning groups   filter(t_salary_cut %in% !!earnings_to_keep) |>    # switch order of factors so that the lowest earnings plot first   mutate(t_salary_cut = factor(t_salary_cut, levels = earnings_to_keep))   ggplot(dodged_df, aes(x = school_name, y = perc_in_each_cut, fill = t_salary_cut)) +     geom_bar(stat = \"identity\", position = position_dodge2(preserve = \"single\")) +     scale_y_continuous(labels = scales::percent, limits = c(0,1)) +     scale_fill_manual(values = colors_to_use) +     labs(title = \"More teachers earn over $4.5k than under $2.5k\",          subtitle = \"Percentage of teachers by salary range\") +     tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-scatterplot","dir":"Articles","previous_headings":"Example Plots","what":"Make a scatterplot","title":"TNTP Visualization Cookbook","text":"","code":"# create data set showing school test scores and average school salaries scores_salary <- county_data |>    group_by(school_name) |>    summarize(     avg_test_score = mean(sch_ela_avg + sch_math_avg, na.rm=FALSE),     avg_salary = mean(t_salary, na.rm = FALSE),     enrollment = mean(sch_enroll_2015, na.rm = TRUE),     .groups = 'drop'   ) |>    mutate(perc_rank_test_score = percent_rank(avg_test_score)) |>    drop_na() ggplot(scores_salary, aes(avg_salary, perc_rank_test_score)) +   geom_point(color = tntp_colors('tangerine'), alpha = 0.9, size = 3) +   labs(     title = 'Schools with higher salaries do not have higher test scores',     subtitle = 'Relationship between school test scores and salaries',     x = 'Average school salary',     y = 'Percentile rank test score'   ) +   scale_x_continuous(labels = scales::dollar) +   scale_y_continuous(labels = scales::percent) +   tntp_style(base_size = base_font_size, show_axis_titles = TRUE)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-dumbbell-chart","dir":"Articles","previous_headings":"Example Plots","what":"Make a dumbbell chart","title":"TNTP Visualization Cookbook","text":"Another way showing difference dumbbell chart. Note geom_dumbell() comes ggalt package.","code":"dumbbell_df <- dodged_df |>    pivot_wider(id_cols = 'school_name', names_from = 't_salary_cut', values_from = 'n_cut_school') |>    mutate(across(where(is.numeric), ~replace_na(.x, 0)))  ggplot(dumbbell_df, aes(x = `under $2.5k`, xend = `$4.5k+`, y = fct_reorder(school_name, `under $2.5k`)), group = school_names) +    geom_dumbbell(     color = tntp_colors(\"light_grey\"),     size = 3,     colour_x = tntp_colors('gold'),     colour_xend = tntp_colors('green'),     show.legend = TRUE   ) +   labs(title = \"More teachers earn over $4.5k than under $2.5k\",        subtitle = \"Number of teachers by salary range\",        x = \"Number of teachers earnign a given salary\") +    tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"make-a-histogram","dir":"Articles","previous_headings":"Example Plots","what":"Make a histogram","title":"TNTP Visualization Cookbook","text":"","code":"# number of teachers per school number_teachers_school <- county_data |>   count(school_year, school_name)  ggplot(number_teachers_school, aes(n)) +   geom_histogram(binwidth = 5, colour = \"white\", fill = tntp_colors('navy')) +   labs(     title = \"Schools have a wide distribution in the number of teachers\",     subtitle = \"Total number of teachers per school\",     x = 'Number of teacher in school',     y = 'Count'   ) +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"making-density-plots","dir":"Articles","previous_headings":"Example Plots","what":"Making density plots","title":"TNTP Visualization Cookbook","text":"ggridges package contains additional plots plotting distributions using ridgeline plots.","code":"ggplot(county_data, aes(x = t_salary, y = school_year, group = school_year, fill = factor(school_year))) +   geom_density_ridges(quantile_lines = TRUE, quantiles = 4) +   scale_x_continuous(labels = scales::dollar) +   labs(title = \"Income distrubutions for teachers has remained constant\",        subtitle = \"Income distrubution and quantiles for teachers\") +   tntp_style(base_size = base_font_size) +    theme(legend.position = \"none\") +    scale_fill_manual(values = tntp_palette('colorful'))"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"working-with-survey-data","dir":"Articles","previous_headings":"","what":"Working with survey data","title":"TNTP Visualization Cookbook","text":"often work survey data TNTP. highlight couple examples plotting survey data. use teacher_survey data set tntpr package, fake teacher survey. Let’s start loading data set calculating averages.","code":"teacher_survey <- tntpr::teacher_survey  # the y-axis will contain text of an entire survey question # we want to place line breaks in this text so plots look better axis_line_breaks <- 40  # scales in HE questions, in order starting with the strongest agree_disagree_scale <- rev(c(\"Strongly Agree\", \"Agree\", \"Somewhat Agree\", \"Somewhat Disagree\", \"Disagree\", \"Strongly Disagree\"))  # put survey into long form and clean up question names teacher_survey_he <- teacher_survey |>    select(-timing) |>    pivot_longer(cols = everything(), names_to = 'question', values_to = 'response')  # calculate percentage of responses to each high expectations question teacher_survey_he_perc <- teacher_survey_he |>    drop_na(\"response\") |>   # calculate the number of responses for each response option   count(question, response, name = 'n_response') |>   # calculate the number of responses for each question   group_by(question) |>   mutate(n_question = sum(n_response)) |>   ungroup() |>   # calculate percentages   mutate(     # calculate percentages     percent = n_response / n_question,     # make a column that is text of the percent for plotting     percent_pretty = scales::percent(percent, accuracy = 1)   )  # calculate percentage of strongly agree and agree teacher_survey_he_perc <- teacher_survey_he_perc |>    mutate(scale_strength = ifelse(response %in% !!agree_disagree_scale[c(5,6)], 'Strong response', 'Weak response')) |>   group_by(question, scale_strength) |>   mutate(strong_response_percent = sum(percent)) |>   ungroup() |>    mutate(     strong_response_percent = ifelse(response == 'Agree', strong_response_percent, NA),     # create line breaks for questions ,which will make plots look better     question = str_wrap(question, axis_line_breaks),     response = factor(response, levels = agree_disagree_scale)   )"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"plot-likert-items---highlights-top-two","dir":"Articles","previous_headings":"Working with survey data","what":"Plot likert items - highlights top two","title":"TNTP Visualization Cookbook","text":"first plot calls two highest response values, ‘Strongly Agree’ ‘Agree’. Note tntp_style() function alter font size family text within geom_text() set manually.","code":"ggplot(teacher_survey_he_perc, aes(percent, question, fill = response)) +   geom_col() +   geom_text(     aes(label = scales::percent(strong_response_percent, accuracy = 1), x = strong_response_percent),     color = 'white', fontface='bold', family = \"Halyard Display\", size = 5, hjust = 1.05   ) +   scale_x_continuous(labels = scales::percent, limits = c(0,1)) +   scale_fill_manual(values = tntp_palette(\"top2_6\"), drop = FALSE) +   guides(fill=guide_legend(nrow=2, byrow=TRUE, reverse = TRUE))  +   labs(title = \"High Expectations Survey Responses\") +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/articles/visualization-cookbook.html","id":"plot-likert-items---diverging","dir":"Articles","previous_headings":"Working with survey data","what":"Plot likert items - diverging","title":"TNTP Visualization Cookbook","text":"","code":"legend_order <- c(agree_disagree_scale[c(1,2,3)], agree_disagree_scale[c(6,5,4)])  teacher_survey_div <- teacher_survey_he_perc |>    mutate(     perc_diverge = ifelse(str_detect(response, '[D|d]isagree'), percent * -1, percent),     response = factor(response, levels = legend_order)   )  ggplot(teacher_survey_div, aes(x = perc_diverge, y = question, fill = response)) +   geom_col() +   scale_fill_manual(     values = tntp_palette(\"likert_6\"),      drop = FALSE,     breaks = agree_disagree_scale,     labels = agree_disagree_scale   ) +   geom_vline(aes(xintercept = 0), linetype = 1, linewidth = 1.2, alpha = .7) +   scale_x_continuous(limits = c(-1, 1), breaks = seq(-1, 1, .25), labels = function(x) scales::percent(abs(x))) +   labs(title = \"High Expectations Survey Responses\") +   tntp_style(base_size = base_font_size)"},{"path":"https://tntp.github.io/tntpr/authors.html","id":null,"dir":"","previous_headings":"","what":"Authors","title":"Authors and Citation","text":"Dustin Pashouwer. Maintainer.","code":""},{"path":"https://tntp.github.io/tntpr/authors.html","id":"citation","dir":"","previous_headings":"","what":"Citation","title":"Authors and Citation","text":"Firke S, Russ J, Spurrier , Pashouwer D, Mullan K, Orr S, Talcott S (2024). tntpr: Data Analysis Tools Customized TNTP. R package version 1.0.0, https://tntp.github.io/tntpr/, https://github.com/tntp/tntpr.","code":"@Manual{,   title = {tntpr: Data Analysis Tools Customized for TNTP},   author = {Sam Firke and Jake Russ and Alex Spurrier and Dustin Pashouwer and Kate Mullan and Shane Orr and Sam Talcott},   year = {2024},   note = {R package version 1.0.0, https://tntp.github.io/tntpr/},   url = {https://github.com/tntp/tntpr}, }"},{"path":[]},{"path":"https://tntp.github.io/tntpr/index.html","id":"about","dir":"","previous_headings":"","what":"About","title":"Data Analysis Tools Customized for TNTP","text":"tntpr package makes data science TNTP easier accurate supplying tools needed common TNTP analyses. package specifically serves TNTP analysis community, functions can tailored exact use cases.","code":""},{"path":"https://tntp.github.io/tntpr/index.html","id":"package-summary","dir":"","previous_headings":"","what":"Package summary","title":"Data Analysis Tools Customized for TNTP","text":"highlights package include: TNTP brand colors palettes tntp_colors() tntp_palette() functions TNTP ggplot2 theme using brand fonts (tntp_style()) tntp_cred() functions securely managing credentials (passwords, API keys, etc.) R. TNTP-themed RMarkdown templates, starting new analysis shell can already generate TNTP-themed .docx report Functions initializing new repository project folder TNTP-standard directories documentation Survey analysis tools factorize_df(), recode_to_binary(), functions dealing check-style questions Wrappers quickly making typical TNTP-style charts (e.g., bar chart means variable 1 grouped variable 2) Education-specific data management functions (e.g., date_to_sy() convert continuous hire dates school years using specified cutoff date) Built-fake data sets practice , including student achievement data (wisc), teacher data (fake_county) survey data (teacher_survey) tntpr built work tidyverse set packages.","code":""},{"path":"https://tntp.github.io/tntpr/index.html","id":"installing-the-tntpr-package","dir":"","previous_headings":"","what":"Installing the tntpr package","title":"Data Analysis Tools Customized for TNTP","text":"tntpr currently CRAN, ’ll need install package GitHub repository using devtools. devtools package installed, run first line code well: installed, load like package. update tntpr, ’ll need first unload (start fresh R session). can run code .","code":"# install.packages('devtools') devtools::install_github('tntp/tntpr') library(tntpr) tntpr::update_tntpr()"},{"path":"https://tntp.github.io/tntpr/index.html","id":"feature-requests-and-bug-reports","dir":"","previous_headings":"","what":"Feature Requests and Bug Reports","title":"Data Analysis Tools Customized for TNTP","text":"data problem think tntpr help ? Find bug working tntpr package? Please create issue.","code":""},{"path":"https://tntp.github.io/tntpr/reference/SegoeUI.html","id":null,"dir":"Reference","previous_headings":"","what":"Segoe UI font name R variable aliases — font_se","title":"Segoe UI font name R variable aliases — font_se","text":"font_an == \"Segoe UI\"","code":""},{"path":"https://tntp.github.io/tntpr/reference/SegoeUI.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Segoe UI font name R variable aliases — font_se","text":"","code":"font_se"},{"path":"https://tntp.github.io/tntpr/reference/SegoeUI.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Segoe UI font name R variable aliases — font_se","text":"length 1 character vector","code":""},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":null,"dir":"Reference","previous_headings":"","what":"Bar chart of counts with TNTP polish — bar_chart_counts","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"Takes user supplied data frame turns designated column N bar chart (uses position dodge ggplot2).","code":""},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"","code":"bar_chart_counts(   df,   var,   group_var = NULL,   labels = \"n\",   var_color = \"green\",   group_colors = NULL,   title = NULL,   var_label = NULL,   digits = 1,   font = \"Halyard Display\",   font_size = 12 )"},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"df data.frame used bar chart var unquoted column name variable count group_var (optional) unquoted column name group variable.  specified, get 2-variable clustered bar chart.  left blank, single variable bar chart. labels labels show count (\"n\") percentage (\"pct\")? var_color color non-grouped charts; set TNTP green default. group_colors, strings tried tntp_colors automatically.  c(\"red\", \"green\") get official TNTP colors, c(\"red\", \"brown\") get base R red blue. group_colors character vector group colors, specific palette desired title main chart title var_label label x-axis digits integer indicating number decimal places used percentages. truncating, ties rounded , like MS Excel, .e., 10.5 11.5 become 11 12.  ** base R's default behavior. font font chart text; Segoe UI default font_size size chart text; set 12 default","code":""},{"path":"https://tntp.github.io/tntpr/reference/bar_chart_counts.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Bar chart of counts with TNTP polish — bar_chart_counts","text":"","code":"# An N bar chart by default # All examples use font = \"sans\" to avoid triggering font warnings mtcars |>   bar_chart_counts(var   = cyl,                    var_color = \"orange\",                    title = \"Number of mtcars by cylinder\",                    font  = \"sans\")   # Use a grouping variable with custom colors mtcars |>   bar_chart_counts(var       = cyl,                    group_var = vs,                    group_colors = c(\"orange\", \"navy\"),                    labels    = \"pct\",                    title     = \"% of V vs. Straight engines by # of cylinders\",                    font  = \"sans\")"},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":null,"dir":"Reference","previous_headings":"","what":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"function run columns treated check_all_recode(). Takes data.frame range columns containing answer choices check---apply question tabulates results.  People select choices  (.e., answer question) omitted denominator.  make sense, question's choices MECE, NA option. works \"\" open-response text field, recoded binary variable check_all_recode.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"","code":"check_all_count(dat, ...)"},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"dat data.frame survey data ... unquoted column names containing range answer choices.  Can specified individually, range, .e., q1_1:q1_5, using helper functions dplyr::select().","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"Returns data.frame tabulated results (n ","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_count.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Tabulate a range of check-all-that-apply response columns in a single table. — check_all_count","text":"","code":"x <- data.frame( # 4th person didn't respond at all   unrelated = 1:5,   q1_1 = c(\"a\", \"a\", \"a\", NA, NA),   q1_2 = c(\"b\", \"b\", NA, NA, NA),   q1_3 = c(NA, NA, \"c\", NA, NA),   q1_other = c(NA, \"something else\", NA, NA, \"not any of these\") ) library(dplyr) # for the %>% pipe #>  #> Attaching package: ‘dplyr’ #> The following objects are masked from ‘package:stats’: #>  #>     filter, lag #> The following objects are masked from ‘package:base’: #>  #>     intersect, setdiff, setequal, union x %>%   check_all_recode(q1_1:q1_other) %>%   check_all_count(q1_1:q1_other) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>  response n percent #>         a 3    0.75 #>         b 2    0.50 #>         c 1    0.25 #>     Other 2    0.50  # You can use any of the dplyr::select() helpers to identify the columns: x %>%   check_all_recode(contains(\"q1\")) %>%   check_all_count(contains(\"q1\")) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>  response n percent #>         a 3    0.75 #>         b 2    0.50 #>         c 1    0.25 #>     Other 2    0.50"},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":null,"dir":"Reference","previous_headings":"","what":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"survey software returns check---apply response columns missing values indicate either respondent skipped question entirely, select particular answer choice.  count responses properly, cases respondent check choices - .e., skipped question - counted denominator (assuming choices completely exhaustive, NA option). function takes data.frame range columns containing answer choices check---apply question updates columns data.frame contain one three values: 1 choice selected; 0 respondent chose another option one; NA respondent skipped question (.e., select choices) thus response truly missing. also takes single text values column adds label attribute data.frame columns. function accomodates open-response column, get correct denominator respondents skipped check variables written something .  passing offered choices implicit rejection , \"missing.\"  text variable throw warning - may okay - recoded binary 1/0 variable indicating response.  text variable assigned label \"\".  Consider preserving original respondent text values prior point separate column needed. check_all_recode() prepares data.frame call sister function check_all_count().  label attribute accessed function.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"","code":"check_all_recode(dat, ..., set_labels = TRUE)"},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"dat data.frame survey data ... unquoted variable names containing answer choices.  Can specified range, .e., q1_1:q1_5 using helper functions dplyr::select(). set_labels label attribute columns -written column text?  Allow TRUE unless currently label attributes wish overwrite.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"Returns original data.frame specified column range updated, label attributes questions.","code":""},{"path":"https://tntp.github.io/tntpr/reference/check_all_recode.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Process a range of check-all-that-apply response columns for correct tabulation. — check_all_recode","text":"","code":"x <- data.frame( # 4th person didn't respond at all   unrelated = 1:5,   q1_1 = c(\"a\", \"a\", \"a\", NA, NA),   q1_2 = c(\"b\", \"b\", NA, NA, NA),   q1_3 = c(NA, NA, \"c\", NA, NA),   q1_other = c(NA, \"something else\", NA, NA, \"not any of these\") ) library(dplyr) # for the %>% pipe x %>%   check_all_recode(q1_1:q1_other) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>   unrelated q1_1 q1_2 q1_3 q1_other #> 1         1    1    1    0        0 #> 2         2    1    1    0        1 #> 3         3    1    0    1        0 #> 4         4   NA   NA   NA       NA #> 5         5    0    0    0        1  # You can use any of the dplyr::select() helpers to identify the columns: x %>%   check_all_recode(contains(\"q1\")) #> Warning: column 4 has multiple values besides NA; not sure which is the question text.  Guessing this an \"Other (please specify)\" column. #>   unrelated q1_1 q1_2 q1_3 q1_other #> 1         1    1    1    0        0 #> 2         2    1    1    0        1 #> 3         3    1    0    1        0 #> 4         4   NA   NA   NA       NA #> 5         5    0    0    0        1"},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":null,"dir":"Reference","previous_headings":"","what":"Choose a text color given a background color — choose_text_color","title":"Choose a text color given a background color — choose_text_color","text":"Choose text color given background color","code":""},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Choose a text color given a background color — choose_text_color","text":"","code":"choose_text_color(bg_color)"},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Choose a text color given a background color — choose_text_color","text":"bg_color color","code":""},{"path":"https://tntp.github.io/tntpr/reference/choose_text_color.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Choose a text color given a background color — choose_text_color","text":"\"black\" \"white\"","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP colors — colors_tntp","title":"TNTP colors — colors_tntp","text":"list colors superseded new brand colors new function tntp_colors().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP colors — colors_tntp","text":"","code":"colors_tntp"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"TNTP colors — colors_tntp","text":"object class character length 34.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP colors — colors_tntp","text":"","code":"if (FALSE) { tntp_colors() }"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":null,"dir":"Reference","previous_headings":"","what":"Likert pallette — colors_tntp_likert","title":"Likert pallette — colors_tntp_likert","text":"likert palette superseded new brand colors new function tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Likert pallette — colors_tntp_likert","text":"","code":"colors_tntp_likert"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Likert pallette — colors_tntp_likert","text":"object class character length 7.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Likert pallette — colors_tntp_likert","text":"","code":"if (FALSE) { tntp_palette('likert_6') }"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":null,"dir":"Reference","previous_headings":"","what":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"likert palette superseded new brand colors new functions tntp_colors() tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"","code":"colors_tntp_likert_orange_to_green"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"object class character length 7.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_likert_orange_to_green.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Likert orange to green pallette — colors_tntp_likert_orange_to_green","text":"","code":"if (FALSE) { tntp_palette('bg_6') }"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP pallette — colors_tntp_palette","title":"TNTP pallette — colors_tntp_palette","text":"list colors superseded new brand colors new function tntp_colors().","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP pallette — colors_tntp_palette","text":"","code":"colors_tntp_palette"},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"TNTP pallette — colors_tntp_palette","text":"object class character length 16.","code":""},{"path":"https://tntp.github.io/tntpr/reference/colors_tntp_palette.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP pallette — colors_tntp_palette","text":"","code":"if (FALSE) { tntp_colors() }"},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert a date value into its school year. — date_to_sy","title":"Convert a date value into its school year. — date_to_sy","text":"Checks see date past user-specified cutoff point delineating school years, maps appropriate year.","code":""},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert a date value into its school year. — date_to_sy","text":"","code":"date_to_sy(date_var, last_day_of_sy = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert a date value into its school year. — date_to_sy","text":"date_var date convert. Can Date object string form 'YYYY-MM-DD' 'MM/DD/YYYY' last_day_of_sy cutoff date, date considered part following school year. year argument matter. Defaults (noisily) July 1st.","code":""},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert a date value into its school year. — date_to_sy","text":"Returns character vector format \"2013 - 2014\"","code":""},{"path":"https://tntp.github.io/tntpr/reference/date_to_sy.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert a date value into its school year. — date_to_sy","text":"","code":"date_to_sy(as.Date(\"2014-05-05\"), as.Date(\"2000-07-01\")) #> [1] \"2013 - 2014\" date_to_sy(as.Date(\"2014-07-05\"), as.Date(\"2000-07-01\")) #> [1] \"2014 - 2015\""},{"path":"https://tntp.github.io/tntpr/reference/dot-onAttach.html","id":null,"dir":"Reference","previous_headings":"","what":"Title — .onAttach","title":"Title — .onAttach","text":"Title","code":""},{"path":"https://tntp.github.io/tntpr/reference/dot-onAttach.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Title — .onAttach","text":"","code":".onAttach(libname, pkgname)"},{"path":"https://tntp.github.io/tntpr/reference/dot-onAttach.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Title — .onAttach","text":"libname library name pkgname package name","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"function examines column data.frame; finds column composed solely values provided lvls argument updates factor variables, levels order provided. alternative calling dplyr::mutate_at factor() identifying specific variables want transform, several repeated sets responses.","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"","code":"factorize_df(dat, lvls, ignore.case = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"dat data.frame factor variables stored characters. lvls factor levels variable(s), order.  question whose possible responses subset another question's, use function; manipulate specific columns dplyr::mutate_at. ignore.case Logical. TRUE, match without checking case, using capitalization lvls parameter final output. provided, function provide warning detects columns match without checking case coerce .","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"data.frame factorization completed place.","code":""},{"path":"https://tntp.github.io/tntpr/reference/factorize_df.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert all character vectors containing a set of values in a data.frame to factors. — factorize_df","text":"","code":"teacher_survey |>   factorize_df(lvls = c(\"Strongly Disagree\", \"Disagree\", \"Somewhat Disagree\",                         \"Somewhat Agree\", \"Agree\", \"Strongly Agree\")) #> ℹ Changed the following columns to factors: `It's fair to expect students in #>   this class to master these standards by the end of the year.`, `One year is #>   enough time for students in this class to master these standards.`, `All #>   students in my class can master the grade-level standards by the end of the #>   year.`, and `The standards are appropriate for the students in this class.` #> # A tibble: 20 × 5 #>    timing It's fair to expect st…¹ One year is enough t…² All students in my c…³ #>    <chr>  <fct>                    <fct>                  <fct>                  #>  1 Pre    Disagree                 Disagree               Agree                  #>  2 Pre    Disagree                 Somewhat Agree         Agree                  #>  3 Pre    Somewhat Disagree        Somewhat Disagree      Strongly Agree         #>  4 Pre    Disagree                 Strongly Disagree      Strongly Agree         #>  5 Pre    Agree                    Somewhat Disagree      Strongly Disagree      #>  6 Pre    Strongly Disagree        Somewhat Agree         Somewhat Disagree      #>  7 Pre    Agree                    Strongly Agree         Strongly Disagree      #>  8 Pre    Agree                    Disagree               Somewhat Agree         #>  9 Pre    Strongly Disagree        Disagree               Somewhat Agree         #> 10 Pre    Somewhat Agree           Somewhat Disagree      Agree                  #> 11 Post   Strongly Disagree        Somewhat Agree         Somewhat Disagree      #> 12 Post   Somewhat Agree           Disagree               Somewhat Disagree      #> 13 Post   Somewhat Disagree        Somewhat Agree         Strongly Disagree      #> 14 Post   Strongly Agree           Strongly Agree         Disagree               #> 15 Post   Strongly Agree           Somewhat Disagree      Strongly Disagree      #> 16 Post   Disagree                 Disagree               Agree                  #> 17 Post   Strongly Agree           Agree                  Agree                  #> 18 Post   Strongly Agree           Strongly Agree         Disagree               #> 19 Post   Somewhat Disagree        Somewhat Agree         Agree                  #> 20 Post   Somewhat Agree           Strongly Agree         Strongly Disagree      #> # ℹ abbreviated names: #> #   ¹​`It's fair to expect students in this class to master these standards by the end of the year.`, #> #   ²​`One year is enough time for students in this class to master these standards.`, #> #   ³​`All students in my class can master the grade-level standards by the end of the year.` #> # ℹ 1 more variable: #> #   `The standards are appropriate for the students in this class.` <fct>  # prints warning due to case mismatches: teacher_survey |>   factorize_df(lvls = c(\"Strongly disagree\", \"Disagree\", \"Somewhat disagree\",                         \"Somewhat agree\", \"Agree\", \"Strongly agree\")) #> Warning: ! Columns `It's fair to expect students in this class to master these standards #>   by the end of the year.`, `One year is enough time for students in this class #>   to master these standards.`, `All students in my class can master the #>   grade-level standards by the end of the year.`, and `The standards are #>   appropriate for the students in this class.` were NOT matched, but would #>   match if `ignore.case` was set to \"TRUE\" #> Warning: ! No columns matched. Check spelling & capitalization of your levels. #> # A tibble: 20 × 5 #>    timing It's fair to expect st…¹ One year is enough t…² All students in my c…³ #>    <chr>  <chr>                    <chr>                  <chr>                  #>  1 Pre    Disagree                 Disagree               Agree                  #>  2 Pre    Disagree                 Somewhat Agree         Agree                  #>  3 Pre    Somewhat Disagree        Somewhat Disagree      Strongly Agree         #>  4 Pre    Disagree                 Strongly Disagree      Strongly Agree         #>  5 Pre    Agree                    Somewhat Disagree      Strongly Disagree      #>  6 Pre    Strongly Disagree        Somewhat Agree         Somewhat Disagree      #>  7 Pre    Agree                    Strongly Agree         Strongly Disagree      #>  8 Pre    Agree                    Disagree               Somewhat Agree         #>  9 Pre    Strongly Disagree        Disagree               Somewhat Agree         #> 10 Pre    Somewhat Agree           Somewhat Disagree      Agree                  #> 11 Post   Strongly Disagree        Somewhat Agree         Somewhat Disagree      #> 12 Post   Somewhat Agree           Disagree               Somewhat Disagree      #> 13 Post   Somewhat Disagree        Somewhat Agree         Strongly Disagree      #> 14 Post   Strongly Agree           Strongly Agree         Disagree               #> 15 Post   Strongly Agree           Somewhat Disagree      Strongly Disagree      #> 16 Post   Disagree                 Disagree               Agree                  #> 17 Post   Strongly Agree           Agree                  Agree                  #> 18 Post   Strongly Agree           Strongly Agree         Disagree               #> 19 Post   Somewhat Disagree        Somewhat Agree         Agree                  #> 20 Post   Somewhat Agree           Strongly Agree         Strongly Disagree      #> # ℹ abbreviated names: #> #   ¹​`It's fair to expect students in this class to master these standards by the end of the year.`, #> #   ²​`One year is enough time for students in this class to master these standards.`, #> #   ³​`All students in my class can master the grade-level standards by the end of the year.` #> # ℹ 1 more variable: #> #   `The standards are appropriate for the students in this class.` <chr>"},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":null,"dir":"Reference","previous_headings":"","what":"Fake teacher roster dataset from OpenSDP — fake_county","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"Fake County synthetic panel dataset contains approximately 40,000 records comprising four years data roughly 10,000 teachers per year. dataset includes information teacher demographics, teaching assignments, salary, credentials, experience, evaluation scores, hiring retention status. also includes information school types average student characteristics school. real teachers dataset, based real data. Fake County developed offshoot Strategic Data Project's work human capital diagnostics school districts state education departments, can used teaching collaboration. data synthesized using R synthpop package.","code":""},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"","code":"fake_county"},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"data frame 39,339 rows 38 variables: tid double: Teacher ID fake_data double: Record Simulated school_year double: School Year school_code double: School Code school_name character: School Name t_male double: Teacher Male t_race_ethnicity double: Teacher Race/Ethnicity t_job_area double: Teacher Assignment Type t_salary double: Monthly Salary t_nbpts double: Teacher National Board Certification t_tenured double: Teacher Tenured t_experience double: Years Teaching Experience t_fte double: Teacher's FTE Status t_highest_degree double: Teacher's Highest Degree t_licensed_stem double: Teacher Licensed STEM Field t_eval_obs double: Evaluation Summary Observation Score t_eval_growth double: Evaluation Summary Student Growth Score t_stay double: Teacher School Following Year t_transfer double: Teacher Different School Following Year t_leave double: Teacher Teaching Fake County Schools Following Year t_novice double: Teacher Novice First-Year Teacher t_new_hire double: Teacher Teach Fake County Prior Year sch_elem double: School Elementary School sch_middle double: School Middle School sch_high double: School High School sch_alternative double: School Alternative School sch_regular double: School Regular School sch_title_1 double: School Title 1 School sch_magnet double: School Magnet School sch_vocational double: School Vocational School sch_region double: School Region Code sch_calendar_type double: School Calendar Type sch_iep_pct double: School Special Education Student Share 2012-15 sch_minority_pct double: School Minority Student Share 2012-15 sch_frpl_pct double: School Free Reduced Price Lunch Student Share 2012-15 sch_ela_avg double: School ELA Test Score Average 2012-15 (standard deviations) sch_math_avg double: School Math Test Score Average 2012-15 (standard deviations) sch_enroll_2015 double: School Enrollment 2015","code":""},{"path":"https://tntp.github.io/tntpr/reference/fake_county.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Fake teacher roster dataset from OpenSDP — fake_county","text":"https://github.com/OpenSDP/fake-county, posted Creative Commons license.","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":null,"dir":"Reference","previous_headings":"","what":"Create sequential figure numbers — figureN","title":"Create sequential figure numbers — figureN","text":"Create sequential figure numbers","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create sequential figure numbers — figureN","text":"","code":"figureN(x)"},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create sequential figure numbers — figureN","text":"x character string description figure","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Create sequential figure numbers — figureN","text":"nothing","code":""},{"path":"https://tntp.github.io/tntpr/reference/figureN.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create sequential figure numbers — figureN","text":"","code":"# not run, in RMarkdown doc: `r figureN(\"Distribution of cars by cylinder count\")`  #"},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":null,"dir":"Reference","previous_headings":"","what":"Checks if a font family is usable and returns a usable font if not — get_usable_family","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"Helper function. Checks given family value available, returns default font family (\"sans\" user provided)","code":""},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"","code":"get_usable_family(family, silent = FALSE, default_family = \"sans\")"},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"family font family check character silent logical. TRUE raise warning font family unavailable default_family defaults \"sans\", can set another fallback family.","code":""},{"path":"https://tntp.github.io/tntpr/reference/get_usable_family.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Checks if a font family is usable and returns a usable font if not — get_usable_family","text":"character usable font family","code":""},{"path":"https://tntp.github.io/tntpr/reference/header_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"Insert header_script_tntp. — header_tntp","title":"Insert header_script_tntp. — header_tntp","text":"Call function insert header 'TNTP R Shell.R'.","code":""},{"path":"https://tntp.github.io/tntpr/reference/header_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Insert header_script_tntp. — header_tntp","text":"","code":"header_tntp()"},{"path":"https://tntp.github.io/tntpr/reference/import_segoe_ui.html","id":null,"dir":"Reference","previous_headings":"","what":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","title":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","text":"option tntpr.loadfonts -- set TRUE -- call extrafont::loadfonts() register non-core fonts R PDF & PostScript devices. running Windows, package calls function register non-core fonts Windows graphics device.","code":""},{"path":"https://tntp.github.io/tntpr/reference/import_segoe_ui.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","text":"","code":"import_segoe_ui()"},{"path":"https://tntp.github.io/tntpr/reference/import_segoe_ui.html","id":"note","dir":"Reference","previous_headings":"","what":"Note","title":"Import Segoe UI Condensed font for use in charts — import_segoe_ui","text":"take care ensuring PDF/PostScript usage. location font directory displayed base import complete. highly recommended install system way font wish use programs.","code":""},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":null,"dir":"Reference","previous_headings":"","what":"Validate color inputs — is_color","title":"Validate color inputs — is_color","text":"Validate color inputs","code":""},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Validate color inputs — is_color","text":"","code":"is_color(x)"},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Validate color inputs — is_color","text":"x color","code":""},{"path":"https://tntp.github.io/tntpr/reference/is_color.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Validate color inputs — is_color","text":"TRUE x can interpreted color","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":null,"dir":"Reference","previous_headings":"","what":"Convert all labelled-class columns to factors. — labelled_to_factors","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"Deprecated. Use as_factor() function haven package instead functionality. Takes data.frame, checks columns class labelled haven package, converts factor class.","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"","code":"labelled_to_factors(labels_df)"},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"labels_df data.frame containing columns class labelled","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"Returns data.frame.","code":""},{"path":"https://tntp.github.io/tntpr/reference/labelled_to_factors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Convert all labelled-class columns to factors. — labelled_to_factors","text":"","code":"tntpr::fake_county |>   haven::as_factor() #> # A tibble: 39,339 × 38 #>       tid fake_data school_year school_code school_name  t_male t_race_ethnicity #>     <dbl>     <dbl>       <dbl>       <dbl> <chr>        <fct>  <fct>            #>  1 100001         1        2014     1303122 Birch Middle Male   African American #>  2 100001         1        2015     1303122 Birch Middle Male   African American #>  3 100002         1        2012     1301958 Kingside Hi… Female White            #>  4 100002         1        2013     1301958 Kingside Hi… Female White            #>  5 100002         1        2014     1301958 Kingside Hi… Female White            #>  6 100002         1        2015     1301958 Kingside Hi… Female White            #>  7 100003         1        2012     1301575 Eliot Eleme… Female White            #>  8 100003         1        2013     1301575 Eliot Eleme… Female White            #>  9 100003         1        2014     1301575 Eliot Eleme… Female White            #> 10 100004         1        2012     1300549 Junction Hi… Male   White            #> # ℹ 39,329 more rows #> # ℹ 31 more variables: t_job_area <fct>, t_salary <dbl>, t_nbpts <dbl>, #> #   t_tenured <dbl>, t_experience <dbl>, t_fte <dbl>, t_highest_degree <fct>, #> #   t_licensed_stem <dbl>, t_eval_obs <fct>, t_eval_growth <fct>, t_stay <dbl>, #> #   t_transfer <dbl>, t_leave <dbl>, t_novice <dbl>, t_new_hire <dbl>, #> #   sch_elem <dbl>, sch_middle <dbl>, sch_high <dbl>, sch_alternative <dbl>, #> #   sch_regular <dbl>, sch_title_1 <dbl>, sch_magnet <dbl>, …"},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":null,"dir":"Reference","previous_headings":"","what":"Pallette names — palette_names","title":"Pallette names — palette_names","text":"list palette names superseded new brand colors new functions tntp_colors() tntp_palette(). see new brand palettes, use show_tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Pallette names — palette_names","text":"","code":"palette_names"},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Pallette names — palette_names","text":"object class character length 7.","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_names.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Pallette names — palette_names","text":"","code":"if (FALSE) { show_tntp_palette() }"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP branded color palettes — palette_tntp","title":"TNTP branded color palettes — palette_tntp","text":"function superseded tntp_colors() improved functionality includes recent TNTP brand colors. function creates user defined color palette combinations eleven colors. nine TNTP approved colors: dark_blue, medium_blue, light_blue, green, orange, gold, dark_grey (dark_gray), medium_grey (medium_gray), light_grey (light_gray). White black also available.","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP branded color palettes — palette_tntp","text":"","code":"palette_tntp(...)"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP branded color palettes — palette_tntp","text":"... supply quoted color names include color palette","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP branded color palettes — palette_tntp","text":"","code":"library(ggplot2)  pal1_tntp <- tntp_colors(\"green\", \"gold\", \"orange\") pal2_tntp <- tntp_colors(\"navy\", \"cerulean\", \"sky\")  p <- ggplot(mtcars, aes(wt, mpg)) p <- p + geom_point(aes(colour = factor(cyl))) p   # Change colors to created palette p <- p + scale_color_manual(values = pal1_tntp) p   g <- ggplot(mtcars, aes(factor(cyl), mean(mpg))) g <- g + geom_bar(aes(fill = factor(cyl)), stat = \"identity\") g   # Change fill to created palette g <- g + scale_fill_manual(values = pal2_tntp) g"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp_scales.html","id":null,"dir":"Reference","previous_headings":"","what":"scale_palette_tntp — palette_tntp_scales","title":"scale_palette_tntp — palette_tntp_scales","text":"function superseded tntp_palette() includes new brand colors.","code":""},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp_scales.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"scale_palette_tntp — palette_tntp_scales","text":"","code":"palette_tntp_scales(palette = palette_names)"},{"path":"https://tntp.github.io/tntpr/reference/palette_tntp_scales.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"scale_palette_tntp — palette_tntp_scales","text":"palette palette","code":""},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":null,"dir":"Reference","previous_headings":"","what":"Attempt to parse a date with common formats — parse_date","title":"Attempt to parse a date with common formats — parse_date","text":"Helper function date_to_sy. Returns date object , noisily attempts parse string form YYYY-MM-DD MM/DD/YYYY. date parsed, throws error.","code":""},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Attempt to parse a date with common formats — parse_date","text":"","code":"parse_date(date)"},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Attempt to parse a date with common formats — parse_date","text":"date character Date vector parse","code":""},{"path":"https://tntp.github.io/tntpr/reference/parse_date.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Attempt to parse a date with common formats — parse_date","text":"Date vector","code":""},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":null,"dir":"Reference","previous_headings":"","what":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"Calculate percent non-missing values character vector containing values interest.  helper function factorize_df().","code":""},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"","code":"prop_matching(vec, valid_strings, ignore.case = FALSE)"},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"vec character vector. valid_strings values variable can possibly take . ignore.case TRUE, ignores case matching","code":""},{"path":"https://tntp.github.io/tntpr/reference/prop_matching.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Calculate the percent of non-missing values in a character vector containing the values of interest.  This is a helper function for factorize_df(). — prop_matching","text":"numeric proportion 0 1.","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":null,"dir":"Reference","previous_headings":"","what":"Recode a variable into binary groups, e.g., ","title":"Recode a variable into binary groups, e.g., ","text":"Recodes character variable binary result, two-level factor.  values matching supplied character strings to_match vector coded first level factor; values coded level.  NA remains NA.  default factor labels \"Selected\"  \"selected\" can overridden. recoding case-sensitive; specify \"agree\" top-2 value, \"Agree\" counted Top-2, vice versa.","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Recode a variable into binary groups, e.g., ","text":"","code":"recode_to_binary(   x,   to_match = c(\"strongly agree\", \"agree\"),   label_matched = \"Selected\",   label_unmatched = \"Not selected\" )"},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Recode a variable into binary groups, e.g., ","text":"x character factor vector recoded to_match character vector strings put first level factor.  Defaults \"strongly agree\" \"agree\" can overwritten. label_matched factor label values match strings specified to_match?  Defaults \"Selected\" label_unmatched factor label values match strings specified to_match?  Defaults \"selected\".","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Recode a variable into binary groups, e.g., ","text":"factor variable (nicer ordering calls janitor::tabyl) values mapped two levels.","code":""},{"path":"https://tntp.github.io/tntpr/reference/recode_to_binary.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Recode a variable into binary groups, e.g., ","text":"","code":"agreement <- c(   \"Strongly agree\", \"Agree\", \"Somewhat agree\",   \"Somewhat disagree\", \"Strongly disagree\", \"Frogs\", NA )  recode_to_binary(agreement) # default values of \"strongly agree\" and \"agree\" are used for recoding #> [1] Selected     Selected     Not selected Not selected Not selected #> [6] Not selected <NA>         #> Levels: Selected Not selected recode_to_binary(agreement,   label_matched = \"Top-2 Agree\",   label_unmatched = \"Not in Top-2\" ) # custom labels of factor levels #> [1] Top-2 Agree  Top-2 Agree  Not in Top-2 Not in Top-2 Not in Top-2 #> [6] Not in Top-2 <NA>         #> Levels: Top-2 Agree Not in Top-2 recode_to_binary(agreement, \"frogs\") #> [1] Not selected Not selected Not selected Not selected Not selected #> [6] Selected     <NA>         #> Levels: Selected Not selected recode_to_binary(   agreement,   \"frogs\",   \"FROGS!!!\",   \"not frogs\" ) # custom matching values & labels of factor levels #> [1] not frogs not frogs not frogs not frogs not frogs FROGS!!!  <NA>      #> Levels: FROGS!!! not frogs  freq <- c(\"always\", \"often\", \"sometimes\", \"never\") recode_to_binary(freq, \"always\", \"always\", \"less than always\") #> [1] always           less than always less than always less than always #> Levels: always less than always"},{"path":"https://tntp.github.io/tntpr/reference/scale_colour_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","title":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","text":"function deprecated. Please use scale_color_manual(values = tntp_palette(palette_name)) instead","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_colour_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","text":"","code":"scale_colour_tntp(palette = palette_names, drop = FALSE, ...)  scale_color_tntp(palette = palette_names, drop = FALSE, ...)"},{"path":"https://tntp.github.io/tntpr/reference/scale_colour_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"scale_colour_tntp/scale_color_tntp — scale_colour_tntp","text":"palette character string describing desired palette drop drop ... arguments pass ggplot2::discrete_scale()","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"scale_fill_tntp — scale_fill_tntp","title":"scale_fill_tntp — scale_fill_tntp","text":"function deprecated. Please use scale_fill_manual(values = tntp_palette(palette_name)) instead","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"scale_fill_tntp — scale_fill_tntp","text":"","code":"scale_fill_tntp(palette = palette_names, drop = FALSE, ...)"},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"scale_fill_tntp — scale_fill_tntp","text":"palette One : \"default\", \"likert_4pt\", \"likert_5pt\", \"likert_6pt\", \"colors_tntp_old\" drop drop ... additional arguments passed ggplot2::discrete_scale()","code":""},{"path":"https://tntp.github.io/tntpr/reference/scale_fill_tntp.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"scale_fill_tntp — scale_fill_tntp","text":"","code":"library(ggplot2) library(dplyr)  x <- mtcars %>%   count(cyl, am) %>%   mutate(am = as.factor(am))  ggplot(x, aes(x = cyl, y = n, fill = am)) + # you need a fill aesthetic   geom_col() +   scale_fill_manual(values = tntp_palette())"},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":null,"dir":"Reference","previous_headings":"","what":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"internal function calls standard formatting options Data Memo RMarkdown template moved keep actual memo template cleaner easier use","code":""},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"","code":"set_data_memo_formatting()"},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"nothing","code":""},{"path":"https://tntp.github.io/tntpr/reference/set_data_memo_formatting.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Set the formatting options for a TNTP Data Memo — set_data_memo_formatting","text":"","code":"# not run: set_data_memo_formatting()"},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":null,"dir":"Reference","previous_headings":"","what":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"Create new repository Bitbucket, set working directory folder run function.  set main repo folder well single subfolder can work immediate project. must specify subfolder name well long name associated project analyst(s) working .  latter two values used create README.Md file.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"","code":"setup_repo(subfolder, proj_name, analyst_name)"},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"subfolder character vector containing concise name project subfolder. E.g., repository name city \"Anywhere City\", project subfolder might \"ela_access\" \"aps_talent_landscape\"). proj_name longer, full name subfolder project.  appear subfolder's README.md file.  E.g., \"Access Grade-Level ELA Content Pilot.\" analyst_name name(s) analysts currently working subfolder project.  appear subfolder's README.md file.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_repo.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Initialize a new repository, and a single subfolder, TNTP style. — setup_repo","text":"","code":"# After the user has created a repository \"Anywhere City\" and set their working # directory to that folder: ## not run # setup_repo(\"ela_access\", # \"Access to Grade-Level ELA Content\", # \"Dustin Pashouwer and Sam Firke\")"},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":null,"dir":"Reference","previous_headings":"","what":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"repository might represent region, like \"Anywhere City\", major client contract, like \"Midwestern Charter Network. Within repo subfolder analysis project. function creates subfolder populates folders README. use: within existing repository Bitbucket, set working directory folder run function create sub-folder. Use setup_repo() blank new repository add first project subfolder create RProject .gitignore files.  Add subsequent analysis project folders function.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"","code":"setup_subdirectory(subfolder, proj_name, analyst_name)"},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"subfolder character vector containing concise name project subfolder. E.g., repository name city \"Anywhere City\", project subfolder might \"ela_access\" \"aps_talent_landscape\"). proj_name longer, full name subfolder project.  appear subfolder's README.md file. analyst_name name(s) analysts currently working subfolder project.  appear subfolder's README.md file.","code":""},{"path":"https://tntp.github.io/tntpr/reference/setup_subdirectory.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Initialize a new subdirectory in an existing repository, TNTP style. — setup_subdirectory","text":"","code":"# When there's already a repository \"Anywhere City\" with an RProject and a .gitignore # and a new project analysis subfolder is needed within that repo: ## not run # setup_subdirectory(\"ela_access\", # \"Equitable Access to Grade-Level ELA\", # \"Dustin Pashouwer and Sam Firke\")"},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":null,"dir":"Reference","previous_headings":"","what":"Write datatable to temp excel file and open it. — show_in_excel","title":"Write datatable to temp excel file and open it. — show_in_excel","text":"Write datatable temp excel file open .","code":""},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Write datatable to temp excel file and open it. — show_in_excel","text":"","code":"show_in_excel(.data)"},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Write datatable to temp excel file and open it. — show_in_excel","text":".data Dataframe","code":""},{"path":"https://tntp.github.io/tntpr/reference/show_in_excel.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Write datatable to temp excel file and open it. — show_in_excel","text":"Returns data.frame.","code":""},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":null,"dir":"Reference","previous_headings":"","what":"Update case of a character vector — standardize_case","title":"Update case of a character vector — standardize_case","text":"Helper function factorize_df(). Returns vector length vec, values match values valid_strings updated case valid_strings","code":""},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Update case of a character vector — standardize_case","text":"","code":"standardize_case(vec, new_case)"},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Update case of a character vector — standardize_case","text":"vec character vector want update new_case character vector correctly cased strings","code":""},{"path":"https://tntp.github.io/tntpr/reference/standardize_case.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Update case of a character vector — standardize_case","text":"character vector length vec","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":null,"dir":"Reference","previous_headings":"","what":"Create sequential table numbers — tableN","title":"Create sequential table numbers — tableN","text":"Create sequential table numbers","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create sequential table numbers — tableN","text":"","code":"tableN(x)"},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create sequential table numbers — tableN","text":"x character string description figure","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"Create sequential table numbers — tableN","text":"nothing","code":""},{"path":"https://tntp.github.io/tntpr/reference/tableN.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create sequential table numbers — tableN","text":"","code":"# not run, in RMarkdown doc: `r tableN(\"Distribution of cars by cylinder count\")`"},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":null,"dir":"Reference","previous_headings":"","what":"Teacher survey data — teacher_survey","title":"Teacher survey data — teacher_survey","text":"Simulated teacher survey data. Data includes teh four TNTP high expectations questions.","code":""},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Teacher survey data — teacher_survey","text":"","code":"teacher_survey"},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Teacher survey data — teacher_survey","text":"## `teacher survey` data frame 5 columns 20 rows. five columns `timing` column, followed four column four high expectations questions. Responses 'strongly agree' strongly disagree' 6-point scale.","code":""},{"path":"https://tntp.github.io/tntpr/reference/teacher_survey.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Teacher survey data — teacher_survey","text":"simulated `data-raw/teacher_survey.R`","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP's ggplot2 theme — theme_tntp","title":"TNTP's ggplot2 theme — theme_tntp","text":"theme superseded [tntp_style()]. Ggplot2 theme customized TNTP aesthetics","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP's ggplot2 theme — theme_tntp","text":"","code":"theme_tntp(   show_legend_title = TRUE,   base_size = 12,   base_family = \"Segoe UI\",   grid_color = \"grey93\",   title_align = \"center\",   title_color = \"black\",   title_size = 12,   subtitle_align = \"center\",   subtitle_color = \"black\",   subtitle_size = 12,   caption_align = \"right\",   caption_color = \"black\",   caption_size = 12 )"},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP's ggplot2 theme — theme_tntp","text":"show_legend_title logical. legend title shown?  Leave TRUE want change legend title subsequent line + labs(...). base_size base font size base_family base font family grid_color color major gridlines title_align alignment main title, defaults \"center\"; also accepts \"left\" \"right\" title_color color title text title_size size title text subtitle_align alignment sub-title, defaults \"center\"; also accepts \"left\" \"right\" subtitle_color color subtitle text subtitle_size size subtitle text caption_align alignment caption, defaults \"right\"; also accepts \"left\" \"center\" caption_color color caption text caption_size size caption text","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":null,"dir":"Reference","previous_headings":"","what":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"theme superseded tntp_style().","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"","code":"theme_tntp_2018(   base_family = \"Segoe UI\",   base_size = 11.5,   plot_title_family = base_family,   plot_title_size = 18,   plot_title_face = \"bold\",   plot_title_margin = 10,   subtitle_family = base_family,   subtitle_size = 12,   subtitle_face = \"plain\",   subtitle_margin = 15,   strip_text_family = base_family,   strip_text_size = 12,   strip_text_face = \"plain\",   caption_family = base_family,   caption_size = 9,   caption_face = \"italic\",   caption_margin = 10,   axis_text = TRUE,   axis_text_size = base_size,   axis_title_family = subtitle_family,   axis_title_size = 9,   axis_title_face = \"plain\",   axis_title_just = \"rt\",   plot_margin = ggplot2::margin(30, 30, 30, 30),   grid_col = \"grey93\",   grid = TRUE,   axis_col = \"#cccccc\",   axis = FALSE,   ticks = FALSE )"},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"base_family, base_size base font family size plot_title_family, plot_title_face, plot_title_size, plot_title_margin plot title family, face, size margi subtitle_family, subtitle_face, subtitle_size plot subtitle family, face size subtitle_margin plot subtitle margin bottom (single numeric value) strip_text_family, strip_text_face, strip_text_size facet label font family, face size caption_family, caption_face, caption_size, caption_margin plot caption family, face, size margin axis_text add x y axes text? X, Y axis_text_size font size axis text axis_title_family, axis_title_face, axis_title_size axis title font family, face size axis_title_just axis title font justification, one [blmcrt] plot_margin plot margin (specify ggplot2::margin()) grid_col, axis_col grid & axis colors; default #cccccc grid panel grid (TRUE, FALSE, combination X, x, Y, y) axis add x y axes? TRUE, FALSE, \"xy\" ticks ticks TRUE add ticks","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"building-upon-theme-tntp","dir":"Reference","previous_headings":"","what":"Building upon theme_tntp","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"function setup way can customize one just wrapping call changing parameters. See source examples.","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"gotchas","dir":"Reference","previous_headings":"","what":"Gotchas","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"distinctions font names various devices. Names work display graphics devices bitmap ones png may work well PostScript PDF ones. may need two versions font-based theme function work particular situation. situation usually arises using newer font many weights somewhat irregular internal font name patterns. option hrbrthemes.loadfonts -- set TRUE -- call extrafont::loadfonts() register non-core fonts R PDF & PostScript devices. running Windows, package calls function register non-core fonts Windows graphics device.","code":""},{"path":"https://tntp.github.io/tntpr/reference/theme_tntp_2018.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"A precise & pristine ggplot2 theme with opinionated defaults and an emphasis on typography — theme_tntp_2018","text":"","code":"if (FALSE) { library(ggplot2) library(dplyr)  # seminal scatterplot ggplot(mtcars, aes(mpg, wt)) +   geom_point() +   labs(     x = \"Fuel effiiency (mpg)\", y = \"Weight (tons)\",     title = \"Seminal ggplot2 scatterplot example\",     subtitle = \"A plot that is only useful for demonstration purposes\",     caption = \"Brought to you by the letter 'g'\"   ) +   theme_ipsum()  # seminal bar chart  update_geom_font_defaults()  count(mpg, class) %>%   ggplot(aes(class, n)) +   geom_col() +   geom_text(aes(label = n), nudge_y = 3) +   labs(     x = \"Fuel efficiency (mpg)\", y = \"Weight (tons)\",     title = \"Seminal ggplot2 bar chart example\",     subtitle = \"A plot that is only useful for demonstration purposes\",     caption = \"Brought to you by the letter 'g'\"   ) +   theme_ipsum(grid = \"Y\") +   theme(axis.text.y = element_blank()) }"},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP Brand Colors — tntp_colors","title":"TNTP Brand Colors — tntp_colors","text":"Translate human friendly TNTP brand color names like \"medium_blue\" accurate hex values use plotting. function can also used show named vector available TNTP brand colors values. Use show_tntp_colors() quickly visualize selected colors plot window. often used palettes TNTP colors, see tntp_palette().","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP Brand Colors — tntp_colors","text":"","code":"tntp_colors(...)  show_tntp_colors(   ...,   pattern = NULL,   labels = TRUE,   borders = NULL,   cex_label = 1,   ncol = NULL )"},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP Brand Colors — tntp_colors","text":"... Supply quoted TNTP color names return. colors specified, returns available colors. pattern Optional regular expression. provided, return brand colors match regular expression labels Logical. Label colors names hex values? borders Border color tile. Default uses par(\"fg\"). Use border = NA omit borders. cex_label Size printed labels, multiplier default size. ncol Number columns. supplied, tries square possible.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_colors.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP Brand Colors — tntp_colors","text":"","code":"library(ggplot2)  # Use tntp_colors() to retrieve a single color... ggplot(mtcars, aes(wt, mpg)) +   geom_point(color = tntp_colors('green'))   #... multiple colors ... ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +   geom_point() +   scale_color_manual(values = tntp_colors('green', 'navy', 'red'))   #... or a list of all possible TNTP brand colors tntp_colors() #>                mint|light_green gray|grey|light_gray|light_grey  #>                       \"#E2EDDC\"                       \"#F1F1EE\"  #>                           white                           black  #>                       \"#FFFFFF\"                       \"#000000\"  #>            yellow|medium_yellow                       navy|blue  #>                       \"#FDE57B\"                       \"#00355F\"  #>                  pink|light_red                             red  #>                       \"#FDDACA\"                       \"#C31F46\"  #>                           green    charcoal|dark_gray|dark_grey  #>                       \"#317D5C\"                       \"#4A4A4A\"  #>                tangerine|orange               salmon|medium_red  #>                       \"#F26C4C\"                       \"#DA8988\"  #>                            gold               moss|medium_green  #>                       \"#F2CF13\"                       \"#8FB09D\"  #>                  sky|light_blue            cerulean|medium_blue  #>                       \"#81D3EB\"                       \"#00A5C7\"  #>                    light_yellow         medium_gray|medium_grey  #>                       \"#FAEDB8\"                       \"#9E9E9C\"  #>                       dark_gold                      dark_green  #>                       \"#C2A60A\"                       \"#1D4935\"  #>                        dark_red                         green_4  #>                       \"#7C132C\"                       \"#60977D\"  #>                         green_2                          blue_4  #>                       \"#B9CFBD\"                       \"#006D93\"  #>                          blue_2                           red_4  #>                       \"#41BCD9\"                       \"#CF5467\"  #>                           red_2                        yellow_4  #>                       \"#ECB2A9\"                       \"#F8DA47\"  #>                        yellow_2                   gray_4|grey_4  #>                       \"#FCE99A\"                       \"#747473\"  #>                   gray_2|grey_2  #>                       \"#C7C7C5\"   # Use show_tntp_colors() to quickly see brand colors in the plotting window show_tntp_colors('mint', 'moss', 'green')   # You can also use a pattern to return similar colors show_tntp_colors(pattern = 'green')   # You can see all colors (and names) by running it with no arguments show_tntp_colors()"},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":null,"dir":"Reference","previous_headings":"","what":"TNTP Credential Get/Set Command — tntp_cred","title":"TNTP Credential Get/Set Command — tntp_cred","text":"wrapper around keyring package secure credential management. tntp_cred() attempt get credential, credential found prompt add (return ). tntp_cred_set() set credential. default prompt overwriting current credentials. tntp_cred_list() list current credentials sorted service username.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"TNTP Credential Get/Set Command — tntp_cred","text":"","code":"tntp_cred(service, username = NULL, keyring = NULL, prompt = NULL)  tntp_cred_set(   service = NULL,   username = NULL,   keyring = NULL,   prompt = NULL,   overwrite = NULL )  tntp_cred_list(service = NULL, keyring = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"TNTP Credential Get/Set Command — tntp_cred","text":"service identifier credential pulling setting username OPTIONAL. Can used specify different usernames service keyring OPTIONAL. Can used specify specific keyring prompt OPTIONAL. text displayed input box key setting? overwrite OPTIONAL. default, tntp_cred_set() prompt finds credential already saved. Set TRUE overwrite without prompting FALSE throw error current credential found.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"value","dir":"Reference","previous_headings":"","what":"Value","title":"TNTP Credential Get/Set Command — tntp_cred","text":"stored (newly created) credential","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_cred.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"TNTP Credential Get/Set Command — tntp_cred","text":"","code":"if (FALSE) { # Using tntp_cred() with qualtRics library(qualtRics)  # If no credential is set, this command will prompt for it first qualtrics_token <- tntp_cred(\"QUALTRICS_TOKEN\") qualtrics_api_credentials(api_key = qualtrics_token,                           base_url = 'tntp.co1.qualtrics.com')  # To overwrite your Qualtrics credential tntp_cred(\"QUALTRICS_TOKEN\", .set = TRUE) }"},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":null,"dir":"Reference","previous_headings":"","what":"Common TNTP Color Palettes — tntp_palette","title":"Common TNTP Color Palettes — tntp_palette","text":"Use see","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Common TNTP Color Palettes — tntp_palette","text":"","code":"tntp_palette(palette = \"likert_6\", reverse = FALSE)  show_tntp_palette(..., reverse = FALSE, pattern = NULL)"},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Common TNTP Color Palettes — tntp_palette","text":"palette Name TNTP palette want use. see available palettes, use show_tntp_palette() reverse Logical. set TRUE, reverses direction palette. ... Supply quoted TNTP palette names visualize. names specified, shows available palettes. pattern Optional regular expression. provided, return palettes match regular expression","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_palette.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Common TNTP Color Palettes — tntp_palette","text":"","code":"library(ggplot2)  # Use to add a common palette to a ggplot visualization ggplot(diamonds, aes(y = color, fill = cut)) +   geom_bar(position = \"fill\") +   scale_fill_manual(values = tntp_palette('blues', reverse = TRUE))    # Use show_tntp_palette() to visualize a single or multiple palettes show_tntp_palette('likert_7')  show_tntp_palette('bg_5', 'likert_5')   # You can use a pattern to show similar palettes show_tntp_palette(pattern = 'top2')  show_tntp_palette(pattern = '_6')   # Or run it with no specified palettes to see all available palettes show_tntp_palette()   # For creating a continuous color palette, use scale_color_gradient() # along with tntp_colors(): ggplot(mtcars, aes(hp, disp, color = mpg)) +   geom_point(size = 3) +   scale_color_gradient(low = tntp_colors('red'),                        high = tntp_colors('green'))"},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":null,"dir":"Reference","previous_headings":"","what":"Create TNTP themed ggplot2 charts — tntp_style","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"custom theme including TNTP fonts defaults styling ggplot2 charts.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"","code":"tntp_style(   family = \"Halyard Display\",   header_family = family,   base_size = 28,   text_color = \"#222222\",   caption_color = \"#7D7E81\",   show_legend_title = FALSE,   show_axis_titles = FALSE,   grid = FALSE,   grid_color = \"#CBCBCB\",   title_align = \"left\",   legend_align = \"left\",   caption_align = \"right\" )"},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"family Base font family. Defaults \"Halyard Display\". header_family Font family title subtitle. Defaults base font family. base_size Base font size. Recommended minimum value 15. text_color Text color titles, axes, legends, facets. caption_color Text color caption. show_legend_title Logical. legend title shown?  Leave TRUE want change legend title subsequent line + labs(...). show_axis_titles axis titles shown? Use TRUE FALSE toggle titles, x y show just axis title. grid grid lines shown? Use TRUE FALSE toggle grid lines, string combination X, x, Y, y major minor x y grid lines. grid_color Grid line color. title_align, legend_align, caption_align Alignment title, legend, caption. Accepts left, right, center.","code":""},{"path":"https://tntp.github.io/tntpr/reference/tntp_style.html","id":"ref-examples","dir":"Reference","previous_headings":"","what":"Examples","title":"Create TNTP themed ggplot2 charts — tntp_style","text":"","code":"if (FALSE) { library(tntpr) library(dplyr) library(ggplot2)  fake_county |>   filter(t_salary > 0) |>   ggplot(aes(t_experience, t_salary)) +   geom_point() +   scale_y_continuous(labels = scales::dollar) +   labs(     title = \"Salary Increases with Experience\",     subtitle = \"With significant variation at all levels\",     x = \"Years of Experience\",     caption = \"Data from the Fake County Data Set\"   ) +   tntp_style(show_axis_titles = \"x\")  frpl_experience <- fake_county |>   mutate(frpl_bucket = cut(sch_frpl_pct,     breaks = c(0, 20, 40, 60, 80, 100),     labels = c(\"0-20%\", \"20-40%\", \"40-60%\", \"60-80%\", \"80-100%\")   )) |>   group_by(frpl_bucket) |>   summarize(avg_experience = mean(t_experience, na.rm = TRUE)) |>   mutate(     label = as.character(round(avg_experience, digits = 1)),     label = if_else(frpl_bucket == \"0-20%\", paste0(label, \"\\nYears of\\nExperience\"), label)   )  frpl_experience |>   ggplot(aes(frpl_bucket, avg_experience)) +   geom_col(fill = if_else(frpl_experience$frpl_bucket == \"60-80%\",     tntp_colors(\"tangerine\"),     tntp_colors(\"medium_gray\")   )) +   geom_text(aes(label = label),     nudge_y = -0.25, vjust = 1,     color = \"white\", size = 5, lineheight = 1,     family = \"Segoe UI\"   ) +   labs(     title = \"High Poverty Schools have Less Experienced Teachers\",     x = \"% of Student Body Receiving Free/Reduced Lunch\"   ) +   scale_y_continuous(breaks = seq(0, 20, 4)) +   tntp_style(     base_size = 20,     show_axis_titles = \"x\"   ) }"},{"path":"https://tntp.github.io/tntpr/reference/tntpr.html","id":null,"dir":"Reference","previous_headings":"","what":"Data Analysis Tools Customized for TNTP — tntpr","title":"Data Analysis Tools Customized for TNTP — tntpr","text":"-house TNTP R package. Includes tools data manipulation, analysis, reporting, including making TNTP-themed charts documents. TNTP data-using staff, though available broader public.","code":""},{"path":[]},{"path":"https://tntp.github.io/tntpr/reference/update_geom_font_defaults.html","id":null,"dir":"Reference","previous_headings":"","what":"Update matching font defaults for text geoms — update_geom_font_defaults","title":"Update matching font defaults for text geoms — update_geom_font_defaults","text":"Updates [ggplot2::geom_label] [ggplot2::geom_text] font defaults","code":""},{"path":"https://tntp.github.io/tntpr/reference/update_geom_font_defaults.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Update matching font defaults for text geoms — update_geom_font_defaults","text":"","code":"update_geom_font_defaults(   family = \"Segoe UI\",   face = \"plain\",   size = 3.5,   color = \"#2b2b2b\" )"},{"path":"https://tntp.github.io/tntpr/reference/update_geom_font_defaults.html","id":"arguments","dir":"Reference","previous_headings":"","what":"Arguments","title":"Update matching font defaults for text geoms — update_geom_font_defaults","text":"family, face, size, color font family name, face, size color","code":""},{"path":"https://tntp.github.io/tntpr/reference/update_tntpr.html","id":null,"dir":"Reference","previous_headings":"","what":"Re-install the tntpr package from GitHub. — update_tntpr","title":"Re-install the tntpr package from GitHub. — update_tntpr","text":"Re-install tntpr package GitHub.","code":""},{"path":"https://tntp.github.io/tntpr/reference/update_tntpr.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Re-install the tntpr package from GitHub. — update_tntpr","text":"","code":"update_tntpr()"},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":null,"dir":"Reference","previous_headings":"","what":"Fake student data from the Wisconsin State Dept. of Ed — wisc","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"generated data set containing data 1200 imaginary individual K-12 students Wisconsin.  nested within 6 schools 3 districts.  adapting source, Sam switched school district variables (multiple districts per school) made minor changes, including dropping columns understand seem relevant (e.g., variables like \"luck\" used calculate reading math scores).","code":""},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":"ref-usage","dir":"Reference","previous_headings":"","what":"Usage","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"","code":"wisc"},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":"format","dir":"Reference","previous_headings":"","what":"Format","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"data frame 2700 rows 26 variables: student_id numeric: student's unique ID # grade numeric: grade level district numeric: district code school numeric: school code white numeric: student white? black numeric: student black? hisp numeric: student Hispanic? indian numeric: student Native-American Indian? asian numeric: student Asian? econ numeric: student economically-disadvantaged? female numeric: student female? ell numeric: student English Language Learner? disab numeric: student learning disability? year numeric: school year attday numeric: days attended readSS numeric: student's reading standardized test score mathSS numeric: student's math standardized test score proflvl factor: student's proficiency level race factor: student's single-category race","code":""},{"path":"https://tntp.github.io/tntpr/reference/wisc.html","id":"source","dir":"Reference","previous_headings":"","what":"Source","title":"Fake student data from the Wisconsin State Dept. of Ed — wisc","text":"https://github.com/jknowles/r_tutorial_ed/, posted Creative Commons license. script used generate data set , although well documented: https://github.com/jknowles/r_tutorial_ed/blob/master/data/simulate_data.R","code":""}]