From 69baef3b40ec69030deb4053f31c75b8c1d1a13f Mon Sep 17 00:00:00 2001 From: johhyeji <150627474+johhyeji@users.noreply.github.com> Date: Wed, 27 Nov 2024 12:01:44 +0100 Subject: [PATCH] Revert "add 25 Nov submission" --- 25Nov_Heat_Y/25Nov_Heat_Y.Rproj | 13 ------- 25Nov_Heat_Y/Rcode/script.R | 66 -------------------------------- 25Nov_Heat_Y/Rplot.png | Bin 18352 -> 0 bytes 3 files changed, 79 deletions(-) delete mode 100644 25Nov_Heat_Y/25Nov_Heat_Y.Rproj delete mode 100644 25Nov_Heat_Y/Rcode/script.R delete mode 100644 25Nov_Heat_Y/Rplot.png diff --git a/25Nov_Heat_Y/25Nov_Heat_Y.Rproj b/25Nov_Heat_Y/25Nov_Heat_Y.Rproj deleted file mode 100644 index 3af27f6..0000000 --- a/25Nov_Heat_Y/25Nov_Heat_Y.Rproj +++ /dev/null @@ -1,13 +0,0 @@ -Version: 1.0 - -RestoreWorkspace: Default -SaveWorkspace: Default -AlwaysSaveHistory: Default - -EnableCodeIndexing: Yes -UseSpacesForTab: Yes -NumSpacesForTab: 2 -Encoding: UTF-8 - -RnwWeave: Sweave -LaTeX: pdfLaTeX diff --git a/25Nov_Heat_Y/Rcode/script.R b/25Nov_Heat_Y/Rcode/script.R deleted file mode 100644 index 0968759..0000000 --- a/25Nov_Heat_Y/Rcode/script.R +++ /dev/null @@ -1,66 +0,0 @@ -#load the packages -library(here) -library(tidyverse) -library(sf) -library(magick) -library(grid) - -#load logo -rbanism_logo <- image_read('https://rbanism.org/assets/imgs/about/vi_l.jpg') # Download our logo - -#import shp -points_geothermal<-st_read("data/Vergunningen_open_bodemenergieopslagsystemenPoint.shp") -points_geothermal -names(points_geothermal) - #vergund=licensed - #watervoere=water feed - #onderkant=bottom - #bovenkant=top - #bron=source - -province_utrecht<-st_read("data/province_Utrecth.shp") - -summary(points_geothermal) - -#convert charater to numeric -points_geothermal$VERGUND_DE <- as.numeric(points_geothermal$VERGUND_DE) -points_geothermal$ONDERKANT_ <- as.numeric(points_geothermal$ONDERKANT_) -points_geothermal$BOVENKANT_ <- as.numeric(points_geothermal$BOVENKANT_) -points_geothermal$BOVENKANT0 <- as.numeric(points_geothermal$BOVENKANT0) -points_geothermal$ONDERKANT0 <- as.numeric(points_geothermal$ONDERKANT0) - - -summary(points_geothermal) - -#plot -ggplot()+ - geom_sf( - data=province_utrecht, - fill="white", - color="black", - )+ - geom_sf( - data=points_geothermal, - aes(color=ONDERKANT0), - size=1, - )+ - scale_color_viridis_c(option="D")+ - coord_sf(datum = st_crs(28992))+ - labs( - color="temperature", - title="Geothermal energy", - subtitle = "location of the heat storage in Utrecht" - ) - -#add logo -grid.raster(rbanism_logo, x = 0.9, y=0.74, # x and y determine the position of the logo (top right) - width = unit(55, "points")) # width determines the size of the logo - - -#save -ggsave( - filename=here("PNG","plot.png"), - width = 8, - height = 8, - dpi=300,) - \ No newline at end of file diff --git a/25Nov_Heat_Y/Rplot.png b/25Nov_Heat_Y/Rplot.png deleted file mode 100644 index 45b08053a4b44a64d8d4295938108730518d7db6..0000000000000000000000000000000000000000 GIT binary patch literal 0 HcmV?d00001 literal 18352 zcmeHvbyS;OwS_fK|Ch_a##;p3-|ad2=5W#5BUad2>5ad7TX zKfHr|D;CQnDV$j3pI_fz+XQ9#CM`E=g1j@;qelI_^Ce zLt=W+-s=K~+ffOilcL>o9De<^dn?|wUGhG}j`X1!e5Nv5 zA@Hg7f-S@|^3VG!zeA5pU&x#tQs7|IP-jB*=B_CiJ#@fEH2Re*>HS~Zktb#zdq509n^QUY##avhJ? zpxJnp685yw9%VM)p6Q2NF&sfAC#Jv0yeaQWvbvv$`&_Um>BovmV{4#q{>^n%bG7;C z6ros8Bx>S={3tyLC70sNq0PoMP5eZ=?~rMC_T-g+m|X|Wlx~LIH)ak^)K@9&8W;rh zDRDw3=RQ13~{!p!)fr*!Y$QA?IEiB{5j4$+=uyD3#Owjn4NJjwg zn+;jB{_6Le3+^+CP#3%DD8aggQ(aasmMW6!mt6N|DSbv;K2&|oQLdr`Ecr-mSBCM5 zr3eMp`UU&0trwM;4YQ@jb2CRzCdwFGbS3&9S4)>Zkl1W;b3tv&v+4qZ^_gX3m2y5GCXQCC|<9Vrn9vGlYcjrFg(?wztKiCO0CVTmSP%KAxn|3QUUv_UQE-LDYd^RYi7S7k&T4nJCKR~txLF;dh2J$}jIMK>L zUzcF~EdN-e6n>tZe0~=;d=X@axtRt+xi(2^1O!mc(B6S*|5vslN!$Y_=43g| z`_s1J)uo-m#L(j~!`n3m%zJQe?Xw7kjxTYI}^RxBz4RJf9xIdObs<>q2gki49!uo$p$anOcAuk}Xxv@BxZ zD4n?X88&L0S+Fru)_QFXczpLx^CM^MV_W&X$mCZY_kOB#pBmc5Qfs3OkXM!aSB7>d zr5cdm#Kk?kUT(GxaV>e%Td?b9@xef%{sWkHGAIhhJis)odY&$HC%D%CsMdEX#LO7! zy0@Q?&S_{-0-?@|4N*I$QR0H`dw)_LTD>~HJet;X8IER>2@MOQ;{NyseEZ_`1TmQZ zAvI4lmPG=avxdHm4cXZN4Uglia|6J&WMCvNX6dkg8`a`cVyfiw`m&}OyD;6xaG<*# zeC3u8*XF19Z|@G)nLlo9N)4zE;DNA!D`c~}$-4D}KuG!R_C?g9-hz97o(=2z2W7io zyXOOKv?k%lhQ!CQTkD##X|dX?eT@n7hK4?V+Svz)6&CmBw(qGDQ zx;)itVjODFGQxRhs|+w1C+}A>GsZPUJI%Tyi5F3W;qvqbo((rTHtgCk_Dm8aUM6Zf z3uGYTFioM=rY?dJa4_m@$IC5mt2!$c|HPNSaB0paw!TJ1o4l9gYEt6X(SAHeJ3Kfz zIQsXh(1DjvPr-9b6IBAv#jCItN8AfYIRG`rQtuiVyl zo8Idc4hi$Sc&H~bVf7Ae>{r>H#tj5${-`6Q|G|d)qKH#ZKbU06mi6ArEoIyKW=no` zh(V#=FPCmDjBEF825?wcTi_5hf{M~A_Mhj2#7DspGrsvM(?Xfk^Sq|E(`EYd3EV3m zk`AGm8!bb>^P9sq5M+eT!1lRkUu6LbguEDdgUSMOtyKnxsrNwTT z2!7Blw3g}I=Ptv-aR{p^bDWJ0o3d~7_G=yXF5FECrMc z-HNJT{E`|$oXQ#tbDEnE52H@rdX<~N+TynN&rUF&dura zDYYq;onNK9l&(xo@o91D9flj!(CF!&dGkrl zl5Md+?-L_~9_rJZrJKR2!GlBh+xp$&wwaTfe3VY=21sTd-&c-GgK_f|=_w1SV$~Cn zD60hLd;xGtQgnL?Xx9HO%y_aG;z_$Y8sFAE-10PD ztBgy0-6`S7+wxc3cEBc&!8D4_y@Ef}q%k}zF`l(Yqs{QQ<9W8zciTvIHsrQUmuS(w zLbu;nRm^uevIv9Pl%g?PmnUD7nk6e>pZ5HZf~)w^0=~ry0qQkI`9o z_QiA26JgrF@i0Anv0)BH4bOpY#>;PUGc)-pXMPHg`!V>~PldoB1)VHEZ-;0-3yaQw zMMfpT{YZ=qHcW@a=sfK$4o}-4i~g16EX-k@(kNg)9F=uV9n8ekh(}SPgRIdE3cFrf zGJ1PUC=Jrm|2|*h?$(0cwsynA&ZdwqM_Kp8vu3)<1DSHtV=AfI@V-OyR#St+Ktr!} ztv_yC2<5R72+ zV_<=~S`)mW-bscXP}79bE^cWxa}tWqE-PzjC@n3mOAHcKnaOc}tAC_4)mkV`0e%u3 zCxdB0fE>`hQiU;ll}U?eyui(5nCT zOs-j`Zo~J;OoOiJLmQ7py2+^G=Hi*RO9T_73)JVvR9*@&uT&O$9~y9}6vD!!S?YJuK= z7!CL^Yen~tNHwD}Yclv@6l>3G^5G;nl)@_`jNAFA(BfBkMlr84u?knuYtyrnxTv0| z&pudVBPA_5%9d+dc8~53jAz+=M8t-^!9;%$T1P<4fNy&XIBkU$+ulaU-4^F(yLOss zteXWkyM#gqT+{n7Pl46;)gHuc)#c|9`I^#}kt>L{KIePfPPb2K) zk0?-gMly1v=^J-XrB3hSO;?=*asirN5#F*gy~Y#cFtuNmSM*DL+`nU zPX4O!y1Tqji~1y-6A$m+)i6T^l7|uiZS5&ZO#YgHpOc3T$TX6afgh^-~MkBU^L6h_$D|1t*DXTe*4TluzJ~iWUOHak2TrXy?{?* zz{9BT=hE*F5OvcsN{m_D{5urgGhF=5R@*TwD<<_45bgc}Ki`IWr(iTqhKV)Q(aA%f zR&BH~XC9aTy*pH)3UeR5KYkRdaFUlhXi1p(V|%Vn%$rj`VC;GIL_c#;-AtAjDjg;Z zGl`Q?v|hJ7&`9`l&{LXL{)^JI+R6P*!!~sj`66z&E4vC6A*^MFJVR`imh{H_9@qFs z(A16QbV(YJ(|h9W30ULSFS4;w{x)$bb$O|vl(#W0(dt$jaQQmAEq4bm`#QS|8tbAm z6%^)t^5f&+z^HQ9CdbKBrh!B0`2i+g&YYB19uq3l*IK*PIg7Z%*Gz)B`fB5&AC?J2 zYBC4dz--PXmpmudoKI6D>yKb39Vw4meY;s^-(Asm6H(=zQ>o|!6-|{)e0NOt6-tCe zWXyHz3nb`MGQ(kP7w_T<(OGIi^34MpnLi5bSXxYXqN?7Zb`C#Jc`(gvvYvb`(1OjG zQLof+UGntgF=f*GtHOaGI$oyRh!}!I>cWD0hQkjNv&kxyyxPJWaJqK(T-LE<_#0Akc@#JtU(i-A#M ziCtMF`36Iq_K1e3X+2t4hp9NtqCC)bLeyJf=IE2rsAC%Pvrz(eBn zDjBPTQGcIzp3fW&QXdkRZS)guG}EnDU!2_AGPr$?alI7Ls=W(I0JausY8&KTU232| z-Yr)FgU2$r>f?83DnAN%yr~{Zm4cYoOxvV|BzCxvL8aJtn)#6o-iYgvHuvEVTD%3> z3GwaeYih?k{zyJ`-hy2NJyL)1f%J$|s*oBsCkeL{Qe^ffDPE7=_?zA=%kD`}y5W|U ztOg@5eO-7koGCJ?tM!TR?Ivf}pHF{)f@9etOs_rGg}^>CroYLY0?fWl)7wmt1jAFa zBRN=3PRLNSg^i{XY{)UGWdY}8Tx0x&7RP~VVo81DSPn-mmF0na4 zxsa`4^w_fD&4#pI-rYpyL5hFW`vt)NQRlZ!Ui|ds_B0bC&^$7s1kwlBG^ju|4}De7 zGySi(SKUqHqz37pYYPK_C7wj=S=V~>%i>KHIGLzC62R{ zdm1`(?g`ho*k8{7tGhtWr}w(7XXlmpfRA2%cmaeEXyfWdz;!oZPf)VnQ?FR}2H_)a z^R&^T+^uQhpeF3T=Dq5lYu0+wgY))vKKpxRUyU}lxbFs(PzhlNn$!)~x}y|?aEddQukFaO%;55-tTEl}wmChn$b( zXZcgB3^}fht^SDR($j40`e0L3TpUthIi>@NNQZsBe^dAdWtJYq=$vOZCXfh8bGmP6 z6rOCxDpRdtUvwS)cC~AZ^4PMlviLD=@ibKl_W!iM>}bC)ktbI3o&9=S6u+9T4VKF+ zo4iO8pfFBEH9As;Mo)d+!Cqgd{CD&;7Pd}){W5}D4h6|QLkPUsTJd9%xRP9_q5Ix( zr|F=hB-ggq%v}lRrJ|VL-YZ3qU$fHE>a9cjC6yDuKf}>w>9>wfN*<6G5A!I=-O4?RDIO^QiFqFEE8qnx-|C&uJ-?;ha&)?X&e?e9uocn%o5+s zYNzj61SZHUJRqX`wY2qOQ%D(ud|=sj_grL9j?zQza+S1jXoiY2MsjBkF`0u!YFE)O zA(_tI%ig}PAT1^=hy;P+Qjhx#1rA!JEDq8Q!M;L;Ecx79qV7)6o>Y zc~|8Awj%9X?!bimM?&K)_)BqUQ}1{K&AG3?8%(-GWf=T^ ze=Bl+v(&l(=FwR3m({@UUvlU@BSkb8HR&L*Nm}`Gaq&wr4=*n({6e|B$jr&Zxrw2S z^MH~p$Z^c#eN|G$N+)%!sWh~8=;P^koAJ8<$<{9-DLzcZKO=tA@KwxSc+18Vxj)d_ zw{w5EWb*nU)vM0Ar;snyx^|D7jBSH5eOCQ3vi^WoWXv&@<^6wV?9qyOmInLPQYZA| zPo0C%Bu{}t{p`gDo`J0R#TMCGy^e5C#_X4RS6bD-F z(9s2duYGGN>zjG9%hP)qzz-ij_}-ceyi+JRl?4Aq@7X@b!&#N17v7VMncy$?J#Ny3 zfCn4d&qK7h*d+gf>!!p^CfTE2F5zXdBtWy@L18Bo<)RSo8M5_vzkmPE(dmn$-Mmc# zhA-@kNSxBOHX|2$2@8EMW16n+KzH96wqi?6b^@n=eJvKUIq>uFK8jS|vp@Jy%fDi2 zpT{X-_A;AC;C1T9n)uz>oyI_}c-xYFyJCEcP-kMU=^z`IjFzD9!K7{96XAmrMw8CMjUL8Yp)HC?oke(6FBi4D&=IsA0Pw&^%CO6m2$JE>D zKWXpu2U*gMtuqqjdza`}@ZYiElYBrSNHVx_Qr?YiV`!|(xJ+5pChCuZKSx<7!aiaP`SO^Gw*#by)D8@_c>gccy8JZ#OG|Ub!Bb#FsI^ z&w|sxfB!I*58#fWpyO?BH~IRJv3nkW8xySGHMmsC@*HU93w|`jA=Ilk`Q45H71hJi=jMX{sMJ-55Vez({S4cqo4Q8n7)SfPX2jO z|Enb@4qJAx=@Vg!7@U`v3n_qnI4@FE)q9h2M#Vb(y5CK+Hz@ zRZ7c&R@YpWY34hHd#d~$NnyP;IwNG==F|%Z<_Ps41+{T7?4TMyhW6c?rbiB}KTeSO zW|VcTCt(cb$qtOqM1-+>XG4UKE$ph4^vB|V^a3PFV|Xm~Pn6P_@@yW*ze|fQ*G`gk z>g>iACykF~PPtbZuZr(e-YZuF2~amaEcTn)gO420<2_b0p1m)b*G1zPGD2iJVWy6{ z^K;Pl+F@4XQe?2`s!OG$&dWo?bG5+8%3;4J#xsb9GG7;4+741$TscY)=+r?Kt<}C+ zsUAkJ1M#Hq)!gFxyk&GF^e%`yqxjnRjvq3zj^E_IABuVTaUCH>8tr*w2ztAj6!o#x zLQAEZfgGCN#R0^Mh1s0f%{M>Nr$M$|jMI-&a=RnMBpr;8HEJTeQ)j0&G*u55mq%%2 zxQ8l|Rywk~t=JN;qcb8(e^}aW!AG!#S^c|#G{hK|#_<(HBwY=Bekbbngh6BiIb$)% zPJ2s-B?sm+%xlbxs@;mK#&7};FZGg^t4DscCI8mEHkkRNU)LN1!xDIR1!A=N4=nbZ ztuK$_lr4TS!M4`@kV-_SFWbK$zp2{tLdR>~&HB^3I#~!KHKS(dTYe=%0&RrDFtVAF zmCpI)H;854ssTKo{GCMDo|u}9(hzF=%rP;spe^8|d6g8|^1TA;$bR*s9hZ~4Vwaa3XvdV8Ec%rK`kP5Sy`3hi zL}C>A6DAhB->fhW4XgXK+Vd=&uh!Q=Hn}>gz^t+7);T38Iqw;7D4vuJ6@?1&rNCSCT6i5T$^UhnX(|ETE$O6nZ1;4h?|9SoINdS1G;I$BwFv-g@fk2>DE z2h;DLj}L5T&FIex)f^ee$81L?#E&#_(uQ^7@y!O&B-q4CC+~DYvmmHmnrgb^_YuM_ zK>ZP_oJ-7cl+OqYe8LcMX>}9kG3X%8OSpwLUw)bX>dDx>pmLjp2fey57+q+?^6YMI z5v4}5yD=+5r{0k!)95WLuc3(_bm$v*+8G-36)2tvLu*(v!DSDTdb{W_P@MeANiSMN z)aE%{KGa~sFl1)E!yycg1s^||#c#|XV%yyK=< z2HNIA9k8Q)Bi^8=NIA37RzBGvzu^H0a2ykC)Nwsw4_Cp2j&PwPU2ng*-rgkKMX~*F1E}LaCAe=G1#~X8k7{7z{}xg~adE9>ka;I>hMxPglgoD-3Bq zCCGDU^XdsZ;k6w5Q085`N&52j8hTdUrOM-E;K0mBkF_Q%p++i+XV!7JiK}AOxv|#f92BS_r>o5ehuHf@K zK$BqZ;_!p3w3CY?w#`kl=qjZgZwBY(C*w{(^h~HH55r{rp=OfDN(C+gDxWR>qjlBiMFR|9ZK@1+ogl zGbO&iPT^U%H5`1n++TGAZOvDaj|+{Z)J*&F>!{@e8}w%pCSjY35o|xQ`4WB>UOI9U zb$?)itp5&!LaK|>GedvWv`3zD;7iS^OOVNsJ&B6l{P9qX_$SV zG8Y%S9lymQO+;*#Y%Z0U0(qrVT4V}cY8J8#c|F3MJyk7ZE7EF!id93+DC0@?a=G5D z^OHLc?=99cxt~<*{3{*;d8j7y`KN#}(inB`)1~PR_qwgy2lT7>zA5+Olj}gfJGF0H zpZLY;ux{d;??=({eW#UIYypn7O{gT~V=}vjp@ufIX2};reiIoDKt%pvKU^o_*o+ZA zVK6V|u*1XQ(0BXdJMAEhhbpSL(%3P}N7m}f-Uf8M8*sPW94u~Aq~%sLa7LN;ev(>c zQ6rr;g@S1&r0JxJ0(@pXV+QcP`NVRpm0)T<%YV7wbbPaVA$NWD#4t(dJYiT$DZIXQ zr_WWBp#92;RG)yU8Aw09Glf1{$aqBu3BKbF$ZPUa7!+Fh*Sx-f5)Qn(6!%Q4C{ z#!T*Eysjw64r);2DAU3gac(y68rlxii%toSu&iZKv zSK1dGm!q6qe?-;j-$%t7e(VjR&UayeADgY}5}Z?VuO{kA zqUpF!E-ROvk3HBgO4Q@kuolbNVkK8TnacEphgDfNO$xw7I-$=DpR))`J?@^% zhPq9X61wl=M`0@K>#0QlS+)q9adtyA_D80O*PDts@ZpJpE6#g&NsiS<;#>k`{#p9V zwZnc7F$vG{0`bv@89-m}H{%}n^+g}Ja{2p|k35AHn4*==v`hpWre@?z!{=ste{Li_apuv5p+4wP{Jr-$%|T{xr$~hC2ubYZAh^ z*A`l~9-Vnru~Ws}!DFzR>Lhw*9xO0bUVmke)vA(j%c_*roi>IkAd6|M{t!t(zw=kg z#tSaS#Q zo5@NRwy_p8z)qu`mo6;<3QFN@J{~__DVOC#S2Y}NwwtZ&LEM{<1ANPyPjDMOy%%YH zxJH_1j?>`^&yExaV6i+$$#@7ig;(=8!8ZQvK*O^R;Vl<7NKHmTycd&3Px~r$1XM)$SF51-QaZ|i9TjGJX z{+lY3QhR?Y1gu^=RKJhyQB!ZVee@c1SY4-D(Eh6YO3ZeTT6B#ZjsIqmG+Hs^Cj(rT ztzSu<4WH_oK2$7-ZFqexz~Uyo*J~8>(Fr(K_GZ1>a?}k&=5dbo7$y%k7TvnR`#w!p zjn~Hpr5y@`GxjQ~oEF^Cz)yNkEBX{v@8~8F{gU7TDgLo_GZh|}XACtbzAOEthuc#y zkX&~-3w8k%AQ^Iyi~%BgMr>D1juM*XnFL@T^Klk)-2B<0uxQ}sbm_C$5b#ADYG^_+ z#2sKX1`TTpy6`SEGqpP;T71iyd;l|$u6{A`POF|BLzAea6>FM1cV2#w7&y(Sfe0&# z$r0pa)9RHe9mso}>KoI%ZE3rgbd-)IDZsmuWCsj{hUucBhGq+(!>IFbUd)r!{a2PL zIzM5$+gt#WGLi9x5jPyXXM^Utcw_{-(}BOJjB4&x)TjP?H6 z=&@VE!)n`c4Hc)!%QDFy=#;?g=OiSEAerx?i@q;%#WmDwKg98oaF33zdE_!h_XghL z4piHr=a||jC9Ys2q7m@U?%hqy((5bybN77TSQw0NH1u@6Lwt!aBi?3NHqiG)fhk69 zASJ}IHvtBXtlPU%IddUz}0 zBG0{IB)Thbz07pIoDE}mvOZ&Zo3za1-Nb-yTO#8BPPR*=y-PH40i=@3ozNNo2URpA4)E2;NjJ)TG)C_^}+U57+``#a)S(?(w7N?8Vrx~Myf&0#L#WxGk^9& zVuoQ2_w03ZG}GFOQ_SlUGQU5%vImd%kq6@qiM*LU+s=5pyv~E~XTULJ&9-GhOD1;g zin~&718Ej1Nx8?XLaPa3&dAq^S8d-8JWt=|-R#^x)iHSA*#S_W` z>6B*e{;nrOL{8EVi0UZXa4}x%J*KB2QTd%;e3RSRb8z3GwAo|s>e8OJeAC%dmge}@ zXt=oELOzw{{gxN+47U)mv`eM`CzG$5mwlVlcd1E4$}%jC2BqUUI7V+AmZSILx0d3=0kT{?%;k8a8j=LH1!Nx(laYvd!K;4R`T<7LeB${;W)FS=FPo&Ra;{I| zg+1P$*ir#2SmTMXd9j;iTlBCcba#vN8$mq+u4muSH{@l^Bw{Gg_#W57v&ylLd@Tz> zDis+V=9R+fB-|?a$+BZ)$@e|jcJ;1PKRlD>o$e5;R@C`c;@|>Yfkob0tzf9pYM>-F z&$annIWH!6^;T>(^Nrtk5u z_iXHoA`^KSjnkm?KPubDmOL3JHU-`T?N0os`WZ)LZj?{oK&yt3*MTmr_Gd~FKlXf0 zV57@+U%!WRGxJa(b$*xcQ_F*sN2%J(e)3R7JmJNHY0YjkslVpUpyafPE06a96PgmLA7j#CyU($^8c2x2XC6w@lw9xBGwv_R%B zG6)Rg68P}!ML6vL`btfY2RpSwFaP3R1&vaH|6N&g>%TgjIrGIM^MX68D&n~{qmE!~ z?1p@o{tYYNNVG;CjRe?2oAkn!=lVa~B$o3c0vc4d`r;~`DgCytd&(>3>yEa_4 zt(47M*c}%#a?ykUdB5}S;(or}mJ6+$c+-Sfotc?jT4LD2At^1Qe^~SJ_g_P9K?>}? z`XN;^I34Cnnb%>fntXysksqbzG^PrGlXZgCk8f8a#fRHpcthLhxUf_I zaXLyScV{Be%5X^%GWZHIT@%k9x(M0$fN}s-k=oH;vyj9ap8tG5`UL;9p$op?TsbW) z75rt2mlJ+sZjUwYyr~kkv7m| z9ZW1b80{kfs{RbnRg~K}!;G`oJfM{tPKHa{q~AVQig1}Ra+7i^hATK2k1P13U`FyU z2k}4T9L!ccT0=Ht+6OsL7-(89aiKr3a~B-(huE5TS;!9z&G5gZC|+{S6pihRM(PoW zR7&4P-Wdf8?9xIw+lpP}6G_GrGBj@OyGE&`kdly0`sVjPLyVE_*n0==x&c3XkXb0~ zP+9dlVg5?{S92j|U%V~}c7irsD$#umv%JatyxGt^>#p?fzALb~GvHCrdZE0FtUcN> zT1geemu-?hy@O5ECZj%PV$+ojySI_ld6D^k;|&_CT8 zj>wZacw65U!?XY=F|Sy{`X^nZyP0l->ZIR@9=V4(_fTk|zraqsZ-m;Wox8OT*x+_; zO~C-RRs~4iR*WvRsQNzOdM$hDAKg%K&>T!-)qKRhQVA&VZ^(|5rmK4m1}`YhCwI8i z*|j7BkIX9RMMeJtpGF&+ZAw`YQRC14B4UWoa@gjlcS5S`Wy6*S3rA)uyg5VO?4A+( z4d$Re^+EDrxM}~fql$h#FmU}1pZn^aScSlE!l+Lsf~o=A|CT-$02+~Ij>;UO%6IL$ zk7mcoGz#6q%;x+(Mkx#%GKCD_K$&zwO4l%xzII&wi40}7iQ79`dcHy=Zq3pCu`}^a z%)EwY1od5PhD#FZc#Y;u0^fOR*QR^gXlW7y7XYz(2>!?|KB^4vfgrjmR98A6CJ0_e zoJzmFMTxaBbFMFrP#50*GrwL!mLC4)J1ZUCZE`=7%^lB}ci%a}Ie<=?89a{}e%X~L zVm;5`!@s^lK?Glqw~bK3U4EJB7oE=hdZZ1H{dzRQo3c#i34OH>2t_s^p5r}q!ZGn1 zG}K?dVmpwSHTLc8ZQQ>MdSALv^As=xI9rRR#;OX%EsVb+mIHWuAx3@cAq`Ibm8yIP zUn5ONNmP1iiI?g0@c4ShPs;~wb~{0jn{Kbc`MQg(j9FfNoYQ=@kp-g-D!e;$b#r{; zSL@g&JkMSzgv&JBz%;=g#ApkKyy%uCkZ1t}GMJ9#LB8 z@CM`4IIX`Qz2t1gzRe(}uMYAGt<31jbX3Fx2vlmJLhE8#^^brwn!>Z|MGuiBpP&h~ z={B|dBWfpkJuDkq@bN)9W8F~!Qyr&p?Ci&mE2`+`9i#!v`*T{$PL8(4$>7IqZ)Ks+;;cQaumk`nsC8Eu}(HX-+&shs@-e~53cuC{HpCB5G z@jwpF>wLZM>Ja^9y998n7HdvgP(T>;`lUm)tN62nbm`3M;@c6f-RMEGM{(eh?;5P1 zGnA~(Qoql}#@TEP6cY#+HdgaIP|Bc_UXf(YAmlecj;gWoFONZaeL2BtsNx`BpnKn( z9&@#g%mJFe+e_IdPUPC4aeOpjmpbegEg}`(C^eQRe#&BAX`oU9t&B%ygBKq+9K)~S zdHWE`ldq(Q3(WraXmU-4Hq^dv3baaTQcTQ&P`&rX8RcJLo%o-l`>h%seGmgq4?KZnsrkJ*kTF>0Gx z*!ald4mEtY>&lj<*D^g%$+!x_N`qJ-q?jU6VZx9-G{fPc5+y>?LOK%!kJAYn<9Vva zA`j?oUSE7-_{6_f{<+bAVwNfNRS><_8mG>Nd((mq#N*XnCK*VUqlLuF^oLnD<)Tr7 zhyqgPYk{RLH!S~(&cmew^dC+`oq+n5~#X?bWaKNzf4NlxT`=sqHu#u zSWYy?ZhsH7F!H;GeQ_s@gZv7elN(Sc{2}}{HqwydZW3;t9yw&_uWk76o)+r-U;M(# z>dJ$O`}cx=zuL-D9oM36q(luR^CLUT^qUC0YWhPD7E>8D*B!#podr%0OXq)HYjpk@ z0BNtvbh)-CVHLB^pnTYbV%b&DKUST8)kwz^5w&p9QI@wSDoNoCI-#!~;Vp?fImoMS zW+mnOBVN;#Z)O%YU?gZNnrA2kww%kHeawh9hw>Dew@3B#^m=d$Ewj4EK9JLhlZE}I>H+Voee zLv~=nLgDq}iBEh9eVf2Qhz8g&`R*_!zhoWzeH7c+j7{3${bJf8-H=eqQn!SsDwdQd zG%d-YNn1oDDLfWT2yA5nxuow=hrw9wKl4Dc{ZorGtzW#i90bWfa8)ZX!~`5Pk1qbL zFtfKK+1Ffr*w)``=;N2@Y-U&35SPrT>KO6L%g-cDj1&-5zC(`yV7B&rap>TY*?p}1 z)`v>o`Vtcx1S_jQVf$SB*&?hEiFbeAnM8+Iwy&>(x5sIiS0?){=!YI@F7o`~YFT#f zz|U7(ukK;LiNz3h2mN&u?(ih8gE4x!Yk_Ri4nzt(4GlLkBwyr7Upfyx9Hy*3MOZXR zfxgH)$F0&z z;OeiN_}D)ihj~cld9>#|;cd)uluZ{N(XIUoyC~85Y=OUy^F=;1Zul`?thB+K>U&ks z6ybP(KSzH5*UZ5CUV?KRt6)dIAneD*_F4{!TAMFh#eT7UrVHSss($!jASU%?BNI-~ zn|kUuufB6#I+2P9M-Y*$bGn9wx4VGp#bqlD1GmYa2WKHn2pVunF}=8B`{c~{>zrT0 zaIeZ~H26ps*d)d7y`#XsAlk_6xwg^Sf3}uoVLQl*0z1rC#@{9OR& zvT?J4UMc=NQvcOlw#K5@h~*Z6d_mekO?*T+|483e_df18(|@oA1XuT*O*He;h{BC$aKCszzOI1l9ho(r%yTO)tTHTfN5?Q`6{Lqk)epLGMg9`3)mHU?uu zQ6>x%7zU<8TknPHO9Y~ z-Mxv5NKl~hHCPQl6h1ws{SaqHNlfpxSkv{5F74lJ_jg~T0 zH*Nnke7q2lH?ZuX0bs$sv(;$Ijz)UUm5TZ*Hcy*&X0rV{SZH=!G3qQ*bUVL4#h|Bl zUZh$I`WTU&N|oXK*zZJkD1TRo4gb{vSEhwBibSm37guyAO8a4BrR`;K@aAYH z2#W56K3r-;AsKt9O{GSc==JEm(HF~4S90&-2cD0%B~qcCRV?|CMWltGv!h?9bzBA- zMdwRChquVn%~8y8XI6)neWHh<#n#9YsgBUC#|!i@UkN%X$S7d%fbzVgu*~39h2;$V zC|pf^AsvAqh`Ih_LwO<#QB9w?92(J>#CD1BaAm$%ljz0Y90tOd3FfXh38o4%%L`Ll zgmbTh(T1RXdUnIw0$3#dLrU*RZzU1)I%~KIo=2C%*hMfXv zfytDCN0tO-ZFPPc*!^F#vJFxzYI8+aIg4gLkAg++5mOQo68W7xaw}6cc-HeXoel65 zeKXL<)&0=(RJ`nb1uBWX^#<4ujiyc(-l$@}v+_A?Z{yio2$lcQc16*;l$I&hZsFo7 z;)y_(sPBR#Z*Cy(6#0s({Y4uyF-!cyZ`4Mzup8~K*Y^25f;Vc#VT3JHZ=J}1!=h#| z8@idjpE&@{|N$fkzBV^3fb%ft4X)G78$O z4J- ziP>XYN?wFjTOqoLsVE>{*hicmywrTQCgoGEzNJ3;98+I=LeLl#4ACdC^)G0A&kUP#g59fD$C+rbCII_}; K;4(?0&;J8SRL_n8