From 5fdf5cad8be8c135c9b850841bc821801a0d8158 Mon Sep 17 00:00:00 2001 From: Jeremy Kidwell Date: Wed, 27 Mar 2019 12:59:48 +0000 Subject: [PATCH] quick fix to length calc on pubs for sssi table --- mapping_draft-hpc_optimised_wilderness.Rmd | 55 +-------------------- wilderness_layers.qgz | Bin 10424 -> 10443 bytes 2 files changed, 2 insertions(+), 53 deletions(-) diff --git a/mapping_draft-hpc_optimised_wilderness.Rmd b/mapping_draft-hpc_optimised_wilderness.Rmd index 6369ab6..9286f2f 100644 --- a/mapping_draft-hpc_optimised_wilderness.Rmd +++ b/mapping_draft-hpc_optimised_wilderness.Rmd @@ -550,8 +550,8 @@ pow_sssi_row_pct <- pow_sssi_row/length(pow_pointX) dtas_sssi_row_pct <- dtas_sssi_row/length(dtas) transition_sssi_row_pct <- transition_sssi_row/length(transition) permaculture_sssi_row_pct <- permaculture_sssi_row/length(permaculture) -grocery_sssi_row_pct <- grocery_sssi_row/length(poi_grocery_sf) -pubs_sssi_row_pct <- pubs_sssi_row/length(poi_pubs_sf) +grocery_sssi_row_pct <- grocery_sssi_row/length(poi_grocery) +pubs_sssi_row_pct <- pubs_sssi_row/length(poi_pubs) sssi_counts_pct <- rbind(ecs_sssi_row_pct, pow_sssi_row_pct) sssi_counts_pct <- rbind(sssi_counts_pct, dtas_sssi_row_pct) @@ -584,7 +584,6 @@ grocery_wildland_row <- c(sum(apply(st_within(poi_grocery_sf, wildland_simplifie pubs_wildland_row <- c(sum(apply(st_within(poi_pubs_sf, wildland_simplified, sparse=FALSE), 1, any)), sum(apply(st_within(poi_pubs_sf, wildland_buf50, sparse=FALSE), 1, any)), sum(apply(st_within(poi_pubs_sf, wildland_buf500, sparse=FALSE), 1, any))) - colnames(wildland_counts) <- c("Within Wildland Areas", "...50m", "...500m") # Generate dataframe from rows based on percentages of totals @@ -722,56 +721,6 @@ write.csv(scenicareas_counts_merged, "derivedData/scenicareas_counts_merged.csv" ``` -# Appendix A - -```{r admin_table} -# Output CSV files for various levels of admin -write.csv(admin_lev1, "derivedData/admin_lev1.csv", row.names=FALSE) -write.csv(admin_lev2, "derivedData/admin_lev2.csv", row.names=FALSE) -write.csv(ecs, "derivedData/ecs.csv", row.names=FALSE) -write.csv(transition, "derivedData/transition.csv", row.names=FALSE) -write.csv(permaculture, "derivedData/permaculture.csv", row.names=FALSE) -write.csv(dtas, "derivedData/dtas.csv", row.names=FALSE) -write.csv(simd, "derivedData/simd.csv", row.names=FALSE) - -# Output mmd tables using kable -admin_lev1_df <- as_data_frame(admin_lev1[,c(3,5,7,11,13)]) - -admin_lev1_df %>% - kable(format = "html", col.names = colnames(admin_lev1_df)) %>% - kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>% - kableExtra::scroll_box(width = "100%", height = "800px") -``` - -# Appendix B - -```{r admin_table_withproportions} - -admin_lev1_prop_df <- as_data_frame(admin_lev1[,c(3,5:14,22:25)]) - -admin_lev1_prop_df %>% - kable(format = "html", col.names = colnames(admin_lev1_prop_df)) %>% - kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>% - kableExtra::scroll_box(width = "100%", height = "800px") -``` - -# Appendix C - Data by Urban / Rural Classification - -```{r urbanrural_table} -# Output CSV files for urbanrural tables -write.csv(urbanrural, "derivedData/urbanrural.csv", row.names=FALSE) - -# Output mmd tables using kable - -urbanrural_table <- as_data_frame(urbanrural[,c(1,7:16)]) - -urbanrural_table %>% - kable(format = "html", col.names = colnames(urbanrural_table)) %>% - kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>% - kableExtra::scroll_box(width = "100%") - -``` - # Citations [^15541312]: This research was jointly funded by the AHRC/ESRC under project numnbers AH/K005456/1 and AH/P005063/1. diff --git a/wilderness_layers.qgz b/wilderness_layers.qgz index d6878363b2f9455ad0c1acfacbed7efd6b56a27c..bee41ef58478df4c96c173c1f52d78ac1a25b057 100644 GIT binary patch delta 10098 zcmZvCWlWwyv?fK1>xa8L6nBcdTXA=H=S7M;AMRe@Qa?C$E}5k7f4;EJ=ngbk57=JBUVM>-zpCg=oC z-pt(uJNRC1(~7vohQA<&07f*qI+%WKtt*`a#``b}1A^_SFMqfFS#$mnb)DRWwe~>+ z^}FkvF|T5@aOV!^Lqb9TK1x#0Z5(HO2v1XK;=!P}a{PNcMPW%Y)Ry-9@2D#}VqI6^ zcmDSNISdWL=_0Qa2b~o#Yhl{Hq&WSac0k0)oR|*_m0H~9ym0sxbhzSWwd0U9pSt`t zLwb@ST;0R{QNbd&f*KfNF=*5GC0bSbwr6u4P8Mn&@%*Lnc=j6T58qtpY3qqZI#5<= z>Mq26frF^<&p&;sfP6`6VM#>1Mpbvat}W<&gQC3ygDj#7b$QIdQt zn&YHLI;E5o?{-L^^aTn~-Sm@=G5>rzIn#CVzBj+U(tj4{N>OR!aS?Ttl-fOZxxMm7 zO>bBxxZMmlIF|rgyJoQc&7QjA#s4_wdyOI0a>Pt!=u7>fsfYGZjh z+y~xoIMuoF7xnb@DOgQ82wI-&a!Z*`#Q$}wbK=Ik>YGnE0?90y9P6U;2tKazx{S`VbJm)x{6UFyH$;u1scj+;Xj+N%RT0 zMVQ>f)qr$EM&V8J1SEu1to_3M1M{K33U}mO+zIrniUpc!X(1W4OS>b(({MGgj~v1Ci;jT9 zd%gYb%k~@i!1WvMF&RNU{Ii`~@%t8bj#w;lZ>Ky2t{A4nEI*PnYtGWk=Lmf%ecRgZ ziS~+A1_z8S<`V;~jy15d~#p;7`->68~r%hB_7xG*dSMA9sBN-M)_@`T~?VE9d?2 zMFaiHtJUf$(=xgNM2aE%o4@0n^g7%fho&#!<^=#33cTr(aZ-4^&sn9AND5M`b;Hs@ z4Z-p&&4~qgEfunvaa1$}ljDbsNF~w!j=Mvvu`(n=OZfp=d^5aNcBOxh??h_0>R5zV zda;*8B-|5X%m!MBHdN4+-Eim{jLF3s?2EPel)o%u={7eMR9nyIIXTTJO2U!MNWtL* z4U_^IpU3>IiwZQ%%G?RGRdK{mgWEdLikkJ;`+JoW5wQZXv{VzS%TW3|=sszMr&?#N zwQ05-D)Ce}*hxsQIgyg|NrJD(wq*uy?Utz3sEG-ro%16Z?c}6WMwHXsv=SK;kPS3X zj&N%w$p#;8q8Fm~W`0h}t3%(qYkcPab^b0adOe9mPBtK-bn zX1~an5@;mr0Vxs{?C)`e0(aSaXyAItQfn;zy5P@v*SM=K)fC9K;>dL{iPn|-Bx~v% zQjMdA{AV#B7XzKv7|A10hjNF42~t+mER{cmIUAD<$7()$c;UpiFHCT!nVH-q*;qaTdZm(C29b?8| z#@Dd~4LPms-+Qf~_w=sJSrTZn#N`3CiF@l6nb5Dh&D2sCOU67#F;sL}yy^5ZN^FE0 zFz(vQ8e?atMipib#4hSGwwxCl@W%kgy5`urANrsi0g9J`((;W4;-fK#0y!88gKYMg z>ePE79hzqhWl-ck{g-sSLo=)JKtJX^#osU1!gst7f9|M*w&qrJI`2J7PoD-ic_gPqUM zPiv&d-c9|T_8WpaoH{i=sS{L+o+*|DD5->uokS+Wc#mdqxs0epwmy~;YZfC+?`B{u zSh`P{U?EsMA~>G{NGp6ZKKi)X&1Bk$GumV6NO;@Iy;x~Ef z6h~H%JEGx=R$PWnQx0$N740P(mrvH*yT4>5H-5?`$MF<>DA}R(va(qm<<#|;g@$=# zi_!L2YDclZ$Ydu|mdySq*g6k`O)S<`5;SkT(^c$by3K*n4k0h7tA%PeGOT&SjPovX zkf;$yWQf_;^gdJ3(Lcc~aQMIh5z3{2-wgc_vHQb@XDA|r-veo_U3VZu#m%k1_S@$6 ziEo3P(f#Aw=tZEzZ?OCNtAf1!Ikgq%9UQop6+2($|OuL#YxY*=*V zZH!{?0yIm4$k};A^8!5-d73OMG>g4DRm=LSWHAJcDe#-#9${N;RlH`a$!%zQu9wwj0gYxqy2y-Bz=LG^GfrDIc1=D0;)@&pHZz9~LKN9v& zbk0`hGB{>upf9Q#n#yhPZ_Ha7G#wF2+o?I{dnC!9klC)k(WEr<#UGVh0Pnj+ah zv5VP_e$= z(I-z+K;A@B2kUJ>f?SQpX$(moaU#IQACyWYSw**p}dC-5xViMn|_(9 zrEIGYI8d1;S&I)ppR1kU^f%G*VnY<2Fg%w52z~ncS!YiNHKnVWo;n|s|0t+j=n!`I zHE@_r$ic8kV21Fua!fk4bjhcnK6LB*^RV8>$wmZlJ;$&f$(xJ-3F(|V5c}D?c(D;b z6oaM}_7YBMPNMH9Dc!+#%OM;bL{82dF-^g7ztbhj2!-KG*a;P1xA#IKIjOo?&v|cv z1il$P>K@njUT_ziEPQ*{ApVZt;V}zFxX#W13>Cf;<|lnDv=;tV0=VKcF@~s<)aqoI zE%Xz6l6Ycjk8MjHim;6)OwQ<4%=;F>T?)Ml!SlJ`BI5_uHB5%rNNc0Z83(5R-&zr2 zn7ZQ5ffyS`U)<+y4BWm%2?|T!7h6{V;UFqo9b^JY;Ce>T2s z=7sxW+dHp0$f~2Izce%{i4v4m#09|oD$Bme$c0>`4|XwpJ}|ueY=18t7fy{rhCf>n!R)CCL_FR` zS{5-@@*&{Ae5HBI^t5MtHTD5hZ-;=r-vXp4;+u@LO-7@LIlqQ`t3GV5+hF zLQ1q}21DxNPtaD`#6fod-g}WL!K>36_NAIYSJGSRhAjJzx;JSl;s=HQej$0hNn)I` zLBlMmJ6&GY+9ul+`O;+(4`l!oiYwEkj*s0~YL1)oNM1j<7YX#K0lbVv1!S-sC~*4R z6g+?rC$=MF^>I441Rr2W(Ba*W+)U{%(p9$`dc7?}iQNzLWB^Iz<0LVf$ESvxBr#Dz zcVQUjbv6d(Ywq~5=;;T6rTH$^bZ6d1LY4p?$P**86}-8KsahJ%7{}nhJBy9d>by^x z_Y9FxYj>c9qAdYcYaba4U^2ZdSup+zCR%nJ{EIau3H~C{>5wPGBtt8fo~tY>r-`Ne zz$g>$Inq0Qpo^r(`0_9{1_|9&wCnHAW>1~}rxv(-I7NCXA`zYSiP<9S;xGJK`|EbK zY2^!4Sy0kUx5=Cv+`6}-#rc0NJz5KhIPT3%zk1 zX@8~~t=6(8Y19MC>k1V_*bFB9H)v8IZR#t((MNr*t7fg{BkM3HN@HD3y#aS$A)FJCu>Azn_q$2~!gG$Ak` zI!4nHp+mD1e{6*~paD8ZyOg(z2C_l4HQVhYIT$+b&CGO($|l>>qsHDXJh^a3+oV*= z(*iT+m0~T0K`M0##c@Nv?ul@A@x}AuWr8@5$p(94G2aG)#}8WDCwrD^bV@*Pby1qQ zRO4A?nf=_yc{g?eTiKkCf*Xf_-nb#nqNMmV+Mn%PDYaY=@RPQ?q{@NQy=$|egU$R` z!RhX!&}ZO}a%|3`@P%^9hFxhsR}cSE_lU>-P-pSfau=v$E)xNuiuQZOusP$!!ci1O zX%o|b4Xj36d$bVRNO3^9ij~^JJx{-@-}>B}Q{jR;6oI!>Lkm~QxXOtG=ULrs0F|4XqqyW;9Z_I232>S*_HJ7z*}Mk5pM#@Rj} z=1D%8J&0Ow*F-Ub3QT z{rV2s#=DJOdE0AO^~4YPxzc)HlBP=jcALA>nHx5?XZPQ^CH8q2#z8^z$pz+6jpk6% zPEjcXNQ!I7b7vPu=Pi*T;Wgl+r^ysh zQPWe2PcO7f${9BhO}0~t!(faefNfmZ4v>xaLD{=qg`;cd+tb1;QM@?;$HZe~Ym((hD`;Jk-eYY!epikqpu#b&1mHiW^5(zvx$*Kdn&o%AzrWvneZTS($5f(LnW+b)0Ugga z%e!uY!B#T|f|(yD&ND@n-SHcnZ%m~RtfrI?TeGG>-8yh{sQY~kN>sZJR&c_7 zj6*)A`Us9YSIki`;huU3qmG&R5y8D3A$p6O3{!t6~-Y9YCvLg9ia~NO7ca{6PoIU+9 zTu8e2_01z@{z+$X$@Fo52)rLzX%ophSuQKw;AIW4x4E7W*M1U_J_QIS_lgME$OpTO zx!V=TNAs>3)i2Ww`Ylk~JmX5ryK~Pw@YWi@I%0^rv*S!wDcDUa?7u3$<>z)djMpBO zWjbrBXelz@AuTn!3%;2kwFJBHE>_UgWEGzA(v#=<>{cj~*JEswh9M;Zyj=(u&1jnj zB8_c$D#J5el#{6%OhB12gH1cAc|MBIMpoYrhogwa5sPDwZh1iAq&>xn9Xr4^A5W@* zXd!`XJ;GYjV3XHs80=WYL2<;*X~SbxI8``@bh$uD5s)@{msCXjO-O?G?L?@(RXsX% z-44%?$wGpfwOuKmm~nYXs>vSfsK+aBf~fo2LW*%F?cED(3A|lfa%vJU?+O2&?Xz;% zLq!|8>3b4Xx`Y2QUgXc`_i^ts+}iVYI$BU!O7j8yA^hacr)=wI6}>Iu>8yJ zBCfN|By%o4)W4?F$!7B4zQ>b2TRC1`qtz@d@`3_;1-_b;upCh|eu=mW8kL9vYVte0bm^Vo`9;r7< zBnkc?V7NYS&C$}2IXa9?rHN0-&5nOKB!9fx(vz)0)n`aLma?RiH*87h*P-oC#RyYu z$q5EBDpym-_wJnKBo4TyEn))w158AYfRF$&sKD8P;tSzCYFf4DkusFVU@3I*Dban~2tVY+ z+N+o+d{9k6?qjjWxM(P56-~|c*4^S#t}_wvR(Pf(XLzlg)%$*9RfK2vTuk*#Fg`mo z5l2Ly-A8EHW*`w-wwmW##H~-luC@|l)8ll(kOoAtP;v=$Gom|@)z`|tD25Km=5E-@ zecvkjTXiwU!g~igl33<-+{{Rc_Ia7!~M2WwV^#5-R zdA>n>{6H23UrS^ef!4Zks{%j#^-Cy!wY6gz@bj;fm>NLUcIisfY%jUUjs6u4Z&fF){ktxk zX|!C=R3>OCtINbz-^m0TBRKKUZJ(M%+k7>2_%+yXw#=iF&*9H`sFPlo`NP^wP5nkZ z?7Da{i6t)#|At9kz<$Cu2h_mY9w8nJ{E%DRmM_-D7I9$T7<7_c{NnyyM`L6#qJNTD z46U)#A(%(ZFB#u`#(YO!gEBs1A3agvI%bR_nz=T&;aB|Pg4PVi-K_>#M9{r?#xM~@ z^(1X&p5?L3{WkiK50n2`hC@i$KCj+#zSv6Az0XbwbBuzF^n$U~D~@_+pdbeN`BEsx_jufIHPR^O=Ini~!_M^U@SB-pnM9PtDafGl5mByRS<%vxfa|*+0T)i9?Fcp-d`qTS z!r5qx(OS8vePx^cON+WeVTCR|OZq027DJ`qgd_$#7FxZPX+%2+yHqQ>O1k&4S)?sD8C`gFJn_VtiLHG$M?som z5w6(GoRmrw4Hk~3AC=7Lb1m6`BJU9kUXWK_j16%n%a!@YzvGxB00e#2TpUv*=Ar$8Lg?ybemwaR+go1wR~GiucC`dp=%jm?CF$hUZVhfBcSLS9S?FY|S%#inw!*A$8lg(ET49=`k< z_cZAbeG<%RKBrrNZ`!UcMv#B`rMTxuA4lNpqt@=l$J+`VHrl%p4(iwtXJEWbD&pekAjQMH(a~yhbPq+B``gO~O=-Ddr2o%j-|aAs>z%IZ#nb-ZmyyH* zj=-7GClX2@P)>ZO*n_GoO@wmPO}-x}A0%yylaS=k^dDE=Fm@4F(U zmQlW-Q_r$>hNfnG+fgDEqBA&D(-FrU1muHh>#cmXh^T4LUK$!u$$rC8TS14*lsU)@ zzQeg62{n|Ww2QL0;CnOT#{QQEaz2#_@w*D|q|_>_!hn{{QO8q~;CI|vVqZ)-irO&> z6NCb;yb;KZ;eTit*5W3gJa1Df8Vx>R&}1MIq5li40h}P|Bna{gNVG9mPnflVFiTHT zHDQmkniYQa71Tuq6VJ4`AxgC^fnNm(3pmn~EEkF?J^o#*)xY|QD*jw~$+yOu#29#S zdx~hzSEV1ejZOLZ3PiU27tUrr8uguCDN*g$~RiCu%evtMIOR zn&(WU@#Vt~@JQKZ52*+*_09ju(j3g!`L;PZ$CyA`tCy(=W?U^@4cqrd59Zw0E`1Lt zerve0c{2&Iya7!VJq}XSGrm)(l}r{L!va7_d-WGBuE-|iKqfFjss&@>?q4@Ll-%_% z!p2X{PPXX6eAkAa`!jYmdruva=pL9!y5`(p7G3@^OMP}N*)YayE%EoLQA6+P*Azb2 zD$8=Gn7cuZ8rz}v4!O;S+!kkloE%NTgLn(Gm8sF6VfyO14BX@QbZ}BrY~I)D4S0Yz zIv$t6BzLS(mP%`xCk8)P(c4_|-wwKhm9~K-&cU;>2}sC0jg6gM%rOnMmvj+BmpNMx(8 z`M1bE@>M3Z9kA-!P<4H4ga3p>#&Do&aH7SUu@RQnqkYdY(LBw26I;e3^vpKVX5=Xs8{TvAQLA{3DRJSEo1h;SYWf72hRqeu zx_knzPcTY0vwM`UE#*QPVvJnz+EwhBgV~d6L_1o-@KoSDY}AQXc?s4<4R&lNd*rHI z?;{h-&!=VkLV2@{_HPUa2=vco5rb5 zUb)dlm9!Op!6A|1u%I77VOsmO@+BHIlf4)~7jX@9K_X@2%wtx&X>X*=c=NzaB)E08 zX4z!?l&Fv{%)btI;R48ML|S`6(?a97d5Gp$om|VQKaGED?xnRFL3qQ zJ10J?T6?GYEV44^lIVGYwR1+oX=cOg^ z%cUtm*2UzpP0X>$NWs#?8`b-B^+zvCnS9UxXcMJ#6FGR=V#+RyVfi)9xuAY7?`O`#mE#xd*45i4ntMs$cdH6IjJP`X;Nv|kAm`Whk{U>M-P#Z+cp7MKk`n(==^ zBnwUi3(n6N7MwDpJm`s+s0LI@S|L5s|6R)dkV`cG4Z8y{{|Y!n#qk3+nVQUYq&&*z zPb^o4t~QzCAKoWT2?(}Pcn_?cdp-I17^WZJZ?Xm7+9{NiNP?zH%qYm?=r_xXXVwQD zuPM4q$l3268;NJ0+c_;<`xpssoWp3prq@3FoSoSa$e03D; zhM1+yX>Zo4Two=NyvA0C20M#?M$O@-P>GgY&^8+$$RQ{R94+t*P{FWCWNsF7rZh2 zAi#`3rW_Ry9U`{!z zUn1L=<`ArZoT;O5SYKWI`nVVFj=AK-O>w#dDhBaK1(^(*zAwLNsX8J!0kstnA3u*1 z)&u*mtf6E+gY;QP{UZ5Mj=r}i)u`W^2dkE))QJxuM}hcS$M^@S+!={AZWVp>7-uNc z_-Luh%u3Ge;?S+kCF8|1OR8CjweBu4=Ez^_FSTwJGx&duxlw9G@8C4N)0z>lqigF8 zwaIGUGp4CHp$I3!2e_HRyT#BVgz9e1-YEHhmr z-FboEL#pUe=8W$7LZNjIgD6S9z9IB__IlBjV;M)^q%nCzPk4_1_2N_b0&fi%)JYI^ z;i4StJRDDbd{RdI@7Nr~zt|l3j)ooif28NYoU~k!{|5H7gr8o)QM9zMEVTbJb`bvy Di~yCZ delta 10093 zcmZviWl)|$l%;Wk2X}XOch?Vs1`X~O+<9@=50@apHF$7>ySo$I-E}itJ5xJ5Th;Zn z+;jhSSDikis?DlIUlgHXupl5HK0&aX`6zG0y^S}~LO?9vLPB6eB<0ZIBytc#*$yVE z5(A8>XcJ2P6wB+)ZoC9rvs;(BD!-Jg9Yu2Q-X9jCy>q)dyZA(p-u77HEHB`KM;e%3*6}E}*E2}6 z94$63W?@({;j7aec%^i$gK9s+Lfh+BkSgq|N+{Bkx%==6#B z^LYy>om{z}A3NcdbWTvbFC%#qmj$3nlV* zqi7sBGsYWCh(f$RVlNJS+O0pPH@CNV8Z10=IPa@g3u^adJ^8eovtk~NtcPx*3T@bL zt7M5t`p5_1e;c#q7GzCh)Xu8-e)lNgtgi`7*y!qw;( zwuXgZ8GKEI96+tJV~QWlERG-a{FSz35gQ|H)BTVW-TToKAMR5)dVlR-WqWN@JFYT? zZ8|yFw}ad%(-(~F?|BZ5e+~f1B7bvhci>$-F2yt*yrZq+^M|f3=enV1pbR*s`ZC84 zIfXhNB5af{xte^FJrfF}<&kJoC5Z-v`Xb!>A=!U*Vy=J4zVh{k?+$k9CM|b;ylxq9 z3cpUUkR(MDy8jKCHa4a^)hbswC}b8zD-m~gbdcp^S@*6nIXH*5CQ)cfL_Sb6PY6K{ z0jWcV6;s-2n-+@ch!>x%3{4^HX;Om*!AU3<<}Ns4GyR>sS0<+eg=mI*d39br1&i=4 z?!BF_6=98~s0`)7NePsMKnjW-DCyl*(#M@c;L%e=p!pLKPrsDhxgsG-C52?wYBRW% zObxehJ`}I=Yy}4{EJ{BQqOchpWGC(Rc>#pbEYP5|IwsRt#|^ZyyO}adjD+<*!rW&h ztAr_2SXfr@WH4PViA6z!%#8IU%7wyO3)`a10__g#6uR1{6@tS7#{=9F+`(Ms>BHUQ z%y+t;up(Kx-!%xDvotG6*vC;^W}|;3@WgB@v!qbL_I$*z3s>EJP3(AyLd~4U5*5S;bi-cDXO$Gw!xGIN--lFuLZu zW=Y}lSm!G~LyVXK3Sg^raZ?oOv|1Bg)H!Z$M}f(w9)he`gy+v8d{NU+w>ghL$b6+X zgZ`M;AJFB>MCLL)7ckQv(W}pJ;ggNmMl=On;Vo-(L~;g#$tzN;`C7Uh8DHsrxbsCn zNl;XUm!zJ}Rwp3__Su5sRw{bG|G`sK<8fir1m~FZl_MSlb;;%6#rbZH;WeSHQt*P! zN(IIgb#)c^_tSNF8V}KBW=`d9Me2F4Ri+dTJe5S=wBp=NF+0L{a7TFXDSKlg$-0@b ze^@B(sqB{NjQ_C<#M%i6D(#g*G?mHr5M&U)bh&no=`%Jus%O}0fR%W9s)2PM;~!P= zo~QoS%IvL}Q%PWuI;Wx)dEPycq-j1obur8^Wj=lD3SB2Ybz>IlvD)BMXVaj6$CRd+ zeao~e- zeGR{?Dy3=P_$Mkk$@LloqR)fE(UyLy-^jD&4lvC)D?*_~9FQYrTQhi%Ge)<+x%NiE zdJA)Gv6x%FX@dLjn7?X{EZ_XRIhq$ny%2u=!_ZIS_OSjCip1#qK=#Y7Gk~%D=G9N< zZD8xkr%uu69s_u(bqId{x6vzn!+5Fl)_eVrg55L53;Sk)|9iD9KB%*ALw94*|J`BL zmH!^&#c^Ki@#ewof%`uCbasa11;^VdIP^;K^!Ebc+2m&9WP|ZV-Cy79$IYeL;>T^;pRCcUz!*G$cdFNXP@ z5`Ll2h<9(;$5~C${iGRK5{Z5Og%X%V;s0*KTxdsvq?*aBF<-~mbO)Ai@cuzpber$7 zQ!-4z0EH$E`TY9)t@`Jr1Izx3sD9ZrzNkvQ)Wn2#>K58YLZx-Z6M8`hq5gp-u5OHaPV&lKfMl+VtWEOqw=}i$sr` zrS$1`2exqgoK6yA%BteXHMxp*8&52+GzRo z<||1Qy=@KJ(Q5RrD1rop*fQy^qi_HeRqUt5yO1R|E*)OF@4JZ}q`|O`QsY%f8-a>i zH71PR@Wkv?rXSSe^5M|c-a4_s)?hf9D{FfMsZ8cyi6j$nmsgkOXIfU6BPAz|1LfWs}bSTDfdbuPBp0XnlX*ZhJ7D!*F}) zXZd)okC`y2y+(E+Z%*t6$-$;U!aJ=*ueG1Kv+C$9yZMH)eDY{=o4(N`Q$ptBy9X}k zXdQY}0bfIQy3h!Kqw>RuAniQCXUrQ2gWiZ(dLwIZEZ!iM_v9o>W>M@VqH4Quh+S5B zfAZVnA6r{Cd>>A42GtE5_%RcIMD9K9`d_C37;u%tr)a$Cim?RG8@IAtTMjYuV{*|y zfo3_gV;Gin%B5c%lyHe zYAOu7PNnZpcxBB8mMAEg@w~=~tIMK>(#>}q;(~yLg z84HpVRuwDJC(NVYshmo&MZSIc3CW8-B@JoZ7T)0`)+*BQGu>fXK?k@bPTaV^I&?CD z_YY$;DFq3t)<*~%Uo2CK^c1c1k}&fTxU;4R*Y=R6!`;81PEd^bgX3(s*gB)-8PZy|f+x=i}=s&fhFI=;5=@8VNKomJ+kN zeuAVfF=z@>TT#&^h#90hHxQ@$@RhZy|8NrGGXFFkfGX|UQZLcBM?EQ{qveLhbswnw z%zd$9M3RJ$R^Vo!gc-_r?dI3-8e0Hdu02+p%U)KVy%h9y6a#wtlO~@928I#EcAr_k zf3>!jIDHFT<&Ji4a6mED3Z7@r~YvGGMEeHeEnQmT+I}_F{bEJdSUigA*Jx|RyoDFv5yF- zmDWIl1%`GEIxXoD85`hd-2-uZ-_$+?Ta0W)#v0(ZZ3;c$45A~r9k`m(pQWp9)&22u z3?*^f&y@pYP!7StG>=bp)nG{pVK-LjH2Vx}+^4L;UFid#9GjzW^kdDLI&rw7B!RAM zbtf@aefx`;j03;LA3cwCsLHc_K7{qGkqj!SJFl$4Tv*9`}ZN#kc7=a592r;pXmIK;x_-`H?A7W@gkoaCf$3Q8-x@?hDs~-gcw{GLp1rK0NqoD)F=ul zJ4U4n<%o0bL2Bftz1KWPpAv_KaMOFzj}XGbYh5r5O0J8+S#3)!3v_eJ^xtp5ZT^Gx zTpLZ`tVqHG+MmwWU)KixtHVa((ukwlW%2wv-nr6A1ppJbWvVsmNn}9f6f^C*Xc1YU zspzt{TO`53j~}*#>*Pgzo~huY=^x8dv>$Trdn1YFjlFujn06xYTzBv5Z|`-3meHBg zyxgS(5U8Z$sU)G*|mBWVq>*Ag>3?zBR_AK|#_ELp}4#)<&`t7cTZ4wK1`=Z}K zU3F`l{jqbf`&lewkyRdBlXid$dMN9XzRWVO9SiLPc2@L|@8CX$r(sqZmeX!dUE2&2$(Dk4+cCNp;C%Q16G z8vi{r_TVIx9s@X+qe;We%YRudzu&B(5vnD_HtQI%NsnmF!RgvPT0N(LugRl^4?uC@ z<{LeDXiVawr}QakuX!)awq8v*7!BDcTI0wJX%@=4=t zk{2@Sua>V21#{N#z8uVyd|;oaT2y|-j5{0DKm0?#b2?e`XjiT`U3U!!mYZ-B1=<|c zoG%tZO2fqNm?=+#4r*%Q%b-sO;%x}q`Zm1c)TFB*jdRzwDEjtGOk{jd0FnHXK4eIR zTuO(TO4L>0F1I~hoc~9~?hW7MDF2d)?b6-0(`V(n0%IM4KGkdYhz&!E+v0CRrR^s$ z4w?Fr-<~(U83l z#y2)LvNlC?;;puasgC(^fFqR?l84HTgTcqRG5eh-u8iGnLB?~h%)MDASVjJ zq%CUmv!WCM+Otv8^A2O(S-?ezT3VZHJtX4pZHwG{aD^8&7~w?#F#NdLxp4Y;xGnlN zcVoq)vGyX|;(rr1cHA*c`O{6Jfgf-aj@IxH<L?8C)s1CGam#HH2qA~Q)R3wEhwJrcNgb; zzLpW^%rOyOOU}_l;5Gfr3!mvkwaSiST_2lnvAg#p*h1)uM}gDXU%enKm}Z5EVEmFC z#Ifx$tk24S9Jr^RJex}b_EBuqZXQp)nm5rhgGze2J?u6y@ReGXae9w_Xj%Jf>*(Hh z?Ryl@>$L!|0$Qef#=`GA%)~KTgLe>4`YHuG-dxyFWvu43r=`W@wgO*lCN2{5%Mbl} zE$BiP-V#yAs;=Bykdo=gW~Lnp6iogwXI|oaiPUh(|c@eMLpV@It+T zLZsS|ptzkfz8`%S<90s#h*Qaa5W9Z8OYr4uheJ8;vKQ@3&~9dKqE8?7xh2qzTJXnq z&dADGk2zV{yz1)2PBt-o+%nk&l*+N_B?G71W$a?v1ocQI1Nt2wll4g_H?zbF2g1u8 zHxj^vsD8ms#SU@#)!{^@v1?%D^|^9UnXIhG!h{l#0_L7)75`n!SGz=Ape}u6 zgRDg028kJb%HM03Xql@c6V2tL%&kYY?9y6GG3meRHQ(>)kYnX_4RbX7N?}KDd}y{xpANJ{*_R1@BmJ#mR^6^=Z}RhKl^LATKRV9M z*fKwG#6?R;?QvCI&psPeZ#OpBHkcZ^hg!>QxDO>AHGNZrw}-gO9J{q^jp53Xa!wOE zd*u+sQ3OOCvoU&Nh|e)eb%qTsetsh8Vlyo0;hw|HZBWoD{T_7Jr}^HN)4IZ0T>u!m z8rU8wlGtD_0VMWZ!Jym*skVbebp+}M{)T46 zfVuFxU&IL0HnWTy(*A+E>%E$$uSXQGpz9)H?}usA6j}NfPMQCbvT4aWTXuG7kHcSIVrY zeJh+N+h2j9zdm=Nz&u86!!GFsbo>vzzy^1i*P!J!pdriuf6D(_R)af4vjKdA0+qou zOTiGHx3kmT=f}}yE8we$n7fmkvu|Kr*SC)*#q{Tj*?NPct!c->+{vjc+y+HMFGU7F zrzZ6j5kX{A2@m56Oh0E%yXhGL8(r9 z<@4k{_n~{M%UXVj!^3eYw&W>I(IZ`F991tE;CX>@{LnRUv`}@oLbDOL4?Ks$gD6^EeduUycE7EuL;y*nF1 zF&>ZzSMOrY20t~YA%Bup2lnF=Uv$mOaLWZH_beN+IoRZ`Qm^ z`oA4R;GbpaW^j$f`knEJ#W#?mTbiml0tPp6ivmMmDkxg+J30ajMfV;xFb+ZYBBuEO z2|>{-ZPpxtjGOqEf_EPCiWIz9_UZ;@ZvXxv_tuZRo^2kSSiFK^F}&nL=7(AkE$ z`J3)Xvq+1)xgPSAERh(1K-)$>0U*>Sf%}yf_{BZ@(>_jmKSZ}syYO4yxFwPrr(L3P z_i3KAgLH8OGX^6E$WuI*;V^S2A>IQ1v!6gKF_l?CM@xj+E$_i(qp=Hmi@P0pl2HXe zOiP>{QtA(exu&Sm21ms`>hjj29_Nk?HLn)*c6}i~A1dJss;u5Fq~A-~;VvPu8P1D~ zKzgu;du)d115M58WVks1h2>NHi&%U*63PP$Y~#vHuhicbIpo@zl|1$dMnONX4_4t7 z_h%m?a&1m?&;3bc)=n?u+9{&vT^*&qc>AvRiS=lw6K0>gNIfq!&cU=K=QWS^nb4HY zC#Q*?qOe_Ssf8E;goDpU?y)T22o@H@>b?n#A_BbSwXbZusV3-D> zQWj)WGafj{t5N@I$UP;K^xQg_<)d~a0<^MGA1*}khY;F`i zW=a_u0>^^WZvYz#ndp0p=L_)h6bKu#x!iB+?9|J07(EHK-0e_wp^y}tZk@1}wTd36 z_?x71spUm1ik3HrurI0cw5&$ZpRMC=SpO|m!$*Yw_1?*h4rPn8?q`qgV+@6)J&HFC zxejy=dCC#K0%3^KO6CF{{=%s{Sq5J=QcTPrVCd67{s*G{9Jdo2C6z)D8pa&*&1tkA zp~EMm(pr?Ft%B0!KU3q_UzGR4nEM%O-IIsB{DFzxVndiGj$Hc4J71Gsm?QscHK0YQ z0$bqJK1B|boZX>=8IZ+IxsGM8K95Ab3p$yw3SM;*=16CsH%45~hs{F>MyL$31E~8p zNSh7n>10n9*owJh<(Rf|I@R13PP!l{5Xiv)2WJ$YCFg}n;*XkCW2TWV_F0A$ zGO=fgzGn0xjwhyUt`cnlUbFj$6Jw-Jd>x!_a?Gd~W5PXAvx2x@rPXG;-jvSivxF!$ z<$$VJ=u&V;q^-D{cHLX`K4K-M$dDR#O^&rY1lqU zL#E}mdQi}`#~npIosLz7Syd^?ddp3yo*BfYZ!0?&567aV7EQ=G#rLO>{;zyNb1g?N|zk!XD3PbT_OBU$Kx+$S^ASzTmw8@PmJ$ zUW0GIdz)dgaa$i)r*_m)S#9o&R<6jo_Tj9{vM~GB%fc|3LTLVy99&?LA>^gB9Mc|w zOh~eyC6hZ|sy8PXNt`w9@2KE8n>=N^W;{%=eP^aH?II+dGpD>K4++xJX!%7rr2$e; zRMJrcX$HH6V^(l*J-1e;BjzulWV|K^sQzH3Cai-T>nsNpTJxbnDO9kT3hRIS;JC=X zJi`goXt84%K$llSE^XOu&`yr-V&{3f%48?rCL zMuy-awUP$Ny}=2) zSu4riNgbW~X4T z?1MK&bgA1>1Ny#H)9GbIf(>T2hJ#EZRuc&_Fyr_m>;Xe_zMV?rhCir>Pk(1ctmOf2 z?xqgc>wRV-d0ELl^g^N8v{pE7gv8XJMQ2nc{%T9@mktqOXB2d?xipN}{~CfeNTNvFcBjIO<7t1{Oh^v9L6L6}>%^C>weuFv__di!e>D%Z7d_2YsTl^! z`PnBwmzU?ACk52OVAl(jX--q?gw4}eLP*G`iWwT@)+=x_0e-f}6uC?q^nD~`bdUjN zU%w(7waB@lAkeo~Q$WWMOSKx1#B+m4;jisuMMHWXVW$}r5xNfVUG zQDR#cQp9Q$CN2~ug2g`%7qq1a3EcaB=%~wz)<9)a#c7$%ELUdO-#`a4)vu{Rh~+@F zu-w%efDca;fwvf_+??k*nwNUCMlFQAtU~)@{4zH;bow}oe$_(0C@k5;?dE9uII%*$ zbBU;(I6v07PQ|tS<83dzQ|**x*nHOlKyzCgw1v3#q!Vkq`b4RjA0hCsKNh>5CbHV$X}-66Pu`sg{CHCIu;hMb>BdNkYG2*L#Ga%`o(j9^1vitFI)7 zF?a7*Y)pN1eY~ud_v~DzyfbuC=B37XoT0GFV?T8s4bCT(L^E~G@@f6d!qU(8+$a`( zpUb&(0j4il2x9eUX6tfRZlyz0Uu-YGiK#=BMIbj&Awq-6hwGpgce;ieI6z`}bnqZ? zD$3;=dsz<+7_4>aD7*Bb1Uo|OR8$RQ?tZN*8bfBfT~e&;m+O-k2XT-j?5>j71kC>p z-xe|7mM!yt6YL9>_Quy_KY&d9>MzuPjlg5fQjz}zDa&V4mPbyYd27}opBhQDPBKMV zw2dY1!NIHjftF--3BqHDUN#!Kb9P$CY2YFE;Pgm^I1v2$$&Q7Z5Zy`RN`~5Rg~mUL z^okifqiitu&T~PfiaiU-VmUpYQwp-jx8opG*Z&w5YLBZjD^Ft&CPF=c4>sZkH;50{ zPeORFuHWIrbBLj&9%12TmLbCYPWL?Rhx3ri-YFub28YN!Jz?g zBozd;q!zP*(^!;qD^bu_a)(=Vb8gcA2otzg2uS?ll2;iqHCkKGCZ~!$uRbff9I?|;pW;e0Zl!2ZIPWLLP6yML~~Q~Lr-`nLV!IP zZAnGqO%BXcv`L{fIld|jr4D6{rD2VpPOLeY;r!V`16@x|#HWjRA zN|*^qiqoMO>ihbM$X^+~BUkd&v*_~BlLQ{KXG`PI@4fO+yho%K{QE$4_$lFhCwFh> ztLEkQXy;$Q_ptYX0Y{x0elsA6&Y&kdVGlzGAGNM5nx_N#hkoq7L)>n)tP?9`bH&u^ z-Ow3Ec1Cwl@a3T>`*hXd2HZT*Vymp