From b83523635a6ff8892bd15ab11d547decdcdac644 Mon Sep 17 00:00:00 2001 From: Jonathan Callahan Date: Wed, 14 Aug 2024 19:48:48 -0700 Subject: [PATCH] fix: bug in clusterByDistance() when nrow(tbl) < maxClusters --- DESCRIPTION | 2 +- NEWS.md | 5 ++++ R/clusterByDistance.R | 23 +++++++++++++++--- docs/404.html | 2 +- docs/LICENSE-text.html | 2 +- docs/articles/Developer_Style_Guide.html | 2 +- docs/articles/MazamaLocationUtils.html | 6 ++--- docs/articles/index.html | 2 +- docs/authors.html | 6 ++--- docs/index.html | 2 +- docs/news/index.html | 10 +++++--- docs/pkgdown.yml | 4 +-- docs/reference/LocationDataDir.html | 2 +- docs/reference/MazamaLocationUtils.html | 2 +- docs/reference/apiKeys.html | 2 +- docs/reference/clusterByDistance-1.png | Bin 22797 -> 23145 bytes docs/reference/clusterByDistance.html | 2 +- docs/reference/coreMetadataNames.html | 2 +- docs/reference/getLocationDataDir.html | 2 +- docs/reference/id_monitors_500.html | 4 +-- docs/reference/index.html | 2 +- .../initializeMazamaSpatialUtils.html | 2 +- docs/reference/location_createID.html | 2 +- docs/reference/location_getCensusBlock.html | 2 +- docs/reference/location_getOpenCageInfo.html | 2 +- .../location_getSingleAddress_Photon.html | 2 +- .../location_getSingleAddress_TexasAM.html | 2 +- .../location_getSingleElevation_USGS.html | 2 +- docs/reference/location_initialize.html | 2 +- docs/reference/or_monitors_500.html | 4 +-- docs/reference/pipe.html | 2 +- docs/reference/setLocationDataDir.html | 2 +- docs/reference/table_addClustering-1.png | Bin 23359 -> 23146 bytes docs/reference/table_addClustering.html | 2 +- docs/reference/table_addColumn.html | 2 +- docs/reference/table_addCoreMetadata.html | 2 +- docs/reference/table_addLocation.html | 2 +- docs/reference/table_addOpenCageInfo.html | 2 +- docs/reference/table_addSingleLocation.html | 2 +- docs/reference/table_filterByDistance.html | 2 +- .../table_findAdjacentDistances.html | 2 +- .../table_findAdjacentLocations.html | 2 +- .../table_getDistanceFromTarget.html | 2 +- docs/reference/table_getLocationID.html | 2 +- docs/reference/table_getNearestDistance.html | 2 +- docs/reference/table_getNearestLocation.html | 2 +- docs/reference/table_getRecordIndex.html | 2 +- docs/reference/table_initialize.html | 2 +- docs/reference/table_initializeExisting.html | 2 +- docs/reference/table_leaflet.html | 2 +- docs/reference/table_leafletAdd.html | 4 +-- docs/reference/table_load.html | 2 +- docs/reference/table_removeColumn.html | 2 +- docs/reference/table_removeRecord.html | 2 +- docs/reference/table_save.html | 4 +-- docs/reference/table_updateColumn.html | 2 +- docs/reference/table_updateSingleRecord.html | 2 +- docs/reference/validateLocationTbl.html | 2 +- docs/reference/validateLonLat.html | 2 +- docs/reference/validateLonsLats.html | 2 +- .../reference/validateMazamaSpatialUtils.html | 2 +- docs/reference/wa_airfire_meta.html | 8 +++--- docs/reference/wa_monitors_500.html | 4 +-- tests/testthat/test-clusterByDistance.R | 22 +++++++++++++++++ 64 files changed, 125 insertions(+), 77 deletions(-) create mode 100644 tests/testthat/test-clusterByDistance.R diff --git a/DESCRIPTION b/DESCRIPTION index f5c8e59..1ea0731 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -1,6 +1,6 @@ Type: Package Package: MazamaLocationUtils -Version: 0.4.3 +Version: 0.4.4 Title: Manage Spatial Metadata for Known Locations Authors@R: c( person("Jonathan", "Callahan", email="jonathan.s.callahan@gmail.com", role=c("aut","cre")), diff --git a/NEWS.md b/NEWS.md index fdfab02..55819bf 100644 --- a/NEWS.md +++ b/NEWS.md @@ -1,3 +1,8 @@ +# MazamaLocationUtils 0.4.4 + +* Fixed bug in `clusterByDistance()` which could fail when incoming tibbles +had very few rows. + # MazamaLocationUtils 0.4.3 * Updated `location_getSingleElevation_USGS()` to use new USGS API. diff --git a/R/clusterByDistance.R b/R/clusterByDistance.R index e14c299..3f22a19 100644 --- a/R/clusterByDistance.R +++ b/R/clusterByDistance.R @@ -128,10 +128,14 @@ clusterByDistance <- function( # Perform clustering for ( clusterCount in 1:maxClusters ) { - if ( nrow(tbl) < 2000 ) { - clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)],clusterCount) + + if ( nrow(tbl) <= clusterCount ) { + # NOTE: k = positive integer specifying the number of clusters, less than the number of observations. + clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)], nrow(tbl) - 1) + } else if ( nrow(tbl) < 2000 ) { + clusterObj <- cluster::pam(tbl[,c(lonVar,latVar)], clusterCount) } else { - clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)],clusterCount, samples = 50) + clusterObj <- cluster::clara(tbl[,c(lonVar,latVar)], clusterCount, samples = 50) } clusterLats <- clusterObj$medoids[,latVar] diameters <- 2 * clusterObj$clusinfo[,'max_diss'] # decimal degrees @@ -141,6 +145,19 @@ clusterByDistance <- function( radianClusterLats <- clusterLats * pi/180 meters <- diameters * (1 + cos(radianClusterLats))/2 * 111320 if ( max(meters) < clusterDiameter ) break + + } + + # NOTE: If we only had a very small table with widely separate locations, + # NOTE: we can end up never satisfying max(meters) < clusterDiameter. In this + # NOTE: case, every location represents a separate cluster + if ( nrow(tbl) <= clusterCount ) { + for ( i in 1:seq_len(nrow(tbl)) ) { + tbl$clusterLon <- as.numeric(tbl[[lonVar]][i]) + tbl$clusterLat <- as.numeric(tbl[[latVar]][i]) + tbl$clusterID <- i + } + return(tbl) } # Create the vector of deployment identifiers diff --git a/docs/404.html b/docs/404.html index a619d86..9563bf2 100644 --- a/docs/404.html +++ b/docs/404.html @@ -32,7 +32,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/LICENSE-text.html b/docs/LICENSE-text.html index aad5712..54ef4c9 100644 --- a/docs/LICENSE-text.html +++ b/docs/LICENSE-text.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/articles/Developer_Style_Guide.html b/docs/articles/Developer_Style_Guide.html index 8b33173..2f1b2d1 100644 --- a/docs/articles/Developer_Style_Guide.html +++ b/docs/articles/Developer_Style_Guide.html @@ -33,7 +33,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/articles/MazamaLocationUtils.html b/docs/articles/MazamaLocationUtils.html index 94d90fc..810a2ab 100644 --- a/docs/articles/MazamaLocationUtils.html +++ b/docs/articles/MazamaLocationUtils.html @@ -33,7 +33,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -312,8 +312,8 @@

Finding known locations latitude = lats, distanceThreshold = 250 ) %>% dplyr::pull(city) -
##  [1] "Burbank"      "Newport"      "Soap Lake"    "Shelton"      NA            
-##  [6] NA             "Cle Elum"     "Longview"     NA             "Wenatchee"   
+
##  [1] "Burbank"      "Newport"      NA             "Shelton"      "Winthrop"    
+##  [6] NA             NA             "Longview"     "Enumclaw"     "Wenatchee"   
 ## [11] "Mount Vernon" NA             "LaCrosse"
 # How about 5000 meters?
diff --git a/docs/articles/index.html b/docs/articles/index.html
index c740d1d..12846b2 100644
--- a/docs/articles/index.html
+++ b/docs/articles/index.html
@@ -17,7 +17,7 @@
       
       
         MazamaLocationUtils
-        0.4.3
+        0.4.4
       
     
diff --git a/docs/authors.html b/docs/authors.html index c862118..5ebcae8 100644 --- a/docs/authors.html +++ b/docs/authors.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -84,13 +84,13 @@

Citation

Callahan J (2024). MazamaLocationUtils: Manage Spatial Metadata for Known Locations. -R package version 0.4.3, https://github.com/MazamaScience/MazamaLocationUtils. +R package version 0.4.4, https://github.com/MazamaScience/MazamaLocationUtils.

@Manual{,
   title = {MazamaLocationUtils: Manage Spatial Metadata for Known Locations},
   author = {Jonathan Callahan},
   year = {2024},
-  note = {R package version 0.4.3},
+  note = {R package version 0.4.4},
   url = {https://github.com/MazamaScience/MazamaLocationUtils},
 }
diff --git a/docs/index.html b/docs/index.html index a51a45b..155ab0d 100644 --- a/docs/index.html +++ b/docs/index.html @@ -36,7 +36,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/news/index.html b/docs/news/index.html index d9f3a97..c1a433b 100644 --- a/docs/news/index.html +++ b/docs/news/index.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -61,8 +61,12 @@

Changelog

- -
+
+ +
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml index 2f36865..f9b9544 100644 --- a/docs/pkgdown.yml +++ b/docs/pkgdown.yml @@ -1,8 +1,8 @@ -pandoc: 3.1.2 +pandoc: 3.1.1 pkgdown: 2.0.7 pkgdown_sha: ~ articles: Developer_Style_Guide: Developer_Style_Guide.html MazamaLocationUtils: MazamaLocationUtils.html -last_built: 2024-01-23T19:14Z +last_built: 2024-08-15T02:46Z diff --git a/docs/reference/LocationDataDir.html b/docs/reference/LocationDataDir.html index 6df155b..6f2d955 100644 --- a/docs/reference/LocationDataDir.html +++ b/docs/reference/LocationDataDir.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4
diff --git a/docs/reference/MazamaLocationUtils.html b/docs/reference/MazamaLocationUtils.html index 8f2ca91..691de3c 100644 --- a/docs/reference/MazamaLocationUtils.html +++ b/docs/reference/MazamaLocationUtils.html @@ -22,7 +22,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/apiKeys.html b/docs/reference/apiKeys.html index 8fe78bd..34e7f2c 100644 --- a/docs/reference/apiKeys.html +++ b/docs/reference/apiKeys.html @@ -21,7 +21,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/clusterByDistance-1.png b/docs/reference/clusterByDistance-1.png index 3926a693448b29672355a1806114fbc1af8d1332..39f84ac0709c7b4882e23685f5da427915a393d6 100644 GIT binary patch literal 23145 zcmeFZX;_l$+BZ(~s+L*1!BW#&p{|yxnK@6Z%_i6Ram2_pX+TzfzJ|32@B=gWH>&xg%%6yDc(Ugvd=zw_4n z7woL%wkd7{fk1MQvwvO!fi^{hKpU?9v>9k&WWJaKzBXUAvHlbI20qJH1T^rq_4--Y zND$~?lJwuY)QNc?5a}k_UH5Gc6RLAxc(QG|DNl6PCrgge>3#g^|YX0 zvd)4woIN!4s&}ztL?7PNgl%dPI_5=UJuB*#VwMI(1ESdOl9Q#Y-yN79G6Mhe-+wsp z9}fJ@ftHlIpuSC&SPxnVt^%7{!#P|epR64K}Z<<3LIDV z>rQD;0*xE;QvkgNC*C$~ z(|nS)McaoMH;_tAA~TE$SdpWuGTQ^1XEc05Hr-|F!aCk(&al0+hVmG!1FE{8Z5jF- zP1aZW+G-OKZJv+r-^@cu!dE*}E48JIf_8ibCMmQpDupy&A2O0G9MRk^+sw+?u|?E2 zzf#`Xz+UAf9yuyCVIY^_j*m?stk9Ab{brS5lcLlSRR3H?o!6uV?ej3DTr@sB zma*^4dg+W~_gVwCwoG!%mK^O%R$nv~3LUL@!%Dasth{5ElcxjMoee`_ZIu2RRV{^8 z`Z$F>ViiLu%y?>CV2>D~U{B!Lt$T-&+Xgu=+8+E!N%1?_{l? z5x&XK>IdqBq9FV7x)n`Y>t;fKpjh)X zbEQF1$QQbk#v{?bUF%v*R4#H=@qW&pRbwl0>Qu>}R`&=`Svb$^Y}BCh9zt7u(TgS3 z9Qa{?(Cxtid@f&0a&W#UDO`M?X02Xsju20Q+{X$NC2}U{zPraxXerirAXz_VIL(fp zm%~>ftRK0YM!9B{nx{dyg3@?+toY8+zMnv#mN6H%IMd~4jnid+4bwg;&RNhLaGF@t zP**spvh|o4_w8slfLqD(-}IUbA!8a zO!HfU&0gELM&mo4blwSQ%S}ED1dz@*hp`ff)wttnu$-=tZekFnWf00gZ z;)vzsT}4TpXC`w5vSw@bQ-?y`kjqL z#&jgj5Gp8*FN_(w0+Sfh(s2^Ki6&rPe`Ayr)Va7!kG(HQx!Jvy>D`PTJiYGt!Sy2p z(SBCAyBdy&a%#vAcs2uCZ1CN*sr*HicneP8oMo`_9Wej8k;Q=U>uk)*(yuMKyXUBV ze440T4(OPCn~c+-HvI%LXt(MEp1u4`NiS?$$Cr{dCs%sjtv=c8EzeTbh&_#ZiHi4|qCnvT=+Sd6ES%zlb1!jXlHEN?CW+=BE(fCe0)bjHU=hy=M z6h!V{Bx&d98}(72BPt$o;wL<0!BM8Xv@ykG{YYCRJ#n*uF@?e@I1`GmS133kN-Xs6 zqNHZO<)Up1A=<*^wqVHJ<3th4L$63Ao!4?POwrs47?IEx#V_3s@`~I@1ez=LV*UFz zfhxrSJ6V5m=vYQqlhk8H-6_^LEAWXxb)VN<@1-v7MPZ8_RV(6ar_4%!mab^@0T5p1 zCYmX>B3Gu?m8a}+`KHsqfQ+&e5GYc-G7sj_Q;DT_OGktH_k0~&65?sS8Ze0)e}qG> zIV!zkkjphdK;ho}MZo-7w|gVXw98=b!&eM^q^AKTpKUQ!;)VSbg^n8QKY~qlRxqr+ z4zwq5uj4s-yDQK|gZiPo9LQTG8X4rK_)Eg5jb>^eLG=-8n~1Yc890ii7hx zd)X>Zq-voHzbKJbVL#HxkrJ2Ccw{usGRrA7)TK;R%faqtr&f^bV!j&CW%EBC08GB{ zPyP_cfYwOs#UZ+Df00h}Dpxk0UT^eDOha{W*-9!+QK43*GG2`Sst(8l{p9y)F~e0s z<{Um|?vn~0U^G8$0~EP0u)8!__8hfu9d9Z66L6K%Pn3$5qU?u#PZAKT9xmd^zlTkx z0?%>w{J1p_3Cgxy57<6{_DvIqgBUEO)X~9V){n=5%mxK1+`+i1LXjkMra-Vv*%1HZV z7oe`HP<+|Q&|J-rJPw@J<>$Ib+EuxKBe6y>z`02iq*kc9#T5!CbDX470XnvE9WS=u zlT>L^BTVAF#2vJqh|ih|_6}BRF**@U%Q^c|_XiCHGhBa-t`!04H3Nd3!(sig*)cSeoA)0>6^93Nlu7p3~-kBE6p2i_d~zmmfwOhOf5Y7w?7+@ru={<|N@*1KPuR zUaGjso!ek8zbEgTQ=x9?HW&;;lqAiH+UcHd;j46KBGZR9l4&)ZW&hC}p=lwF8d?l? z&i%FC?MZ^*dh1|@I7%nKUy>>(jzW8n^(Uz>N&GkP^cuy~cdM;UTwazCtcj9*Z`5RWzukB?~M83t1fr3b0xZzNVG z>^nS~H}gm|1fR5BY9|FMR|I@}K}e%D+c0XNM2nCNLClmQz1%>m3|_l_ioUW=>yH-E z*F;4@T|9Hx+dY1C;PX=94w6tH-p$sjSVfNUi*R2e(-TJsnytgMNhuS6KwIb7bL5U_ zfg}1;yJ*x`OhU1N#vCKh?p8wEMIkCHn5NsHhbRjFC<+VN9#@o2WI0x0q-l+WSl z?(WF%t2~E5zzLjX*8CPnG=1k!=o@WuD*7p&*!-$?)bN!@tY*i!YhyqZm4z!V)nyiV z0t+`Fc?jZnx08-^7$$8Z24&@inuoIRqxxOQ1iJ3>$*lJh_Y~beC z`5=v@<}W)z=q6#$ULNuyJdmHEIl^<8{<2j{|8e+Y!!3bI8EGL(zk7CcZ#~Xjxs3CW zvxxhMcG*(iPP&m{%qyV=G%E1Uj7VbVgI*SuCXOx-CSF*vHkgZ-?yBsQk_TUR?2b3q)G!ad z({_kB4{1hn410bvC)4S@3VZk;H1!uW`=4^fQK%adj(nj9eJ*IMSJZkE<#VjG$jw*72 zCnwUHd2SOH=?vA1g?JHGb$0a7eqgRwT0qZn;8@kW&<^I$r#3!Byb1k0ccBW2Smfx_ z=w;!n^O~@Niyj6r!>JxxujzIDS&@5uC4=cCI3NgP&K<8;)4{Dq^1G89jHI-*IA?bx zm6lCDfJ@Jhjpo13CZ7b=DfAkkEX4NhIHmuYh5^;C-gR!AA9g32#8V>qUpd=-P zAmy)0_2w<6B`-4m8b3EwH1d`g5Pf#gv#eoqnRb-5D({SUWv>zd8omdjcOdjjE18k^ zxEDybr4Fb6?MCADN=juE<&j+3KgdnDRU@L3Ia^t)1&$S=KY3;m2`2c%4?PCUO>PNi z&BF^axspY!mlX@hqS*I$sL|`Q_<5E1esPkwd%PyBj&Z#Cs*fp^+{9a%Coip z37bxKuj3t{DY);rEO}w#w}DP7+<;=+Ee)DG$`7kP%SJDKw~(f?EknEK?A}(@XoDu- zU1APDvr{HG@Tqc_O$So0RBOzBfDv%W_wQB-O6$iSHF@$=TC=4x*0ST}7M-7+rwIgt zmF0Nwi6Qa)eQ~5oC41J5K@T1in|Vp2ql9xU+u?IopAG);vAljbXe^&M`-yvC$>7ch zy5UArk|?=0N__@ONPOFMf1{wxV(! zhp{G&CNG+W*kLfba-3~FCy;Trcsc$QD)pzS{{{{cW|(^^& z_~w|8PlDFgxSfJqZ5;Fz$HBAqvIQw@_2KFmZggxIyjQC{Z2*O8?G}x#1==m=J-$5N zoo6}y$G(A+&^e1H6KU2-r)@E~-sOk0b_xr1;fsD8?UUVo~-3p`>jjo^x*GLWi;YS5J+@R5^0FPh{`(C#Y{ zXP@ENsiJ26wiwxZQMCb^iJot$N&;1AT)l9Bvr6Ntk4*d04&u4IEKVS||o;B4`aUi{FntH%0C{uxnJ*<9+X7$T0 zYhrBqpE-apk)_8VgWxc$X9;EfQPmpttA0%S&e8bjvHlDi8n+t6M;-hzERitWSHBQR zFIN8#MwD(h9t>6=6-U64{Hnx5krT_BID9b6uRl~nzt+n|s2$%FbAkVuDX4o^1{PoIJ zQyQX9c{IQ2!}2pIw032f6r6|RVpn5w1@ERZ8?|IvI|xYfW{0XLXe3X>e!AA(zo3pC zA*VbRN5>Mof6T!r%_=7n1o=q~OentLaEUCpNchJbHLqBI<##e-H{GHnPuzOhEf2L~ z5@{D~JZe6_Q^3%pihej^8L)p5xwqr|JdAlFr5S%e$Wu3ksaxbW*;Upt-vpnG4Y(@l z1lH%XqJ=WB3J7GRf?QO;-gD?(9X*A$q1dsLxIAQ(AA1jJ^On16^^swolC6aYFDFes2rou18d-35F4~oluWk?!SVrW?-n}vf-Y(S{rH*+BpdGtdKbngj zJ`63ZvVJgV!}J_PS3{W}lpo1jRZ1;ACKZWA4x1W% z9)afHN=y72<(wC-{*^6cQ zdc1q`lN4$K0c$#z_NgM=EQUXM3pTN)SvYU(G&aut2idfz*w;f!E$BG9{=}%q)L=+# z#c9M;*aWZjmoD(U z)<63JU=iY6tXJnMET5e@9Ld>7n|3Gg=DM%~N4z^*MNpxQi?0{vBw9)*0N7I?aE&;n z!L7>okI3C)(`Grgw8q^XBTZMSl3?Q@Qhki8)uC8;>xO9+mpEu^YhQlPr}D3KeEBu$ z^ilt6e4YFD;2Vq*m7WE^SYQ5LO)ArGY{mZMod%pSS$Ow;V{ypoD);lrGN}Dra$-sL z=p~e@(Ei5HxaXc~R+n%5tL-r$94Ng-1VOir5D-z2tk1PN{<=~%U zB$50(9ED=XBQmP5082kge6?!J9oi?S8t~&`acTH!D{Gk%JQrV_vdFwXUKC=gxyE_T z=;E>L1I>~;n!J-vxyq+ceo-1GamtqX_GLy2%L%}qi#z7Y&&p-MfJ=1Ej_9nF??&<6 z=W+ce|AiXg*tGb$JLIXBfpq_bO?o=(cp3mWtXFn*nut`U3uD6$beM+B#UqqEYz#bh zNk>)AO#&FATVu?0j&l_pb|OV5gx?L|^FKNd#_Z*lbLbsnOQVI)(xIS~k0eFK-_Y0k z?gpoMV+H!L?KoT*r{#Ja0zMGEnuRkD8e)%g_Oggd?eyd|fK#d%j9pPqg5YTX{#DLj z1DQ2Nc0tRLvti!|qK}+uoF2BKtX!!(?nTq{m{|UM4usZ;i`z}N3`KPoDE>=99t2pt znl4L1Ht)tpDmqta1Ho&bUYLbb9ssJvxWJ!rTv_#>A+*%;$O^xQ0-5S(KOkvUXb*o} z8fJJdd>pEI!JGXWZyi=PYj8WJm?8!6K_CDUlihSH;6Ta&sE6mMntMfy!OfH7D&$`n zZZyH05CHEI*vgp%N;3wrIy?Yfv@lG*Dzie%CjnR5aCBtaKRm9rl|EuP{fBhXgto|! zf1_$%k*^QT%f*1FT8b8)+>$7%Z!d`oTNr%Vr7y>f3`myIY+dJSaV>;0 z8}9ABRI5A}nuT&?>*wud;*~m(Kf+{@&%QxltNJAPTp*+9@lqO%EH~nZ;5URzp4#^P z)rX4V=Q)ts0S;s-bPiI68z{|@y|;(P{qtRbraEXE**9IV(rXJt)HVh&m>dFQNd ztSk)!?WnK4h4@@Wt1*qh9e+u@9_hzdd6l+x5f#k(opderpw zr*e;tNsGfnFAsn6m_BvGGt@t9ZhR`MQS0CADAK>D5;e5{va@;9mActpEY3OClKkRP z>vnvjtXS(sRVGlTRr=nRteX5JZp}N-i>$L=kmmR|ztNIkaYx~$!PFRNw zYBqWR+`Kq(M`+JnW@0{B-k+tVxa6c-Q6B7Pc}+ILiv!GrRez|8lUv7gH}IsU@ca5g z17w`4JlY%FGq7Oc^%VQAm)FV2w)X9s@ zz$TUExeU)7pJc`>cMsok+c$hyu1tpv)B z_W2FCT+utD5qL(Vp|d57L>BgOG8{?+U{Z*^bDdx$(MzOic%55dxN%28hZkfdBE?G_KfLP*GlPS25ybUUM6@Pe!EjXCSVlr?T(>@KMci z2JCb=D|#9*-xb;=)Hg7Fa=bG?WnK!LfLaoPq$Q5>?#G)Qunb{S_{vSE@;JcDNms84 z!gd(k`HI33pjlA+K>j`{#s>nq2SVWio#wtkwh%G4Leij`6TaT`#^cDSTtc&OAfyxl z8>)_R=wxX|P8tpQuW4N&?-LAyq)7!7JSvWN5kvdXsUMj;`sty62U^~}lj zBb(sCfGPI_}(o;Bg$*V!8et0EN3gQ@Y*DHVj97 zW0x;0hk;sRftVXlqWSrH$jS`I3k-J8#RsR;L*7lf-;iO32?zc3PH_Wh`2lOyo|dlz zKu%L`3zLOnEqg-L-;lb$;AE^Ct^Bta2G&m2a%+$ZYwBwq0Ljmw(;S7^6be36aHUG{r^O$tuY_hY3YsspVvRQjDxM%0ml6y3|Gg4d-Bmtn9;S>g74m3g{Yl%^ z>-m>GYChz4L+zCXs#TP=yf($;nOwB0MM`tzJ*54C4ie3?T#r}A`l0o#bggvuCbB`^ z)wJU9o>k5~9}lHh=nDF1+zzoOuA?H7S@e7vMneOZy}Gqj=7$sXW3fVZrie50snP^d z7b1CAAC`yIWJ?y`wNnAiNqQui{|Ze`?8Uk}7ASeDdIIltEal#xo~@)3S=im}$btjB z=Grx@m)Ny5O1h!Ut8HI4r^!DOdA_lTzbDGmPYD~jwuTE>=XGr+Rw#BbgZUO@NlDXG zgXC6XQD4viZ6T0J53N>_ana!0JI3=R8x$6-@QdY#UKi4fgN69tE#RBokBvT?SBHCUh=N zyJEF4CY&#@c3Bh6i|n%-MiehC2~rqm@{ZpX$n3Zg_WvfLK-oJrWTEMiQC#w@EIO%V z1*^X?FB{b3$^tHsk=e7Y(abu^w2TAUgAQz-;@Za#ZIvVLln8$F55X*VR z8RU4=ta0elrLcLCOk`(V+;`2*VgUre4bFy7if!Ph_&6FH|6GQjBpeJG1iTsWZVrqg z{2D5!8B^dCS06L;WNq*M`PZadf@WwcP}WGIwb7Ckou^dXhYL;cG3WWu0}=cW;jwK` zre#;|wPCjBlLG?HujWiDHB5ftpwC}Ma59}bh(MvUTljy&mE2F7A(cHZn!gYZZ7yHF z0YKWC(YW}3f-y7xy+21wxJIkdRtw~dB3yBbh-vZfunu0eL(?#v3#0@yM`>#?5eu-m zq*!Hv@~MLb1$IYe3^Zj*E%qZ;oIyC(qkSHLOg1G*7$YR>PG=gTP%^tX8Xo=I^XG@| zJ-BsC@esN2)FbW&Z;V06RmWg8uzI69^d%i?O}f9Cgr}wKxIcd;_##Af=IY?%H-E-% zbPL;gb))W~pZ?erxpQM0%XnthyG&7E@LB~INH53MO)nmJd8W)Evb-@K#bcH@@o}z^ zQf4WQfVUI<`UHMz199*6uU3!5OE$7(T~Q+H{(>$}d+XaZR>0A@lKCcvsT3l)%1NVPG=JY6|`oC2|XBa)n?Bw>!F z?viOZNRE5f>7GZbk`mLhNa$XmH~qVGwd@l4SJ>U=h`yV(1K=!KMho(K(C%9J_4$2k z8A&bg+mFtTn9a+AP|$wqsQwzVEo#kT-#tnFc_cp6u3De+dB14&SIVUBn((`vUA&%F z*Tt7bNC~?hn%)*r8mEI9c4-t_qPcL@04ZB zjv*PoboAmQ-j#4kaz z*$>a&lzHRlMSEn~EXeKL|Je}OS-Ro*-qk~tAiW&&j1iq65YrgAoOD z+3p%%0G54PNj_QDjw_X`%_`*%wv&425rk*ObSusi+A z5dT+2nL=n?xt}=IuRAU62PHh}_<3ZiUx&iN5Dh6`+gK7UN}k?*nacT_1C#qR##g}d zb`iFi4V(_o6E*i_v-)cOY`rm@Io?&XLuP^d_wR`=<}KF9ybEaU>Dj-YO5d8sS)PmN zExj$y*)jC^Hyz=HY^upl|FKz! zHub};kbq_|y$BtSCyF7MqLM$&k!#8Z-bUOlV@@t$gXOhVM4z!1sx}e47?B2Kq+q-T z5_&G;0;a%zVFgT3Th=Mb42l*B@5){S`yFGZH9UZ?u&EYcmv$#FL0|ngwp4A6=}jgJ zE~k3Y0TUoSBG`BC^DnCBGfL4z#p3SirCy~JL4A{?lddxO<){qfeEcgg0$OygkH8OT zt`4)Q?{hf z{I(?FPbFIF{_8GkKdnMm4TgW=HsI;!P3N{=lBKzaE{^8?6f|c?mrplSqqL^4r0On7 zA~4?R#Bj_hnLKf8efriNds9*57XS4LSYW>}3bxiTK1n$RSvp^Lxs?wgXN)UBw9h#m zk~xI407HW;ZQ=8EoqtQrCyUIrllmXs1d|>)A+!2VE74HqwIC9S@g$`YjY&TtbpRE- zEcN5Ey4JCin?{xfo`&8;xKYo-FE&7$*mpXl>XvZ#WsA*j9>mFU#O!8OihV=@*faaT zoCbq^GiP;Sb3s{H`dmF&;)j{mIJtID$AATwmr7+S3z}>NYd@6*mn}d4Dw7jX?UVJq z8$>-yfm)-Wbc5{R20MVeHPWK+G#a%jHtE6nAu`OT<;?RI)3`85L^wwD(L@G-Js$@2 zb-IQxu7Z?9^l@~i^pv3e$zx+T#7W?aqpM;+2sv%s&u_O(qd)lq0tNTOSlUM1z~DF? zD%swsqPVZ-*hhRyiOY@oC#OVhzF;qX9<#iK*C|Y6%DfX6Who5V$#W{1e!wcZZDP zZ2N7*MHX5O8I4I&U!HafY0e%;gBuMfsSaAKIfla{8KK#xz$o@-aQ9h#cR>b(+>DJ& zb?h`E27L&ZaVYZ4O+~=Ra_;zB2rPZPz)w-8GsmIzA5B1sZgvZggiFOG+D%KN zj-AG`BWyo^6CW39QwQTop281Fn_7Zh3uWs)FZwu|m!hLKU@|T1NO*MmCc;F;@?XaF zAF?<|>cveZBRS*Ueh1f*VDz47HZuSMJNfs#<(L2T``Xn82Q|vBFuVBT-RU!Kv?ckV z{j#{k-&m@-1i+RXwfn`G)z`M`N@+;gSM#S#NPf4;d24#G18l5AN#i#oz{`1HWp5<2X}gdFQOOv84Nd|#f+^FVNoy}9{_YJ(1mX&&6%*UADws~ceA!Z}Of6RjFylE8 zizgfA&oZI=;?SWV#da<>mD6W$BGzBN7DA3SrC4EzC98s? z^M+DB_4}vj)OV|V7N{n3HTeA%%(lLK*mv_l;_-kDZLP~SdKBEHxatM*fesm0#}B#( zqk*N1u8J&hOQt6&84!!7fn~#1m&#gE1>n@9LW}sBvpFb0dZ#7!5iXe99O=6+Af?vB zZA(js<5Zo3nXbXiwDHf5Z9@kk`32V`j(oCt`ih{C7v@XWsoz|CPhS?bJ{{1Zl$8V? zWjJVceA4}PHE1Fp;Tx}0?<+U5_4sX>AWe4GgHvq*Ye3?3O?dZXY4Cv&nQFWEq0}3V5qUl+2h47VvO2~^*ekAgNv8idJoClWzT2ti7HC`B zI&=TIwpE4Np4m*mSEgvHXzF~9YI`i6g__lWd8w+k=D$ES2o!ex%xlL^O|z2}(R6)l z`ejV$6+H1QgKxEjvhNW*;QyrTa%|0kd>Sg5f}Q6soGiHOK1-keC1kPXbf0?5&oZ-| z?dhk!97+fM)g!q-*JAfcdITmi8Liq^%*-#*uCLD>uLl>{ zS2y}MhkF!yPp(D!UNJk)Io%sh8!t^14P6LEUulUaY1j9KGZQ-sef~KlJ{!A}pij{` zImBMqwv=fh;y0aTIGq*^{QGvV*~Jj;H+Xr7{!7H;;q({NK0cm922H)e8Y)h z{dwh=klH)zWys2T`gAha@HM&zew1OKsnW07X8z#_9`QaN*l3eRLI%n6C`Bhd9P1wpv8#jimf+=BO&+Kzbotd+=7&nV*u8majPYMW5MSadsIeZ` zx_%zndOb~FD!%?%bOpxC%fVcM!(PXM-`80A+=FVrV8~wzfLP>?D7cG)F$#UDd3k|T zn+^7_xm*7NNjBF18MyiB_ye$|t-ck)8e@YoBZs2l7`CnH@2{=aE_bjvGOhllgU1{0 zc1WmAgr77(yoPZ|SAIPHT^MfgT&tBJr2-VmSpZk$!FPU4S&PE{CrMQu5JOZ}!ZOD3 zz6al#xSoq>juBB^H?PM9Lo(7AFvwqYatv)C1{wny*O2X1zb6r|sZeYtdoE!q59#X5 zl!x9ga!}nS36FlinH4}NC0o8Buj`$7ru6X$l46F*`sdfnBfbYgM;i4gduw(Sc4Yz& z+o$Hh4C$6lXiTI-+|?hZdMTSsR50VVkX1E`rmyn$8)haHT>6SP#*k{X?^|>rhG`Q4 z!yrCNADl4`m{>4HBpsIfbR3Gw%^7D&7l2{L?@Qg?ZoQPdll2=W{QG@u+dNMQ?#{l?fbDHLqf8yv71%Is9@Q+6U-hZRLv%r5%zI zaCz21{~CeV zJ=pq4CQ$!t{ySN3OwocwfsK9N#Q~Q1DOdsAXiN!#XhRlKz^P}ePfmol!>?fr(AF3Y zgKy|)OmBLuIfV-eJ-hG%P_Jv#CT$J=`_y!RK-?F*(rDpi;gLR`3)VSX9o8BSu;UV@ zh9l;kjev`J8fpV4Z@Q#qy`1#HD0_DFA;~MJFwM3RZkRarotg{P5LkZJEHeHJgP^ff z^b02IrKM-+xdm0siW6pmS5=mNjFN(82;W!aDG9@s=W~i^@HwZJRk<=XQ9-WzdR0~J-d)BYf;Y6DhS%? z-OM-;bPttA>74A&g1}Q&g^#PWZ6aC}$9$rY#$5ul^beiAO7Gl9_C$AR=vbr3Gd^Dg z-$6>$dPlttXN+GQD|#A78(@gypPl6ioAN@#)%)T zg-i{HuJK{V4*q*Ey)Oi>W*mL+s>hz>$60_ahNXsEV;nA#uDhKB5=9`GsWPJ02p`sj zVGpErLZV&^zoQCbazh~T#*{L+=#j2>gx0vvB5~-+xXl#VMQ1TW08WJnmLrUPT}$su z&uSa;;X}c6rG5(j-uQ$+ve6U6qltk#c<9*NS_BqpAU$-cMe}93;a$J!6ffudVUWvH zP2D!_5AXVpPh6w2UJ{G9^zY2PWS*0sjdgLgNHZ{hv2w0Q(zQWIYWgO?!j=8B>^^=d zK!2i)&J}hyPKli|2*pAyB?7ZuLwWj4{XHb|OqHZn_}%yrEooCHKMwevEWf=hv)XPW zfJIJ46OIL+dmj>K${?`SGrH8U?+1!w$wVzmsP{XXu~+lA_qEQJnKn_{~wc%d5q z8ac3B-`X{0dFuH?!2#)@Ni`|uEi5}R2y|dx`gZ|bdbhnfJA-l9DcBLk$%VLIIxrv zdma$>R*xTUKPLxD!17qU<&*K^4FD*za6blxcMN-~ZccSu@xlJVZB|<@I~*slTbSlA zEtgpI%(8d4EumEmjm~_oCz_G_RSaG(0Wm18<5#~qV$gddRn2<3kni)<^$T%GZy5gG zGVAU9sz;Sr&nks-?N}hpph}H){zFQ-L)_W7LicgvN;5~K`l@Nam!+j0U-2YFc%q5I_;g#fl#yY426XxdMU$xk{AH;ArT|tV_*8LKTwxuk^?~-umI~x8pwOm-!vmarW}&N9U^3 zen#oKn!M=`UDz1&XH^`-)L1WpUBu)e?81}Q-$=nLLDU_e?ril$ecYf7j5_yuA>S z-HKUZ@|T*`m&1MzCA{i(##hY>2O zY;*ILM8WHa^^^7v1iuLrBSG%G5rhvJU2dEnjM4C!i!o=XM6U?;h*On6XN~MTsv{cE z8P>0;FMc}ZAQX-LAox|9KOlEPmh${xC0oIEba#T0h+VCV!iSN+Hz`O6M`)jSJhX-x zbatMi+8C0p<)&=(79yfys}bQVtqyxp1(@-;lD-qoB(fwKY)RNLuT_WyZ1woH&oj#l za&VDxiTWO*E+s2{=n@Zg3L9oJt;g*ZmV`~RCEu*m_kzD zJ98^7t99{23AypQM-R`bqz`3-RhUUV8xhj8TD!HQ$$#9ZhB(8%bCr22==ljnq_LTf zr&Db~cHrj0g#^a(lttEwe1LBLN6NKYcBeg!YpQ3Yk(Ev~>$?NfL>dnwV~3=+eB_n= zug}tn`kMADtdCdoz8D?!xf#S?KLaqDGTK*2qLe<*QV^?J!Wy=RU0kU4?!Mutmx<@P zHtw;SVkgHJ%N>xk;o9@wx%DNVmGU}*8KE9l!RRW<{P{|V)K1S#XtwQV&De)Yc}%YP zM$b7cm~vE57|abk!!z&Avu(^B7dmd*)vlL{Y=jx-Je0&Dy?X@HCEKo}ihdgpwOM#o zx^hTB+Wi1=5pY!O`8uh2o>NEuVSIw3=DPf+_|AcpUO=1ahM5js@h;+{i;x4cCw^u5 zS4U0RB(K`bq~x%U4QjGnC&C1eOIN0Q7j#WgZw=*N<5_sCVlq6-+<=Ifg#q|o&ARAn ztn`w})hTqTa$cxL!pfH(UuD|c{%Y}?^Z@bEPR)o{lJoBu>Lw(HFR~SSh!Ybrlh;nb zV4+$o zsjCyvMkn`aQuvXzoL2-2r_aPnTNY75Ud;fa5HKs5}`za=IX> zCfYdXeP^Abz7A?Rx~kiXez@HLlNF?Q4i;bS4`g(q8`_7Ta>mZ&t%@za48JjOgW2h6 zq*Kg1mm;EdseD&rk>dEo;KQd`L4YYaPXCa8s)7-t5S@itadXzbQmIK%edT)i#%I>| zh03cR(?#EnkKVT543!GCZ${~5C4P2VVMsG%e4G<*a1~|%4-B8_>=oTzgt#uhuApy6aV{d7P;bEGYqPj2d#;J(VIwAZoA}M z9v;QB5HCR%3W2m4@p_i-uorGxkbo|aU-`QJze9&P^XE_XM zTq5}XDgBmQa&UoTayidaBI1{fJVAS(VV$fyN-IW_LZ1o0PsgfF+$xOghlDv`;TKIs z!;P=s1Yot0$O}z62GqcYZn?Ila@|x^!Hvb`-QFp0zwOi2;av=7e)h_ZIJ2xGm)bRW z>?*80$`QN$f;xq%zTES^M>iljJ1c81V?v z$zLrdPH*{eAg#DaR2b0zaY1rq*uF-fd>H18k@9At&>~gfQ0_{GDa`kO8~1@W6EAZo zPB*hl51$dHOGiX7$L7_iA7=&4X%GIxEB!<=F}EG?a+4E2B{27qG~eBf^0JQpoY}ka z2Obe;0%KHoKK-&wezN=AGXI`^`PXb9HoIhZ-Y`FYnx9(`dNcSF)R=kUVVxu){^$C% z#f8PT@EwYu5rP}^FC-I99fP^WHluE(wza(II)9nx%|GqBx32$ot+V-rz(^X_V9@x6JXDS##c>V=VkTAcI%Z8 zk7d0^^*;_z(Gjk;z2DV)SV!|^ZU-u00Z<|{v~^y>2=>GkRAJ);F*6g6H5yUVdhPBU3&gvm z9YM57qVm#Z;}W7-gFiv-cI2$_X=d-!m7U+gI!SDw0Qa7-js#s-CFH;{oz$a)mS$e1 zmPdu=wG{bN_Pu~x24WpYm_?<(sQ7z91_6cXOeWiA9spusz{3$$H^IEVK8pCmnDC9D zCsr`x!BIa<9;Q1^TWBfZ!%vzYc+!kR6pQ}w6*y{qpniPN*-Pj@6RBjbW9d{I2c~Se z)KzPXRruVYwtTs#n7P;6{-`k4n086dhR=NuX7AzJPw8#$sx#JkW(KwUO{W0*y-}Cq zkUryt*D7)o)vkEttJWase@H`(l-&==1&W`u<^dOmT>enVEOyWm(2#a!$A{$uvmC^* z1I*gRh(R7wJtIqE-@_hr?0%LfFd(QQ|HKw4o5WrI9u@*5Gwk{JJ<&Js8h+S1fpT5m zXz_vT*LNlNTGOVH2!m_QjMF83j@}^#F|gT8PMb}7m1oA=whE~H0NM{zEZ<)+IhdPe zo3E*nlVuM<1Ux>4*JEv{s>5V;EuMhbX$d7GkI4`1VJVqe-RIzBm6KE(@AhRkTT`84 zalYRrWaE>JpbP8SuKl?&z~Dt6O8}LAICHaP8wvUia_X=@zwR zmNW_1rzv*Ri=HAye>nzS(+_vS*4gWv*H4eN##FqD(Q9B{v+`Yc{x=|y{p~y1kY=b9 zrQWDTQAj6h(~jx;2VO#MO+QH?4jIx;U$iU;bS+{`bD{00Y5TigEksDbI_LBW3zLrQ zd7MKRC@!jrNxi9_+aW7R{I5YK{x=cgb;h9E1R!XCYaOIsqw!kbO`uY7EaWL1XshkB zfJA-4E0kTy)uDOEhTVy)zgA1x#!`OCEw|mu7h+xZ{z#CkBd9*tS)c0PB zbWaYXNz0W(q(cHvB_Z`E@n%V8#*8A=m~MDHu^7@s=+{Y=L7&+s~DV7me;A* znPK1n{56%%NTvLk{-BaJZjXso1AwT|^AUC!KaBzJ_hkBOp_oWm71V=^Uq8LOayy2& zJ)L+0;bGs9)dk6isY+fu)?`@b1qM8b<5(EdI%3-rqRWq|C{2VhkTaTAV`kc2+Wi3D zRRLah!2l4J?Lr&4;#|b1$KFqX_=EtV+VD*qOH>wJAyKMVl%?|5{}}cxaO<6Tyxp$r z1!Gmc>ACvXngzwED;1wl!$nI@sm+!Bf_|qEd>_}AZ+fO96U+ z9irejD4P<`SO z2Ib@PRX`kqM};(xO+%(U=YZFg5DwVn8h8pH14dM^hMr;*mWv9-o8nS>j=mYm3_bN@ z+))pi#Stkeu!bH7I!^}zg)!ry1JgN>rSgt`4O;0a?KJiErje8@XvQ9Hkk(wN=2cg_ zh3XsVW|YQq*N}c{%-(3vry0l_&5me-R*40uq0%3{@Hks)O1xT4b#HG+;IZ-QjpplGirzD!Z#GergE120mkwdv*$`blg{9z4j4PvU=b*r$sxep)x!$w-dZ zSn`*+^u+&JpsVsUqxspz?ZnpA`lEw%w^8$#{^(0Ub6SRFH)nkq@}YdO;8LXfXR#^o zywji3N@BuY{lJ@od+WTp?%xS9PK@Vc)4Vd1_A4f9mJ22MxWNzWd710HpPcSCEDJ=P?uq*L*d;|vwi*6GJuC6y;^V?F*HNwHkua4L zXD)eM4mG9-6u)l*`IBItA?ra2z~9U}RS@}rdrIN|E9cC=l1jrk&Kyh6sf=@GGS{>w z$|*8)+AOzhQ$o!WD|2C*R6I&<<&q1OPC99$4wPgrlqrmqqM4cr-O_O1O2q~7>S&7+ zl189hk$I^#wTS--Xb$xQfPyA= z9S;CQ#U#(vWfZEM1;Fb|%;O>-QAd|RaX*HjH@&0db03CU5Xi-x>~3#_uNw1?9&TY> zVPq_vX`0mhGc?9N$-Ho*lahN{ZI7Fe&{q!I@H(FR&U{&z1yHPx8*VH7>R_JeS*4Z| zoW9%_5!b7`Kn{NosI3oh&M}v(9LgG}x-nG7)LlX~z#QQ?kC4iU#q-am$wT5yDRa*# z$;>@~ZC&bnsIZhmMJP95=Y7g}vJz}3mpa4^S` zc3b3dB1h$l(zF)v!mYGPx^?1}zUuKZN4*O){U0fu3u_F~vL}tvG@wJGPgD;!XK$;8 z`sxN3UYv$ut2jPN6xveWG}khB%`qF!o8lxOIfUvky1p!h zfrDmHf8O^=%LrDm{*N9>Ln=;=29Hbk)e23H}1zT3x;pig*pI0ivAB|XZM77+6r3-=~ zSyy{ztoYv44FRNdpHF=*V<*1ul^NmYm4Ybq{)Y}_tI`<4YGLW*zPvdnOeIH3P1Qu?7!1BV{?_zrHsiPY)$8IT~N?kd%g>^XPs1? zdndk;6Lm%tKxqiEtM4(&rzQO=wzqqB(n(wOIU@!sXyOv-dG)!D!|$@LWb$0tzB%@o zfgRl*&mHR&$=>ei6E}rIY8Eyy{ z70jeuGF%^3(0}n(VD!qd5|x9rvmH*pia2wMB|v@+{0#5IW%gAeFX$}M=4yRPiVy}NgtvF7S~llR6s!>R4jGIbz6@x#UDuDqc_@(gCzZtSZ95c<a>dWzrwUAF4cS=M>gcp3qs zw~(H~i$a3rYY}rM0`%D}1|Dr8kO;9{}`6Fk-68kie#}knht5* zX6+48I-}NY5_-~JfbM2pYlO2*%LCigjEHaN{wD|42dd8N?A3R7+c9X`CF72H9IZI~ GTgrcbb*i8M literal 22797 zcmeFZXIPWz);}6`EHjEYgNjsj3}6F9q?f3O7!eqygcd@PBGrHp2qid@S zl!RV|Bm_l3q(sEfNl=2(P(m@p5R&|#gqgkfd(QvE`E;)L!_IYSc<#FHb+7VUYdvuL z4_hmlUle} z0D)AJCI8l?O)dC>K>I+@Gp8J)b7#h5vwTr-mH<`MzyIgIVt;#WIrW>uZ|l!!7~j2- zxbD=Bj|&&)@4x!h@~6$puP!<`^d8)TzW-qVSLK}=J9g}`diM5~`=*}?uD`na>$+1~ z*TG{`zh8fzZi|Bq;QLKzj^i|9)GVC1!bRtER|h<%8xpu>hkwhDTNz|HN-6yBfB)sc ze>w0!I1sE&+zkf>jW~|iudJ}M*mu~A>=Db|8zqCTo-n>*s{i>DO#?3^q>^cTT3JKE zNl6cApuS=MbF+tV+Ex?8A^3Fk#|%e_nEje4$0s}c*l}Yg`FlfLUbwL|2ngqEze;8YEA1^7MfX`AJ+h7yXBKuZNbF1|?Egr% zvWONO2rU?oZK@url#xQ{{dQVsw2{mR+b$1fRa9^|I-C&B6 z{>r02kw&TX$a0+d;9*HaVhAV8QeN^CsO8$s#CX1K>73Je$y46kE}0MobK=`Ime00r zr}K>q(E(fvAwFmf@)Uh4(vh3Wenhh-7&zieL`}v)syBg4yXr6mk8gYmpHOi7u?^(* z2AJ09%S~c?Opj4qxIEhI_NsO=f#*PR5{B1dGB!%4eB{@&pD)A>?l#}hvisNh-i|qT z4=r16P|HJ)g^AiXMs7kwE%vS6WHZ^#G+9`Oqg_zI;5@19hyp;r%G?_^h5AVWC)8I>;Rh zjniY|UgYYmOgXO`8Ta<%Eyune^Ya>5qm{oMfFL1u1Y(+xh%Gl1xa+?17M1`fIn56}N zl6-OAAMug*1i0WIkjZ<^@z>O{cmhBS4Of)QLtgi!dX`NWttuv06F=Sjl&<+Zoj%{3 z9qY)+35SCQJU4UVNWRJxpFBaBN{30?clT_J}^y)HSCCDYVM>D%`+N7M{gyf z63pRw9%K^w4~v?WqO^`c4M#ikH?DR{gTS37_BeCG?ys)|*9K%&XgkT4_l7nlE>{q0 z@c!M^5+jqUctmqoZ%O_ovxM~N@rnb}w5=_7hhGu*aPSGm=xdRg>~3}_ZI+Nuki!Sz zj}T-XIRyH^jvc@`TWZULe<;0hyE3x-SKvS`MCU;#&R$tyQBdN60!xV@Q8u%kPMY1B zPaX;f4IN#lE$M5)ekkzbyVI^WPjV$q6U7H6;O3~1fWIJikpB14nB6AP2w0wDeCVbii2-l9 zXwyQBGjDoQAsALDix|H<0JM58QtlQ^c0g6NRlvpdx(Nz2R4NDFME17Tx#hm$9^I$ag&gygr-t2SOr5up9yW8;IG}Z1vFGj zriqe{@#Nc=9!+kbH5@IkZ6wxy5;O-$wf_%VjqyCA*k9}A?uoDAUageaUbk!eySnH4 z_)X1dzsLsmfyp|eQy9Sm9^dM{=8G~OB%*Z8-|v_ajl8K#cGw#-G>jhj{f_i}6P`yj z6$ci%H1S+gh?0}5fhoRe!St8h1DaB!dr(u+@AY9dowv|*YV0an(;t7K0Bj=MsCCLw;zogle*P`%1J&hk<|`;!bY z66YH4M-xsGI3)?F-bl&$L8EsQQG%udbW~&xAYk$Yid%rCq`jp+9B_;imCG=WQkuU$ z>Dp{}Qq*>7&&3PCm6iv79TY4}?*_Q7jNLMlE|B#*zPKoi^*ku;b?_W_sQ@{9yGqQ5M1Uj?@Ge`MU~&(~b4sf)Z@%s? zuHJu(Vz;>=Ksv;8`?3SIWI3(l5zS10evFP3*&?sB@*?^Qwo0h*e5w`v_O|qzFQg># z8|%^MBRTA?v@0|s0r9OR<)d^F{R=H7m`n#$v4>GY0-D>qAickqq@SbZC-LlGX*~T} zPea0rGdC-6@blktaXS%JC8})-;btT;+BmR^ve4$go#xcO2{?%g0D zI!ZCp(T%_@R#H~R*|s!@gN764BK*F5rIcCIJLW^R_m<6hm<6q_eqBwKkd+v@MYaJq zjmK4pe7V^h2c?9-vu1RCHr&{Xg_T1`7713hDbs|brFP&EM^kUoDXkgn*gmU7K$Ozm<4cy7DIsCI)H=+7qvl`#=9-kq6Uyj$(4L~csJg}b=En9I zq9UpE3MX7?`5qSglLV0;+X0LmnOn!{F{wPlv!_8|u}ZIpgYXrRt%=KOa!ZKuPqEAY zIka~jC!dXpyu5CPq3ofGpEpfMi|(*T7UI-E&4peD z9M@1{dtE<4!{9H9T`AoV$$>cS&HJ$$Y2}~?Oa)n)tNFz2RCpq8|Tb^JEMlZ1POlbELq=K64E4wOvsE^&b|(_%>@9 Mwmc~jU2+DOh)A+q% zTVgfJW@h5uxZhfxq(PkAPo&D`92mwUe$-s$x?&q>=u&;R%sIifX`u^Hu=IVZX;NdGj)RDD6eu+Dmq(X9}z~imBUn9TZM&DQP8t@u6?u@!XI*Z_D<1Th> z?HV<2=3}L1Xkht661=F!lx{xAnRx5|{<<-OvBGGLRYFhGOZM;Z2%~dpdO_}xcn^le zu(jx4^RhS_P6r}3Kgs@S6{5-!vm12@g#A0n;hTa&Zn{Nz7R@y$jW-hD2(w1?Meg^7 zxJ5eCmZhyf^OFY+sXHMid)_$_{({jDGe>(bFGCgMXbCUknwBqIuGN^C1 zy+kxkNFydl$V`orD9i{T+bXWaN3YK(#)i~2+-M!6bxa!@j*Y{F4mHCYC9bkkZcDVk z=WgwuKl41N+5!n~hf0TN?>}6&+e|SH`JfHs6^EK4XVqw(GTK3-4d2d77WV{C+vYQ}tCZIoki+8Shl%g`j^S&UZ}Y{VP*8jPCe<7Y+O&A%p2J;Q;v%JvSq-y zenb~p`d!&$JoS{DMEXJcJ=;ADN%kEJ{j@{&%BPfm{{);w1k7feNEIjT4*3 z-wZanM0T(@D~=eiwnYm!(l-0Aodaa`m4z2tMU$FGYHoRF6RnjJSn`@{Xl*x;VaWYT zYPGo>Uo-ZK_<5LS;E17IZxrCgf0z|FMQsgSBd98MydaX{lIJ+yh(5>dp()Uiw4!!F zSg8o#giZ;R5Ct0Qt3NzZ<`v6@I8jGmS4byb{Wx;xZzSLS%4u%GcgdCzihv{HNh|KH zy;9ViShAkZD2}2w-S4xn4;Y_i4zcHG22Mmg5RaCW=VV2k<-TKgJ5m##qc3sUW!h3y zK6HCof9Ch`J3d7M5&MYBYCNXg*grRdr#Dw&t`!h78st7QZ{`l583|#|#aora3zl}n z-yY9_r6dsub_O%6(4rbhcl!`Zrv9k_U;DS7`sy1iKw zI*gm+=6F=H(ADoTo|~hxMW-UE?6W|gtz>06$!UXtpsn})@py@CV8AN?P`h%iX+j{j zN2pem%`oA7zFGOxo2}2~6r(uh-HmO^fjB)ADeyaJ65WvJ7WpK;wE+;XBTwgjX-Ky} z2BYR%RkmEU1F}3lO3mU&6U%DJ&OtCPY?8D$J0v?||AZu~`UFU!_1Y^X?1z}Q)udhV z7a!LS{2^+d-Vrf3dOeZnk?g|B*9<#%_}_!wfWaCz3o{F|Gw;KEQF9B)SrOiw*VE-> zYv}n%`jl=-X!B1b$tfQuqST!zGr_t}QF#fzcl;|M3i!vep`)!hu+)?gmOoYsvrIQRigOVQdHXHr$0R<3wv&sh;1P< zu6rld{IasxPya=*Nti-MvWg#F6Q2|8Nj6EHBo>xS;|6CmpkN67RBFi_<|k^N3pv_U zEL0e%$y-fB#(6~!?EeDSQ%$ZWpxdKGg*}fXOaUDO@_x@ZX#YZdvY%uYb+54_mFICx zN9-e`EjxNUwamQlI)^I`+43rE@Drj~|C`hJynj@~aE6gQfCqu;CjmrPe{Gswqq1cm zEVYY}LTGTxEJKRBXtVNva7@RauAJVC;UrHtxN!@%iyFx@_w9laYjNfI7GlWwbFXB! z>!~lU9SFywqt8F^iC2Qe!Q1^gcz#7mXsxAQDBxlwWU5V!FWZ*qzpsqoHHGf^!(-q* zf#@#Lv;%<*M)BC!<`}qNaoEI3J9fpE73VEaj{JvMoz>yY{Q@ z@Bdt{Zq>ln_x0~+5v#5yJw@_x$u6KuVYlvt@8nuCb;KTikzDaU`imG;V;sgsh zJU`l0$PDW{L6eg*@O_Pl?-O}HYbt*6L2 zII;$$;MprOvx@l*k!n&4Z%y40F=+=%vjavk*WrCEI~bKR{7MoeoCNY&2b2-Q!6XDT$BkaUA$jRT5@!KY5g|sk z3nr$1xaXe)#5Mq)n$jsfn+8o{a>eaEnfj=I zF4aV?<7iW2pZ2{;A9>fd0izIQ%FABiXzHZD{!6-l$Aa6xgmqMHf*cMcE1xX1+WaOS?W-GvWeQ z1RQ-UZ3EHkWit^?jTSfH&8ABu`q{pdr0I5QSG)Cqgph;UE;+Ydmame3Y#B6pYW!^f znEL|4&zTw(9v?|zlWApyK_?tOp#g2t+B?;8Vs#s)X{CyNlV*a~h7~!noYH1a9*d(# zOMRqg|FS-Ku3r^mEXK0tzR-e3#;8{?+>|A)xTKji!I+uIyKT8VL2gF-b7$B}1O~!W zb7`@S{R+r2brnU6{v%@v@-*tHwroY}x(5}-!nhW+X9S{yzY_{@8F^#xn?FAWaD)X- zfN#+I>5b$hAV7{iQpf6Kv=Oo5wHym5gL>5MMD8)wr39%%o+v)ir9wjBmmP?O(aSi( zxV^cw+;i1oWV@zfRN7{x2uF+i9!t})ahYsEPERVwzN3#L4NUZ}j3n|-sgOpa)GA{G z>cVbJ&y=egef-KSo1hoshWd!&xf}N9~sB|h|sqgQSNw94HCQ@c8G6Z4KA{hAACH1?W z&-{i9K4te5S{;$>2vR!MmB{-h;j0nlDQhOo0e1AIls}%yhJJk;mDMB(&!>#}^qPL4 zpaBA9UB41F4`A@d{=r7`vVK{J?>Doe6&?)*+lvT3BpK0iJV*ULIiilWr97fV2?)<> z@LhNuJ|6+6{F8b*VbdbGIj}u^kl4G9;bK;YZvVk=AZR$GmD8Jx3nYtxoEh{$@f#NA zVth2IKAhCFlGF&($7JfqQT`tY1+aSEq{|^X=6{&C{G#*Ey8z>LD|NSnWJ}CPcEsh^ z-IA`EICUI2>t735yqYd{6FXBeYPK2qd4=b|xw7T@UdQq1xkpkKS$hFUEfZg1%b$US zeIE8jxo}lz4NjcLFB1lnLfD8BQ7QUNq#$sRv{jlgt1p^;U*N@yR-UDMl&@_Ck zEWyJgzF_|rN-_Fh+0i_oqPRIgY|^i(J&*sNVq?-1i%*6%1O*%uGT9Gr3pxyHkw5a; zlpeCNgc+XSW<#P|$B(ALdbuW96_0R(C!!qv9VqX2h-^jO8GSEg>Ja}INE5Z0QyTvq z{kb4zsPO-mTn(0r(M!u#Hzo86z35&;zz_`X5nnwu{=hg4ruTh1Uhuc>?3PFzR+L1IaEwbj2zgy#fWMq8-KK2{%SM_KNN8V7}q0wI9 zKOSf)m}Wg-TN)bm(^42D)j#xi05GO3jrd7oF4=qd%lSKW*)9$xiO6eKd18|UG*55;i@3KW9}$l?euf^27B=qE7TJ|y@Jr^f3ME$t<0ZgCgem% z@eK1vWiW+~VIyyvB$R-}6tVqm#awecIW~>g>o!T(0n8wo_OqMQxc6+x50QWT(P!35 zft0nJKB)2!`T7LEx0_USTkGabQ}?=0(sxZp59-aq5yD^#+%PBGOKK@VCL;h-$D)-h z;FEM#`-1AUsUQ^@=geJH7^sEkUKIL97A-8%lQIkA<2F!5z7{($xb2~RQj(6z?F|^Z z6rUbBhk(T|@1Sxj%#EfC>K~ZVB8=aAe0nz^OVTK-MGYOQmBQ;MKp=kGr9L3K)i8l$ z%wyP(qfMPmLY3_RQbv2~X!eRLzha&mmjU^}BP!7k6eWAKB=sDhAbWbpId4wRs8H$9 zC|#Io?O15lE%hfhJ#Vt$zFS!8C!kUXr3CHvhH>k+*Y0~+juyTVhULHH5oCk`VKCuW zLllM^6j6#Y0fhW<5+@$P%}T;eg4Ze%L$_-KhLS?*@9%ht-&6r>3^?-C)23aC@vXKf z0=q}$hY_j#6YJ&a7Ky=bu?0`$T?fulyy6`h6&cDMV}HIKD^PMZhzq#KDlZq=a2pi{ zYqpsq#v9P9KltltyJ$D$ouuXR7UR@1RafEJ$OLXH4Z5`~K=9Isdwu)N7xI&*kvCMN zpm*j3kkmP#;wD6IZm1kO^e?cW?l)d=y@y!7!e=9#a4uJ+0^Fh>1ti2g;TX5^r%m7f zR-XEzE9>cY7x-gmbL%aqwFqRDJnej`qt^F){ABrKAhlFl1prOFy&yN=9Q%$X8`Q&S9WxeISdmxxnG=e*9Bz5DUN}pi;iE+nx6xW_6 z++IaDa0K%Hb?syrEUm=6rc>%_K&gjwevS@vAQ$c*GJ8mLz{K7X$d-w!j0sJ_a%+*S zvZH?g4PKkd7F0#KM`JHZ-X<5}Av_t$0*ZraFhsE}-ea)xz#a*)iJI321I5v+&ULYQ zF-11r#L}h(#fZ>>9jkK{%`smdRgVK<7xC``mqZ!#nP;R~WBu9fbgO%lR0j%d*3F;J z)Mg=RjzQi0OWXsKe2c=hsCJ@QH>5=XpZp<6&gMNwj=7OVJC?LmJ2?5(s?yz`^*(66 zJbO{*>AYD7Rb1Z`mDgD0(6E;ZaS^`XKLG#vF|}MY{)U^W>=iF%ZRun`4HEgJVlGmK z7%^zPY^N;Pt`o*x#XL3~iupHey?r30?`mLV7dvH=HA$EpFv{0k7&B1zrXy)TPm-wj zrYody095KTqDl%=>M*H@z}Ru$EUb3Xrhqu>J2I~8;oq!`ER=~x7^PDBN8;ne7Lk(+ zs~ct9$_8r)8;J1;Gv77c4}O1}mZ|vXsH_u^@M{Llm#x7JB{s*RG=jjsDHjn|6{%KZ z^K}j0etTsi7c|>EeyhSsHaLKG70q3Y{2~nImgtp>k&!s|fZSlhibIc?y`f);f;1VE*b3t}5dwUg zV+BF<1l^%NEoGk}8<4NE{k|ARbnwTYb$_f`M5{U<;8h>#r~lW#Q(+}nTu;P#zhmit zuGMs1tL=1Ts~4Nqjp$BGBXE%6@&2DkoczT#m*N)yC`4{HOzMYQeqF*!v)GAhYEr}q za=zp?Zq0kh?xhXFG#p_tT(P-pJZXf|hS)3F*Rx~fP9h4%h10@dD5EzdOnJV&Fq3WV z_J=e%0;FxGcgw`$Ar&6uPg})OP!dR!9lgen@3mM9E z%HL(+t&v_9w%4SY;hNyS`IpEz7w%Vfic<8K8k(&B%tRUb^)@M_15zY_?@C}9ih?Z` zn=c9oMR!@^sQ=6;0bUZ9`+4|C$3mzsUTP9NJ0wAK6>_ZRwsG@`9N_gy;1kvCvWWy3 z<_G}ODs?P4{*SQ*lGh-f9Vq?8YhTLju3Xa{l@P#76A77)D4_l`?zMqB7Md#vq3wl* zJ@zsaBVu`~>TWKK+oDmyYu^aUp(k5D@7h-UE9p(ZACuAhbvm=2=^R$j1Kav_E8kO9 zQ)e&y=G}WxE*|`||Lk{^QH2E~LH& z{}CF~@mG~}K=%viRuaypPPug-%g*qNSoafB+8%Mm>}cP8@Ss`@t@MVpB`lsRJ3GM3k_Bt3=N8HC;95Ex~1#Z)pQ%S}s~SOLAi_>0ubf>d5ez4?C|{>u-Efc$?DhdSSZb=|kE zz%I@=krf^{btFbSG4+oLxRUt(<>|wBiHep!lBJ#;INDdKAJuCtc>sA%>fAtuDBow6 zKznV%uOY=4XgKG>@9QOf#&*|HAv3n&URW!&#{Hf9xx$Kkmot){lPs44uaMbui@h$J zrOqOF+b^Ubj&+UnH5Jg%o}JNybjUwj_*8DtkjH!*IAJ#!b&qp8|#^@QBy=)5d z%{O{TM*g;uUQ&6cbz~@)SpZHuJV$(4K`p|XKB0>T!F$gy-UK(O86EAUg86meSTLXL z(4|N6=bo0D&3(}P9Qw?tfyQt{g^*bw-xoh_3_IhoVa5(<5S@BchNRx0rV^YP5N4Yxnw9M$= zL=K&p27P(+D|c2_X(X*QjKT;fxlNCD*eU-iImY`KfWMOn_9$6tB&;M%-Zi!1du+sm zHA~|o>Eld~78%rH8k^(KbuFm6GdzwX|Gw8l^X2zsKQ`>W5KdV)yO$8g$m^?#mdBEc z=;D+|$Nq4{4Kr!hYNJ1{#E%r4r%2ych$={`R7OYi$ zwqp!JYwO!RJ(~dzvt8_mrk)SKge6Ybn_x*tI#aN@kC{_YbL?dlaY1Mc^KpI;(SD_&TCjhJApSpU@m0vdiAi@KmI^;u7H>bs2- zjkxz5y0mjMm`|aqkC-pPvKPXgv1EJA!K)G2Fg3m(*4lp8EvXz~56<_Fn3ZTXN6|_* zNL!jZev>+b|4_S(fUo%~(E0&EZ0V;Mo^AE9o5;9g39~`=1udgyZv98*%O5qU@yUnM zV&)%qNStnB-~0z7|2{Lxp$09K>TKfegIeWfm~`g7 zHj3D=(;(e6L4R!pxMcX8&EjTgs&zO#o^b%{{+L;juB@9=DOoO2>(WHtJ%atND2B%v zZw$<^4fnvStpx%}Kvy0dngF4dj&Ds7VD@+JD!J35ZCg!!Y$X+?Yk#ii%#7b>euDzU zD76XG&Mkfdqty8qu=46Lp4gjp+oi8cIpY9(k|xe(RzX$sm^JYs5FC@D)~M5&X0JIp zpA)1gWmM(d!TE9s3>@QuA8raewd2cuaS1K)TaPG9>w901{SRV( zfaSqP^&(y`SZv;ja#fB!g+IM&AI?xyly2m_!7Uw7I&boLF7wUqj@eQ{*iQc!D={8s z(oZc{E4DPi2R@NgxLAM_rDU*g^l?$fF9Cc90xAi8SN6y~upZdK@FM9ac zZY=3ISxhp)ni50prBTq3^Ri8~nd3d?9Jol$XrJS~fC`7mr*8d(UF0WTxmR}G_P4yA zDZ_dNEw|-BCN^IZYB;RTGwijk5G`dTnI}Jg{L{-53Ri;=g4#Q8YM!@rCDp2RW;b$* zG?i{jZ{`@a{soK^Bfixfc5o&C`&D&m2DJ_E#vAGY}kXfF;vQ)Rzued7l z{w$zcS>0WL+z}?r3r4Z40<;)VjQ~Rt0!u10{L**eSz!cVr9g^83N-cIipLfufI*1@ zv?n$t-L#k^+RPp24S{ickN2K#6;0j|B2(TVl=^U~fU}Mt&1P=qO4O%ir6CM^sK3F^9fq~Gt@kb zx$F?sBMQPIY{CPudk5otdnW3Tvga1t(c*e==B^N{oq|!TH~kLaO?YU{qUbs+s~n)FCmycf!IM*(AVg8gE)2IQ(Y&NA2PQ>^D_hC46kL|x}9%;%eeNJ zp0ot)X{-)c;=OaQq}!DEjhP#FCbR3GrMu@(wN0wG-g%=@Z>Z`C4w5dnR6aZMvf^Br z3Y}0BHxQP7)4}>gZWeoeSW4SK;W<)9=_`|serp?#I5#DZ_+DwypA)3VHPA6w0dbK;81RNgyV9#v5J=713GKo%h?R|0=2GggJ5LD{p74yn+Szf&Imj^ z-|G-GQ(yJrcb)01HCs^H+y-taaxHj@=pT6*s~+P;##mrE8hkIj!YjA*)!?oOp8W0M zlYj3vOL{THxX9S|_)HazchS=dfP~R-6kzht-`HczL^>MM;fb`?W}{L67kkeRJKl_f(C~ugS}k zXKPD={@)FOU8Ng5L-QUm4g6Hz>^usNIY-8Dj&8WV$?eiq;p$~GEUwglF`auMp*p|Q zZlFdJnvlg5)NKDt%-G8Zlwm>Gai(;iUDvg-Wo$B#R&x-1WJh z(4oP928L{veUH;D}pQU4!ji&cKc{Q1?Y%ckhOCQ4woH}_!L(M2y`mJGfdEitFXe%_qxbqc& zB{n&qTYL!K++!@oIDm2eU-I$ujlh~;9%Jn~`<%I^Ce%}@OrY9G! z(^>9-3*^AkYBW2w)f;O?A4^wZ zwJ!aJeSG9)olZ6T)JWBCpM-q4vRI1DR^EG7HLH9-`|U=XVOr=O)>{X}Dc1|!PLs(8 zxEpnyRD@jXQF4hV=Zz12geD%ZK zvr5oc%D_RxL&oc4&uj}j+#d5~Pu1^`WQ9k#5L42gNz9AKWoKd+Yle$gO`itrbvk*3 z8q@dBh}fO8ljR$&O@MB21!r;qlx5%iORK5jvCae2!ZeLW|8opDRD`E94$$^m^{e`; ziGuK_XCWH=d%wo>Y!;7jMK?>#OF|c6ZK4k^JI;YXdmc&tE&wIxgrWL}y45)MDoEhj zS@FST0rg_+_L#UNLm>VX0{2op0H!)uV%PB9@M~=WKUG!uI2~GKofo zE!OhN57;t@Mj^sSS^UIX{CT&KGJbWYwmth}NlE#S$6%^WU83OFl*XTX75aEd-$nC+ zx&@1zprs6)#!i9Quz+*AH37SNtqL;^@YjH$t=gA4#q_W7;y3zNVR#arKOmm{4k+bt zuyaEF0uid}#G&YSa^>#oaMs4Dk$po%CpyUo+R9|K1sW|Js z3FG${RCS%sCOEan#N(cC0=+lFWGxKLUkRcfMGSrs>8fg!m=6<=@!%GmhuaVsmab2} zn3^K$Nd4M%b?G6_W;+0j39}`B-ye#~4aNBip%n!jZ>+FL@!RSH+_NQJXzwBK=qs&; z$I-viNtG znXIp?rq2Q(Mzp&%ZTm-Welu&RKE7BpzQp233d*-pd)mMiDRobaEdNbqp>TbbQ75rx zbz?l%rLL#YHx|wd!IzscNxB1}Rlz_5S=z+g{)f zt>l?|ufn+ZOz!EGNjz5`ZmMeP0{ztJY)Qs;FJq>^U{#q(Xxo#nOuf1oaV?>_;%mbR zrMZX_E%jP}M!Eo44Y1ukCBN(|y}KIBTa5|o145vi4e>z8*Ps^Tmw{=Co!jXR(7UwK zj8z1(vKN*%ejWm6`t#*D{r-l%Sk02=)T*q&C<}2>N73aU>9Gn{IeOLz`|p_cTg}@H zWce;5CcOBi>RLFC`DR^5ux;4#eV21_mCe<2PRp*!Mh~b^gPt8qLS`kd)7F zYNhUhqjATFin|ndR72vTHC9&020gm_x_J3w-b3$vf5~}5HCN&e_N03*zgrw;QBJ(b z0+%FBuQZRtP zTmgJxKb0h7yxu08neH8K96NME&jJo;$N}BFlpF28sAzvfTCqWt!h}yKKTaMLn zHXkQD?nL=K!1XWP`8)>mpI4f+uU<_fo*Fet&vjgl9oxD+1iTo5PMY%PTaC{utZs@0 zoNe=7#G`XWiv(M{92WJ%CrfcyS!h7siF;!+d#w_-_fi*cRPbu|5Zpg_c~q?14=D;7 zV^O`dG}{#;dv4u3pI|#!xte=c2IOhevnboLAw8~<6Suc}9zusj={VzW9Q<4;rJ0QVu0* z*W~PazL8n$VvT#stmT1rAkSHUmuE6m%w&D9jTgCJN}vgAX)CtL#IT8m+HmcdfDmfxsmd<2d)0<+|0vIAsw{z>8i!LIoAG@-H3)!{p zSHiFAEYF?5sQ95QC=qO=D56g^zni70-TlF@$K!Dbb5(h8*z)M4hfG4}X*A3@f${M3 zWB?KVm;^FgbH&u3_bAk0#La5I1%6BIaqEA@$&j z;HtMT)1P{Rj#2OA?3~Q4Uab7`cy&hMA+8_4?pVi8WR|?(h3iRS%L*e5%C-7o;D5r_ zE$34FV}pRvkMG02O{>Z8ntkTcqW=Q;^}ug0V_`e>CfVl`R5R!~w`A*0zhro0cz?0t z|3JqGVREUjm|t`t9M}w_&pS8VkME&L?YRbEpyk+T{MJkAoj_>XH`G_<3Jj_^yxhh5 z;KlL?_vwnzRawfyO&T{1W#WQ@@|Pmi0Q}Ocz>{kU=U->IzKQ|R;|bHMTT?C@Mr03- zK#qBrChv~Ngxt~TCERnfy>cZf^(dDG=7Wtw)# zOA53xi67|x#3%nPHNS9mhSyZUNP+D*@T^nvI7WF%>1kq4DUy~*XNCaa2(*z7(_*Q_ z{?O{td)z(555yhE(jVZ=LJ*A23c&9Me$7RC?0Z*X5{KT%${jH54-ZE#oG7D2c%g4r zc_D`5Vs!?tTdef;p6#V-?_wDRpJABwyV>(rj#6&5P0wA$RT8;kOqcfPvwV77$jskU zYusPY=^SW}aqr_%+f%a=fT6w9f_)(p**o65_03XBb4S@kZoi^Ni3oIL@I&^Q91UK_ z?sz)mJ?muwHCwLzb-0od1m~2?$~{3jo_iHWWegaQI+u_5#}OLaX*e} zN-UzPNA387PmR3K1)Ogom@SH()IPuhJAEHDx_qI~BB8#EI+?O;w@qO>#FApwAlx4S zmKfIqcj_yOVw~pkq2*dD^)8`*eQL_ZJrhMC?hW$Pe<8Ib=>nu$r8E;ikUaTMW~&It zY%i6uYMq1A0|ZPDb0^kw-X>qFgErb)SEIal;&-LV(XafNgudlYu&lLSzkUh*ATEoU zVu>p}@+#lyJO4cXh2n1Z>=2l>YnB?i=f*-O00H$}I@7_t5u(HH;T{27463WzC zVKtt+zVj+cOA*^xWiHk9Fy{Ib;=_O(O|ao4>13RC7w&$?a6_- zxcFTxdtjwHd@+Kw8g~jmxZpKOQuoWZOIZ!h#BFtHj*988*X`8Szx(QkgsALa$VAecO=(TA5amaKJ^j{~ zdJZzOnS>J2R};^s{km3#k8p06cA=>@T$^M#Gz!cQ#~Ktpeza-wu~Wk9z%0LnIUL)& z1aZD@>;s%DQudld>L8)b7Fub|6rM@B19!Apcdh2W}@HuqT~)yUd_nd(QB~-nxNZx z9qM7v6Hb9~X}p)#splL?W@t(Mt`be+12f33=N7XaI4%{|i+8~=wc$sXtD4DXG<2D` z-26)?G{0fs`g%}HsU*Q(>0xHt`HU@O*g3urS$qmq{L<-nfpYiIyd*pMmDlbd&uDu7 zlGFbU{xAr)zau{j2nrpcbLYcDur=wXet#OOy3HUy3=zV^u#{3BF1K^=k(qkuC^k;7 zGZoyRZlv9rf}PR(JfviAX3qL3re`pBmH6!!KT+ji!C`OX2jx^RM__RTD#i^z{0?Vb zccLvJ5;w|@Xihk1I=Gv6Z;1$R;t&peHr1Kc8mc$y)K=p=U}pgxTbu&>gN=gU7@ZfW z@yo#S&(Rk`2_12#ux1^5q}rhW+~9@l`lnai4zHhsjiLOovZ;o17T@4QglkvEo5>te zrhG^K`@tyxak^8#QARLyvH8~p#sj8*a_(eC6GM=mi^cyKIxzr;sv2J|wMch2|NH}Y zo@;ot@Gw@tEy4nc7-fXq5ojs>=6`8dbmof4-2!KUjSG4kgL;7u&J+prlaQhYFfsXV zgd0}l?k#DR;LB^d{v)}<*NMy3Ekp^hE-CT51f)!kcWtG}Gn;FIa_&?VJ#U;a=vmJx zbddLVGae+QE4z0z>N&1k`dlFNm0>v_E}lDAu`ezVpH14zoh95shC=lSb&Pc-e%rP0 zaaX~D0iT)7K&Pvi2Q?wrQJuvAmCKKIM>p)M0?NrDKw#SpO)%s2JUg|KK6p7s)eKDI zgj(ZeL0X4KaC*P{Nz`{}-nMuCH5_xD7oAg zso^WpV=F0nXUJX^on9kL2Eg(^Ix4f6a}Jamb=gDhdo&=D?L1o*idtf?q%4?we20); zVw|s|_IFVpGbrN^@%K^8TM-6%lN;Nd?XE27#+7`fpb%~@6XVA(->v@2PmT|%&>m4W z{5?bNPV;nKi$KY8^!9;v{_TP=mkG@jI!9UO>?OE+s7@!(_4`K9SJEj&$a+vBQs|pv z&e|nt)jH8%is2K%IO- zod*=%Rz}`sQyT8xn!=r}t=O!swOpat$9tS4z`nh&`|j>$-CGMW9mkIJ>Fl>ykZGq;q4iE@bif%CZ1D7uYAh1B^^EZ%Eza zgFH7n$sXlAZ@NEnEaY=uoyI@|gSz;7d7p_r+@YKS6dq62JPU| zNuun!8)F_bvTjz9SucDQ=AerMU;#MBDMMbQ^>$wEw~XNPVI{Z1>P*FHcZ5R4mAi*8 z>${xeE`d8C4W@pquUdrAr=LV-=`$BO2u65m&gL=RTW|4bNx~PeQHYb;cwt>iCzQ@bi;32aVAtofI8$3d?L!7HfG`6;( z2nt_wjsa^n_#*@Zzq;{xH^E~ei@7NW~#nP2~p0zapst9vaQfdC0!1U*vzb=Zg9?}_KCWitV z?pPaue~nT#p0JX2k$t=4uNlmhxRk*DVgD7Q&I+Z!O&N6tW(DEt91?U`jKDC(muX6zzO-dZp^`3 zIm@2lY1DNVF%+n7))CiDpt~z9IVB6+*g`~@X|QsxY$;$dRjga~rt*8&gqX2}$DAoM zvx+u~&py@=vXoGJMm)(^U8<%)xmHNBQT>4R6uET|C$SCgguk9yVuzw?;zdx@DV%cX zG}Jz(CwKdKeu{EJI3i+QViBY}T<%G#sX1S5l$+3`Vji=S+PyT2@$<9D_(Jpq@7thn zF0`D+C?S`5j#gk4W091YjlO_i{WST+8GL5zr4M=BF@X_*(2>PSmLC@LK$!G3gN@j9 z8hMv`nf`a-P}5nd*JxMuyP7U~I%m6iT7U;6SX5b2PzVKYmJR2)G9-b;onA`G%i*p; z_s=$W>e2N5L&MHF1LGn^k}H@PfC;7~G#GTn0H|fqQ4Hr(=Q(mkU5sY`#fs+1H>OB!25*TuK4dq-=D@u}@Xql{1 z!(&}i_xcz-2l-OM&)Lu?RFy`*{v0zu!2pt%lS=`7golQjSApi=-4Fb>Ai81ho|kfq zflnRU=BY3D|cIl`v zs1(W07zi9$TG)O#GS;OC*cg^l7&V7gyG0}Jzd4yjN-bcJ+Z-3>%gxbkj%yS}@WT*H zeT$>M1JVg!`kQfm!OFoad^pzN86Wnsf7cxFGr|b+>UTrwM4q*y09dMF;oviZTy{9O z(xeuSP~VJ=qSR}BGNcz)4s2~n622v^PZAXmh~*EwRN1eJo;9i8)MW-5Kt7S|=GvIg zFXFnQMXv^LRD_T3&%R5GS)Gh4Qe}~Rc)7&3A#H}69tYKC$~4ZT%@roGNBjirbn<=@ zTI({M01QW%#(+LPEe*As#J9txX`cXjUHDi`QM)<_wlODESHEx&^sLscUG5!2z1VPD z*U4IGUG}-1U!Ht_<8iX@KyFNJRp@o}V5^o85&hlWqo>aQ2M3b>RR910 diff --git a/docs/reference/clusterByDistance.html b/docs/reference/clusterByDistance.html index 473cc31..8299965 100644 --- a/docs/reference/clusterByDistance.html +++ b/docs/reference/clusterByDistance.html @@ -25,7 +25,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/coreMetadataNames.html b/docs/reference/coreMetadataNames.html index 7aa65bf..a737528 100644 --- a/docs/reference/coreMetadataNames.html +++ b/docs/reference/coreMetadataNames.html @@ -36,7 +36,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/getLocationDataDir.html b/docs/reference/getLocationDataDir.html index 71a5847..aa663c2 100644 --- a/docs/reference/getLocationDataDir.html +++ b/docs/reference/getLocationDataDir.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/id_monitors_500.html b/docs/reference/id_monitors_500.html index fa0585f..e1efe38 100644 --- a/docs/reference/id_monitors_500.html +++ b/docs/reference/id_monitors_500.html @@ -40,7 +40,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -95,7 +95,7 @@

Idaho monitor locations dataset

initializeMazamaSpatialUtils() setLocationDataDir("./data") -monitor <- monitor_loadLatest() %>% monitor_filter(stateCode == "ID") +monitor <- monitor_loadLatest() %>% monitor_filter(stateCode == "ID") lons <- monitor$meta$longitude lats <- monitor$meta$latitude diff --git a/docs/reference/index.html b/docs/reference/index.html index 70b13f7..85ae77b 100644 --- a/docs/reference/index.html +++ b/docs/reference/index.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/initializeMazamaSpatialUtils.html b/docs/reference/initializeMazamaSpatialUtils.html index 81dd2e9..69ce03e 100644 --- a/docs/reference/initializeMazamaSpatialUtils.html +++ b/docs/reference/initializeMazamaSpatialUtils.html @@ -27,7 +27,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_createID.html b/docs/reference/location_createID.html index 8085ead..401edc8 100644 --- a/docs/reference/location_createID.html +++ b/docs/reference/location_createID.html @@ -24,7 +24,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_getCensusBlock.html b/docs/reference/location_getCensusBlock.html index 494c3ce..8672441 100644 --- a/docs/reference/location_getCensusBlock.html +++ b/docs/reference/location_getCensusBlock.html @@ -24,7 +24,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_getOpenCageInfo.html b/docs/reference/location_getOpenCageInfo.html index d9c614d..15862ca 100644 --- a/docs/reference/location_getOpenCageInfo.html +++ b/docs/reference/location_getOpenCageInfo.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_getSingleAddress_Photon.html b/docs/reference/location_getSingleAddress_Photon.html index 313738b..948166d 100644 --- a/docs/reference/location_getSingleAddress_Photon.html +++ b/docs/reference/location_getSingleAddress_Photon.html @@ -34,7 +34,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_getSingleAddress_TexasAM.html b/docs/reference/location_getSingleAddress_TexasAM.html index 1efbbde..43b1ca8 100644 --- a/docs/reference/location_getSingleAddress_TexasAM.html +++ b/docs/reference/location_getSingleAddress_TexasAM.html @@ -18,7 +18,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_getSingleElevation_USGS.html b/docs/reference/location_getSingleElevation_USGS.html index b01978a..b2a37e3 100644 --- a/docs/reference/location_getSingleElevation_USGS.html +++ b/docs/reference/location_getSingleElevation_USGS.html @@ -19,7 +19,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/location_initialize.html b/docs/reference/location_initialize.html index 3854943..2de6040 100644 --- a/docs/reference/location_initialize.html +++ b/docs/reference/location_initialize.html @@ -33,7 +33,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/or_monitors_500.html b/docs/reference/or_monitors_500.html index cb0b58b..2c679b6 100644 --- a/docs/reference/or_monitors_500.html +++ b/docs/reference/or_monitors_500.html @@ -40,7 +40,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -95,7 +95,7 @@

Oregon monitor locations dataset

initializeMazamaSpatialUtils() setLocationDataDir("./data") -monitor <- monitor_loadLatest() %>% monitor_filter(stateCode == "OR") +monitor <- monitor_loadLatest() %>% monitor_filter(stateCode == "OR") lons <- monitor$meta$longitude lats <- monitor$meta$latitude diff --git a/docs/reference/pipe.html b/docs/reference/pipe.html index 2837759..09ce081 100644 --- a/docs/reference/pipe.html +++ b/docs/reference/pipe.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/setLocationDataDir.html b/docs/reference/setLocationDataDir.html index a66d500..d249be9 100644 --- a/docs/reference/setLocationDataDir.html +++ b/docs/reference/setLocationDataDir.html @@ -18,7 +18,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_addClustering-1.png b/docs/reference/table_addClustering-1.png index 29e9095c4b748eef84c4218468f77ab3a470c1c3..9315fe38272012371338ae7847878a66ea00692c 100644 GIT binary patch literal 23146 zcmeFZcT|&Gw>}zmD{d9pes+p%HxWbxRD{s6Aw~pLx>Q9v1Oe#~P`02VunkhADhNmd zgx-=6loBINz|ayxiv$BC6hkB-pZa=bk&p{pa2@#yyOoA@94&oO8`J=QE$R z^w~{QBk^65yFeh2IP}_;+aS>PP!MR_y`4LNC*-uZi@?W@d&WjrfKT9O?J_1B`1tj~ zHQPWCNG4wRXG`+8C07vWcM$Z-MT^kv`LT!$*ANFfFQgcA`5!yM7amWZyVL-^6!WI9 zb!qF)U5{hb^!IAsUwj(7bC2ey_n|ruu)m*C$lr63ep2&-^KUYy2adi>`2Dc>^U0z~ z__IGjTWEjmn|(JxPp)NrH4U<~4kDG~yshz$z16wnqu%_%(Q#ZtQQij4dfZYZ;{X2j zzZUpk3;ZVw%%6^!aR8x4&Bv;^9gGG>3h5w8edV-p(}N~#9xgZdwp~VJB0ggb9FDyET)GoXvTPccO3{}63;V3#7v_-kI=NToW6_i<-rr@uI zQ-_4FV_fI9V~cC0Db2;&fvH*%$Q7hS;!3k)&iS!(TZ9d4JaI80o@{0+>De4*?oUSS z^t#cFLT%wI&|r;Y3om_oP0VKz&XJ_!A0`Be`cx#bw^CJ;>5$QY$)ElkgnBE{T%b8y z)d~LRP&|PAUELBLvwfx?WaFBT*^x{&Y`yEu)`ND{Ysn5 zwClskJ7&g%qy;eYsZss<(%df{P6z+UqRxj3n!|(H zO$=jkiEBFjb(tvZuC>MmN03WNp3L3)zYbY>^YpbTE$PEU=X%i&Z)@GZR7apxtss<3iJ*!H$G$E)nMqihptXxp z(RIh$9J+rcq0PE*?ZF2y-MIrdc`0-UV5M7B0&lY`(*)fOH930z8wDt7r{3JSacwg$3}Ybz?h46gLY2`V?1CF#)-x`H_=?D*|#+yOgP-bq{gH_sr=z|&CCJVDjh516(4vx8a>g| zgT`4}TT}s29+n=)me-dZ?ouhE@F|B_+bRxiVI7$Lpd;n}V*2oqW^|`N)+?67o7aTT z6)6FGBt{NXm8g1UtFviRR>&5@)86FiXWrR@ubQx$5B&aKlM50c(1UsHg30lhd5-SX z`tv_#wmTpG$6`;1UB?n;NK-KAkLB-Rg<$-#_XiFFTdU&as+CjuUJLiK0J!4pn7N*J z>I&L>ZTzK?%W`vs@0b3)kDm%R~(w=lRFWi}*WI@#gs!yg1)Y;_t% zHTna7c9HZUE!G9FXmD`~QlQWJV^k{$RPi__M57$V99X3FnM-aRGqW;7H5W`C_fCfW zv`klk{FukR;ZDYV;q-}rU>@#pQP*`??5ySjqky{FavAcZFp@d4lWZUHBo!VV|8+~t ztFUWB^N~eOF6?E-7ICvbqPPuZ4+GfdMh!!%NgTiw&LNFelj8|S-e#?SQMr{JYjbWE zVjwj)V1qQM zj1@Ko1>Fg{$7aXj-xydpSmAJ!s@_5k(Il%0eGK=zOU+);;PHtZv^SEICCj|F%5Gr?V2?U#OdTRAnm5y5n>Wh}pGgM-J?K58+@pAUuVt@?wo>T0 z{a6`y{Qy%GDhTJdu%_0Av#FfC;)i*$=1qV*fmVWs7_u`CzqC}sB$b4zASP$BL>$jv zE0ybNoYOSY++DGIXQq=yrYc$)GgcjJ?5lNfLK=JSv>B;EwwA@9FqkBiRd&QR!1wl(@aJnFq4PITB8`Hjx3GFvav5*MQ9*fk z9BQZ5e--zYhP!ucCQzLhKwRhEXO}XhBy)qgyGarBJNrbl7t8|@pmgqL&`5(`!Q@+S zcSsF@?SY@9yIZO4fkBt?RQzkeH-Vp)NY6guC#d3$FyYi&^5_nLt%2_tz{bq#W*QaMac_GIW zZY0EwG!}(l4?;6`la7)wsN&l7-_?cl#fa};?4h0jlB@L#be%7uqn)S~`eV+V2F?MvXCEh&8HtLOb3AdVI7zPsVYf!}wV1bt_8RaB3!cg+(UJ=-^ ziCug^Z>-}sGVGA38T(CR#x4j~^g9blwt(dRy>dO^iLsHr7I|4AqE&C{d1okco0i9$ zehNB$QkY4AHU8fR!hQSyfjvG>GA;O*05D@rA_1-^xD#bp>kcmzxo}r+A?Yn+3V?dg z`J_%shED(L3`3s0xbfH(kafZ);MV2AfDOQ(HDJX%uo1|i8tJJGco5mkuk|{|PUDv{ zW4gicZ#&Iev9ZDqF=4+ge%v}*vW10*XeWe-;H^ajHV_zvG+VA`b8kVxrajX39e<j*`Z05?v+;H8*0I8cR%NkIcH(J5m4YR=sGfe4b7YZP_U$H{pm9c!P7b|>>099F zU}ak0G7c+HL(bXgN2KH(1X?>6|F&rQ0YLSj;FtmVRn_s9b#i$qe;h@&RIpMVpNN3N z+vo7*<)yhc{QkD3;(F{Ij>~?6fV5*=4CoGW_6nZbMJ@1;Ef?IZp(heJ7HH2ErBJ6c zOUHOtSi%@#S~XX5)q%V;DQxZbX%|(o;_>06o@%MB!^k9_gT~`F`tV5pDnrfamX2_843MY?L)O;g<4xzs(cD>Xp>Ti) zrvbm1Ts{8-gF|vlmWG2!(MaZ*+;MXpTsLI2t(KKDEQq$l`7wPJl5+GbqbuHux9zto z`7Vp}E8VyknT6664YP}l& zmpPrrQ|RiXR^&FLwGH9S zATms0bpq$viE7zs9XMVvNQ|%n;A9=4nn?nGtL$k`ytuLwGPkMko^TbMiJx13O)^Z8I8O$0XN$&Bran%)o=a!A$Q)x1PDT&r z-gMAe;^M@kLLf~!5f*uyNN`v1y@a>|c7B?jk}g~~IDlg8`^vZJbtaF+=)XmT;d7*pk1YEYj*d3g2w2Md!D?a@2Nt#*aG_l z7`%G<5x`2I_Y6jzMioN%Ny=5evsg14MPUwD~XCilCIYtiCuL?+&vTlS;x1hm(%2 z@re1})Q%P9(TU-^+y6Hu0t@lqBZBu)YN5#~s4QzpxoN4&(PUQH-ku4*C<+7@F5LML zah?5&@tM&{GD3w|M(drWcaolvzLPCBp+|Y0%oY|Og+dB2+S5B%R;`oK`j&jM?|ac} zXX~usmIz07Q`}-5V}Qi6NG>V2JIj%f_xc&j5G&rqIv}Zsk!&*{HOi23tg;Qxk4i6voHc}(aDF%G_&TUfVc$7E6Ede7&|QSf_|=(YoMBGraTMMoFmy_(H_`-kAp z(yX(EB4-2z<2-j@jXBy4&%D#iwSunK3P%FXhY#!tRXs`|!=^^FUQ8PmnTvRp7AB-S zhGW*T^wES8@*Nt6&U6%o1Q3RNej7FYyzZHWM53p<99>HA&;z@3Li>rFUO?m?zOJfOseSi4&i ztn-fb;w!nG4DbI~ONT9f;sBXsuNNXUE?U5ej9Qt$i_eTl3-%v62Xk(XH8quU35-B- zr2>&DH4ZN7V@7orE?qSnDdI7~JS4^{1i5M)6=$xgOG7gePl*;)Y>~{tEs@ZRrYoH8Nf@DBGP@{eN zBg--&4sDs|X|op5xmQBLz#;1X)!MGkWGhwsX-YTJ7^!0wt?R!&KtgpaC5dlY+F;xw zjav&`G0#PINYWc0SUxo{j%GTJIj4pxSdWvwcum}77sfeOV@N~*{_nMP0;;?wzaTtA zAf2pSMswh993y}Ec(?zVI4UH4CR;mpw77ehqfm*@yQngBH|2W2pQ{B8FvSDSSZ%lz zWAs<}yKf*)jb%?>|KeKuV{*Fmq+BcV9bMeEwq#<@n+@hj ztW3rAa-xhf0$FL>s1c=scual6@e)zJAM=kzrlz0o&qvwVXWnKWA@OiyRG^vW$Ly3l zdqd6c(BV8nnDvdqe=k>U)+(yYZ0-bcQ-R@Y{jr=^UL&5SvIMm3-5&gn`RJe=o`YJF zyHAs-hI5`YQJc^^lLQ%QtA*H~WokG{6Qs~;eu@oxH9c6|bc5q>dxQ$l-vius{CrX} zwXIe{l7P=ORn+ML$fV~6! zGSW9xwjdyAPV1|VaeYbim&v>+92{e*I={$Ta5ci-qyMYImzldNu4G}o`|1M=-i*~)EH;-lMPHVs8lIRCdfuB~u)FDh#=)y2059I!WEixLP00AiKV2c`Iq6tT zokO!mD`(VKUyUUyUSe|G)3&Heh1?EGXLNZ*vx$tVII&^TjW5obvm&kKMIo`&-R)&!uv9Z9u|96%(uw%^t$L@DC6_E@Vehm#t1rWp;mKt5VuG2_Lf4l^s zJU@kQNNI%P2RhdLDB+%J3jZ{@xjzNF`v|{ZQ{S!J(kD-?V=2Kq8~;tyvGxNmDp(pH zB%(b5LfNnQ7p!&CbVzUQ^M#c)e_j8?l{`s8V%>WiZe!RrQ8tlo4F(qefKRUe(5bp! zyAJ;{5U*@HlqXJQ1y6?(|K;?izlO5(lhQ>a<@-naqvD7EuQ*ZwsAlVt^d!SSA495S z`)QG98W>UHc}u%VoQM1eQGV>)rFB0G-cUntA}T#`rCi2IRZ_xM7?XuG%c-J~R<^HE z7=AyhTJmG}3A|Q&craoP$+L)d8pDSBvcEGzkdX7G_V9y_;ld6Lh_qqw%HYI1USGwrobVYrDMFBf1g&dhx*{`9XPSCZi_L7hW}SOM9^ z0_U7m+x7V{O3aE56m4znXv-XP{^?58+fVQv91@Kvol?~J zm}5-Z@amN>=hMAd@@P>c*OXuQ^N@H1Au+MB>G(C(sAQo!6B%_QF`O+j&7;AJ@1hmgbGx<5)d@I*#E zATh!+NycYq=y=mwfbbz`_`PSHN9fgowS#cccMWF%$P5&RqQ_=FGDaCABn5!F6uzl2 zmWHslChbcu$^H7p?`LsUzle>@cnlOlQR8hvA@8 zRo%Z-)uUHs+x^pUZ=0L|WDv$qA*~?iX3l{qAO3k4!1jP>nhcHoi}1IkSW0bD^?U@X z*b1-F3~;VXqyi-VwYBK<2voXoA;@Ej4Y8Cxnyl=LE{Ex?e0BrCTW`dF#wtRNuIuvP z%ru{rgL2BzTz$iE5&uBfS~)4gR5qu99AhS3Z|j74|DOrh%RARUG2+zFqQGObQ;47} z_?_}-K3&-!GpmAb#&GKx4*Ll#O2rMn5-HC@0u6Imcpdaes6tCm&Hg**=Vj_$#>Oq^ zRv~D|+9}FqWV&^p$Ig$c<;Qde7{X>TGVbH@=!gsPXt2XBPg#2z%0$$vRq_!IntERu z(;b0~x2pH@IKww5ecw+v^YEBntYF}~vD(7E&XY18p&!T2*IRe}*xxnSAcfviU6 z`R$BWz*ieS^t`-q_`ja|X<#0QjOyRf^QRil-;76gb}SqfmvGR*yv-2-um^j{J}o>4 zfCil`6W5EvS0~ncXxcd3ibA$Kywvu#hWwc0XN4UWt!dW~;C;qcTEP{^C!*$NHc55o zf})Z9$)m~!9=>Wx=yFtfj;WT;XEKt%q9W=v>;M2^{iuYYXk55oP<>f?)ifpK@54e& zZ?N9|g?9{jqqBm+>Cjb;uc9s$N+vo$Wy}^M@gZUSgXX2K^$ito>zAfyglB4iS61Hu z;6!NPwj}}Ow_gOIt+AgRwT01- z=QBBqn-0YTpup;1%=1qH-#6%e)7&XKQ$1HFIyI1B$$G!nLIGwMv=a1Ya>Xpd?n=7G z*MEo83tfMSYr~#%n)sUV2dRO1(gYoJ0JDkVF3IiE_xTS1@6-37)gS8yw2&fT%KR5} z031Z>EVdai^|xZvNw25pwuwua@Cf4eJi7SB^^oAu1QFdFQxY28ieN~U`EQIes*M^p zZn8@}57)-dqg6Z_aUWC5WB^R(#j3FL5b^XEJp0ZZ9PsH|jPqZAq~3!sZdwD*s@64g z^#P?by^+P|f5>fI3cAW>GCY+Hu89k6=G+RbX|u<@$ZPTOX=oV&0UfY#nXn{hUg}=l z^sdQ-{d|c%fC@<>2pfZD?wPSy)9ik;x5L4w)*)uuywo^&O+6CslO6G%OFBA;*{@s5 z4R3Wfu+eLpjL80*b;i6rB(C#CQM~NPUK1bVRSQ1{e^>yfjzosc2SZR)$}(rMDURj; zY!kwcU2DOFu7PbGolu)9v|2_Wh{0ZxJydTaA@rh`d5JI8Kbe%zqAl?cC7kZnG6mIDxxz1Qz< zrJd*q3UqP{%i;#caGPC-FFTM_Z(-ftD7tarEJg;Rrp>^(Wqk?k?;0Z}$5U+!OF<)S z>}qzU3CF=gOj|=%SHwH|w75MUwX@(AZ+bV#$Q@{jfrQBjWdoVlyneHaEwL6!+H&jP z4%#=-V$62+PRAx5G7weWF(ivtLFwzXN{V_0Czc6mUKSc&)zrI>8PW?JE_7RIaTts~ zlBHd#D9ue|RHepnc96U!ACJj3US@|FX$mG7tt2hdH@o*D>4YtgVO3#T6#gCdbM+bA zgL{JKjCds3I-~@S1%O)sP<%AnFrPxpgWUV#KCy0G2u-Sq? z+aP#jGPoJ4x<-Id6*c|yanOvOr?i9x+TbI$K5?4kS0zGFF)lrQ`u7)JioabPBMb?O zn%oi_i>>RAaSSZ^i~E?E1LyPX_`GM+s#>49B5`e6-I38=jc8`AI4aPZ47izC@)^Hx z>(QCR!%;srLEevvoaY6;eGd{CMWn-oAq5Kpx>7H2s)>B;E_I3YY#Q5}$Z;C|dpNg< z#pWn!KYYg;pR}LASGBeV>MWh4X*&&DQJQZ#>t4NurPQ%hZ-+}}MVG=fnFjc~CG0z^ zHP}%ODXUau@fdO7Oy~CH2fPoANfN}$-SY55{sw0J!Jj-zDR=ByV=>H$IRD#!;OcfS zlpkcu37{=KNDl~%Z{A(J*Ng#_bhIlwht#c*q*uoMD8I={Oq?9640jrGs>IajmAvJD z^x9jR!Fw#%p8p44zw(#5Xu$28)egw!CV9-5^MkPp*hj(I38jB4suZ9MzG&b#S>5tlfHlfx z@Q~w3=7T@O1ojR$`EKmOe`Adj;`pRID>U=dBurc>JkK$zIsE6VIgw<;>>}J_4hJb_ zf`z*V`LieEEP?%%W#w*dU^7-fYKM!IcGCE^nLUPMFzP?P>RI64X}fM4%C_Q9wgnaY z+6B!YNY_{|RsH*9t&3zRuGI%z^SJ-gq}s66g|OrbARATKL}ss*pziK=Khkuu&8CNx zYXFQ-1YyZt62VE-w$O8>2q5O0egTkOZY>dW{_9`m%W(nHtaJZPDapzb_;&B7jRzD( z``VcUwB?QZ>jLx>)l=F@{omWFN)rxSLo`22!u=@G#D6EOnla(FK^R6i$yeh+cUec{ zxFfDAd_dS@Lg3BnnRZp`)aetf9zBwDGllsO~cSR`|&-OA-2 zdFV%wmwNEmx!+tAya@KtkBQ;!$8Whj?ubb2czfdB<+-5W>okA)<>Iq@7k;~vM6Y1U zdN0_qsKs%XmfqH+Q8pj0KWFYe6h4H>t>y#{BEuPFA%MHtjVArNx|X;{WluB)zWxL} z4qa{p%idTvgO;0B=@ETXva@L~p-l67fh~e_!Zzo3QA_|yj^-eL!yMghH-6ZhU)Gxw z^1E=2yGR&w(z9G`)`h0hZpF=Tnei4{efRnA91Qv;zcp@ zf_ciJP~IBu2dqW}4qD{Bt6O-;Lp+gQ&VL#<5;wJXxh;x!pxKk#9fiZiB>k5Mqi0#5 z**^;qy5|-me}53lpKTSnS_WdPstNW4G35?(Wj2i`oHnMgpv8E?uN>Wo=kp!0ARZ2-#5r7eSvzV;eK!}f_HK#n^wM$=iM)QrsLy8G&aH08j*s?{_DOwf+fFp2Z5p=6&1}b=g4Wa7vQ|>RrS5A+fuTDNYDa=#NsY+ zfA>neg&-}EE+bMSkj=CR$}jHG`ORZ$5$yDt``GvU7qGS41OIw^$CUf7^0(^EMDxa6 zc~pO}$Ri_h0or36z?o`Xfz+%yBgjK@1}4kp;Jh0Fz6fCZgNXwv^XW8$;>_|%<*dWP z<3|t(x}5Rj>Ui@x;zg;tJS(4QDDn@OffzU}s&BO}Yu~)Q+9tke+v%uH(BUYqC zlP3YY&E~d~sXG7TYbZ0D#)O()4~PdFozOZ%dMG|_yj%u$G7h+l+=t!~C(oXtXpQWh@|CIBLbi1ECl?3~J>T*+rKRGe;~a|6uo9$UPP`KM`R< z=Mu%m;NE)rgDyKnWOZS4xo3$eAKHZbc9m=%h)JLPr#xF(K3H|4?1@G`cAIFg)a?a! zYiKZH+%&)yarj+MR;uW+vFW3bRcZ#!7|PWATRWKfL{6F6U~)0IQJ3`IF};ehbE zbjdCZS~)l32EtE43qm@uc~kJR;$ly4E*PKX^_5wiK#x8_G%R`EVg?OBy*3i%d z)fD@eG=-8P|DR>AuZjwX)6zhzz*`7Hp=24aA8asO!H=;R&|LriVp`-EhhA)DO>toe z2v|#-IF^FdB^vao{~^@D`R#m02zC*QVZ3#+EXTXgiCmMB$jnLee zw7=G#?C9#hj-bB_*;Xf&qKl-?$a@Q0C(!qnJa0tFrH$SCA=73uI2-_1Ar1}bY{9A# zshd0GG$IyZpMvc04@9V?NM|yR8IKbeAG4_7-pr^^yP=QLl|79RL+;~(b-O2`c=IL5 zz0kV4(Vb7}$Y%wntb=iW-Ub>(QajwtLorRoZ2#Mq&a_|_csyCuyycIPR7c#*Li-B; zd9$i=F2)QYcl%(((DP=U;unR)^ZOEX@7X-6-wvy)YuFgKXyqm&Me8`jqPBA*<_HeZ zjVRnk64xu@j9ai8AKhE4&}z_(CK{CWF=oh1&?$>7IUV zXLetG6jHfh%9dSEAWBa>JkL#8(FLg3ESXJW66Zr{jzrkccooUJQ_d*LajP_K& z+04Ul8plm6GaR7m$*_L>Y=j3QeQ0h-e(g4nik{UezbF^S^YjKJ`#XCVnIDR>PSHJS zd68qqUL}A>Qa%`t`-@ASrI<;{#o0RR{EZ79QXZAe;Kwux3$;*F;{Z!!K1-+CuP@{u z{HuE;`a7Q9jS-AznMWbm>tSNTee(se&77o@d3p%kIPhXh`#e#+-T$y}1s!AFzWTSz z3Y{b7JLQ!ZH`cf0>MT_*mfnF2LYT>G1?`_6N&PTzrJ{Y)KQ8E40c%V&gyte>kmtVX zC&H|8aC-#$KHt7+K>G}lsU0VklATVY-!|FrPX`~a2|a!2>1JZ`Nvc;^gW=$jh;-Me zKF&5zPKUb`9c1dJb}vI~6MM#VS7y>$+j|LaKm!;QHq>9qHQ8VJ8c_eY%{2d|>sCq8 z#o-)Ub{x;%vXo^a$oI?o?Dr(XNf3tlfDO+ z5qAC9S)J~$B@)V9ZJpSJI^P#Zs5f?Dzg!equ*Isbaux$2rb2s6mb<|5^$)WX2d+>~ z5R<~mJvBP_LaR?MUJ~0(-#7dyo_`b_J&UzH5NcQPG+IXpl!eisg(P-d}YUenYje3dKxK} zVHk8D_eHrLyf%Z4ovlg*Ccmw%LM#sxJ6i}~tcM7LYs;^-2wMvct_9pi2wu^=1CzF2 z7g!??lY6fPup=)&3evxAun~alLsaZcx)DTOPY0Xj`JJrjc?R7$Lxdo(4|*yud_SCm zJx?U0tosEfJy~){q49u>W}_ednqe}LG9$Co=K&l^iJZW0dnDeRatgu%0EcrdDg5l> zBg24ri?Fb7!Z*zHQxH`kl~#PfLsPS4f#1$ZG+T)b{pHr?<^ahQ{xc!|zy2VlF}zjo z^sYu?ev>w_7hw+(>VQfCmg8c}jv<8+nW4Z#y`yWlVO1VjiLK5)@!+s)k=H&>X`Lc& z1B#&^{yvC^Zk?U8(=ezhu=HODI0VI?dhvoR$Bdo1{}8dxg4HMSdJ{{TE}rS%=sv#SFAZ3@NO6A+iwm zskA64T#wje^3>nfBs0tR+t<>7KqCa9`14y<;pdXhl6?W_uEwd>vD<%6i!w|qv+Yq{^ z03cJDd*)5v<=csI_9j&dq~bBLA^!aJWfTc;8b{jdN(CV@I)+Z2H(*KWS@H5~@UfXuaI!I5#~vDBgRnjn zWq)A2=XJ+9np+mVD|yg2*WjY`3nN%vpq?xT(6zYqowk2&8q&r#_k5P4F1*Y`5O;h5 zUhKiCGMRO`Q|!veM}36~8uG{D2Lwur@x|ObL@&hd(LKSx-pCSq*Xh8O(){Fzy&i#A zkP>^W<_K`rH$95nMnVi6md-#yQ6>5>i?td@oKh(3^@aw5;0p%d!d5!KJd-0URkp9@ z!m{}1`>bFZOH)%es;?`O0jDbN?5_3GwNL*LyZv*hEaWb>)8lAhb$8&*sPkhZv){y8 ziQOATjk(D@z?%ZgKQ}8h`Kul~Ts#5|HVQA;;Ya;am#AMacJd+bK;LQPAD#?xu; zmq(eibS+=5=B2E=#jc8-2)m8j_->KsEU^q}=i;-#njM2yrrqZt zEQiu$$y>bf1a=}p(TKVJ{V81Erqpbu)-}^^h61?D+9!k5$+OW|8-cZ45>zKm3t}|# z((AytOtsrl*FN~14uowKbC=>vU^_KGncc=6GeL;CuJ~QMQRv+`GNVN*me!*u@tX+oLisG zc8{y&FMRus+ZV|VeXCsS8L+t%a&MPLyIdisZkdBFC$w`5<+zGYe;K%5u?q)G(;5&c zxW}K_$A48I$9dsl?7Hutey;VI1#UFPZRCT~6B`9pDOs)JpSxwgo4BqNLt#hzdRzN> z{Bn(_FTaVb9ddFo`ux>B=j9+`Qk-yoVno!DYmd^)kFvK`J+!E#((Z>vR>EBpqHZu2 z!O@mzyaq8{lF9k&9=}s=lzRI|#9YH$()r98H#;r$PKs`k4c_evnRj?@oKmr1+Rilr zWHxw$x3)(Y9fv5j2CNX;x!crq$3JJG_|s2a&JCBM|K6QiU6s%cPB=dgu|9Nm)%8r{ zh}ubr*)^8#8u4s$FRd;BRu|S|&-*gB{DPz75)e>*u7@4j&*6gXI#}-5wW!QdgE>03 zaUq*)Q;lHE`AE?Rbo2`7-_{m0&SJ|vqCY;Z+f#QG2x6wSud`aEGpXxVL+>Of&AGfk z;`nNmErw(gIKD>md%(-AfWRpTjXaI} z$u!7U?k0ABuAr=wrhXC%Pp#^oBI=lTyTi@-Ki#45yD3w4R|Bd?v{q`_tAXa?DxnUD z-V=?@R1Vf+JhY)(zOBBLHWNCu;z^y`=5sVFXz6D`{`l^hVM3<6JAXG_z1aN+RFGwu zWv8w=IQM+D*yNDPNH)bssd%)j8y;MkY0c`N(&WqyFvZ(fZ$V6T$~`cdv|!)um_KPV zvy>Z1zcco>H4(PRwJ`+45U8f?Z}~)b$+ux{99j#fx*5d2NXg<;iiiD%*Nb16!IFBq z(+`qOjn$WZf<7&O|It%?1NJ&FFgtL@h_MiHPFK}B1*6Lsxx4ud1vcc_0*ga+8m2Yy@T+-0{7#OZKll3xg(o-qYIa%MDzg?rkJA+D!#P4b+gzEWK=fR7J-HG~6 z^9Ic3Jqi#b`ixzIhIhe~ekP;n64^X)7Uvr-r)ZrLscL!rPolCN%rv|Q+vLF`S+v*N z6`rCouLCrn-~vZRxvgoQ=C(4oR>NX%se7TJdQ1Vlc6~7Km8?d*{&k((Q6?_xB#-#S zypwskeG2?@Y4R&+&2Kyei~D?!mX?VO-_xDAx2svzYcQ=7kv;03x9~kN1}jgzxQ(kX zKZn0sD=8ORd|W7ECeNL}^Tox^Jj1v5?j!^Y)wl?#(cgQR7xk|F=lf6HeT{1y;=UW2 zu|^lu&}xF-LoSY2JJW!yrxtR^mzw$^)?x1_?n^p;@OD?{b(jVww|>b{)|u&;&M+^( z*!fnR=Q%x9sYH~j-ng<(dI7mqk*LoN3mO|TDUo*^pZ)Pd|9g6#JWTdW(GNsEe;Z+U zh_THpp$-~K5HVXRaepsFpoTQ(mHt8}`k+%L!<(fu=PM>3b}78zOXnY~b3GrFAjN7h zn11yz+yn`U5T@H30rwCR2Ykyv1Y~fpwe0Q%Zmzwp# zDP=_G&De;cQ?yM@qj#)JI>gKKoVzMNQ3PJx=riD+>#Di_%w0}*pe!cA&sVYB^#mkh z$G4gK=k%<|FP5v*ao#DfhlGwX`jv)lL@>PDychQ7ns^u+!ODkJA)QihH?GI(A9JkX zd}yQ5+{~oV>M67*h6crEvV;AIEIoceb+<5i-rH+8_Mt@H+Msk}&9a30BHFhj>V=CP z(rk^ZOx{tWgbxmItkh>r)hUy*-+S}M&iQ|RQ2^jaL)fuYYC=MwBs0*mvN`1AH1#YF zyOH%P&pEO)Gpk;45bgKHObfXl6Gw2<2A&jRikg0PMXWm@WX%r9_}X<)unnQ*y3u=e zn3+nF$I`zCoq*8UchpLXJnqOr+}(kgI4Vjy4S9Rh1|)PtKDyNP8QC$d+m=6V@l858 ziVeIH9ilR-k1ITqPSO;{z3x9CotS;m=t=!=COba&{ncyAGVFif_f6mpTwRdWyo#MS zhOO@T+`U^&*Wj8~$eP>Oyay_aAT(l}ry9gqRb^Dy_4ARVH$)bcP|Wo{cQ{N-jCIab zY%r}1s9JK>R8861D>LV%x`GYI2)RFC+|HkXZBypfem4K^4J^VpQp)RgwQxt7?f3oW_C3KcPv2%(H=x?x z2A0O(6CvIhjnwHt%ddUBvai}riSA|>W@~C0(z}mO!Fcf8U5su(VOE)ry<(nRz(I|V z(5IGu0%hI)W9UTvLCV=V`ta*311TH0=fQrmUuNFrch4!jh|et&+4meo_Kx)2{2q8^ z6@un#NGA9WH%E^Nypa3$^TcPT6N9p{reotZgh4m#VdVmMPcNqUfN$OyP4=SGrpV_o z6#HtFM|H%t=o@A*tE=B;i0yS8iSKlELrlbZzR{NRZwHqQ&8>tgVNSNYPDzZ5#5>!{N<3K;BZy@ zRkNUr_EIKG>>sK%Xa80}8)9(VM{ogwc_-V zCzyVSEUW%TqC*an^=)S0xrVg@K#kau$X2(zqwZ{|7|0Za6rY_F)(GJ0?(TP)s?lX* zMsYPR;Q`fQu;v<%l|Bpe=(3!{$v0Tr$RrEAbx}15sJXD~s)kvrh1${OxSw4iAuq8Y<~R^un`Hg{*uH|^BjeAYjyW_e81gQYzV_Kd&M)t^mwu^yl8HL&`}UHn zDJ;|FH4DG3626f8X+TBTC};VWBU92mS)o8ogz9I}QcJGB|DZYg*~G)n4!GNo%qoD( zlYU%>kmghqvyf+-0T-wM_d?aHmYXbwRyuDdu15xhkM}<+vfsQh|38Bd`5z{Qb5C8b z@E<;Bv>b$%Lze-14YJ8~xZT7`hOku=9wfA*?-pZVQvq6Wx&N-^{6KGOjko7w* z#OWOCLPtfKnP0Aub8>hK5Nj>J7Z+MT&~dqtmBT*Q4QUNNz~57)L{vjWo+s8qlT4S3 zq0N8M08-v-@`zpcC_c<6&(~z5Zsp5W{Vkx=sc_X*;KZ!^&c%nWNoOevM1>UTs>!t+ zDAPez)oj@snwv%|R!c0$9Gdh4=6dx4V4j^{=KMwbXwg2lg2>KBo>@x)<5OuBVAc2J zjc|lnn>R%rAg`&%0Im(VoUiM+z7$tV|AxFJc<+M zj39Jt-vsP&SjZY5A~~c`aE^j8i|u0!LL0)S&8-VPt?Y0$)BPn?agf}`5s~_UPnVkp zzz_-wTF!0FfIa!y4g#zavHEu6rH#8|#x#PpP!rgNVLq4G!uiKl8 zeTIWC<8UPx2{r(OY-iLK9ffd`40wTJ1OrF&;mE1!H_fo?0rcZhGOuY$a;wo7kmIdh z$UnZn2~|%9%|t``gh@cYMElgzbcbor>}DgauGQASfzxyYaG}%>~|K2c67%CmuUxZKwK{ zzc#dU2Ptm!t#G** z^65o=yk$=|n)+u%1Sh|o9`+UbHd;1_3-UsA`z%#eSGu7#W~^WTjnNPM6BD}T&Y zs!m*~c_Ut&&~Ti{Dn2#A&I$?s>mot(J=0sAv|iULZQHi=NT1xfmE{umBd|ArtQz8@ z^LBW(f8Wx&e_!ye-B_aoWU5YnUUfp9>!Xmuq`T_G?vf3+SW3yPOZK`@-xy{0?5(UP z;@k+QzKz+bwY%G?sigw1jgD`hEuLV>iNHSwanXG{J9klhLp)D$RJP%+o$bWf*>}lR zvuix5I^4VA;P`!&*|%#PzHVjt9U_~`^!4^0_U+v2XZr)*`cxmmmRE<`>jcjmiWxp2!Qg~`7aKMzT;e(F?JS@b#J0)T$j$a;jyK>{njs*kT zQUN7K!{D0wsnEaj4$fgTe3Xnf9M%6wiuAwm zCZuVksfcB^#L$U(X=+}8b}UgOusoxVrRG<&CMwoQMKN*YHG!5hBJ-YCN-~*(h~yPP z!F_Rm#-5*_=bX=TKF@hS&w0OJPpB7EIFE7&Ay{BR+`>i%uUG6<)!S2UODc^N5La+! z-}LORE3D7P(v+HoBTO6vda^KmMnPVgGX0ase%m{bg542GCpwAz{uefP9P;v$`o1)% z7}O`97doC7G-@$umMIN!`Cen96}eb4gv8yE6of~ut%p&A3)t}y#1KDH?c@Rl!?O3R z=&tse-n*Zv^Fl86nyALS+Ju!6Rv$KW$ko~rNb=~2O5;h0ZO|!Do6|8}bPGi;D2`2@ zdJ!A%V^p+p!|=5STV242rL;8Zbu#eALwLn{E`n!{^RP|>y{ak`)$hKABeMN6v(qz) zePZ(INy0tFm2wfKW3|koc#%MO`Z36~T*}c4AGReZ8;UTO2l0~Nd2~m0erGRS98KpU zamK zI>sQYM;~rhm=N%N@l$98qV;HK!3PJE^J@cAXF1DRox~-_mT;lu=muTc)jDUDTC*@b zrZP&gDQo*wK>s_^$dhscI3Zs-e-c8!pvsB#%$iYrAcuJzB+7z7)GNyyw{IB1#d*4Q z@TnBv8rpp)Aq}?d^+F&QL{yFK`J5ldqSSe>JF0KSYFj~*&V@^>(2_fJf|bc-+(6pd z;a+$IF$uUH{A;N*MbucpAy^H>Z+aAaPlT}Gc;Ax{u;*}w>PSZajib0Si52sxWjeaX zy+ogKMenmKOR~-$a#VKlqUi9JQC^88RTi}agA5Ib1YcQ-I#>#yJ(1Q;ol%A_Yx7wA z#1Ru@dH4n?0I(m%!pB{x-hu#t56Mf7r7Mu32ivQ0smC?qc6kkPy_)&;OR*?IlR^n> z&^|y7MzOT#@H9!|N)zp7n$~~mQRg6@H}w-mv_}x${jPw6@6p(%r_iDFZ<ij;cMts@v=4d%-L5=^JS^#nsaqSbXT#!5v(hyO0lT5L$_be^5`R}RM-<)hdqUnm z0RqKJg5vNej_w>iL8g4Tsf>#N^34Pp=YZoku`bT)OAT6~p{`pmh-_3|pxd)0>T*tk z*0??RlpAHP;+iB0s4_YHoc&%N2;9w=60og~*)#oiX}1`z#+1vxo3Qvb5(jIZUN}pQ zg#=!nYV=|nSI`3%pP{x(4Rgrk%mB}95! zBBsvh`cr)VBgTs0;3-(|acm9-f0u$eCyxN2qd2* z__HH@cJ(F*^eYH*;Sc-B{Kd(b`~bK+nLkV*{0!N@clhw$y>}mgfBp5>*O`X<{)}wj z_jK#Z*+*ID9Q^zCH;HNLNS!Rsj3#vM-x+CfPpm)bZR;$k6W2V->fb>4AzX_FCuu=Dh~}g*)p94Fe5?DuWG7RR?BXnJF86IoV4*2ng)bZD-%&qR z9NaBvR;{P_xPu&8g5-v2t=O5rLU8`FenQ%${z`zG;6mhrTHi4n6uRL4=hXxg+Wyqb z%>?_hCY<)0>dq5Z%V!vrYdIElwf!s0DOu%_@paT_Vyf(zR=)dWrP5Z*x(q9O zV#iiK^@v?%NNG#iw-~{e!T!zX&$o3;?Tz%MFsOr+kav%oB!?R3im4hXX?r>u|3xq= z!AxnYz?3tr7eANgC}dtwi-4`dpFD37daOZHvqSjB^Ylp@-M2S4-v2F7bII~JLs}zs z2hkHM;+SJv79AJv%!Ct9qOx?19xtvDUD4x<7hVXKY1@)qSpumbVVUc;(Fl z8*Evk1xnXG%YGQM?7?*kKgYBXTat-`aV`Va%j*vWG(2^+uJ;ensogA$cv_boD#%4M zzVzXy%9+0!(fZZwx`%b8f#%iYi~3@9{E2c=!LDa%OMS*o>|5P@QsnyYu=>#WgxdxU z-{R4IIpIplmdS|)t5qSfF3ch{rZPKzM$hDBv`@R~CFoizRT@o}Bb&xP(gsxQ6hAX! zei=4WfGvG7OD;flL8TpZ4IgnTez^lBDS~cowibHCq;AH`&9_F~V_|uXyi`|>fUePZ zq99O}K6m24Z0yiXc zQ+b=+wlJ|)Q=v3#Rq(S4ORaDwP0^mPhFeZY4x6ISyXx+P?~r<|fHS1@QX(JUCBw{pk4#=0sP7SGg~(o#?kyQ?3_02+H>uMCKW&@G!(i_QGr#TwiMGT zL2r5LBx7PwDu#cD_F6!0sWoi#4?l}8j7?8#_4!@nx8DXu4t$_d41bWX+Ptas`<}Jg zb|O{^WcMqu6b8+E@vYz8#0ddU;w^eYTNaw$vDILAg7?@7 zB21Q-fAeHl2E2LYM6`7~e51)(8sJJ*Lg4_TRhHB=%fou!V#dcC#dI*GG1Y+;6bKP5 z!+Ugxu_fU@$l8^rHm|c4^hv)~{l=5gci39I+a#vho%vUye3Ln)LX02IMA%gVGLg_x zD=9(Z5#=|20o9*vGnA!QD!3Tqn$6ndueLaZM~8E%uc(YfmHfEI=y+y*VuAppbZBo6 z(TfJEcHAb2qRp4w^g;g565#cfZ%j@p0Nuf70w+TyNGM+i{xw-sN&pdVy~zXlKPmM9 zPSCa-O#G9qm|(Sk1^5j>*W+q3QvElH_*Lf5wW>b}nzGe)(5FX-L))-+anISKCAAdJ zc;~8XNw9{XSFhyf$k7KP4ynot2qpzvO0K9EruR;1X<$gFU&kQAFS7&_6TC@hqEP}u*5-$Zgb&GfuIdoY#IVs^ai9Z~V0A!!xtv~B zXtc^}B6865d@FrHd)sfo66I)ADYOA)Vo->^$*iYp6Rmvhq=3$@s%H{`sO%rW*EaqB}MyUyr|wc%Nu$ zFM+PaQv_6lK%#%N8OBIEuu#ixEiuzuYO=hOolrE?L88(+XhZUdU-t&y&>kgtBIJLwZ6_Qpy*VW3733&kOIt9o=Q~3)|`na$A zUI7iKTwTrxJ^{%w1TJWkh(YzKWS#)D~Ct1c9{Y}1{j zP1bj+im$tH?^E$V;e_jnemXxC(P>;CyhIAY!Na{eCi3coJq2A}?*yViLm^yoU7i)8 zf&EhSp9Srzr_^KwpCGBHfR&<@Q#H_9oh%Nz2xU@z7sjtqde90>YPcmF;w7?(E_9cd zOYgTQs-Q)~0gj3Di;XX$4idROjzTY@YX48TwQpVk zlpP_8pfk{XhZa2vuU&#kL%8^f!TS?qNgs1#O@;NSh&f9qO6C?X0xLekm3nOQ34PFH%qct$Y7z5Xja4Cw_>t zDu@~A)(X6>yJJf!8$&EW8`qu`6I_y41j$*xye}_Y2|WUBDSv@KDo;l(XYUsPzt>3s zPFw_V($?7vYr~dC2hftRvc|mn=ApDWfq*1*{5DmvQ%%Ne67>hQ zTXHQ6>TBIYe#2f0S*|4VZ;u@MMX+Jj$sU?GN#f3T@d@9`nz1ru&Yti0cu+m*n2DlQhF0b>?4SSYO=l7z7^HR~Hxz-I>{f`IY{OuYb7+o~_L z8SZvDb9VAZ2gmgG-Vl`nTg3PV8zDK*(q8N-xO0g0cWv!>eC6)$&zZ>^clu&RP_}2Nn(WX}eI6wi8Q*w**AU4+q&(WNdvHJqjY-k1ORcN)F^Q!@dyDV@%i70}fq{r5yuVrV3rMrq1GlLME6 zS!cTqZ};E&{>)IH|4}S%UBt18RfaClTO5puidYp)Otxwh6}_dfi)7~_?udC~{YGIT zG`pG6=r_$QK>K2WhW)P(jNoMgZie;6LH)f&uS1LI2c|r}&p_8g-UP zgq9mR0ZtT4a-LVh-dtrm5cxUTSpQu`h(U)wZr;&y{>TSfp8pgNSOK(neW%BpT4fJ% zCA-pL2=}VlgE^6yRIJuC_F-#*7@#s|(%3g&c$GW)D2!EU68#q}&|o$C=#JBZxouws z7Z%eHQ8X!Pcm{;ue6*Qv(_`9@TIa0S)IM&2!!Y499u+TG%TKm%O?4k2)jN8<+gzE` z;u7#8+ob}huvDt-$)Sm0w>8<5eMQxud>0p1NO%!ceCu@BP|W~HU^TrC?2Rm)+HjU` zJJ;yT%&;nb-PPN<>Syj&S6gXk9NW=UR90xZ8W(i_je#=@i=S*3bCQH1`h4po9+RXw)+6+gS}0ceMt)4diU6P!qI^W?2S?s@U)-`}mIjokwnZ0? zRwc8hPfWmE6y8pAxo9qh)>6?Dwt1Bj>A+kg2I;0U;P*1xe~lTpHax&jeS=p#tmz&`83gu*090F`<;J-^(~;7 zD_2HM8x+M;sNQNxSb9ZYVB|(#uz(*44nId;3r!H!)+r z54~tXkjKXY}$7Ayx^^cz30 zLMmm)GCfg)X;p!q%t2xYF+K3S&^&;!V{dnn3>`2*dxOv>uG~Q8cPi=-jDMpz(X>qA z%&gF70*ySEM8%`T9pj-0+M`V_W#Sdh5p$%Uj;X}=YM+jw`)?qMbcN9bD7!37Hncd* z$Nl4Pd2`|@Y$y$6@&C?V@<`igDKJV|s%$y&t@)uHkn_{}dW+W9j5 zrmgJHe;;J(xbX{v$fsSN4jiAWs)ox2Vy$ccmjfLw>O6i1zM>xG!;~kIgS?jRQppai zipr71Z5~HdP#PBSKv-rsiEEAzPokDn|Dx7Xwq((*W%%lUU*@5ep{f@4QDRU4#dk5H z)S*<@2)8Url$MRF6cRozvr^McLAyf9E=y%5ZthO*`qgvg)I-G4la<_CKt!lL?x`#s znW12hsB2d|&FY|9Q*vD~r&}43A>)IlQ7VxiWdtK;m0)(&Ir6xE)VekH@qmE7wW$L{ z#d1yfB=t{f5A~Vkys2wTv|PXc-UloP2@DC!Wk(zms`H{X$2C4_!6$u^DkG+LSlrPQ z6W7%28&0R1rp{+ZFx0uK3WJ~DU;6?P!@{$M++sxhigXNx-Zl_E`TA(>pbw+dp+)85 z<)`CAn3?ih;)Y9IF5k zMvXf{U2jfmqp;dWs*7ICXVf3^s1T_>*hV2a<}Yn{(55dO8@>!5m(m3v62|;jc9NRH zCNtrzxZ$gA4F~sm+80!bh4=ExVA3 zgLLNi#Hm$H;--1XBn@rupj#Gq=Ml3fLpFsnYwomG_i)(Lb3P85Lb;t+DGV2#A_sqo zYz>m*M@kOk{pI3sT(0ZM(@3Xi4?8y;oTy~AHMLM0J@yMd(Z%b)*erHuT)50c1hbe=)Z67?xX-|?p6bQ z+~CkBp?XM-p4mmxO{E;w4O!xLt;XAwK5bevl~H&QaXtJRkgkYv)b-#}u*Jx->glKlMGHUbyCfk$l z|AvnfW{E&;mIdRFB@47@=MFDcn2d#jHm4I;);Ao66ioY!jF?A*zG{<_zt=o;7r{YmpEnWP~h3}x*cAuP_ABKUGzswEyIdvjOude zA8BL1PGD_OO~eq9($9o}O2U7w^i>4;G2Kxx`FOiYFXdBEZ@AqlqD{qvCtxNqCrGPzxLv^5QH}39ck%?YM!^gS97*j zxevweGG^r!HbUQIpj{n&&-^&XyTjxq7H!uNw1VB32~>=$@r+5?c}1fJMkFjePrmF9 z=hlEg%g){&X#2Ctnpr6>=C9(8{&ww-?1JmoTPfBbu${sj(d9P7LxcVU!Q^@%Du|G| z-}9n{NOttK$v2Ge$TdX=p271jGLcj<;xQsqHu@0Xsl9zDuIz<-dr*KUL9jzx^^JJh zaYXbh?}q01Zu060qHaZY>)?kiNttsK#C#|2*oQH@hL^HO5;F6%mPcNSAIlz z)IW2=+psfPU8@6H71ueqC^>pv=ay^d>YOZ2pd^1n&eAnjX=szrEAkp;c~6QDmU@aJh$0B{np+_12GVQ1~%5=@3X>>E8NYE;@R#)Y0?SMxlr-d)eeQ8%j(? z8#-pChXH0 z;s)>AJo!hctvgojaKoGCQLP!MTA49P)y>`$Lt5#Aq^i=_xO3*MqCh$25$9ylQwvI2wqC*<#;VvtklOoM0x88X&eqQ!wwW z_GALOLNsoVbfvS{9M3^v_!W8J-(|N*N|}ZS<4_bf#Lo zo`s3X>?Ae#5&vFd3tN@O0jI8nYOZo8sb;$LFcE}~p% z7?!%07e2?fkQ!sz+my$J$MPqrrRXGRP?5t`!5VGV-ZhhLF7vuEi;fnidB@0(T<@ef z*08_R~uTisgVI)bVO z5HH`J6(>Q+w%qU}x(_djdW}eg7q`jZ_!pMgN45m;R6~F?{D{vk5){fA%H||n zk=Eh^8O`3kH^sQoWRq=wH(@k4NlMH?u|mO+_M2b|NQ&SCUm;bryPmEG?^`)R192!R68!H$JoC`s= z+18U1qiggr@XNo`&A{&5EFivBtcb(1{lguZ7L?6-d;ZA&J>=qOr|?PY8elE^EvpNo z7|n?~qOPk@bpCj4M~v`T_RK}97n7X{FHn#AqQ}yJ=98gZk{+vSNj*4mT{pJtwqo-4 z0xB! zr;^*9DBllXS}8gyxRo~hExYs6aqoW*(>*d@Sl?O4l9^YmF@D{9AE8DMH5vJwHa)Hz zJo#mrJo#Q+Xm&q|lgji0AF-O*dLGrECZxMUD$cIaJ6G@8mHU$1t{UT;Ey5w;F3dve z33<{N;R(Im0YA-DCk^U(a~UW<>~>tAat~e5Bf$Vq5G{(5g<=kqP3xkEBZV=DS33~> z;IGNW2d8d|qG_pJmn{P115b5C&yC(B-jj`UHIWKb{|&`+P#I;;^{2oW;6* zkh7+4l-nqENjB}6E>M@8Eg~e#MoWtdJ*SZXzyUth3+RAnWuWIIHrhIz_hI5);*gl4 z$82+uJs-uMeoAvb^RL`|3Exo2tcZt{hHr%;s8)saXX<5rsAbp5mgZ>YI<+4iPfB!= z8W1Gz<6XG@X$2zvLZmUjZMc)fbaQU;F>)F=1lT#8FD!roVxMc)*4?>eGcI`71@aPO zV})C&zUf_@;?5{z#vcsUFW?1zfHCp;bIcBn7*rQJ0tqi`a}rp_c{t&fB%Bztyb@Dd z1{Lntc6IHsFo;grz3uCRoURy-TCg^#>qKV?Cml-1;H&Qa9cIh8ibb;Q0g2{N70esS za3G0WiTyMILzz1kk^fe-uBR10;h<=b@%@Vm1T_>~?iz0g(Hu2yFCFk=JLvWP_qu@!jt&FbafQzqNt!+VC9AZ*C)+@ zETwZ;MdB38D?F(T`Uw~1+fHZy56@d_6u>7FAmVtz=2F{aXv*>W>1FD!H+!Kd^Arrd zl@KjlU1(Zc;c}jhea&5|6dn}=BzLz$w(wR%LMRIE(H~1HH!fE?h+o>^C819aImO(g z{#a#p5YMLvlV3mITqp8%LwLu`ofU-(!ZzHPHfk(lOU*U-vR~J`hm^JhLltg(8%Yst zx`MFO^;7|frQWK^SXWfqA);dAuZO>v>C#fJ#4a2dD!5W`rjj!q$$u@}K0({RUW5*m zU*}*wbhLsY9{-m8)qrIfCP&8o_Y-((rnL@I5wU#taONs=O}5?zbJM09i}0-dd(_DD z3^eAap}c-H)^RvbkM)#_{F_5Y9cCmmXfew@S7xZOwnTU0dh`(s!faZI6w!C3u)rN$^7~C`J z*XDZu6OXq#@+PBXrAf%tuDAbwtg`Jn0x}A`9a$k*c{Cg-4H!fSCr1?Y{!~}$$SK*b z>4D6Bf%rN`Cu%zfWcN1b`MR|oMyN9hFXxnmw(`GaqUy0(%VMZJDB0HiCHo>!TlFTY zpze)tZ3=0?4n_Qgi$T#V3SB3s_tJPx(Gko%BDDU+wo17Ni~-iz0Vvy-98JP%FMdb( zF<(>P*;NYf5lH8(i<8KhWz$uFg=?tvGmBpUXtf5O5SMb`0F1_MvK2`0t-;T z5wmoId!$327rfkH#B z?cc_d1Q^TobPAq7PAW*UfCA1AzYy*fnX~&R`w!2HpFgkPuYIxOg!qMww@rs#k6nG4 zOYT=dmM+Znnl0C?U1vmPC_KtL&jPp%i-R|)NdRjAQj3IIAgeXXwe{jzd4KHEI z7>4j(bVLfr=+p(+$*qka@i@%0MsU_3_`DfWh)MQLQO1@YVF;XbOkbVw5}EJB;yWW* z$D9j)6Ji%gW-JG_AFCjnN6xb2V)}E!e-*6O^A&4Ld{}szcDA{^_n3@ugORg?ssq8d zXhMe+bgKIHKHPAFg78EjNm$s!#1>k>%XH!IPL~FIrsU_?;PDJqtB^$-q<;a!Nw7%5 z{WB8M&f_jY!WAvO#*X09KUMgSuRnTQ3Lc#d&aZ&Py$mGl-BcA05WPLNlWuOS)^+Nm zd8ynQKaZjJ&ngyYz=YS3LSx#m!ja84fTbk*Dza{ExS{@Bz4s;dVd5mD(lRt0IeWre zs7?S;Qjz_N!Q^H8-K2giMWLXBtgKw8$LJTQbQ_1MN#d97DOGMlvkv^_yyE9=e>vCsrM`4UPk`2nK#ose&I}J&IO_0b*FGAy>p~sW&+H*6dHxR zN8=P3);W_Sx;cvre z0h2F<_Nv|!p3UioD>5HBGYE;07-@wgwK7yCM)8klHpCv@;l}C{>7jk)y97|+RYH1( zvi|YZS!AcxgfanIQ{&}o@GIfj5swMA2B@<0*yA_jrNRQ&+2XeGeHLf@Qz{^R7NP0W z_s}m{U0x zZ(GebD|^&@8T#V-qJmxl_ zgW^92<6zYBq9TLe1k^lV1328-I@Ay&F&ZC^zN$Y#Iyr*t9eM_oYXgBVrx{n7T*|EkQ_!HXdHG+cU+3DY4cY3assi)Pu1wmD!oROZE zp*N6{853@FP6%@NSd=Z&4rydez-BC}r}0x$#agxZ2|Z2lKHQzpcOg7=?r%$P$1QXW zR;0GYU#|mb~B0g-5U9sGwP7# zCo>~p_@&TW$QC=b;a~@3kjmyoq^Rwo2SQtcJigL5)^F<`yHpGaiGWFW(*HJt2LIAC z)q&5(y2_&-4XlypVI(C2kmf3gH=~FzW`* zzg>7don5;D{c8q$LPER#IbR;2+H8A7Of0h7u9wObRG>kilH$h3>bMgGi$_J|>={`| zT%67~VTXH38@4(S!svpeS%uz4kSCFDk7t51CT{Co6Yk*t3V8h~UHbbX9@R*%hTt=1 z^6f43gi}+1E<-GG>nh3_J1@oJUq*`B9lBeTf1^k&U068z{?l&KDAtJ3j-1dSK$AK2 z%o%q`;3dX4u#IJC62KezUj+-DDmoZB-^I5KEdsMHGoCnb6tZSCGTffbl$K?NY!ry4 z3JrX=;Xd5j{CjY^jkYVR0}@x|$M*pGBfIx>30;+*BfCkP%oZ@lDl`%q1CD|q<8yCc z5Uk(kHmXAd9fs)>bg4_}cJ6nU6v{HUpU6pN?+jv1Wc#&{`1-W7g24%+HUA)1&O5B8 zNzn~X`8`1gNJkpr_3CG5;T3}XO)_r@o4+3i_GQh1<8}Uqyv>(whWx^u8Tj7-dMf@O zN8^*(kWME7rWXN2a8|%r=n^MMJ4NW9+{p(nZQ}xR2_{F$*tP8HLdg~^em2Q@`zhS> zmpxOHhr5n#Mj~I*ir~td09*zHFLv1-npS-3sxcs>q;1bg;Y>IrleUBctDMmb^qq{a z1>}xA-?S}72|3YFl)-?VkNl-9=i+OWEmgu=hS9Hta7fxEMjcqgf`86WuuxA!0HpBo z45CbVW%B6^13V9oazS!^rDdwFu0xo=e$MNSxrRKN^g~;SdtN3JN)DRvs1Nmq1TCLK zUR~Mm#&>D~ul_rMTV|lk_BD2?G^r8>GgN!kg{qM_qDus~7?z;sw|tPh?1;nb){Jbh zX?c8{E7HzaQn_kC+&a{QUBuWzphS`sw1igChu-sprpr?JGCyT6$;qURFUd-}_~vYH zMfc1w0u$&&Q`6rFETmDi&jEqxUKx85w=`D{_LTnu48Yas&3Vw|qyap5I13Jfgx*00 zl|+L!oRIJjyGI1a_F2N4ag4p$JnsP$ANlKd4*^oy4M$FB5n$9Jn`Hh0U`$)Nyyx3i z{Sx|@$2#Sr9qpU7CkYD>YfHwxBV7V?IU9Om03TsV7CE>SRB>JvQlmzYMB+3E4v@gh zfSnCP8mSR@v^ySN=VHM6uShzg(#`_&sDs{xoOp~{4+%h>^B-S+jLOCu`EV}JwT{q! zgQ=am2gfg2GTNgBL%jf-$#`yWMnq6K3VGDLv4AmM!hOhcHY)JP1Q;s55JLwC*@U_y zec#H7gxxSUF#{%n5_$va;9-?fJe3DP*wYzgxZZpbSpQ9+=^28#K%k<0kP^gIw?fo+ zT)y9*^W(@ZFo83yr0mo4i-%x=>^|yrpzR?y(`Pe(W%kz{1-QLbYpVwPd~%(nK^QID z*Jo~!H|Y9Kep+Dq_`T95y|T!wKXFg zq630oeJlPAe)4M9N9C8>2sr3!%^0+YQ3^9>8j=x;mmGcyJnyVZLf>ljJxgZf^WEO2 z-##HV_h8$VcssuY!9yDWbcs+)jkz#jQgbUl?5yAp7{B=k9Lmc%x@~nn7tVqe)#FS; zow|PJUPbL(vPIrY=3v~3^aQX*+4yh;l~a*<{aV^_p{LRooTNPJ9OSEOG)FCN!7?8> zO2q_~)5o98`~kru{j8?I`r3qra87fyVqQ=E->49_Xb!0#UNS#pG*@ZH!7e4%z9&H{ zZA|fnim#jZj=K(OtefZ%D#KImAJG(Q4=9o2j9jCxA1L$rkyhi2R2f?8&e-xQn5H_r zPgo&$W#DuP{jYPIVzR*Vm@v7XzmJ@<&M4+me`$3ZwFSJR#jE_Se0vz9GAoZ776=Lb z_}E0`*rq*Fa!6C$>n=`-xNAJjS6<+twf$t0iz=zkpV?KGdF{Jee6z8`4(6a)5xoD` z&R4&0@H`HfH_4m6%ubAgq8bHJW5S#eyb{#MjyeoPT={l~84>Nn>D_z{h}r|%^e;sS zBhh_0wW@8*Oli;}WMs(Y%{+scg=WT2S|w^>Ptn?Ed$SqvW;eK0TMuA6!UL)Db?Inw^~g^>!W4SK=K4!} z+E$r0F>unmUQq5}AZz-)9LN$(bPlW|z@*q-ElL7&70jfq#l%H>`cy=i+vV*gQK8 z)_{b+tMkslohJBZOk~ewg2@()7vTO&p~0w|a)CLJSLN7%+U*cHd#nTEVL#LZ!3dev^D+PuXvt`C7I}Xm(3A!OTo4bPF*D}U3ugV1oFn~$AxF1I{{8Wii=03V z{c)<=6&VW~`s2>%7hp>z`DZt}%I`Ue@b!u1GqoAG_|EFH{TP+a3b3MO=#c;UyL^f! zg!e0fd~7q`S5EW?fbgOju{uCp0{oJnJu?fz=g+*Z72C~Ary#c=$m9&1mtcvj5K{gO z5}ckFqH4K31|}DU?|1jvqfr~Y2?S9pd>3+@7J=M%djIi>T6_zbf!qv9Vy|PLWc8$T zspIJ1G;$PMFs=Mw1s(1oCpB`US#N@ZtoeEERi|QK3q8pH4T0)dSTD*oTZDm(0&C=$ z|NG-k0CM)D1!(A2KUl(|rmK9{-S_MEQBA{wFGFAntD1hnw@k1Eq=ql}W{VU#rhjYb zZrkq?mqNdn-%D_?z8w1DZ;wX+{QoO{o}a8&-V8w&K+^J7M!b}Ud{D*gW$3R&es{o=vTFC~|V^3yi0-GBSq{udz;PGLlPO~#KoPSvU)%s&m=TKWs zzdM+?7tZ8^Z7gcy+e7M=qi!H;X_O%AP-pJi(G36FN{%zLucC6mtO{?Mu?O!IAc%mG z}vJPp(`@eW**ka zEZ;K^>Lw0GmNx8-%6ZGlZW=p7r|r;rCST^W$CB|^%~QX12YPlba^eJ0CEXP{p-xmm zv~bBluCK0M^P;Rr-ZPuyl)}A*od11@%%f;>Dn#5fDN?$loKe#o(mAS2 zsAC@1Rnb=?CYQVh#~h2ggM>X=%Qv`@&$a7);AUNOlBh!F5Gjk77-&e~8Pn`BqDs8znONl81F>mU+&-WDrQE zOYr{!h=4caCh5&Uu)x%HyBz9;%sNDIJ52tRlZne$)i8BrMJ*o;`8@I4%*`5J|7->x zBk~>h+Fs(7%In`9GbM_ximt>}eCLlH;PR@z!`TKY)s8ARXXz%(52xM~lasVIV81s& znA#b$;Q59li^{qhQKNHulzeBoc)Aio+?sjqT`0ov`)=ZBhaOAjbl;LK!r`_)QRT;( zqZ%SGWETI$;d#?vj+DmYaGC@KyARk0GqYY+jG8iOsri@znNDXgBebd{YLrvo&OBoB z$MY1{>OX_lYIN^TY1(~w7o41(MPQp`*|6~nUUrQJ4RI@ZKYpGqJ`?kKGLzTyE)U8K z@J^{4dBV$B=)JvuVTDvoRyxWy#(dW;pX$84hRg~`)B2S5Bfg;_eZf`z=g?^s!u%kI z=ij3@yBJnGkozR7J@r#Jxak$CA;$6-4YkgwnV+iFPeo&%eJeS0o6a@7!X5_muvG6|$g)QRIcvuE zD0}%bLpMAo-99LHOvbx{l!>~;(SQ^ZpY!p8>~T>ZRdVSXujCeg=*&CK>iST>m!WHT zvzUpLv3S)nbpO@9si^Mk5EG}j!))fwT<5R22}5r9N7I6V)wtqYe5~gDEBWNyEGvHt z?TniFr}m1rRXizu4Za0}({3-lOKz^T%;TOi;a&|-TFIw+t;UVE>8bqSE_1jJXF0@b ziv7Z3o&vH}?qL^D(tpja^DTq7L`d#hPP!W~AyQU0j=q^=XD#<8qy zd{!wxaYa`}G~inAd7;L3NiPMZEnv^QDgd`Sz15J{vfiBDB6zcHxA|+Fyx!~GdBWFx zS!OT`(AYqG51rK{$g)d==i`~06P-@>jL^obQB7*xoBkx^Os1x{u`0Kf&dA1p?7rG* z>_K{Qi+}6S!-scoLVO z$2KpwQxt69wi=Ys)jAqQI?O6c>IQ@YEO+%SMt+dB!;IsKUY~5bMLy$`&#>F%d{`TP zJ9G1(zA1K0fPrJM)1$ejR!ce0Xj5`JFEyhxZ4q?= z%;snn-z^to#llmGt;gAl#w8l}dcy?VJTCI8l|-y7^I<>b;q~~1M*=X#^iU+%HT6!& z$L>`Ct%KCAM^Yb$h+Ffg<8@12#_leB?DmP$|I{^@PT%3p{*od9#a5Sm{u}!alDSHh zIjXKF2o=OPBJ^X<#{xj26N8I&XyNDEOYZY1017X0Zi+D;s33!h2>EH(3yhjCKbm6I z1PEEjj6N6Tt+~9ZCHHbZ$9eO&=J}bF_}?}h2Yie6%twb0@Lw&wcaL1l7bx1tGJA}eE}vcgMRNE3wFd;er|TxqEbO|8tMoUB1O)WPejm!lOw z$?9cP-Vi%_#8BmBz)MHc-jRz?~ZU z%L8rJ*L{OA#;L`J@j#hn|?onbm}elT571(FcQpLJ9alQBj4t2RIB9z^8!?2EoO zz<-gEWHG0uF)rs@*D_et>l8TbGi&?H>!gF+LVcetUyMvcDzjYriGYQ()w7nQKgOA5 znZH~M04xhmZYH_o@St437b7&*1K;$0I8UBcZ7(e~mg{$ser=(@#LYU?0d;-vAaEQ7 z4a^C4oUy}dK#~3Z33-S@&NIcCLgKmdWPd=6b4+xHg`fso`+4>|*t7eS$U;)DSIU=q zd(TNHYwfjbOqCu$KqUV-Vv$j2Q3U-FzmbjqMJGrg!}k_}2a# z3P2)~QV+FPyqH{y=)l0#ca$ z%;NB(HKXWD`Tnt?!|fB;!)s5K5Y~MgDt~rAGNGvZJS%sTWj1yW1d8V!6G)F*;njT3 z^e=JWVnZGA3$kxpbO^GKid0%aSBDAR5r9=;^pcoIwszv?Z<>)=6&A17tUT(`1j@~Y zm12Iwu|c$C7q*Dqm|d1 zMu#}j2~B5c(o-VJn-i$8!h(UIxnb{=YxOEk%?fLiN7)4eDKAoG%S}v8(2uh*!wwhc zi9R2@b-J9qOWbTmZ+xtf~IEk}2qjr4tynU*#J(*|nG&>Eq2%|7>B8^%P&(G8) z)jgh>y^Id4?G;$O_hQMnTJ1$E6`lB74Evx@t<~?mEw5XkYmL*Eh*|A zF3rD+hqi~+>HyvgT0Voi^C^S@hs2!@x$`#Qz#5~t*xe)|%>dqiNUXniO!c~lHT6xg znuhL0DC6{P)4yRM?}uc2=;mE=5hFh!WgwFyU2Wudspwv^3H`7Z$^8+&b<{Q``IeLb z4cebVmGP)=nzOq_J{@_|Z^_?1*qAfR*W}vNvI>9oa71Py+8K;Ll~@vXmCkq%>6MYi znVaM)01fV&wW?s0E+%FOMuhUGdCIiMS+EuLvH$W4cp{utY>!b3vabC(0Q%K?@iPBh ztEErv+|3$%|14TN%2T4M%!=`sZJhD+dAmYPs^-`oTlQ*-3wnOyhv$qL! zKfK?j_5l}rWL~QyN?d*r-v49xYm4ehjXzf(U(YX1JM8U>gwf(KMZaH<78+pu+rz#S z&<9yaHy2imI{t{Zn$X&!5lx4OMMP=mJsdk{Z|V=d8BUEUX%5{AMQT{dX&N(XP6HDB zdSThvC!ZsQ;KxosSQzbz$|)y@ZTeY}hj;nAWEj0LdhtDG@##FwJEhRjXSUgJ@D}?* za8WUNJn4si{r9lWr>j>+zYB0GBx>{Xv{6v+inO`~gjf8Xv*EyDm3MhsYsXwqSMtVH zE{BE1ey?&AAgO}KA}8eH{6t1FzTcl=aq6+ac)XT3Yb`k1c>^#UwK${75kBvLcT3H8 zI7Yekr(NOt8W{skqmCY=iV@cAFGbI=zR2WcyjA9rYgN7ZfG=s3B~jcas)~aYULo22 zn0)q4G+$zDd2sr$vH2lyHJgnXAW*n)g;zn!<%#AP+ZjXFeH`8L-*xEZjtj|Gj@lf! z&KE&WXcH~RUqve+&LM525sB`a>u-zurES%SRrW#VD*B}({O?NMpYw74nOQb!Y`2UV zO~`r~OYOA_=k1njp=>Q&5TA5+7fL4M73BxB76?F0vN>H$?y?1*S;bfyfw>ZXz*7wO z9FMHE(?^Q(0%m864kGYKYDg`M+F-LJUwj6V)W-o39&ko?4| zWxR_)E|Kf>F4|opDzRlMR+rQfbq#V&;f1eceI$AT%3WXsWpZ0m7nS)h{ zGDEHbd27Ga`IC0NI7BpxS)HqQnmATEUz!WSYZ0XFT86S{4CZSR$geX_V^mlxF(k4i3%Qzq72)+H`UcbO5hEnTCcypUuo?OF!gzMqoy zI+wfo>PKtAE~_Z@?F!8Qip<3SG9nU=j2Q^ZieCGm;3gfyu#X_?+w&z;ke)v4yOedq zw}rbb)43UI+{seW^Kn(qD?in%-@N?DzIE+bt@w?dEwRz$bQ3ga~xb2-#sbbiD?x^=C72Pbzc$oEBR>`su= z@p~SNJ3wb`FuyjRX+I3qNXoz*Omln;k~1`Jf!uOHmMU*Hh^1Cy=f1^@g4$$qfMp%<`*e061Y)?KwH$%+A-4InaNs1Cg;66vIM*G41FIF5*yrE;yr49)xN!9fa={PYZ?>mT$hD>*I31VY)P zbl~B~34;5@l<-SPOsYOl+LkMyX?F;c)DadH;yK6EP8#MZynOtExo( z!Hy>be2oY!Fu%7C*Wdlgs5uP9pRBi61my$kf6dMolpnkX4Ntrjg`-7ro}Z>}{sPnj z9Dc-1pt$XiFouq){6ByAf*PEs5P>0SUBBqZS)huqW5`c-v7egt!0dWml|wa&B^5R>hbuYJ)9;?h84O9Deotl$Z-VBKz9>NP_}QpUAF%DQEj( z^{#-UbZ_&NFnTdr3%X?3Ji?mRT-~}o0QV5ZiAZz)PdDfK)Z~>1;9#qcBEz&5Lx|W> zVrv;8ML>iUST+qy%58-J8?FjM5K#mQ5lsk%0xd?QZwk0#xP&StASk!2f(bTNhz`)m zO$Z4fNI(+8B^OBYCi^D)U+kCj>6|&gGv_w*d!BP7t||98hp14cFnfL$P!kT0lsw6H zd5PLFu3LoD9Xj<>o*~sl%)RnHZ_9LIY_PssjYh4@Lg|-{j#9-HG-wO=^McD?3 zD2WKGh>u|DX(ra!)qsDz0kEh|`v#2pCYvX2+<_qra(B%k38ip=;#xG>ZNFrpl3N2a zWA(;joGt{bjde|-zyCzH7BidgFd_#w@MSRNyRb>KTNR1k>|6bfKZgD^LXnd%JYQaXRC6j1WOO5RWC_s;FJsmH40Xh z_m!5vce=@FzOCz+R}&T*`I9uG+9hU(Bf3;(3xj##%(2h(_|;*{avAN@q3@dThVYFo zZ{*=ljKC>J_fv`VD>NlHnV)nwI)o+`V?35=gWJx?#J5399Y4`7@E@1kT}|+;*_k60 zFFX)Qk+pDGeWy82zPFu{2uA2K^Y5_(wuL1wlw?Y^O%;Rk?8>b7P(0H2Q7Vm`+P*@4 z%=JFO;le~|U$*jhnldMkYG#4OH&3bGvZuNmWsK*p*Lcxg8LmXgwWz5x;oi&Ff{J{M zTrPO=?nA+K9Gf+VcB41Mw#@+z&my$})L!=mw7%!K;Ij|vN(9ZN`(ht2weFh-ij~!? zhOmr1Ymy|bnD!@^=Qur3j*!M<*Nmks@r9LJoTf7Hfm@8%$FTZQ(-3Tzs#xA@IScy` zpu4^(Jnn!KUh*hScHZag?2%tn0{^B@6dL@C4ERk63)CfPYws9vf5nep)#IsWz?)r6 zD5Et}RSPW6Upf=YFka4BlEwW)In`O7e1{B|lWzaKf`fWa*U}hpI%1(7f)J|b{h08F zLbEqxxw1}pZ3~@V30FYX4p;`h#&av47x&*M6py_ptV)hR+h(_ldnrmxQzXhdJ2qKy z9;m$Q8(Ri^{=YQf+XCAXrUM?zkd27<%0k(N^Tj!J$Wza3-&;_9h_cUnTL0un z-s;pUHZd=_;U)CP#|5QtMmqVWO4A)wP@I_=c}S9b-}h$sNy1tXZ}3LCcDKMGZ0Ma# zbz`$2o9@UpmHYK=G6QMJm8WSG( zNUlFt&e%);r7LPKn9Un)Yt@UYMb_aqaZOI^Uo;vy_$(!ROY8v}SLHxow}hN5%=qUI znu-~%LWCKK$A`3Nz%zmfgq{pZZ3{2*YMF}#iL+wHy%-toO~tI~8y481R}IZ6*CZAB z8|hF}eDlO@`^bvekj=59Qrieh+;^LR%YwQm@D#;fd{!F3X01;S&}m8j?H;0(A3U0! zPpAtC@OV)r8>SVYMnWSBBrUd5PltDi$T@ozPwwf|X#AosG%ILhtA1BTn9Yx9dzax# z$ktdKMHt9ak+Z&zwM=}7{io(j{Odo$*i#Q_zbxvS%YcNy%}uu$Ecw@u!kq-`&#%kk zT@-~Vbg+9(&c$WnPFm}rp?Ewn%!zt6 zhs_gUq0B4g23vJ~Bv{4kbsh)yHzjxQ5Bt#e@x|n6<0rABVh(II+3&eFqYD&G)Rd zGj%U-?K3@Of)!*M+`wZB3^3yZW=Q09iyQd1W=#U~!oYz?xB3>DMvKRV LeB1W-bA|r}Mok?e diff --git a/docs/reference/table_addClustering.html b/docs/reference/table_addClustering.html index 7e20740..f50a88e 100644 --- a/docs/reference/table_addClustering.html +++ b/docs/reference/table_addClustering.html @@ -28,7 +28,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_addColumn.html b/docs/reference/table_addColumn.html index ba393f7..d17892b 100644 --- a/docs/reference/table_addColumn.html +++ b/docs/reference/table_addColumn.html @@ -19,7 +19,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_addCoreMetadata.html b/docs/reference/table_addCoreMetadata.html index 8a1f773..d0cd0ab 100644 --- a/docs/reference/table_addCoreMetadata.html +++ b/docs/reference/table_addCoreMetadata.html @@ -43,7 +43,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_addLocation.html b/docs/reference/table_addLocation.html index aea2e23..24523fc 100644 --- a/docs/reference/table_addLocation.html +++ b/docs/reference/table_addLocation.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_addOpenCageInfo.html b/docs/reference/table_addOpenCageInfo.html index 0104b39..dbed244 100644 --- a/docs/reference/table_addOpenCageInfo.html +++ b/docs/reference/table_addOpenCageInfo.html @@ -37,7 +37,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_addSingleLocation.html b/docs/reference/table_addSingleLocation.html index cfe35b5..66e4cf7 100644 --- a/docs/reference/table_addSingleLocation.html +++ b/docs/reference/table_addSingleLocation.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_filterByDistance.html b/docs/reference/table_filterByDistance.html index 2e1fee5..f8efb06 100644 --- a/docs/reference/table_filterByDistance.html +++ b/docs/reference/table_filterByDistance.html @@ -19,7 +19,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_findAdjacentDistances.html b/docs/reference/table_findAdjacentDistances.html index af44b6c..be4d5a8 100644 --- a/docs/reference/table_findAdjacentDistances.html +++ b/docs/reference/table_findAdjacentDistances.html @@ -23,7 +23,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_findAdjacentLocations.html b/docs/reference/table_findAdjacentLocations.html index 9fcca5d..0168e19 100644 --- a/docs/reference/table_findAdjacentLocations.html +++ b/docs/reference/table_findAdjacentLocations.html @@ -23,7 +23,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_getDistanceFromTarget.html b/docs/reference/table_getDistanceFromTarget.html index 3dcaf3b..64ba293 100644 --- a/docs/reference/table_getDistanceFromTarget.html +++ b/docs/reference/table_getDistanceFromTarget.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_getLocationID.html b/docs/reference/table_getLocationID.html index 4ca185b..2bbc847 100644 --- a/docs/reference/table_getLocationID.html +++ b/docs/reference/table_getLocationID.html @@ -21,7 +21,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_getNearestDistance.html b/docs/reference/table_getNearestDistance.html index f5950e0..95b432a 100644 --- a/docs/reference/table_getNearestDistance.html +++ b/docs/reference/table_getNearestDistance.html @@ -24,7 +24,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_getNearestLocation.html b/docs/reference/table_getNearestLocation.html index fc6b0d9..e8aa533 100644 --- a/docs/reference/table_getNearestLocation.html +++ b/docs/reference/table_getNearestLocation.html @@ -21,7 +21,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_getRecordIndex.html b/docs/reference/table_getRecordIndex.html index ea00470..eeee3b7 100644 --- a/docs/reference/table_getRecordIndex.html +++ b/docs/reference/table_getRecordIndex.html @@ -18,7 +18,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_initialize.html b/docs/reference/table_initialize.html index 2183f8c..3a56878 100644 --- a/docs/reference/table_initialize.html +++ b/docs/reference/table_initialize.html @@ -34,7 +34,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_initializeExisting.html b/docs/reference/table_initializeExisting.html index c2e94d3..9e36082 100644 --- a/docs/reference/table_initializeExisting.html +++ b/docs/reference/table_initializeExisting.html @@ -47,7 +47,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_leaflet.html b/docs/reference/table_leaflet.html index a80adf7..7fd9794 100644 --- a/docs/reference/table_leaflet.html +++ b/docs/reference/table_leaflet.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_leafletAdd.html b/docs/reference/table_leafletAdd.html index 6c7e8d4..430274b 100644 --- a/docs/reference/table_leafletAdd.html +++ b/docs/reference/table_leafletAdd.html @@ -20,7 +20,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -103,7 +103,7 @@

Arguments

...
-

Additional arguments passed to leaflet::addCircleMarkers().

+

Additional arguments passed to leaflet::addCircleMarkers().

diff --git a/docs/reference/table_load.html b/docs/reference/table_load.html index 08d6aa1..1da63cc 100644 --- a/docs/reference/table_load.html +++ b/docs/reference/table_load.html @@ -21,7 +21,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4
diff --git a/docs/reference/table_removeColumn.html b/docs/reference/table_removeColumn.html index 723e5c0..039c2c7 100644 --- a/docs/reference/table_removeColumn.html +++ b/docs/reference/table_removeColumn.html @@ -18,7 +18,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_removeRecord.html b/docs/reference/table_removeRecord.html index c88e2b7..51534ee 100644 --- a/docs/reference/table_removeRecord.html +++ b/docs/reference/table_removeRecord.html @@ -18,7 +18,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_save.html b/docs/reference/table_save.html index b7aac87..9ca447c 100644 --- a/docs/reference/table_save.html +++ b/docs/reference/table_save.html @@ -19,7 +19,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -130,7 +130,7 @@

Examples

# Check the locationDataDir list.files(getLocationDataDir(), pattern = "table_save_example") -#> [1] "table_save_example.2024-01-23T11:15:12.rda" +#> [1] "table_save_example.2024-08-14T19:48:13.rda" #> [2] "table_save_example.rda"
diff --git a/docs/reference/table_updateColumn.html b/docs/reference/table_updateColumn.html index 06f0783..9d1273a 100644 --- a/docs/reference/table_updateColumn.html +++ b/docs/reference/table_updateColumn.html @@ -23,7 +23,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/table_updateSingleRecord.html b/docs/reference/table_updateSingleRecord.html index 9dd1ee2..c22b796 100644 --- a/docs/reference/table_updateSingleRecord.html +++ b/docs/reference/table_updateSingleRecord.html @@ -21,7 +21,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/validateLocationTbl.html b/docs/reference/validateLocationTbl.html index 9321fca..ec74994 100644 --- a/docs/reference/validateLocationTbl.html +++ b/docs/reference/validateLocationTbl.html @@ -18,7 +18,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/validateLonLat.html b/docs/reference/validateLonLat.html index fbe3524..25cf3eb 100644 --- a/docs/reference/validateLonLat.html +++ b/docs/reference/validateLonLat.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/validateLonsLats.html b/docs/reference/validateLonsLats.html index d3566a9..af57468 100644 --- a/docs/reference/validateLonsLats.html +++ b/docs/reference/validateLonsLats.html @@ -17,7 +17,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/validateMazamaSpatialUtils.html b/docs/reference/validateMazamaSpatialUtils.html index 8236281..c4f6427 100644 --- a/docs/reference/validateMazamaSpatialUtils.html +++ b/docs/reference/validateMazamaSpatialUtils.html @@ -19,7 +19,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 diff --git a/docs/reference/wa_airfire_meta.html b/docs/reference/wa_airfire_meta.html index df93307..9e9e2a7 100644 --- a/docs/reference/wa_airfire_meta.html +++ b/docs/reference/wa_airfire_meta.html @@ -34,7 +34,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -86,9 +86,9 @@

Washington monitor metadata dataset

library(AirMonitor) wa_airfire_meta <- - airnow_loadLatest() %>% - monitor_filter(stateCode == "WA") %>% - monitor_getMeta() %>% + airnow_loadLatest() %>% + monitor_filter(stateCode == "WA") %>% + monitor_getMeta() %>% # On 2023-10-24, this metdata still uses zip instead of postalCode dplyr::rename(postalCode = zip) %>% # Remove internal fields diff --git a/docs/reference/wa_monitors_500.html b/docs/reference/wa_monitors_500.html index 7fe1d07..a4d1ba2 100644 --- a/docs/reference/wa_monitors_500.html +++ b/docs/reference/wa_monitors_500.html @@ -40,7 +40,7 @@ MazamaLocationUtils - 0.4.3 + 0.4.4 @@ -95,7 +95,7 @@

Wshington monitor locations dataset

initializeMazamaSpatialUtils() setLocationDataDir("./data") -monitor <- monitor_loadLatest() %>% monitor_filter(stateCode == "WA") +monitor <- monitor_loadLatest() %>% monitor_filter(stateCode == "WA") lons <- monitor$meta$longitude lats <- monitor$meta$latitude diff --git a/tests/testthat/test-clusterByDistance.R b/tests/testthat/test-clusterByDistance.R new file mode 100644 index 0000000..1070ed1 --- /dev/null +++ b/tests/testthat/test-clusterByDistance.R @@ -0,0 +1,22 @@ +context("clusterByDistance") + +test_that("clustering works for small tables", { + + # ?cluster::pam says: + # maxClusters = positive integer specifying the number of clusters, less than the number of observations. + + # Table with only 2 rows + tbl <- dplyr::tibble(longitude = c(-127.1, -127.3, -127.5), latitude = c(45.1, 45.3, 45.5)) + + expect_no_error({ + clusteredTbl <- + clusterByDistance( + tbl, + clusterDiameter = 1000, + lonVar = "longitude", + latVar = "latitude", + maxClusters = 50 + ) + }) + +})