From f4b6abe8da15f4a6269b9bba57c802bb74be1d2a Mon Sep 17 00:00:00 2001 From: Andrea Eoli <64196727+aeoli@users.noreply.github.com> Date: Tue, 2 Aug 2022 11:41:02 +0200 Subject: [PATCH 1/7] upload files --- plot1.R | 20 ++++++++++++++++++++ plot1.png | Bin 0 -> 19567 bytes plot2.R | 21 +++++++++++++++++++++ plot2.png | Bin 0 -> 32514 bytes plot3.R | 28 ++++++++++++++++++++++++++++ plot3.png | Bin 0 -> 26546 bytes plot4.R | 45 +++++++++++++++++++++++++++++++++++++++++++++ plot4.png | Bin 0 -> 54818 bytes 8 files changed, 114 insertions(+) create mode 100644 plot1.R create mode 100644 plot1.png create mode 100644 plot2.R create mode 100644 plot2.png create mode 100644 plot3.R create mode 100644 plot3.png create mode 100644 plot4.R create mode 100644 plot4.png diff --git a/plot1.R b/plot1.R new file mode 100644 index 00000000000..240218d1973 --- /dev/null +++ b/plot1.R @@ -0,0 +1,20 @@ +library(data.table) + +## 1. Load data +setwd("./3. Exploratory data analysis/Week 1") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") +unzip("electric_power_data.zip","household_power_consumption.txt") +data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") + +## 2. Pre-process +df <- data[Date %in% c('1/2/2007', '2/2/2007'),] +df$Date <- as.Date(df$Date, "%d/%m/%Y") +df$Time <- strptime(df$Time, "%H:%M:%S") +df$Global_active_power <- as.numeric(df$Global_active_power) + +## 3. Plot 1 +png("plot1.png") +hist(df$Global_active_power, main = "Global Active Power", xlab = "Global Active Power (kilowatts)", col = "red") + +## 4. Close connection +dev.off() diff --git a/plot1.png b/plot1.png new file mode 100644 index 0000000000000000000000000000000000000000..42d3c3dbd2bb4f3f16b99b176ed7223d4816168c GIT binary patch literal 19567 zcmeIacTkkgyDd5(NcvEeq##K^GWbbSkR*~+a?UvpNisuL1Oy2Z6(lGiAUWqCq7o%Y z9%ew0oRJ)FzcYNl-`TtB+k4gcreI{05s6U@*K(w$jonaA`SdCwnIsb!Ss^OF2tNOBY*nHMs{c*xkrT zO+%X-niS$GwdGtaKb{YM{1|)bR4~56UadcPeBsox++l({&b~q_reg(_YI}=+<~Yli zL!3g2>~ro^+|-%=XEr9g{M87a4;3mO@Sd~p_Z`Z;AD|{$uH`SUkE?+*L{yO5jYmg+n{j+C09x&iD;I zvRl1(X1!dbB8L-(dNEpXxAW$-CG3>)Ynfpnp43r0(TLeTQJbj!JI3j&Un*hR*U~O; zl=Z%SeJ9LVhMWDjpCFzF=-4$IUL84x#*HCFY-v&yNDCWKi%n z-xe}$5zYyO^a3oGWeE&ob(W?5@Xw8;!JtZ#VXLcA&7X0GYe zaAUzO?~`zU3s=tITWhk(=U(og?{|J%dw5*=xA8k-cYn2af6ZN{hfPg$@{}O^xez03YX$uiYHTd5YsH!ykE$+dA~n2wKCbt zac~N&*04KmUtZ|H{ovyn^G4sN)^!_A=7zugy>0T{`-rTZnFs$?;8TcwzJKFp-0$1h znKBt;**erMURm^uJh~+KJ@KZi#h=>#L2n#pwRGW#hKL1Esc)y&7H_61dcQtO7bY9+ z9qom8CX6^5iTF8cN7Tz|rPmL;F1oQ;)7bI2wT};`y7Zp48qbfE7|#pq{dG#{sWc-zN7*Ovyq#n@7{$v^?{JuAtT-E<+d0uhy%c(E6hO@$bD3iCB2Y zUM$0{fEn~}@n1h&(_PY^P6oCcPVu@JyBI%Za7~x98}wcmfUgy2mJ-j|CaF%OKhPWH zxzBF#Lag;mtHopG1=(1SWb!qyQZE8hj@>2Mhj^8t8#Km_wss5U6$zWfuTd2R$|M5~~lFclv#OKc4 zRwsqi6KbS)wxw(O#k$ z%V%w6n%;bdcD)sv}9}=gGerTi{*B|&{nxtqm^Vpb(@&)m0 z=?acn4cSL=j|5-1z1gXs964(qHWGv@^7l-@QLe=!vwvIl_|>c}BaHHQYKxbf)_g2w z8Z21w$RuGncx3WPbF+=AUMC~ zISl76>B5bx;CgT>?(KE#2fP7BNtn_Fk=(g8V~EC{DE z>~_Mtqs;i=0i!hDTHSI{*dCv65(6KhjAP@@@S7H{;)dzrbf2}_QcEAi=BRmetzS{Y zR;QRlvfBx3lEL)W{^Z%oWERrqYjN`_&6ww;AF8TQuQJ>#sG@z<(>QOHO);6`-g?6y zv;5tUKT1<0HqE}hx?a>!kJK(QxaTsT>X}$`>FZsV6h;+Zylc;XG`JSMD%cFW!rV<# zp_QXVceHGLW_NbF*Ss3eRpi{*0^a2N4x;NqHwj;Z39YcBn~Y(TZ*Ak|H(FNC-R}$m z_C_Vun)zB^ci}%jMv^j!Pc&rQ(4YHGvg5(vHHA~ZhxS>Wj^L|G74=LWm$AIb6!Q}I zFDYxYd~2Ol?P4PbX1S;ePR&oF#|M8k`4!6G zs9$AY%9iHU>W~k+Z#T$JD_|3&`AMV0Zn(g9C|_HcwEqnBPua?fef?ZA-0T3+sH0zD z^Ll4x>?f&@kJwXnU4i(?GRw!-*NsO;qn`572-uj67dlEPU12npD+iqz#4Oo2v6| zOtWiSZj==;C|>>Z=MOUhgKr7)8_D=uwP)*_`!Ze4GxP1-0M zaFwHBd*E?VPA-ww5>Ed2d3@s(VW%|O&ZtSb#sU!3y$w?~*6Ds#i%z7TTz;Ehsf%(x zp^K^6SKhh)c-lO~%8|j620BX?ZxE@~t1Eph!#ZSmWV1chCw;lH)^)xP{Si_7Xz6LdRtK9S`*Hnx6aRYF zSB+hyV|@=#(%XUj;-)2kc!iYh=JeMehdU$2p7iLKiTeISn%Zv>V@r#l-uWGFKV>FU zmN==aeOzFwn7kJGDW=ms_wJ`qs>o(X56BXdzt0W z0!|OCtNoSFe(ns|1TGBaCz0H>PIXU2u7a8G9;6$v&?c$y&gyzA2v^*HAs` zR;na>hu%o8We$9|Za6;+ezc^TpHx(4V~r`Zn8nPg6a~!9aT~6t-oyFXfYhiWG}RF%)QyE;(LCYgQ^05TSCZR*QZ0C4si`z@MJF#1%`wOvJ{)nG@qTU7bPWg@7qb> z8z~~xmEHCjbLlJAY_)1Xh?%aEyGQHEg}!&czna+(Qw;y(Sm+{swj{WmCA(HgN4!Q!IaJ7hvT9zosr&|cvlolwq$uHCOJdb0<^Xe`#&DI4_NTC zuK)h#kYkB1u&I7>_9r9}<>D}pj}8-Fni_8**>Fr*U@2J0DjJPykYtp>6_I9Pin)Rd z*o0D+=Q{dIF~OYp8%p^`Bki{3D>8ul2wTUnU*l-^9w9VmI7V-{wAG)|@<&{pN^z{? z_@G-wjF+5RK;UbmRT}F_C-`BkRxhVzc84CdywJV!0k`B?#qOVwH|F181-vh_^>eE# z5q`=&y|aP3gU?SV9i*)=d+&6A1|@>;wyx(k0K1Rawy91XnTeEm=ToRVguY#-zm8fX zubp~EVpiVjIayPKqjSVT=p)_7Yupp4mD>30w_%xvw}!Epj*PV)0 z;D*xK%UF6Ev8ix2=tk$Myw~+@T|IfkXnnW=?b9k^cQr0#*4?mDKw*!(i&^BpVRFOt z-p~^l(lKhmEV^bt)nY+)gT0G6osGF=C6|J{aB!U)E*4`+wft*XT!|W9k13X;hfy=a zzQZ?YFw8uNf`}|o{r`LiI^+La{X%E}LzkL|I*gVuHN9$(#bis2Zn!~&EyyZ|@?T#< z^}*^=@F;;3BGp|#epEq3uI(kcbg0q`>^SFA;63~NoIu~mC`~b49Hm!jH~Y-V-@l1R zx2z3-pP7EOW2Mydi}>$z<8iRDaOX;UxL4j27fzX5Jo;4?2Y=@Ezl4yI%x;|?ts?=2 zx1Z~N`(ilT?sI{*QR!C_>O+qjE2ER%`hBym&d#mXYZkAdOp%N`NOC(+aPYqMj~mNB zbCj7|MlhDp{ z(Odrh858end}Lv;2|yL~7f3hlt|7+CEUV1E5`z>hu6_+!3D*v>Qa@{&3IjPU3|E{4 zJPuA(f%qJEOR)?j8gF?YkL0R;adYqj6hp|Q1(trjogUjggV3w-lZaGC{^-Ya@c?+z zQJ{5CvgOS8=;}*!B05S+QM4{an)!)P7WgfS4z8Y~q}WWsip^;={=&z-5|~+@K|aJq z2!1C-SYlp+FkY6COuA1h9p8|~WLE||)~_WQah;F37bYeQ_B6OrNBKF%2^Lh_5qwQH z#f`gq9}wf?mGD9^h#n~S5mtlV2iRO(jRUm4fLJ?Us|T^YpqjfT>bd5&hpP>8xV}0R z^$kGtJ=&QwK>kSujEQJq(wFim**^YQ6ak4N}_qTPCT#TOGTAj<;RA zrJQD;WZjiZ({g3{9Z9e^Ge?Paso3W5a7zui3BSG89c0N6zDUwEz^P;HRg32RZ9%Q$IB>$2MC5o?ux`&Wat{n+rlYuL%&z+39@ zIV2<|tL(>OOES2zS_$J5+@J*<5&<^0?`a@Ey*;KzjqRpbV!V$8?<#@|&YKzxG#N4> zPR$2U{17$)A!gsr0_-xs_J-Bg%aBoG43cYyEnURr~3-muEaY z#piMLQZk!y(0pU+b7E4GHGsitkcQVzrKG1jJx=5mV()M8$hG*rN@}aZRH{hW3sW53f&`>?ZNcyRS2=a_dfg4)8nrEb)c~s zaj2!*+ZA?D+fX5H-|0N#4~4RxUlM8Gj$>c+9)OP& zDOQA^LwA+|=&?7*7&Y|T4eW&K!3}zY-{T-}>rd_Mg_&^i(DPks)jE->7ce)^(uKxl zA|!s!6DL#-8cF$D&~Rs6R7kvw*rhNGn6wx{>rMVjKQd;wjD95qi!ilUA&_=ql{Lj8 zA^U~@fJv$UH70>@rM@$0&Y^%E!(au_0570xX{o48`O_m7-rqj>2V$-g+J z{~uKP?*yHAys-7r(l0{xqh!AK9$~{tk^>LSzG?@g)tAuA)mA;px(S?`1xl$RiK(fO z?pOYjoGtMKVg)lZ10`?cbK<|(c}{S-s-fY2inw1Lz@Se2$>U>R{W6P}q}T7XRXL*U zo?j#-exS;60Xx4fp@n;+K)2lfcz+Yf+XP)59i;^Y-1+~J5b?xy#u8z#kh%gf29-bW z?zvt~egeePrIF%vXF8Je*e-@vZ~A*KSv#x95dc)?fbUcRk$e23Vv7CZK=wxkU4E-> z_Tr{^S_nO0LBS9l(usOhyda?-2bwRBu<(fCWvycE{~30T0m=svrC*2!Aiz}tN|mIp z79NS6fNA)+Pf5Yt-kngf$1Lz=4NQ?}Lpp9Ome zdWkwxg^>VSA^U6j0mlyV%(Ac8hy7Xra=4RMo4svo)TwpJ7IYXFa3tcxwpBhI0)TCy zEOEa>idgmz2YDcVH!QNLCg1liypH)3hVOMd$miL+M7_X( zDjtMeQV*S^!#_|^P>cd$xK*r0mCPT5@WGE5$*P$aBdCG+EiU?}n;*r@VeEfk3Gd4Y z5_Fsx~p}w=eH6>=1#r06ntUZ~s>)q#}>Gj~H45RlJ;oa5+z>PELnBSN`8X zBHhQ=xE)KY@;oC~eLm9UKG4ggNEDF{`KfcCM6 z|CdwqNtGWEp-Zg}R?2%Gun|0tLw zVZ6AZn%JX#)|hRn8<+2I1o{ZMHv69xSav1))1~`jqorLwC`)YWr?Lb}EUxx(67O)M zkEhS{OSXL@^ef*864|_(aBjI|)a58hNokMt@?Mq*q!=_+B}-I$__KjQzdj0K5eVHc=>_ z^~R5r*6*H%L|*&5Rq6ib!+e$Z&nPJ4d$I*g^g;fblE-Z0|;42Tb6dxyyxET zcJue@fON#;wHn#*2p%Wld2CB&{Ki!X%^;Rxnc$tkH=AFy*&*zCySFxQ5#kAi`Gy&3rh`cS~UuJ6|L-;&Bx&YyeH#&J*RH z1bJk1AHaFMjAy{+GUmA4v4-t#M$mk~3MN2&)JF8_J2hH@_?@u49)M;3fs!5gu}ZB2 zf>UuIVg0C_?g(kle!FAVRaQMT>b-BUaRS55CYPrP6#SxldBO__b}P%p%~f5z_1z+# zYb%b@oG7L-EKuQqp)u)S*v&*Y`egodttB^j38#sg{-U}iPRRBFT$9IR)Tj~hwkbF0 zpR;`Uz*%RjP64iyA=}Xb$6s7rT+HNhL87@L$amgqlXYn50kqZ9J4e%t?ebdhVzL5& zkXg72PSPTK6Rr+`u|XE&E!11e^FAo?ggOh@RVDycOJpNy-Zmv~v|PCCCUJO+g_aYbR2 z#lgYBT7Ud~q6pzj*gIuYgRWwG^2Vgxx>v}L<+vy{T!v#6<|wL1HY|)UUGhJuFhII$(?jNt59^U<_l^!>nNJ}b=VLP z0raZuZGiw%4)p){9VULxX10dVy!-sWRP$3)S06WyoNh&kiNQavvspJ$q&)#MGf034 zggGgVKna99kVOEdU5O*At~NcKk}J_$mEbbHy|=gbT1pa-V=TvvGWxRk=#0Oh&$XC@ zgQxtgU!v!mEIoZsvsbNkn=}sk#|2T$kKMayh@ggKc!41*@fcxd7bF=6#TLWd5K9-d zAHD6t?sp})$*xOFf*@j{NI4@?NB%3^)IQ0TkLhjIfA}{BHl1!NZEH_au4O1 z?!Jx|^M9IW3`VM-iq~Kv%R}yyMTYfyT8R=PypIi??_g6S6Fz(p(GL&& zfaqUjoor)hn*^=g+dYq$HXVV}X*W`2ILV$i;VG{?|ObY>EV4?<2)j*vhs z(49-@caR74M;PT}0Ft-82HT$C;mThS^EudTKhGB2NLW^J_SR6yo(EA>D#mRYOg0j? z9wrPq$S;o+D<6_wCWUkL{d+wgfE9$AEU;1L6*x*GmJ6#_hO~_pb$-uwCFvjSuKqh0 z%cBC}?oJD4U0gVKF96T^G#$;~vR`$sHO`9v0a_| zqqTaJ>)S3GN#orlx@D?k^N9x%FoTsC=}S*X-tOGKWaxSd=)r{aJvaMv6fnIi zFM?+XiX+HxJt+Zt5ZX^-9khDM>YBviLZ+oZ-v+pYgR$@C3m?MokbVZRvJx;z5o>&7 z3HsA3A7!(6u|1&7XnR@bv*+&0n2=>Bg?2u<(%sL=0=Co7Ty(Y78yyr6)dpNY&NTZ< z0Sd)oa9$|W$^rnn`Ogngk1wRcIy2uQ4gI*Zi|nOC{(34^TYv*HDyE-)-w#hGBWZ=} zX6&rCp*jyB7<%#-cOAa@9g1ZbBKWbFq?T*DiCZ@(eStO1r<*Ao+1b!=NZblx30O!R z0Z+@Wr!U|$SLxjYIj*qS#khY@F4-z@3fgVG_}TQ*P`=^1hB4*-H(IBCwE&c(TPH_O z4TJF|$&Xl|$CC#mU8Gz7aXCR8tOSm`uGNmHClYnSN&hS|m}P8dClG?N6sM+IH#w7k zF#whrx2sxz=6W3ZKgd+M&i{BIT8hykz^_MaF%<*`jR^OjJd!lw!@&g$eXhM}Vyi$u z=0mBTuYEy(L1Vr%6)AmLtb$A#WZ)z`<~aYXE>EB!B&+a0CzXsUySOikaPsGm0NJT! zJ~>=2hH7P!PEuc=-5wA=3%O>AIOr2N2akox<1Ce<&hhyaA&r zOnj@I*|Q@L6!4TbgOUf|J-W}O_~&vXEa)l;1#t^}xPaphxt}dA2C^~z0$xHc-Al91 z{$B(j{Hn=SEme^MX-wy}u;JjAD3@47V5315Xn7ypbg;1zsEmtel5WyLg>CQ$h?`dIE34%jAj_7@TCkuStO@g7%Uy8%+D zc^`$kV~_S(Bw@QmiS}5o$^Ix1W)OdA8Otp;6arx@96-2PV}2(7>P;{3(!{jRIrY_Y?2=4aolbuSK=bF&`+fFBbn^GW$+9yttg^ zzE{cY?CjX~;?F{`4)E^J&CeraSs&ZC$1qj7FKdCinm(iX-YD#4c#2S}0TjEj{mq#| z>Cj7wadGCly1H8VT0F}WwdIj?qQf7RQfUN)JD+3wKM%^4F&4(VV9K{b4#`6R%Kjw{ zsTkqo{*5R0pB6qq7%PC3G&Yd^STU~5s{4(qkspUJc3g-cTI5YgvS_b8#XnA>LO8K}0h0M%V(@+@Y8c7r7#$$izCfp+sG4`^$75_Dw2|PM5$f&D^XineG#$**3a=Eb;}&Tb zryW^kf!de)kOMtEWQv1BeD?#P8p3A_pC zI_^s#*Ax8}ft_(1>R^uL@Oqz*%fmp}JG_vu*e2|AfVruj)POxx{w64^#QkE1ozuq@ zU{2>fMq|%pxxxrz3o`v1`=b8DAP*g6JxB3akfX-6lw8ANhy+x2vlM$Cs|o;76ijq5 zUS42eI=~(Y_l|RYg$3Xe%WZC~9oeD`Fe|<8_j!}9g6V$s8Wr}Xr*Z%kC>w5_8<+nt zny1py+ub3`kGECjRNj2K{H>Fi;TP3opWd!@uNTBin6;8(r;&u2d26W6P<9Q!=iOBs2&fYHKCg8=lv?R4?K zUt=)~7IYK;c(IJaTV4wbaDgzKH+vXNfZ^JL7;_Q4Ax+;s7VHrGV=ACC3I5Sufewu01?Z2E@4howHQs9GseJ_kzxmkM z*l>}dXv*EEW^YdNXrb#RLx}OFRpb93C~}>Bw?2$x-o=!H@Zn{z;R0PD|6{M^zW2{( zfB)725(iMiyFf~64}|{8JoTKA{xlH`f?Je8b15WwzWZ%l$#p=Htag@1lxw2?k^8kF zKkUCWXXCYvJI`a{0R$;gbfV*}FGw6tj}L&ebw|I{?1lT%V29xzNICLpW0iCeR5w*F z;zm&ORq@xkl}5QQB}zHIDAy_VE;n>ulsx*`xJPBwaTSlOT?dl3{_pLEm{QV*Ur(s_ z!4ht-lJ$)A$RmM|;Hdpbe1?Nd`!H7c?ae^R0|+0jsN4?xE~vU-Fsu>d+i}}q5mPH- zU$+k<**VBVoYFeY`&OddaRjgo^r)TQygp}LWY8i3+}xw>MfLV9mhucBwYmIM{vhDJ zWuZ=X3%e$gVdOX~DT4o~*xisI5dj*B80F)=)1^i2?q^D~$RKmfC0RhC!_i471U0=o z3;mfYjX>F2T*C*YW_Iu0xzC-V1_*QmKmn=;NIAyiIn*bB>FE9Y3KIM+HLnO|ckriI z!q_NsPiHM#qNtQ#gx<08llJ6Hl~4I+yY+j>q?Mki70hBcl>&`C^0mNp z9@P2ifw1(;_lmhw)L@>|STn~4x6o~(SZ=eU^y^51l3g6UT_fmCqmu{YNDvwPzxJuT-@ZK$XD z)Qncxq0EYu_8>MuDyv1W0&X49bmnio#iovTM-y~k9*=UP`mK^yk`@AoQ5$LNp556u zlZb=pBDIbX|Ej^HW0D4g;uE1H*h&QNTdOkA{c-x~bvaKm!Yy@a|ICN?BDhLAbx&u{ zQmCi6G&gcqIN-2L!ICiieQnAX+4tBq;}^&YLYpJ=Ft#c9j<5yCo+2DG&B^>hhwmfb z&|qR2PbCm`bpqx+xUPj1w@h9R;IFr8{s#OT5!{Uc1use%hMJ=#+Imui^#LefXpz1` zCdsIYtBVfeL`>4m${o7TEBOHF#o=IU*5ASjqPkF}Wl}?jKm#PTLp4c|dUor7N>_h5 z;Mf5Rvx$UTuX^~Cp=V>|C$*s@bFsz~;d+m4KaUn1g8kTl+0KMjAaeX+b-JSn86vfajW9qvnqv1bK> z`KyHm#JjueH2bk<;l}<|PF40*PK`pl%qROuE&Yn8nTBiXrzxKH!uW5x8cnq%)Y^{3 zry3Zv4z&CeyuU1IdML()XrXf8E&2@s7r5*+s-Mw}`IC*!2}&TvgwYm-es$mOAJrQ` z!W%az=}6jI=Jx=*M~16x)s45#OivKVt>xmT+2+Oh^wmA$f3N=1tk@YSCwt3#`5>XQK6-Lp z_2fu#cT7vm;e)E2gaq5MkljGm%cEC(T+tf8$;0TKp^}Fm@9qufD5pPgPs8R&&3#)B zNj?Flf5@?%wcKwI#|ziof->AY`cMi6TsghTCO?OCzXsER;X+h!$a%tq(%pM?oxi~Q z&)i#-+90Ohictd!tgAyC;UVu`U0qQ-COZgFwqOp_dw1!W_i8zJFcjxHAK4q&yG__h0 z$1=>36rj!o*{tjY7~&-h(rErqwRzl_BNdRYuyY*kUVX#ruaX=`R&RI7?}Bpfh$mkc80_mUaqJE63-h_^=y5j)-|G( zHD#Y^1MI}n)m%^cz}vKMCQ-)LYewj{j!q4@@YQ(>9{0ETw?3i`65+^$J9w$GzLzlU zDyA09?`{VlyC|sXF|rWX+`K1%dC57z_W7$<^DyR%Bn<#G+qU^WOxxaaftF5G<;-D@ zY$>LW0waQ&5j%E(TC4tDWkD{12g~O8D_n?+3&(G6dwHZ67*wXA z4E{A@zy`HU5In$>3}iE9wG9TG7m{vKp{J&ybXGtvs08zbR>I#mR!qlW7+1_^x1#)q zNEhVN905J55cqFZHh^bum909yktK zz|qXtDK%S}e4tAo+Ash{%k8R9s)LZ@#N8?_<8K*hEmaOkvo5b+>485Ed+*J^8zqS1 zC9u($eq$cBxt{UcKz<5zuN$+(yKRaOn|_~x3(qYoiiFHJ;G>oUi*bbBXXWq7=q?;J zHb8XD8o~0iHy2%0WYk#a)8RgqE5GE=XWTSlNJ1~_Q7{Cu8+U>q8_YoE9zH#umq3ET zm6%^w7xPY|B~BM)Cz=kIxVn0JDs$2hosJEgvLZN(wwH{f9>J7afy-d{b7V>;4!1ZY zh!Cdwdhl3lV|BPN1*$kwlvU_ay%&ym5jZVCZYb#$Kk7#NtcxL={OZ9@jZj$3hiW;n zluRsqai~VkAzB)J_NqW>))(qzm=jr{HV1+%s0v&4y~c`u z%i~>b6R<>i0H<{v$o#9fJ|Fl9xJ(*O0oAz*sPXj~`BO(=;@4yx59>RwnC0-~? z;{DpzD?SOV$v2_Xd_Ip{t*>fbT?3j1W_KS*8p=|9v(bS~fB9@L^egO|Jk=%1-E$vQ zl^a8OPSSPhF~|e0shSpPcS5AsamI8L_OWv2I z;&*XTi$%=~MDQ=$$9B&kFj9%adxLKnMHBG>1GT|&0BX~!vTk7@XI36ing2h2*WI36 zVBC!MSetnJ+MTaB;S_8uv80ZQlr?`pTbuff|@zrkyhzB*#k1ZbPPNzKQs{{6hg^F1lnAS!l& zExuZIe~bZ4@m)|cQ9r~Ga9m2~+=9~~#M8e8?fojc!5QIS2FhE3RKE*mLIOL3gizCL zqP{&Sj7}_Q+U(lJ+%9%mhru0DOhwwfvY&7EF~rN)ML*w1@O8Wa@N$ltdA{MV^;3=&t4Ya z&nPsg9XPo@N#DOye^vyNVneTAFLuFZwAH5Y<}2*4L6|=@uz%+m1Z~yyKiScy1?A*G z=ct+1DAXHTtDUC@ww>{NqnFQmn4|BTL4Yr4JJ7acG;^U3cyR@w9Jgrx9;h_e*`bgJ z&ol9S#T<3Fm5N)3Oh0MmD;SVfU>!cSJOJA_S3n`bxTShREf_A3QPWVU;9e0q;rxXZ zl%E*X|Bih;(b3lTURsgudMG_2*I}aO@2WEZ6b@i#=HEL_YfVRv(C*Xx=%qr-m$8T@ zN-ixo2|%XZq@<;HfkB?wJT{oyU8GYzVg)Q2!}Xp{ z>P?S6%^05@YD1EdAt-Ec)IC0fKvFwu-x6^G?Hh)+#ep?1{N74aWJ5&&SXJIBSBxM) z0Z(n2tq;#Ks3ct}3-+}r-0RMedj3uq(B_Gb2~hghM;fpP7|G=|~nRHh2x>6nzbMonHIxb$ip?0sFG!B1#!f6Yuze+DK_^f9!XZn?p9IEs7F;0q44XYqpCSIBe1HTsk?f@QungFf!O8s|u0xV7f$lu@S880Mxyj2g=g8xzoojSw3m4HwV*eV{&x=o!ewS?^C#sJ0#06VT4J@{PcNF`2~z!WtYpzm30(Yg~B{PTs;6Y|0ZX%Coa_{V)r%Jt9@r0|7WHb zHw;G54gD_wx$1RLkiXKolFD7v+-P#6e;F9bBSR>X>DR!Enz)Y0q$uJBwKH{H%Clik z(ZEgSold2A*bw(TZ2ZZ0h^-hl9j15Aq=vOYwiYX827$q}I+cffPT<}zxY0&9r73X# zJ-{HsGoDS93NStm)*Bhiag5Ak0pfaQa@Q!-Z6|m{J9^P4( zxQuV@xvC*%Li%fsBX8se-Nli0uoHTq%4u@VLw$YcLjj#uRdv?19%>fSffdLK4okFS*4HSh_}Bx>I$7r|^9ZU$R3CzJu8_K>je z&P$w)IV5+>H1>g^9N1|c>Vo1xabz$7?KMNX3^saljey;iW*`pTz4Mc3w9fWyP-qZUiD}#%@7W zS8YmNWfKtr@!hr%2hDWgccbvl4GEf8tB__mE_)3E6h~WKeD!y{#Duk-iV0SP9?yL+ zaRbG6_4g^ei@xJpc(xznqly_whkV3-y~z(rCucP*9wCzQRZD?3 zBClQBOu9H--49RDKKM3YNX}O|3kr8k(CmStwlTFzMs5Qc9h&HcXDPuSVO(52lzknq zmdbL3hHkrVTRd>c?(p0sFV>(QdKuh;21&}ER@BMB%?zVFar?}X8}5plVvkQ2q&@bs z&`Q31UuhjZM*e(2=4q2F630SbG*Du{(fe(ydamk-m>Po(C z`V1-IeS$d% zT6UsS|12A1tON>T!yUBZBM|XR4t4@kjXFC@?tU6Uy556DhDcE1)~0h^3AbRa~Zw zjI7H;;GYaIQ?(2(gB^vhmK(oacKXypOo6V{6(*94a}=<+K1m*VX_8Yu;BYagNI2W% zLq_IQW?<$N4c#N9kc^i6Ukm!;&P1s0ZZEV!4VWwvi z(ROub!5z;1rK>Lt1Tziz=Mn}#CKqIz!gpdR-(}7YRUw?%zgCCdva$6tC{NqbXC|&A zxSOnTk<=-UY*ZfycLUv7YOII1jkBis!9_}mA(w_%t61|(#S+Ii0&PkaoF~$eJPo=9 zXgoGyyib<>S?Cxm*5#^eeu2vu^!B_sZ8-T1t%v-V{5VW*J*umel}<+E6&Py4C02`> z?0Y=4Zaaak3nXiGPP*TR2x<_4#AWqtsTK>n*YKxp2J8)Y_9?pEcyz@cIGO3Wxt9h| z&rT~+xdv%}exlF}b-xZwi*ewIeNT)Q-QZ)5b^fN%)B;A4($^zv3Q|U^dAd_CW4DH1 zxf?nq<|Af+{o*dAisXWIJ?ct`PhWbEt{VWQa=(iLmhqINyF|3M@gD4`AK6^=^!2eZ zl6*l-Ik97mN-vDNZMdg3;M18>U|q-Z;DLz~ewhFq?&N7Dfj0pD)j&KVbSaNALEuT< z5njf^ZXHTajKT2il`_rTFhPxYa2ID@HGS$nd5^ku=92Cz+9$e5d0SshDD_n?fo`%! zd{^3*CRuE1NO?qxKtnNnmgetKWEOn^qV`jOLag}G;Kw@0MxTN9U^D}b_++D4g(DFE z*4o(W(q&}?HlMKJv*7J&fn=fDWd$e$tW+vw8hjek6SD`0d5Cf1RvIccrjlw%nM^R3 zz#|*w!Xd4NFBtF-beRw2M%;2u1snEfOZVgNNrH1=f)`~l25I|^ptAa!gnL$l6xbpN zH6WNjR+PVp$tXZ!21qGf_;=6EkwI{&8hPw_O$jRycatVwiD4Cb_DX=pgTWT()?EjX zMp%W-p{h8jP6J5vyn;;EvG$#c3y@SgdPXn&uYTkyLzl0T{acrh>fm4fz!YSZ9u_?? HdG>z+wmery literal 0 HcmV?d00001 diff --git a/plot2.R b/plot2.R new file mode 100644 index 00000000000..becc2374171 --- /dev/null +++ b/plot2.R @@ -0,0 +1,21 @@ +library(data.table) + +## 1. Load data +setwd("./3. Exploratory data analysis/Week 1") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") +unzip("electric_power_data.zip","household_power_consumption.txt") +data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") + +## 2. Pre-process +df <- data[Date %in% c('1/2/2007', '2/2/2007'),] +df$Date <- as.Date(df$Date, "%d/%m/%Y") +df$Time <- strptime(df$Time, "%H:%M:%S") +df$Global_active_power <- as.numeric(df$Global_active_power) +df$Datetime <- as.POSIXct(paste(df$Date, df$Time), format="%Y-%m-%d %H:%M:%S") + +## 3. Plot 2 +png("plot2.png") +plot(df$Global_active_power ~ df$Datetime, type = "l", main = "", ylab = "Global Active Power (kilowatts)", xlab = "") + +## 4. Close connection +dev.off() diff --git a/plot2.png b/plot2.png new file mode 100644 index 0000000000000000000000000000000000000000..87d17c13e469d458f5f4e0d523dcd013370570f5 GIT binary patch literal 32514 zcmeFZ^;eYN7dAY=Al=<1-3`(pAR?udAf3`kcZak{3KAmS-AG7COC#MK(n!5$^z&Ws zPtSV(foCzZ*3B^IKIiPSA5?LS{;Y z`e|3qAom2_ReJtVshd8OY2z!D?;j zhMlRgKJOe}&hfUo8~eem@h!@4I*49#OUOIa-{Rj*G`w2Kx19@%1b?=(=1-(rU@rx^ zyL5>5_Z&XGt>rdIM|JUinU21RMG0A6Wnr)IyriS7P#b{;laETeZJE8DYngpDxxByB$$WhesaLnU@7vq{$t9ilKzBS^ z)Olp7LDz!r>tR{!GKymEKsUjyz^M=)bVW}4ah;2VCWktn@y9FEDAS)$o@4U&Ceb>X zo;LoR@PMOxnJF0A61nXr)pKuQnzCFo()~PB5PN21X2iNbaoSG*iI1IDWV4)RX7iNO zj`L#+QY&`nzF!lc-;F$U8f;Bh7;FjZpx-0;BKYmiY1Z@a@eOLC`ZU?=ewRNLQ#KXP zW!JDVs?PcHnqTt|JkC;w!^WneQ?km;C$m zmO0)Tyfbj5a>|sqn(#Q{vpy`(sYKm;o2)jUDXlZZF3MyYBG%c}X{xBQO%NK4V#Mj` zDp-scO{CZSsJFu2wAiP_pQzAj->#&3YDGd_F6j}Yci!3&FM_h&S}>i01PN`3ZL??a z!FismucFwm@_-(v-!`I%#@+_reB$^Loen`HOOb7A`@bjN?Nkk5u13B6TvPjLH=^su z`kFCnIS&gV`bK*e(_YhdGx^Uv%-Uqj4M>F-k5H$*!u=i5oJX#iQ|2R~TSk#fojPHx z=wK22EF2vAY@IgFEzJJ3SQo70 zl^~nTNl!oy_y7Bn)J2J!)?8Xo{oe=vjMQ)?QPl9Xe_s^T)Nu1~+b1ufPbFcm$Nq^( z|E`{9A%NdRAbR={|L)`utvLDb3fbA;AL@XVHK2%t4F`M0K{P48B=|d`K*}(b#N5HUq*4w8uhi?jx>BsjWq7N1gUr6==V#YnZ|%Y;T>DhA@NxfY zen1Sa(9M4J0{`@zH9`aL-*sU*)}HNW-t|kqUiEW!&9xL&qW_e(k1=3c-)rdZ$nRnA z*)ku}JkI`!`d_2VnnMBF?S-j&`_C$#NCQKlo7pJ*XTSA$z??3~v#uil8lQ78usr#S zfmi?Lw*%HZe;_RRo9OTIw~>K0#26;$|Feb#WpJxGC;wH>zqUAv12ex44wZisHGKxR zs^5Zi8~j@b9ZYKi#r!hvkGrt!&bEJEqoqhchK;1Br-pko7OX^8ibE&Y(0aKjQp%tD zZ$`^FaFd{AQ>FhL$R`@GAoSMw*@O6x%!)}?5i!W&l4@XwMEn~(nDxQ-J(3&gu$@hS zFTO#F)Bm@va7k8R^Z(g+z!R{VJ;-j-G-=>rQi7%^Sn~;xj1VVtw!=Ta;7kBE zTlU;eR`c)N)SO_%X*@0kW>{#JNIK+1ANn+F59T@a;^pP9EF^ATpP}vib7nO#DJoX< ztNrJ{3Y37L1gKj7DFJps67XSmD4N17|M{?5uz~5#aSi)g?Be2h-4Eb<+gvcm!|31g zpX8N+Y!^}wH7Yfa>QUeG!JKGTE?ALngjUS|_Q(f@SaRqU7VA4`F*MV%!_$t^z>Wky zQ_!B?`!tCbH5N!~7EG2b7D6EL?}*>v#zBV7s+d&&ov9f(@i!Ov%ES_(S^Vgqv6G_S z1I3Vh1g7HkXJY)%c~i54scOEP0vY^uusp!er^9`(63V7S8HkUM2m?cKfNY3p67l8! z%`*nPIEP+5i}b&FWWk6x!Rl5r#I^8E7;zgRutS4_AxMVX{{$`x{Ur;;ruWt95DTqh z0&UoXmf0N)&ZPw-i`Lam|4khM(`P2;$yJA<%Q@rrcYl{84VEh-dB*ggd=Fq@2(usY zw@mAD;Nyfq5Ia;+fn;)@^=#77tjvkZH2!t!Z^8We+4R-_mPi|i19llD*-!G{F+P(4 z3W8A@pEk+m`~y$>CmtM5A52N!(1*d({hex*9ZcLzpG%pF?gQ*Pj$Q)oNW<&X2nV3bf4t z)1HK15yk(E-VO}fVqn&xiqjFB*E!Om;<^62{{?w4<;~a|ZoQ zuqC{;*8{ThJFUk-XZ6jK9-@-KGG$h=ki3x^B>SD7{{3 z>6Ti-0aFF=0E6I=VPV1iC;1RMaKsIdtwq~)cIJgdW?@DfPy+PULW!^Uup2`H&vbD| zbeWtnBai_c}|Eozn8%hTi5s4AP`&$#%oHmYx=R^eL7@UH*0<>C3$t&c60bX z(CMcvQKNNvtH9X)oc*_h%}l@h?{>0JXqEoc2u6a^Zcj)fC z+|R}9sI@+J)wX_NbMv#?;?tiCF4KAx-LhUw zHVzvm5780P(}rXN-`NGH5wXKbEravZj#nyTwMW;O{$20w)6{zIUnFt3}3LpT73^2<0kS(+6nq&`ro4W+pW?vD=2(Ju&LYsfMJ zpJC*%=E)A76Y?(LTLFzefw@G3Pg7ApAMP)|&0OLRS6ZG)!(1v4BX%<$p~bQI=^*c6 zZnFM6`_}WMr5ukR^vTX>91U4@p@X6%zqXeB9&VN{JQy-zGe|;>QPj`wfn_GXTQCgk#qbg?AJ)Jok-EPC~5&>RyR*whQ+Fi^}6l zf-XR9>b&+Vd*_|Um9z+&Ioqx}fgX6+Me|QNOdI&MrkN$ZE*gAB_YFFMFl_&e$rK#q zf^1eYWOE{0;%-N!OeIsi5??5H8{E(hiQK_Ia!;vSXDTuVuV8Y#^t@~hP7Cr^BBoGJ z3@JMQpw7!6EOCd2>k+?s!6omt;U{}+ZeSrAUnG7!{@Cz?A+6-3B+VGx{c0tQ4uNHb z?7i%#zdFYQ-|E>eWgr(rz7zIEIPrcN`T>n#jNvJ2XI)+qr$D<_#D#!0Qb}heqoXBh{ z0t~$Q!5HB-xJ7Vy(6V-@^RjdRo{AK3{Y(S_EO6elX34_h+)rRw(sQqL>&RoXey^yIZp zUq1%wG;tEcX=o!Vav|0;z-?@OazEqQf);tU3qXh7%aiv>j!cJU0l8V%1IM!|`W#iC z9p16^&6!5(ByGN%$Kx!~v|e?!lz7~NT{x2uV%fqrG|wIRXwa&@Mkq)UXmXD$WydgN z-I5Qn<+{OU6-1Ftd)EqhS7<)IszE#$G@yqzTa&`&r@q*iu#!hy2 z1RHK7ADX13M?K{IS86%j0@6T%R~G4xp*dBHX32WwOAse&ggI48*BK-8r_+Hr+MYYP z3om$w)GJh38)&grBs&E&q8HaQB}*W_r$d4Z0Z5eF_1Wv%(ym=iwPF*j%A4{4M zXc<-RJfCki?$OLXd<5TLy%5*G5p7Ze*_>-~Tk@G!62D&eWh@zyc$ilLQAfYLMW{*8 z{8v_v*Ld4DcQQ7IC#tLcmC2UB@TuGNMzY)8pYzi>HB3^zKD5;#!KD_jx6GSB#~W#> zSJH~tRSjR_h7+`-vDd_Tolj~lT&=|(A^t`rdb6DO$%>`En^5=bnRL(TQ|hwLi1CqE zGX#V<$ase942R=Q6|co2B^Qyuqb_?LHufs<{d{WIO`vrqtsTa-&b~v6rot{ob{TWj z&Y12XJ%l3|`le3j1vSS~-Hfg2LQNTB6nPpH{YY?OP{*V^pX+qNu9z zzkF?E@#}3qyWMw!lQCS&#}dhep|qMp@Rjf>!b|d$9^YH9RwMuVCYdly7v2%kY7r0? zQHc}~8-(E>K=dWUogcbpnWI(Bl+20l|HCm5j9il;xsT1K&x<5#{2lqh3;30VKs1hR z^Gu(Msj%nbHJ>F*GoVL&BU2ZTKZKzmPxRNLlnjI;J10omU|o&MV7Z{NRroir#fZ$; z&DrgRaC^xdRdiueU{r|O$4Jr^22HY#)YyO-)R&7p!=u{awop@}*05BT8bXABeTMWKB9aZDAR7>*?p+{O=A z)g-D?TI@Ll--o-)1@`*+)x)Mej?3+w*e3eqH)EeYcMI*hFa&KhwAbyBP%7llep#1O zkOc1JXD(9pW%qO7#`1|glk}(xI^J*@hZ-Yt-H2BsqXl^N(S$X06B*27DF`0qkTa17 zz+3~C6cNWVs>2QnwLg8ZV&-6Ov>}jmKBW>@2lSq7`Fz@7>3nCr*S2XVFXkvHH$tI( z({WAOpqO?IeOu>fZ9bt5xhCHK#1sVS15G@jjYRtH*`_V zDxxqjMpc!*p6=ao6$uvupL30Q>zzo+UgQF`8Sb+aAq4o!$O<7>hYzxZzr_|4HFbW7 zolm?voVCc*z!E~(_Hh29DSI(2awODtS7yc#>-aLIUqzCRcSB{3rjv~v*kE& z2{FoNDsoQh+GnMs`R12`E(nwAmq8)yD3 z9@&h37MM9Q-jfe@>|W}a_kUM#WX6Phg4Cbft-u*lBM7|zVA4ke5P$4n1?1n~-P~XZ z!|OD$BL{ePxi}J#{5kjRLzK!gOp23y)5dP3PLLaq16=>UYd74!qZK%(NH6+35Dhe5 zPvTac2fM+2DWm=yNXwAbQI-J|V9LUr84C(ofT@xZMIIGRgDuGc><^nIYCm{SX#^oK*3e{J!ZU~0;#10}^Fx@hpR zKUziuJyzSsLcIK|pR6>n5C%iEZ9X?m9-FDX+)HGd03o_)D~=%2s+Lzp;I#vUlHUv* z_X0rO+F3I!1u%#ZX8^B}NyB|Bw2|NhGw0n)h&=$>3Gzq zH8LGuGmctgx_6>5I%A0*`_H+rMK4qsbrlW!`@lR_wBX|Q4CkjypFd|m{Ll$H^`WGN zB`>a?LoTHY!^p8gMA)L9K@CK9hoQl>Scx`~iy4!JFe=~e81X-r^_PoYHyYLG613j= zuqXziYco*O=}ZE)&~7?xEu-!oJeftGlOK$gty`;Vs^J4qvosgkUx^YVpWtlM`?Gsi z5AsAd12Nvkb_=p~8aJfM%;q+IY}a#J*vJ6B^DxT0r!wyaIMEj*%`960*ha`vzl0#s zNy%pS(?0u}emNCcVJ&Qu8mnDtw+eu?qthU_yg0o2vZ|%d*Y@}MS zHZ^{jrEy}n)W+NnPSu|@Ckdz|XNDVV1o)h|;*$ zrmod}lV|lcTr{r78%wyO2-*RMm?8oYR6praS+v%#eu>iSGQ>36Rja|T{u;eZbH!EG znF+}F9{~Kwa2giAqa582rq}R>pZXXbslYB(OtURy6}>mTy3kNu#SFjkxZSaU?NM2+ zf;x@~WizsMyaIz`{eo*+nsEg4{C@Sw;nh==T7cRcfO~8WchpGnLY^qT%2}Ml)K)u! zYQQoR9R+`7>M(dmYV5!U`w@?GGqp;1caT`RpdSTK){HBYO^rDPAb&^s2_U$9Pv9Vx zTj0yDh;OIpB}u>M%IFR7j7ItkU39ATBkg9YNZd^*iT?hc%PI(@LSyO6)TWzm*R)eZ zqL2Xazyf*th$0PO2%O79)wa&-q+2 zQ#5-~7}J*t^_WhoZ&agvmtdB*1#;v%*aVC0~p)q78N#5?O+kFKFCE8uiW2mN!+NvF^T4%2Vi)2G?|4VKu3B48mPw}Dmq`Zq+BI$-c&^6a%77-z#`qm)|pdDsV2&GC|~G&BW=HI#2#~E8C0pC;=!$AMjhg7wz*IpN`iEVm|OrR748v?bXFuid z@xQ`+BrN}5{xQ4I5nFuqW4)l^azTlGZl;*~BfHARtc}O!5dSWNXFKvr6?|lw z8`*1+5j34o>5ll^9Mm5!J>1uu1Ys5$<67ozO-3ykk6GCk&>!x}7Z(_UGC_Tq&M~3JxXsBA2+y>739poAMU@(XqgG%o zNz~GxRpOsir@*i#5&O0p!8#woT2?^mK!T^`XoUiohQMKhCFF|i34q`sELjCnIadS* z1!4F<6oYJ2E|ziux6er4?`j3<5`d+!+Vgo@c(p(hG2gRvH8pb`{PeLWijAbg@4jlA zr*!rwlXMQIz5>3k;o%H;|1#69UfU_OOpG_HWka1*oJu1^lz%O91TZ9{+^- zQ%s>{|GKM5rHqNDoDh2$bvv^kpGlkz+?$>|DKmC6vsZa?fMy^R&;!tVQd*SvUXM9kTI7 zRvYlQUahg7%cIE3L*XwQ?9)8uTREF42?$b!Y`e=*Ip)%hM91@F>av-Vt&LxoouT)H zK8e)l6kFyg(uRv_H^G^LL2NC_%boFjv){et6mIiBZ)!m%?e1sSc5Qw+V-nj)BNGZ^ z3D`b>7<99A*F&QgYT&+tn4g2c7WSbO7tJ6#*RxCR%e8fBx5H2~2QXhzD0WK+rGtm@ z#j6*<^14O}U^!GP(8d`3-LD^&|9mWsdeG8&OMeM+*gq?_p`QUlllHq^0l(@CBhtN3 zW+PrB%AJ{wq^wfsgTrgN(3I|cX6hAEJ!9U>mu_F}^qONM00MuNX5UtL=0A|MSn1Th zFLVMpgI{RUZ3uZtEjxK>bvDFq5zKiGT6!*tb0E=#WdvW?IeCZg&UwmOW1G#%$%Pr= zQ*kOp(^7-pF$qGi&cfFma5~M@fy>d~1`cQi#w#qL`2v-^yQPuoEL8{SE2R16u=y_i z804E1&&!*}4)_u^MoTv~e zoD=h;Uks=u`xX~q6dGZv*xTt+8?|rXo|Tw9li2y#Z7*kWR81H}lHL{0L))%a(Ws=J z_?wl486zH}vX-d2kkd39DM{R&Z7Bc7?JcukYO733RRQU#2DcVxDXM}wsc{-cKaXbr zY#ehKtJ4sF@*44cRnd&BHV{^$uIUF^@7QG7mnvfC30^>%=Ee{>SocN0vzD#aM+`0^ zmA9-}czT4(t93zSZt^M%990`+v-F@dK8`^c0+z{cwwH_mQZtHpH+5M&^S%{zSeEqT z>ROHDT)dF%@7f13M(w73VbO^{JN@&~I}~_t4a0QVuO9Hmv!Y$J4XQoLlBQTGDuGvd zuAg0|906gXf-@#(R3hX5yl6^}+%b{(5AJuD4%7lLje`K{fbTdL|{llER^@zu4}4i>@}j_O$| zlZ{c-@8n4GPsP(dnk(Frfxqs9fYs`?H z&@7&6Gfqf{Q2i-onem*cBezY4k=mOq<)(wWxp^FUa6$3PVbkvEy!G zzAHHf6F>(H>N&<=BG@9HTc15c@_h;L^$s$1nlgyQ&PnfVnw~@OG>2C<$PImM6n+R8 zUfcq%WJBl)s*V`EW8jo>MAhY+1AX`$%E|R3Bb{QJgn9Z@KKLY+gV)n1xG64EuZwBr z7i3dC@2|It7dQ0iUP49y85onn`3+XrtYi)o!#WgJeN)r`A~I`?@6%bYWx$=rH}cvcTFKt!eLQz6%yEpTEMzp#y0ewyuc7XW z@rYma0NXpv10(s-dp+5Mqp~z7r8?QHd1&YPB+mfbnp`yLB?;lUl#DWU50qeDKJMI0YYbK|do8+bqgQmuA}aL3f*ug(#7Rj@~o2ER|( z64sV`W+6}^HIw0Yf1UWOO6v^7J#u*>LL~(V5qtM1WczeT9@2|VjFIdV4-E$;$=Hg1 zTKPH;f@x$S=32Jcyc&izM23nf9qUHG*w1hhGLQngudMlZ4;dOs&Qti5zF)MTrF&im zlwl*+F)4kl`RqKVpm%kVS zqDCp3AR0hN^AE^dzpF@kL0CCBY(5gN|0ze-2*6p5rK7t09(DyK*V4@FD)qpXYw6n4 zjdLvnAC1OoC4M+}oe@FyIjiZfbnpu@{_m>)>=ui7w)fGsjb4NL*aFPOY9m*|Uww(> zcn4#!VI>%!^(k!=j9x+QZAF4uNTSdD?pziG)2=CAQ7{1lUYCI9Cyw-%`z> zbo%p?X}rR%dN*Lcw>Ljom(@%)_ltH;LmjnbTVy{F3=jqkrB+W_=1zMJu-9LWazDO1 z8Q|Pv`}!jYui4HEwe3Zi3Nz>9KOh9&e0$yQI%lhO?(sa^xS$yq zUUK^WMw55ToE(iF#@ggN)FWUU=(|W&<2p$y#A!!HA{0*X@FL=)a-*ujv&hpuyVk^^ zAD;MJHoYveASfrvMz*G@ zu4`6g0!{!>8yj^CuDXIC1Yi3I0KBDj2}IJc;5t`YurqbO!muWX@(9XtbcOytcAk6u zS#BuBko|qaP!w+t=1O6j+>EQwW;ERKZgKgOU53IFysVfn`w0q=UXD)B)%T3^xQc8m z$`W_Zf?epm2@)>N)S<}oc<3wJ@r5LTn0E4S&HEEp*p*A$KE>S~*!%5CY>|n&S6q&r zmGZoG5$Zn_r+bI+2%X7`kKo$_BY^Ynv0@jhUy`FBiM|QIEk!xVK}ZH<+{s71kj>$h(qO=!|wqw~Le+0dcE=Cq6P3UISx>yK(u)3dO5BH?jjAQ5hECMB>cr8c-?JySAV({F8s%hTTd66_>ulmG^GomC z65UWEmI(gStFL*f=AX)p6J$+)46NXUvdt%wl@+a|5HYO$VdY%0dQ7e%whRdLQO+J= zz}+qo8F;U#q!}J5`Pz8HC^l z9h5lvA88(H32CAsjA$Gh{5v2N9EPO|@9tFgQl4Jc1Q$>X9k~EMFxY9(_|qJofjZSV zYYa8R+3W}zw{tR&k@ zP%^C@mA0R5_AtFNvs%|eF$}N74jYeK^u4hae7FAW!Fwfys0on7Em{L&PEGGBHlPfj zonJ1cplV*BN9yFs2|>d?A1p4OlINBfCR8Sp5-fRoPCZ*8E$M5p$ezQLy?SHLPLwGBSBb1h1xX zK~IiXy3#;BP~<7Kc1l4-U?O2+0!HLJj5fN46?7`!L)8S-l>?EZmbDp-0el-0Bh)-3 zr;|_le9}8*4(OnV7fotv#mzH@5hA!7n&k<=;VpNql-PoxGGNPj-QEG8fBr7@C@4S0 zI6~jklZg-xYSUoo2&KW`!0*aYw@g9#B(wd?DIFrl`##n-yLP)jRaK8nP1p7 zZ+RFcrr$Wt=9Dob$8A}mELT7jR-C8FYDLK(sYSZY*i4N~uxpN(9=I~j7yrSWfv*H5 zl&0D#oq+}4n*+PXjU*=+n{WdV01H8F>Uga-w66u9jm0Na&UQ~>&TgU&p-wvljb=m* zG0O(AYjtUGGUbK9tSNy7EDgHsXDz?7SPO4l=5pz-u-nB2WgV*99x2C1My!)UaQ$AY zA$vi~&6@LJ<0Jj*thc+tX@G;8dTrqXAW}m!AcPixB^|mhdRTm8jlj@wrL8!r7KT^9 z`brhD4Z`%X7!tH%XT|e4V~}$A*b#AbFje&}$JdRDAuZ?`VPM)Ub=0g;_)(Bi=xToj z-)Z}s+;}`gHJUm49%d8rOZ`8;p(QWEl$?u@UM#$Lv<6bwlP85q_@HZ11f(TaHDfcA~XX*AU3qqdteD|Z!mf!ETn)W|*7KP+

|?7(=-UjbL=2|(4= zx)z^ZZtuUL%h*@_VE9=`zaWh*+5W{m!^8YRPw*0SgOtPa(Z+Kz!?Dj%Bk#5MLqnyH zF-ds7gC-@X4+NhG5_sxfiuot_^&nWYmbbj?7O=6!ynVi^J zMv=9PAw#>3;&6GY+I%w#8hL*ctcU=No9myRRG_|Lf@N4&n7|?c2jvps{qTNgb$%Arz^)>F#CP>exz%Q96dqpbfJyr<=ouD*XlH8d2 z=BFP!e3Cu;H@VdA7jJx{c{p1gq05BkUURnfjRcz7M(NoCi?0_tYuSp5kOp0Y2Ma6a zZvlFBK^Jr4LJ(spT*b}eO7%BYu@{dunp49M8RX%Y$wpVmsW9mb+yce2_(*kWc(yuY zq7o!Z_jZ*HuJ40Ram?@}_h%77flsoD^y~*uoXL^#+B#G^RtKMd6NH-~kyzXZ-I|A> z+*m$cD@7n%MBMZV` z*@3B_D7mEJ#qfwVk@u_lyfAy%w&f;nvSxXfsvDxI(1n!t^U~~2kWwltF_1Vw;f0Vu zDv~6aLksGVPgsvHEM`b_n2Wg9QE@+6^k&OiG_d-{{w(%FBGR4P(YjjMeivJ z->Vg0L}ysf&Y!*Vqb<0gn^}RK{1Ue~NNF#KAPccJ+U5QcOVDZ*L(Su{pf&86tX0wF z0z#$`{^t^w^<;W_H6fuE3+TDZr=~@&VL4aJxr^8`+bp+;~W)qS=c=FU|mBZ_g8B^&qlYxjE6HX zy%#%3Y8g^IdOswzlxrXlQVhD~NQdjhMtQl9Hg8blk&0d}xMgN4hGCE!4SgZhlu(2S zCYeOJCD;=4#&?yEM}~drOtuiKqsptaLrr?6#IHf`m*(4C4sco#)B&5JLildGFhApj zs+kw+xRaawD0&;TkMy;upCN0`nNL7NWD$)zwtMHDM)a=P9(f_7sV6{U#&|EAc2Mb{ z@S+XBA}mPDdMVt}(?E*C8coq)NV(G97xeppLBBMHb*J4}Ml*HpSE%OAYr@MP-#U6Q zF3$puJOTV~<~Hf65iMHr4B0BfX_sm$857+rsh+>y%A}f@^65YxEjH5-VRcSL5->|8 z?HKf3O7{*i?;@(GbBrIdqhsyS>1vrpY8li)y*s46N2Xoq>sWb=s5xvgNr{MVwofX+e_cR z8JzXxKikcYUQ1cW>{;?YRSI!Tpco6}GYU7j7Kl)7(XY^N$G@JHb0*fPXrVZgzOaAR zWw?;oign=P_~zi3zTbv!7_tqZ?tJlsUf4(rYICaiqwZg*o1ygn(W)obTvYP2 zf%X+!gl2M{KcR+1Yy<0CfTEo_Lctl_`dODYovUm-0{=?WZr|#UY?~%9zqa2P4)aGK zd1ZO$-TY)f$-o;0x;JVNyu`IYx(POSLJ(PpXzr5mX1pXre77;KkI`y;$~ zF^SjSA_({UY+OYv^nR$V>>MRdB}lr{hHJtPmS^6gTj+|K9=RyVL0t2eU);4np*{>c z8hnwYb@Pr|QSfwAb5b)QKf|+#N8NKz;@yRDSaT5@)U8`S+?N>e(6hIHzC9caAA7PAmf ze*bDyZvMt@6bo~RJ3?Kt6%;{y?{P&cs^wm=i+E0_NsPY-FbvLz$#xjyE@fhT?n_7ca{PbK`9L}Hzl!vZ~Fv_2R zGLT~U`x&-sicuGa=JOm_qgpw>z~XNsak1@+RWZ9Bjc}t=GapRN=jhq8%yKxYHU~di zIN?)1gk>!-d5sk_NM=N>ntM8!bsw@-55Ba0{e&N-1(YHWL7}ZQC7^JU%)8$*iuDms z8_G1jX!3z%mNuMs4~fN9R5JkoS9p5bv%=l@uNnYd&Soq04jV!N1ZT9?NmSE^2PN3eILLTCq7q|sUqtu#tS0{k+1|OcdE{RhAm7fbr zd$czRJ@ROf1y|;@i|Qj!oGco_n@P@>yIz!DwBpcI|) z3zatO*hB|n(Fw?zYn5W83*#*}v%`aoW;3>Y$5nI>;2M9y+XxCX?J_yEYZP`Vt<*|R z5{EvcHmOG+)n5#%@Q8|m`s&s5A*d|=G*5Lut=)P((`Lofr4zbqE$?wWtg^v+o*32x ztC<9`A;9Oik|+5)MIgUF2JY|%m9BwJ)aPBlTt2ckz5Tsz$agM0F+)$oyppX@5??0q zM58SRb@goIUBsi-5RN}+s6j%Qz<4umCd+*{TtVvn?a#a%_3EG-PTPbUKO9*dvf@~v zoQW!S*wBt}Mms2;?~eq7y2HaE28leS_E(a@a=uj+(7@*2OX}X`G221okWSq?@U@80 z==FNao}TaZ#$87H->$uiAnHZXgF6&nhDeLe#s-~Z;RuEx@uooXI?PhZ#qiqEEy}nYd-55pnI)w{^^h@BE;}po|jRG$be!F>olIn_H>E))}>+*z;#br(X^0Bpe z=h`WwwagHdaA#ozea9#q%-g8SjU8w4K0XgT*9n|`r1sSpax$-bvGLn4TwWyI$b4** zl6V%~aK>Tvy!*nRgfK@|CIsF_hd<4xN`WBmi(JcGr;;3|g}xUisv)U9mc(sEFR#@^ zK@r`21s*+ofqt^-yWAdd zFKRuIrgrU`&f0{A=T9U-y4o{Lx_gYVsWsPodw02nB{F`@>#Hh=sKFH-^hdTe_5jZ5 z1n0EXJM0{ENsPmqs(tn zpnBw!@VRRH4z#ekdRO&!prX%Czxs;AhSP3Vti9VUHgKutF&vCQfpX(oquDmZBWmV| zra$E%=&GqwQB8b3g>S)L-h9}kf#K@4)JO15*oLm4UsD-qa^R&u0;WUB%;Pa{KNmpV zXu4jbNdNS?M^W|v!o%rlGl)YtTx)C^!fnYge3zA4wPfIRP1@y!IA1r3VHc`nBx2|Fv|WtWKWg zwrT4E<3_LR9b^FvXPN$YYp}Q=!Inwu708| z_yT0Ni_~p-jXp zgVqE@Bx2fqR^6B)!BnUUc zp-Hp1J+4&6X7ywwVIIT?1HB!WQY-%0?|Ja}%5N5-hKh9N0AF9C&GwCu%UZU+Iq^LH z_;fIjq`Dw$%VoB)M=?h&-zRoCzW_TS6Q^^Xc?u1~Zd#V}HhxkL7LMjZD7d20WWPV=TA9*5l@{hlD@Lt?9G{JM5%D$FXpG z0!e6sHM3@Xr|tG=_Tmg^c-wQMFE$Hvb4VhUZ$DWOqS)FigSB;OEh8gwqm32%jpXMe z8?F)BwZB4&b5rUdHX@m*c8k{k&8v7xiXqQ>(2cqb;>SD%=u1po%M^+@F35>_hb4Yx z$l66$ultnxjsJ0|^mj}F1y8*WL$%Ss(xv5QyXG(i)*rLpU7Nj3B7pm^p}K$38PuAs zBD50x-GEq?IkDCFdFRmJQxrqOx}S78jz1TtoY3@XwXS36wLUm672rEXMBa)N$vwlCyO z?F{5+?yxfalA^H_<~hL2m1Q-?%zRSaylHY3->gYxX~K8maz;3dmcKfFduINg)p65% z$z0&8IU;zn#+Uq|64|ifmpt004&cVyBJ? z%7m_dEG0{0eApAJ9CT#0V2#{F__=54r!Jk?ZlR{S4e+(6UU_Pr^MM%3C#(dQp!fEr zo0(_E+U#(}hu#9J7o(lLGuxs0V!VMp%I~9~A*be7!nWl73=UntK`=7G{@dmme6Zc< z4=t&H1}U!?7cd{}%CaU%)iYV*6Z#GjHf1$?e5-f2z#0B3W_TO%e1xr2^|4@-m{X!n z2(kJxP39MEa{0FPYSPW1uBCFMgPnUu_?{%j!)wH_+@NTO-B>{AR2S{1waTSF>KZK| z^QhON_t$!DMsT^2Y|ski31sq>t7Us2L|kM?UWwT4Z;n9W?Ssx7UY+kE?2`M(VhAgT#pVy?~vPA z_k1)R&5@tH4M|MQlvTzv>AnaD?cPr11pqIpbg=(kmg`wWc{50B7SXmDL1yCG zNYws6nzvtnT6Rc)M4xl5L{@Epv|;cVy?A=jbC3NJ!hTbpB994%%kPy?-1PmQiObz zx}HiF%gUJmHPD?U`PPs6ZJ@l)o4wJZj!#DNRSiEF^iPor_8ZsDK4<8YdK1JKzjV1b zJwn#D{U!1?kq$Yh?Jn1MfTuM+tiqik=p3=@rUDI3(t1>tXcQsF%G=@x*=3h>o4cu3 zSVJ=8QIhSFc@KDOM$WH=bfm@JwVujJYx)8gnULue_H5OeNLuBQ8>y^Ob*IHe;Gxr! z5=-%OxH1JYfrXw1P2Vqqt{aJ3nr#*mfCgOv5OPV;Fi!3@n&HLMtA!(9EmlkZr4OMi zlXLv+HNSHcEl7F!Mh|8K{kiI%P_y}iR(2yd!1cK246Tn>WWG-1jg+A*YlU(VK$>Y` z&y^)s&^Y{9W~!q#(JFCe!A<@s{Ph!PQN>PKQ<*FHLLIzNy~RTque08j_>{f+d{LI) z=F9$a{%=q^W%rc2*uT34b)u^RC;Z3f#AMDX(uSr(Q7Qtzi`Ba4nJ+*gZ9(p{WvW;( ztCT1F=YjDRHH@VCdyMYea*VC zu%zAV;OnnqwVrl6ptRyptKTi8w?I!*anjE!(uTxfKnpGCDo}axIs-#%7ly3tXr892 z!Fqxugo{Z8bQ+l%}%+jgYkTSN|vx9>h7%I8&{q$ZJeJxTZaRQm)JY;N7W2NeJjP#cr90rJzh zCKnITeF$rq;^cAPH-e>^Puun$4Y8pHIY#Uis%c*(R%U6>cTKZ3>f{n$(A~lUix9b= z7iQJgt0&N7Br5M^SS1zKrIX6-XNJ$YM`KBDmq+vbidoTvd?kqB`hzXQYj+XDc7OfO ziT-OjGTZebY^;G~2EKzvEor{rlI{-GFb9Yy9L#A5d$vGAzT>jJdPqQbU{z`4lgFb_ z=~$6NAsA8G2)bnQr&Zl?M^Lr^AAtKd!R)Mqrtp~z{nX<%oeoQZPildk^YwwVB~-GN znPwr9^hq_+BV$WnDq_$WJz|!CuV2%y4n)21^^k)wnnhkej^ML2{|?_A%o+29Q@K?z|% zKspqOp^=i3MiBqc_WL_){a>7y=jB<;7vowpdp3J^Joj~9*XQ1qMZ&ev#)NtZ_kj^x zYu9j=&`y^n4$m(ow-ThZrGK^B}V7COD47iDO~e z?>M(?0WN-fx*WTxeDxlv8NZF#)nq^Un?NQp^nEvIU_*0VTd%!`@YkoEippy-Rw9O> zG`pqT5zEZV4+!tWDdZD>2<20N(d($98_MySKY~_BSs=}_Kq3Won)<5sJ4Z$BiTMY025^vBPOGiG6*c)E7wNeIF_TTHRcW18qX8QvzDXEWW1&|N;M}V_p6GV|13ffED00T_+^Vj@Ss6|H?|hs2PJlke=zb%6G?w% zi#1F&dGZ|G$}Xmghxr!C+@|qZtH?f<+JA5F8(K|_cD{op#3Ff^F>P&J-8|<61(xxh ze@fjBO=ff4TkB1M+sgdo4}P8^?_CY&Zp}mOG#3h zkz!2mYOdL#6$Tkn_)kv}e05CDR(qKPhX_%Ou5r;Zq551eQS-2g{)c)nrhq#=&r$h7 zv^GVOUpYvJhsBAe{l4fdLZzW(BxjjNo|R#w;Fh=LK|>s0$4d@bYu*l^Z?99SoAsoK zY3unN=XlJWtmet6epZ*DdH054)I*uEgo!yEs#D-=(rFzlO9dCXdCgWC59#VU)|YxaB4R!i5M9Fry7=NJTIrDuiRKmm{<=49wW4vR2o z*cT(>LZVNz(TF0|IvYP%!;?x5GmBn3B^Pq;qU5b}kU=3BlwxE&Ik?azZ`O3BbO zelIfEel4|`y;f*g{;qnxf=wS3#$kFslBaP<{i90Hv%4Y-engXLn- zR3sbJ2+&=s8ftK6NY_D6{z2xmNFgqC^OsMY}gt?`tW)9X~&aC%G@~=I- z-B-J~7;vx$3c?SWZ!|^pEv7>61USmR1C1bA&*9lT>#t?HLBSXjzZAM^XK@r!D92KB z1U2GY9Q`Zyq)C=bKK_tB+IP5cJsltuRpd#m(8>|2_ROt5`JTKOu!d*@vDru{CqnPZ z+u{w9*;!(2uEkNEZ-t)j&3`{X;U6=yEN$f}r_^ z$$1?&XH1eVL$H*O<|dKY{X2q@b~e6FQv;(_v)qLJjs(h}M{UOlY6S}h+Py)(wOtYQ zISzDfCMWKX$Ilo{(5OxwG%K;-tE%?Lxw6K#7-Po5w=(0j^M<_kQ3 z5aik{bbn=~m$p35Fv9M0sHG4xt)N}<^9nb^r+!kFE2anExI#$r2vSX(NjY$L^T+Wr z?N8ksFleqg2g2NZelPCeJJW!AZzc{TbH^~fu30*)cHj7f7r{3SVV-l=;Y7TuYj!J^ zOeh@^Ns{vMQlaAVkhfT`{51HADaBBmX|@Fq$P=_O>wN90ZY5klasF(oRN`W)B$#n& zQ~m^NAk8s?5krz&Ev)mw0jSOI0@&{3`3l6{>EcGbbxGQCvwuK*?EDLw)kfzG?2QJA zE!7fmHcmNr!ydG- z&V5vb*yJ9Ca;m}%@nOG!zkGS-WtYE&ej@)ZQ@adXf1(r-4hQ51-M>Q)V-a?feXK~b zeO>$)G)ZUb3$ai8cPF!YKed+?hrO0ss?F~NhNnMwvAud$XVg%`@hZEp&sxuj`82ku zM(<+*Mn+I@vxuUkv$E|IrEyA?pb^TCRXyLG&R+(!k`E%s=-pZip8h6G5#@Wh?P^v+ z@)*{6m>`s{DBlosx6J-v(EFjDg4v=b@7B(T5iZG8*oen%^W=i!6{o)U#oj+ZFQ5?O za+e}ylFc4~^l|}%RPzy2S`R;o~g}1psNkDpKQk)GL^O7 zkj`TK!@>_93TtKGIw3y?WBgUV4V9ei<5jy~1fAbsxC0_ZhhOs1E5%X87(;FftZJ~< zcQd^`72_d-av`XLtT6rKOqDt&0#|KIe@2a-GR%eKH*2S+UzHrSfwRn1WMMqUw|VHH zA^(zRKjSNGAxC9 zAGFlt>!t4hgS5PJGf{9?J}i?lR(rY}isQdIWN95nIGg+z*c+U_kcuIv4Ran9%$vVI z^(Jd~N$xs+NyZ*nyY+@O1f=>ZVh)L;;DN6%*+>lDjeK7pDMm&zd6`>ohzg=Iz{OL6 z`uY96)%(vHh>dQ00s`9s(9@LmW2QdmK!}Wv^x<8N09c^0w5tk6>lDv8+uw5evX?mL zyY};gaW2>qG0_2hf$D{kv%o2P@708PX2EJZNKo4ZXpG#-T(PAO>SN};2F}$H>DYW_ z;d+HJ;?JJ0GE)J>VB-maF(@J~bvAZ8Zp>=q^a7dj3rxkzsD4BK=t|9!FzCTAvW)JV^}C5CU9YItI! zF0Dcb7Uqk*_CnNLA;OyB8z3BBv-3fu!def*AR$UjvupWv3XX~x2xWav{BkB|+M0PP z?)qEorxn@W12k&kZ{$%K7^J%yoQAUwZJLA&<)>nUq zlN2bzs_`k_4Uf+&sy&T)efsk9rWI&Vi}Rq}(oX{Kd4ox}m4Qh8pr+@NF=w2A+!VybIQgp4v_ZJmXYndqOaS81!P^Zw>Vv_nC&2T?xnC_#@w$EH zb`Cee$s=8$&}9DWL*4;78_OlF$5B*Maq_)9bb@6bma6H6z}Su#Tz#%O_p67ol!#`; z+KY;wYIQ&xJmL?>m|dD=T@WJ0z);;rU^4Cl)nz?aCVAIwwcavr8OR2I z{^{?F5)ajkFB-2Gdm$P06U$4C9%M0q_7ttkq-f;Hy|`ZdKsax5`!gFS1+Tt0F1|#X zJm`rW)l?n1rl2+ZS+0cy7xNVnPtPdOG|X9m0|s4V+A+MW)qM&%EiR%`d`TkPyo zeO%R9)x2hoJrlggfbPULkMJpX*kUwMaCokw;xO4zyNIpiNO)RMmOL}-2uwvmtr;;9 ze`2<`wZOeMi2D$zpJzR8lrtj|^TR~Ua_v1>KLgz3BMcjw5_RezO46yUg>x@U2yJ00 zdIXE@o%F*QE|GL-O}ha0>0rw4)$P>7_yRyq`tJFWyr&kzr}*ja@L`;Sz}jg%nF?aY zGfo7#6-G1*Y@HF}PgnDW2A{;PUYx}G`5Xz}aBQPz#WN^(2q8X52xNu)o1v`dJ*U?`RpX_$akcU~qWVoB%lFa3d-n7D zI0^KrK_U2030VzdcK0+i&UP^yYuA`uY-tkK5ZZ@A$|Vr;>Izd-Eg%S&`Uq1o%#sCp z1uUVSnyk;lSLM&4oV6;|3IUu>02gt@EUR_IL;oFIBf=?uXOa@>jHu%j^q}5&W1k4>^um@LBtFbUwGn&ounP9E=%Eg6oL@8?EnADVXp70X|et z8LS3aiMi>Xh`A)(yYbDthbt{hdGwIXfc-MFz!&SbU!ouu%||YG5ps|9H>$st-NiU& z)#Gj<1e8CrH=1zUS5}yO)5d)DCdwZy8`Uu&9T~sH{kK8EP}J|K`Nb>Ic{?Uf^2hhn5EQRiY$8iiiFa~ z>VzGl{@wa#ClVLfR04lpn`ir&ZKLF{(~)UDO+Xv?jX%YktrZEcLGN?gPq-Z4xHN{XCUMYdx(NCM!%3sLThbcTo8 z7?PO}Sf5|oB{K;rIXCvs7T_zp*MCzC)3^p?fO3zbaa}xCm-3f0L+OfYt(q+9h>b9w z6VPJL`L38xS%9O-9)9^9BwfB1zHQ@^eVjEEA^eFzuzeg#N?W1{?~D)ge$!HEB~u9X zXdHXZzq>B(k6eFnRPn;*$w5&~^1Ie3k`3Ak1b!5gkGUmrRG#ij5OA!hmlxjU@)`k4 z1G_3Ak}UTPDViD;R44%>TB*d=#PJmAGqEpu)03*7lH9s+b!KSmZNzWq8L?b*YnB-j zEDQ1a_W-}qr?qF4oo2Rfv0-Yj`59mvtWtlcPhwd@wzm(9qRAH%<%SEV#`?tXFdV9= zQ6m;*?+~k>UiM87M$FcYJcJlmpLhUz4mr*gA&Q7iJtLOhU3L{I?qg#W z5&lgXp~X#1zHHCyRP)xSJFM@8`TK6v_DPDLft(d$>rE607xm=EY4zg8u=NY5&t%XE z7xb`o74xRs_jnt}kJ`Yan%0u>Xi$hynop+qUa(Qqje1`rKDSd87jp($vk;suq#QF7 zPqo8iW95at(+`>6_6P(^QZ%0~zDpavtD)K}rA3ga4ITcIQV^DpJ~6;xVYt0eCY>|< zy*Qx3QTt-*<3xfaoV>=GZtf-izD}y&qD`zoMQLuB_v-%C(JL>m_rJ-z{2pf90-=bm zR6icvoE>yHDUlUVQ&FKKhl^eG;V)W)*6zm#vCjl5(Dub1^I3VWEWfA@H2-OloOOB~ zTR(*-yF*9!toOCh@i2y{3f5$qRsyO7&t4Q9v#f$N(KZCSW*--YnZkgH$K!CNR(jg{ znCG?Fg1Aed3zYK_XDTdTY>z|svi;cY?ps=E`3$za=|`tnLf%uj-#GTa;cHL&j7(FD zX?)S{!_{((6hwRunl;#C&_A0=;}3fB+v9bdCdwt$3C@Y{vPi&8lvO{Rg=~9cP_Z{k zt$R~KX03acHSu88r#djZ*}Pc~4c-%ZegCqSiGM6`yGy)U11VXZtD6$)S72Z22N$piQkSoLs^)7y5KsQbWLY|*0heChTTii0qnq*aHN-ocSHu}xn zjohCFfloMK(wQxm!?Wg$KYKdM2~=MnW#ua&}oLgMj=Ax1Uf z78GY}ndK8%GCXojn_szJyc7H@I-JZBAiSd5IZ$U0e#*BEDvSDMHIzvWhp{Wu1~tD4 zTmGHQ@oWFdZ%#Zbm>ow*Lw-6192uFUNI5;EuH$^GCRfRAB>QdR9TXFr>|xhC6ZEG+y%Lhyp?7q) zOVDAO-(tuyJ*P*?0)EyJ4A)yFu(Uq#=Y|KKF$ zcXqVVSPTNNLAo8=<|1=rOxB0lNV{-Z>rsgy5a>ar3qMBo+2r*+H>v6l`vho-z8JT{ znMWHrL$VmP@PAJvT&eIidq>27hC}o(?+6R&YnLYGRBh8eZ9de&6U*{V9|j{V)RUx# z8)LUi)6(I}7nuw2kXAF2^oxn9&Gp)1-dGj+N1yIGYGJe{ors=E*E~0WUpOF1Q{oMg zD4#>bGNq2R_OMqJlzv3+y2$4MY^I-pLli~3A_5grpwS_hlJ9IJMGRjLM`-&q!@7WM z`tC8jsu=%jL;~aO?{Df}7(;}v0xSX(rjU$T{exbLC057btq zRp=5P8@wAPR$=iY?3Q9fkzIuN45nSj{mik%nXL9%p<={5PXpK#+Y(!FPYOo$K&@qL z`{?kjw}DtZR(ec9oWODGM3M?k(~uTSw#g1Tr}jaywJzoc^ya)Mv}HVb59ST-)KhkG z-k*xfiA+$IW#M>Ocq0>!$QXf#mf`cb_KiItJmw{>FUvkc&LAgVvIw{3w3EA4F3&S2 z6kkpaG8?IAr(cPSgH-&y>#FmkU5+Z4Yb$aJ65Nz-BFnqgP8ckY~x9MP3lF~1fs*ARn z;ZrR$zTK$Ct6z0JVQmbu5auAw;H1oVX3+*R_tr0oG;^pS<-`mmboojrqjH3v^^i7h zgz%XZGr(6g(9s#DhXORGVAI}x@1|0M_*OIR7n@e+zchxJ%sr(tPuAzN^gNhL(E>zE zd2>>_X>Iy52#pEl_=v8IC}Y9RRlWRH&uqC={jG4bI=haj7!@tIviq@vVqCbQ1h+6G zt3l`EID#0v=X(`e-;iN40W8wfe*)y9e>^?~34xN#_YYsP8O&rbL+RwCyB5aayor4H zaVJETh*8~G-^)n_r_c7uTue*{?Wp>$w}=2~mBI=gwdF9)ydAa&`QKHf?t@?mqXd@5 zO%Q>$efiJky}uBmW9WWmD-DgzF>iVi0$u=ElcynG*`LO8XQgQK(iO`S+@)+wD#pLJCcgX9ES{Gvdd*6 zx!J~z>Jg0l^(MCzX_|m=d7s`*5zf1NA?ts#74vCB=J!ZVuSCmHU<%r(*Nzxzvqwpy z_trafLD81C_UNc>jeA}*vcwzUcfWX~?xTU$!*4#ligXH#KGXuRInO@w?JTobgj{01 zA37kWW*gA{{t?GIR%Fj+*bDZa^dYNA4?+JcQ~TeN(p|%*!`+-C7a{#6kT;bFZ`r2A zXlLBJB20sEJTcNxUyN0d&VPNrw@@TLR*1^N(yu>~_Kz06^|dw|OPHPU?pMwCceY?R z_9ZhyYwp2US^pAc6ROM$Z?73gAA`TIN_s0l{2vs!#oHqI&*=*qeytoWGXmAh_nDY( z;wus#nZG%4thH1uH}g9A5g$O&a1c++F;wn&ybsewQ~hzCfFActlG~SN(Y9N!sDgII zVrVQ9W;zg@)sA{P^ufd~qvUqHuq2Cqh8aY9?MSqL@3Oxla?pPKI|s?1t*mB7;4Er% z`rjf*H{-0PZU5~^ElN;y8tDf3) z0zM~XCfbmiF+dD8pp{}|gN9B8()1-Z2?S)r-%|V%{E0h+p-}H>^%n$atog8!Iq22q4)Cz~8FtYIQ)eMk!D&o()%Cp| z$53Yuz7nz|+|RHE_Ny~BzZg9hjnlmM^Gteh+*b&%2q<$woz%G-*UPC`twaeLXf5bZ z+uHNLpWcq zhQTo`A$!lVfsQ#{4VuuM@Nc_?rFJY_WR~6SC^vM?*GZz!$+{pv))Rfznwrb%WtCimY9%=WjsSMB>$agxu0emeVA0V~erArPp?RS(?zTk*^L*bq2 zWQaDUN0de|M95Go1enMHCq`I@5ScW(VAh2_eH6kf!ovd;{#X)k75o4gZBfN`fEDpe z8yF5Wie5Eq0WN~UrFmv0Mcn1vsm930>y!dJUKlSEC5Al+WgUC5V&V{=_@CYkK1xSY zA^$Zv#>0vT`6F!9VqpzDyxCChqa{DX9lwIFrWM&hxD$CG_;HJ^zd6vQUzOk*x~Of7 zXYm`;9!vR$_|)2P-ISi8ytMnpR9exW95`ESPmDjdomq@}T{KKWD^gsMZ4OlEnJ9+FfE?%>8AXD|MMlG2=cflncw94?M}a2MMT>rZhm zLQAGhXee+8+*6EJw3YIK0G*=Z)CLNfl}X@YBJWx=7JIJxGg%{?6^73cGsaPq!$8m-z38|ZeeO|?jAc!U7ZeJ)yVuTvJ9ma_?QqBeb9f*fSCDy!xJ3kkBkIElh z|GY#+F_GgVAicaB@NEV_b6zZff_QpJ%LLnl6qBA!=#x{=TU<;3`m+xj<1QTm5qF97 zP-`B~CsTM*YHcKwnM`#~fg$dmsdhY01P+1MO!ce!&+ro1X#RpXYKp>MaLqr)Ka}YZ z)V6!{>?=>L#)1xCR5Jz=(1a*!>%AI?_WDAyUveZVQ zhZf)|)X6e|4_DqOwXtq0Ft`DRt&}BTyv<$F*3;+T#ZZd9`1rHtcy3FW|NhV-7QPXx zD217F^#sdt;#L5;zW#3Q6f1S>J(A&h;VC8 zSsg-(M_+0aiXG4kKh>(gmu)P!5rG_5~FVs zUYf+`srBcrNF%;Mkc{YMUKN7tU>Tb`1!EtSi101 z)(`Zni+Hw&j#zaMl6a2LFSD6f*kr-YID@#LAGHg=JP9Go7lMGrvVucxVshm;Q6$X! zpaCpu6+|;pfKckdaNnUQZK}GF|CCfYAYjpU$qNqHX|-w>18W|ZE)NS02%8&PsY7|1 zec+iq&&Y^*B_$A5K!)q$p>;5AD5s}0Z~_9=`9=Mag=`36JkWE)Ug^=92hOOSrK!~> z@OD9b)(#mMTfxN)Qvft&Krq>|p({96u(OrA#sje!cWWHH-crRNP2gVaW^OoSKsDgH z0cYR&HWI~NgwNet*RdcNeE9%MC|`Zc+j0d4yL~{a@CK6`>hp>?9+oew-@9OwF+KsV zg1gpTXo8ewSVI*K!%&Ar?jD({|9kyI25r^Iu~B7if31@^#K$?ON+}iCKpX!BtL(s< zOKDe%2*kf_wYpxV&gJ{bOq#FRlYYqZ@E5g@x;y1|v{du$VwZ^-n<2%?OtBg8oNK>Q zChb~RjSxbVyqPEqLnrcRjxSyrAeGcJDyENJ7-$nSb=d97^^aDOV_1oyoecdpx$cY- z&5e&zKg(p-S)41Dy3^s}4(2{|Vw8?gdEE{N{JTF1pA}B-n>aiLb-;zj%fVd3pru@d zxX9fUlH*qjhzA>7YkF!rjb}XBrTul*gzUQGIxf~h!@~U+0shv*_E3l14aAE91E95s zl%k_)*@n)&AU~MUOyq5sIaN<8VciIL45dt9FY0a|uW?Y(v54tkq$X;->?6VVBJ5`6 zSO%+~0KbOAC~9ORB8Zo3GG!5+O0Gk$Ip;|-=DEXqqLwYFKq&{z*7ay+Q$yAT<~f+P zhOtHQ6%Nu4#PgtrR^$liFYXUv5h?jkf~RW|vu*yb-de7A`-$$3xO;%K9psyFq=1JvPF7<>pDoc!oEO;@-q^OWR3Twdz!qULZ!zUH?mIJUy77D}{^&AQ_b=1&f|Fz!*me1cVG?XYs}N|%vKs99PH z|J;X$E6?%DY_LE#L?quVFf}suL_$UJb?KK zzrII#pAL<%E>oz`NUO4$FlJijR~R;xD85_Y8y|fM{<{S>p^P2+l-_mGNEsx9GD(aj zrhn=!RKpc4VgoMLpv z`N8N&@z+L2lnAb%VazE~M}6Vvk>gE)xXc@Cv~>k5uL|FUqiysjE9&T4$&NS75S8{N zo=>9@05g9880f;au4$`DkS$dMC3TEoxM==ePaKB6N~#tVO|HnsAXUe@4c!aJbjTGm z!xUeKjq%k26rcY6R{NO21ZCTYFxwI@wnp26t4=+V8fuTeYd?2E_h#D0@l-1~^!MX}3C%5yPq?t3Sz zG#mD1w6c@|(o^g=z`nhy%Ho0PlhJ?Qce#@%f+SD%hs6YiG8%<=X+PyY)a*M8R1s@_SI-TRm>CoTg(Dq5_$mXDs7|>%7d$fb+evS5>fi7d2Z|h{) zZ5{_~EQ8NagV$C>ZS#Au0J`5PcMBKzgQB8ku?tROEGc@L2;-SB<%(f4(Odo_`*YOWNiFmi5p)|h7dFSu_{4T8YXfa!* zY+Oq{ehHD=E6yCxs6rhuOtBfkSO~y4g#L{`0*gL@&wTy=o5R792?oN5QU7n)*Gu^a zVA4w}5!u;2*bKs5!2+9Lj#aFW3F=^#*R>v$5zO zE_Xe_WCrTIdYk{giUoreW37`Jx5HtRoonha{?7c3=YRw92T6UET< z6lkOjKQx4BwlIDwEX)l5NS4*CrmkGNzxy^>S9UuxKW*18g1eNGy=kMPQ(v9gM6l-BnR`LJukIrEMlX*}L@9O{g560+! zJYg9{+CGpbzH6-u%Q}1jO(cTmsbt`;+X*^s_|Zl&ee>EOJ?=j7m)cB8y1RQn)vn8n zZlWs`^AGE)irfMmQcqO|&-*Ez09ZgShBVyG%z;__M9? z`wGw?4b&$9kH2p>?^sreeF$`g{h;e#s((RVd=>?jM}E0rcEwx<@e#PVRIC9)FeQ+2 z_y9oys47-fVDPh_-psl5=8s-+_iAh8J8xANZQ^YOFkupR4&Fg z*&__pss4jEs!X2J`>jRu5YiB6R0oisN+Z#aN!&^QhY6f5kqbkN6!39kG!j#dZSejr zA9AsNL!&LSKuNd&*g(6S>DFN}Qvddz0ra+OK+V}HSBfbHmK)Ke5>0^4`VqVh_2-9R zu&2+BmGt=-xjpPN`h^?CU-7WtL|Cr7SlHE#b#;@xk;W!7vv{dNm{})^_!A_Fa~du# zjTH0>q_O(=hWokHZ2P-W{9mF(pXL&*4%2vT%BWtCbQ~~#3Up+?7vw@uProAZ0u^a0qsVC-rL8gjmpEEWN~)(((LeN+3ZDzycKSCUS3OETif?da=umE zWtz&$O4k=JI@%b~T}Zc#LN6~by`Mk-ModC7|K*GN{L<1v4PO7~$l;-fw4|himzURq z*2eI#COsXU6A1~4>(i(8d^||_==I4IcL(+#D>^d1aGHtMiHQlf)A_3xf`Wn_Bpzd5 zTXXgDYLGr3fBpT%k}1J*3*FzR(uM>b>`Vaxg?EUta91pEpD%@X%^wpVtX%phh-2sG z<+VAtwY0RnN1K|OvKY6tv}|sbV`!7ABYNTGH8naqYI>c!f4(&IS2OMV5$YnhtGD-l zY>Q{_nF^tq&r;HnBsvCGkcG9ib-sXrK-0{~D{Sq!tE(&TXV1REsHx|HBe6|y)Kls< zG2-*{<#+Gi!74X=-&_Lz{n^FE#ZT?^;2UPFL+y}0@yMp8CfNI~RrY2XLJTZi(u)@u zdG~_%iShdIHjS|!K782p>$T!w28f|lAVy?)6lEF z9Yhy=-E`jv{g_Lde4Z&hJY2vshZby(D&72~$Okftw60y53(k(Dlia z;`5cSR~V8hOY6`Zbqu;-&%TXTW}$&U?GZMX2k)mZc%&@y`4u5(HFJK?DOlt~E=M{|If8 z#XuhI-BDIH^i37`xXTqeMsR48#o)DmP}09|GC)T+Z#v%Lgf^*rXpa-YYrV^dTF^HcfF1t-cmDtTBOiJXowK6^Iio-O3K~DHuB>&xM$tO#{{Z$w BXAb}X literal 0 HcmV?d00001 diff --git a/plot3.R b/plot3.R new file mode 100644 index 00000000000..5a790e988c0 --- /dev/null +++ b/plot3.R @@ -0,0 +1,28 @@ +library(data.table) + +## 1. Load data +setwd("./3. Exploratory data analysis/Week 1") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") +unzip("electric_power_data.zip","household_power_consumption.txt") +data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") + +## 2. Pre-process +df <- data[Date %in% c('1/2/2007', '2/2/2007'),] +df$Date <- as.Date(df$Date, "%d/%m/%Y") +df$Time <- strptime(df$Time, "%H:%M:%S") +df$Datetime <- as.POSIXct(paste(df$Date, df$Time), format="%Y-%m-%d %H:%M:%S") +df$Sub_metering_1 <- as.numeric(df$Sub_metering_1) +df$Sub_metering_2 <- as.numeric(df$Sub_metering_2) +df$Sub_metering_3 <- as.numeric(df$Sub_metering_3) + + +## 3. Plot 3 +png("plot3.png") +plot(df$Sub_metering_1 ~ df$Datetime, type = "l", main = "", ylab = "Energy sub metering", xlab = "") +lines(df$Sub_metering_2 ~ df$Datetime, col = "red") +lines(df$Sub_metering_3 ~ df$Datetime, col = "blue") +legend("topright", legend = c("Sub_metering_1", "Sub_metering_1", "Sub_metering_1"), + lwd = 3, col = c("black", "red", "blue")) + +## 4. Close connection +dev.off() diff --git a/plot3.png b/plot3.png new file mode 100644 index 0000000000000000000000000000000000000000..79a78ff969f5226ec49557b809913327fb684055 GIT binary patch literal 26546 zcmeFZ^;eW{^e#LzjD*riNH@~m4N58qNEkFoN_P$^(%q$ql+p$v-5{-i)X*T^4eveb z=bZ2P<*fG)IBN}SJ@fcHckFw|wXeO$*N@Z`ac+{|gg_uT%1ZY%ArL4M^@oWL?)Z*2 zBtal>Tq}9`M>g_`^7gj&PFfDersj&~cIHl2rkaX!5Qs=rl(xPlrS@&9jG8KT#{Qtu z_wVCzuLKjTZ8e92f304bSG}C#NU*JzjqTo;&az_WU$}T@#VU1M7QeX=nSi{0*33d@ zU9uU$`L_DeTX@jjlfg5^H^Zb@>oxpUbqQZ>zV%L>E@y80t;{%Y&D@Ip%JD3Dh6%<& zUdp*NGGEoX+}0-M((F5k<2%U79-YLN#0;faXleYlxlP+KGj{al_}XH<^pPSoY&vB8 zgGdkkygB5GxV=&z0hc}R!WuIsWm z$iuZ+qNii)-o+9*%sE*E6A6})>mEYt3y0;@2?ql z28&y^EwvfyvHd(POI!!BUN|s}@+xyH#|NEI(kCqP+@Z^(jc4iBGK(}D5>vqy>`bP2 zHruZm8uf%SXyyn<)JLqk%XVB@n581C2ijF~gz?7*#s_SAlE&-|#C+{^BkB}%a_W9M zuemT_2jJdts zgiDB`NcHQ`JIn3ON_;;cNQ;~|>^@ZeoRfa6kc`ga^L}BQA5G0}A(%l~`VM`_%Q~;% z&BOO@eyWnc$^tr^cWotZnD`j_2uR(QZgB{@GaJ#Mv9UYqv{u=RJ0EG4RsAXbcX(^} z;)2P|GCnpE?4_pMyX&>9b(BNzaX+P4ELRc((+lG9QdhcA})wG7A&=5!BkOt4=;pLbHDO%)^dp1~TsR&EWd{ z(#v-rZFCm$HTN3rn#tobTtUGfIrxJ>V7ajW z?m&^bX#e{f^^f^ErYaDK3`F^!>|+n;W){X*;`Y<)S#NGCcs^#h5@{sDq&!!lJ&;hA zfRRne7AseZ-r7XfwvFT#e$;E_wwYUGj0zeTR`gdFQSqTrG9+d$gEBq@ ziuxd+3RHiuAOV<|O%O#0m2%+U86em^zyDof-UH){z*dzA|IP)b*1-5PD_n*a2IFZW zkWq~PZ{28-V*l-c0E{0E5sQcanF|6XGaCJOg&&51U^~DE;~4+!1_Gwe!~K6-`+ukQ ze^E%8Zya0^xN@_x8-pKTapK>^Q`Z&MsG5wRpaH+E&Yl%V4ZmIdtKrwwEe?~k$K zV*&eADreC6`|JlI1hn4^N9GFb)kN9o^6c7lUC$Iu`6Q8=6*b>dNCw@eX2f2{@iOV-(~1NX-)KsKnqx^nj(#_z%Gv5 zb1H0y=c>#KUcLuIiq&@0wejR14Zfvkd(30~`s!%fU5*KS#-j&_lzSI*uV@NiPJVu@ zt$ja=T<~p4X{|~$&#A`mOi|}|vO2u8{@1=@r;7K-0 zN9&Y6SC-iG1KVHwP}LuA{Jmv21W)=RwqNr2x!7DVQK7{^_Q9Y$-VpzQ1j7QQb06=) zPAi_)7rSZ8<7xMT^X*2%v;9Wy#tY33s~^S0S^ih2E9?b&^KOrOSc7`ecg9U)@|%M&MqaaIE7|6b?}{4>#rEu;?k)BHVEuM5 zta`AT7o%CAmbE&nrJfH|{u#L*Ct}VBC_CT9ci~wM;g3e9euJ_Y%F;p}omB3WQFr(i zW^V7?^%;JrteH|$){t&jw<#p5xzagPKk*$5z^=IQV(x0^m9)|{jrRs`_i4*5?spSa z79-2wGx8NwlR4t7)G~w~&fLp%`(-8Iw5Vh~^fp9be9FxXM{{M- z(nX!$(|y?$4}nG-rZMU;Y_*Li)vl}AqQCL5#`4+gW^n=9cq3VwdZ=>OY2NPZ9JWw{|7QwOS4CYmDR*t{hdQ4Oh zENk$^)E`e+&{*A`$g%Gd#isa~<@W3KII^O`2N{6D(dsCn7P0?WLxT>7=bZI;-SGNp z$C8U4b4)2XRTYW1FVF^RAEffglA92-tTpm9DRVc+9=Mx4)+RF#lh?%QMj$L;Q)^Xm zx2)kC%la!vo0Dtht+)yP62BKZtLqao_`=Wn$Q!pdXB!*c(xhk7#axTs>|C2-e3EQ_ zRTohTmN*NgUaX!2PgQ^?bs{76UT5s&7>Is2CmDOJ!Pnc$=NA2steuD9PT$i78J3%t zhH9KGtb9&?an)_eP1m{WHWOaoLd!g%$7VrOi!8pGhwUhmPDhNt^9m9pkmn{bT({pZ z{%MFV=JqL&M8EXaiRr0b%B($G=eF^og5GsAL5!Ja)v0Ew!8bYnCM$9(3aP7HtB%M! zznHFm2I1t-OoS}B*K|}LII^=xNGs2G9vS*y3cegK4@eib=c0MCPSd=;z_R;Qq*J-? zh6`>cf++7M8l?v>Z9pOsQnBm$eD-?r{IR*^Df_~WTO@JK@CamS8*a!H&V_ z9TfIm?jJLRUef#JSPNNmVbD<+CV!{#tnl7#CtYho!%NItV1Ag6U(nglm5GhqqoMGi z{;@B>;z#+N#)6fL>wY_*$J|GC4((t~N7~%R-p|7r=;Pto7qU%v0+KnOsmOQI2<(Y# z_`&C7E?)ru~2SEO}Kh*Nm?lg>HK77@}5+k2-!LK zV%sXQ`1cULI|KzRXD|iqrczG^`gRM)dw!G|Ha4B?Etm+6zlc^GxoEG@>U2&x?9gpr z@RKbo(H0?|S>tYuSzfzWR=;=ia>GJ8kJP{;z$2V+WtWaOX1s4#3!Yt@1b^k;qNxv9y2*)+%0dP4E8R@Zyj%M#bI9k5Fz zL_PIi1<#f9p2B1@U`K2v6cw?8?aO&^ta{eN6Dsq^}X?wYwH?7kNyErd`tqo68uKn%%-e&5lPrP2>_O76!`^?~? zsf*9d05{U(*Brdl|3Zxet}){6|2F-X%-zQqN7lu)YiIG56;#HbKQpu`>M>=&VPJ9Z zvJt624|+)KA$ow-EZ zOcHf%N->why6++yP>}4iBx4LVGYKnhOk&q1+}zgc<#B z($vwNwi0O4(>KMqWZHEg1)kq~B3ns|?+qKr>29QNu~WLL2xderS4j}M5xQu&Ya+~e zttY412KO+_co#!K-x0DXo67+nFQV9N@OE>PZxKgUrYnD@Z{B%PQeTxi`7k349h>%- zv-G9LwdmOe9{ChGK*3@=U7OT! zdGw5&&kQq)LO5FLY?Z-!_#M`?+vLm9Qho8-tF!gBSb5wx;LR~UN|ydwsiSezHj4WW z&;2^Tz4%UEG#1aK`i^?!{lf$b_2+IA=6hm>66+tT3Y}N__t-6$TYFtAXWU9+bP*P zOz>1f{|^uV8?{rSe6$%VU_E+w(!*Mq5w~s4?`*BWNtjW}9-y#YJ0<7kz9Bbx6aN{U z*X|F_T4}Bxl~W9(;Yk?XiC!q0jy-w(3nbzbs?Ol$8CT`a(6)}80@{ipbA9FqsWSdo z`#GOPl%)|+H7~5tTxo?SIvEARIKtJRQLCF@UMF)M8sb!-(cn;TJm+$g@9DQw;%Vxi zydeir{kznrH?IhH4HKgkz1(L!3xvcL9ml=TIg!*v4jKCn3ZAyl?$+L9?O~;0(HDSQRF_HR?1cV+4gbh$JtU9`yQh~6) zi8+!6C}i+->_y4L*hD=T*#z_F)m#xwd^h=Ud!{Dc!Cg)Y%Rj6`HcHh8Fwuw*N#!v4 z4C-b*BL+$H*O@5C`U*H!pB`8`%CSN)&BDOf(3|32AEW?OcIg*gfv3UEQ0b6NG01lc zibaCDBNJlEJ-$u6qVdz)qS#>c;YpWcL%qw08p^5XX8PZZ=v^43Ay7@j7(I(P(l&@0 z`_zvJ7^mdwuqt;_-RTJ@#on+i5`~-q9OsYk`(Mdau&fbC=JJ5VUs+pQw zv$EX<*Faja%;2jP+rz~he{(rrkjoKiJsx8HeMC?_xihqc&H87PF5rHiX-;wC#H!BY z$M4wGyRcDPgDZnfP^mT+=g(je7zuccv#H4&11h08(+pEYO@Sl@yhx*x94_hw@c9bZ zn+=#wa?t#xU9u{TCk7NBGZ07!|1llWpG836Du7qvf?}p*5rEU`7ooe2dhae+X*k@E z6YJ|K=B=1wPTqMK>h^8avrPd+e;g+m3MFijOro5d3ZGwd%bB5k+zYsg1)`*+#A@@` zC*Ib?m#$M1f&D_Pi`1y;GKs=MpfjIeQs_H>7aV;fk6}HS3;kp}5uYyfQU!(aS+(Aa z4B*HqC_og%_zslFz<_VyzuRTERk><{QMo3_jQCvFhVPTl;!p?;2Hv=3IrY`C+Ps&9 zod3lG%E#Z|;qsKGak!b0gEx&}6=cxHv)?5LDUBB)X9sKY05K*+oPDtz3OqaBR!?Al z__j!^06h{q|Bv{heGaSOX}T!%{Q2R@d(j*zU$IYCBOM3i694^s5!_@K^Xz?w-PceJoU9`uG<(ra*aDDPoe>xek?f%aZM zJ|U1`r93SOda9$a^(b)XWVvx=MMZBOW(bK2HBjzmI`_Zf?-!9zcq9FFKKu_p_Tr}e zOCum;%)rudJUDvhkkgYy%H(Xg7jWW=>72mx8hG2q`q^I1yL9nP?CV2#=;D#%tr#eB)@i~VYk zU6WH>GDF!{IyABPfAmmB2_?34=}NEb%j2a^T@V%C|0vNNAyA~GBLJyUKxy5Um`N)( zDGt=-*<{5aqsX2Cv)kujRouYokR&k`_Q7@Pi4fxqbK-b?F^P3%@OuHIWxPOiT{zR zu?i^tDj=}^wHF-s@|Vi(Qz#TaEFGA{C==q~ug379Y&M~N%m4i@LGtwjIs%}U)4*;= z^c%9BF< z;X=7vgaQOzPd)(cKkpC&MB(v)D2wn2P0eLj))UB*j1Z8x#&6n`^V8GGf$_^`J`UtU z%@TVPc$}iU9Z0_BZG?@DjVd$pNZ(O807d0MV5}%kY!9Yz^!LE$QBuubBBc0Oe%stO z92O3C{w@;C)^qdr1ULi~PC^IVmsz5gNp;)U@IM!f&kOE_-J<2}USRl8oyfQch0)@Z zfP3Xi3{?LXJqQH&v$=`xk0>CR!S}&T9K%W&|C}YtHM{aSVE%K##^7n(2$#T-W?V%q zE{Q^1FyJ$=kqXXqGuF@>;_=!BgCyX{y}-Sp6xm{dCJE$YVirC$@EmP`mrkWW$Zkhw zua3S1_D#78g-Ok0W^-dD)fz}JR~MfODnMp6NF1_Ouc9Xjo*p!+4Q!bVnL2y?PC;KnS_1{ zFkeA;0*h)MipF^a;+SbHPT}7Jhrqh&jYMH~0Qhh|seDH(96`c4EMzg;;43a@H}w@M zrdIh7VyJ3ScM<0eq~;FiP;5d`Wq_f}e(^p1J|GtJK+2Uu!fo)tzVY(25B7AC7K`;v zeNEjcKJd$b(6o#UVL2uAcy&mge42nk;nB;Nocf+iN!7L!e7}Ewq(JdrdjtYx?{gqR zPn7)cFuVdC*mEfZ2<>+Kus7!ok2HzemKP7OC(I@54meSn;#%paEqGkb@XaG0B%(_Bw+{%s2Q`r{;Qjbt^yLDO z8&&JR&86EoPh8#+MWL%E76wlHuVix>j7~Arb!+F>6cs?Ct3WRT;_)A2J%)4OIK0B8 z3cE)BuW>I}9+@HV#8zqNxpQYdSE$nY%vChPC2(E~n;?48p+3)(qMQ`CfQx8BJxJq$ zgwAW1y3P8!lZ!YQ#VOQnRI0|&NXS4!$^RB}rU>rxHPx@d>L~2K%Gy;s{Lt2|NeCNE zV@4e2^6Ou8Nq~*sf+ZWux^IkYlm=>RX)VZ62L8oSz`#W49tps7;yeoS)0 zKNJ_Ud9Hn3h|a6qZg_U1)m{P9$Sfl+@Lz}kQt@PAJQR6ahGVaViSeHhkWq+y=(6JA zMJLcO?a^9Sn_}GozOTZZ_~N_p@+;^02>d%hCYWi6C2^yfK!=uKtkD8>8ZnR~tO3@! z;EnvN;dDV8IURy-)Y*WK%o(O0xlwlX0U&|~Z*kYtI{N|!Uju}?*OzmZ@*ttxNECDe zdV$XcRYkivnzSDw)_qR5f>xz+xIUJ$E>oouic*9>pB;s!VaR^UfNk)h9e~$P&gkE0 zqGe^&5sk?mg-_Jsov5=kQft~PDemQ}i^LT{LcBIVjjgViHNL;PJRbqnsnv2{+HyQH z!xNTToOsFxfq+-Iz!H&wgc_{(++S@cHGIe2a1t0TGLJd$`nE#4{8laIe|k#-569m5 z{Bkm^5z(+!yB@Xz%W>?u^K=v-m0^%^sQ?62x%}!sCkufdqn;1KlTtG6h>VM8R?mJ; z>sXNG_IA>)?qd@k%RkkFz_ze%`vwbo9a#PXhCJ;$rZ3=qWb4_t^5e&kYU5UPa&fm0 z=a2Ex{XaiBn5h^h-zAY9+yF6D96AzHu4nZjnE3c@kl)`OC^LgcfuB;nMZ%E_JlWG{SP{Cd z#l^)cPJVB^W#BsmIx?L?6(!drBz9NFS)* zSS-}YqkoL2{2#Is!_xD+Fa6FaVd@ zaIx3BbZ$6<=K<*WA;Kx(CD;1+2S)oZMUYgfD2BRbWEePiCSjMAO?+|ptp^`EYgV$? z75QQbXrW}&kU2R4pzdr~VA1DWbupi9C*&l(4(@tjJa6>#ot1s=)Xmhk{%~LDm42|P;Ga5x(yc0*g#C;}E#P+778BHQpML}sYj4$~GIY+5 zpfvU9`s&gO(D*KwhhsL+7_FfW|AhxEW}{QwlQtstLV$%g6s0H0?w)e~15t zh)T>c=dv_^=auo)gVcN+>3^omLs%}*#FFU%yF4h677Q%_TrJ6|=OMCPYPmm)okpJ9 zu;Fud=bF+5rFMKVi{4F3sOA)101+f%46Tr zCy**x1tdv6!}O21gHuE#DR+n z62>p)dbu0lRSigG0FfwkQhRfNAbL+VTd~?A%Qe|8I>>_vLGVAIWe9ZHy|HfdGsU;- zE0DEY_-)i%4!u2j6v+JVsF3{7Ud2JSEP(QdfWnZjo@-roh0j9wm+>xSN$js2rW`wm z8m}+y^U?hnm=Tu<1}+FAC;-Na0mxu zRNp0TTNKHOD}BDf4{C!}0k#Iv^)QC$*s+^jNccbBL#T$bw1ru)scn~W<5vXSx4NTs z^Tn1^O<~=9W!E1fzexq4u+Rx!sQ~oK?xUu}2%u8hN?>o@XXwO!-=(h@F7QZ~9WA37 z@;gsT&cmB?O9%nMswOSe06jX0iS~%^&G|M<1t!i=Xoe1CfZaQ5c)CX%RBAC+ zzIqcv3h>UyXJ42N*y2gMkUxq*q3xFpap2A#)($!2;l0;a%fk0e==gW3vsM>kUi%%3 z6D}z-{?s85)?Vs$CrntexjtElQ46GxREM_-$D54A*O%*jRN^p@uQs_c& z#{TZ&;dq&U*0!FfBo%Qdiy$pC6THp+i_2Wdy&Qk)m!VtVQrfB?ztvKY(utwf;^u2Q z4u8I%U9ZCxmQ?;>IIvM1Moi3@JlWUTy%g3)&OE%!D}I z4YiFAJA1g5h<6EeVqG@P*L!vE==x$5m+qHc4H&SMzDPnP1Wblz2<_o|oVfrD>bvSS z&iXY@`BUUOE7I3BHv?x=36PnX zl@ZLbkfxZcpynRHO{BXa=+|phIs4SjCwEoUnG8CM=NuGEqECfyC5aj^5o8N_q4k-6 z?3pZtzFLqjS?|~p8DNH9mVCI2Rai@zk1JcCzs4K@s=M8I6;o}p<2#szLpTMN5(0oM{58-*tUDD*hgL*-scCl)U;HRNk0Ai@^Q_6S@Es2bv7>4 zfcRBd02j>`W)_!ejb%d!=nQ2b$>-bAEjivHf1xI6PNPYc3zhi5C@F;vld1!av~nciouc=u-g z)kiBBUKiP)7HLXs$4qb4t@tPG>&qlz0R$v6@3ov7Mxd~V?}b7J7liq(C#B*yfjp`R!Ljw zd#9V(>Eb;S9{v2{rS{LhEEoKCtj}_zuW0ma__)JsX!>NzKrfmmdR_2~AbY3RUH$JZ zK0C60e(nWor$Y2UX21xC_NC=n>ez( zXF}B;`Gi+Lxou`w){-#y!EQiO{<8{``*r{+)BrwXky$M>)q5_4l%uudvISrQCzGhP zuO(~BjX9T*C6>Fhc6G$(X(1!$-?OuN0mBgOp)M(?*t0e1{whbRezr5ka0~0cW!%^Y z$4=AUgqINYo?lJ$oWZ4B~M>T8Atxxc6pCMT{Dq% z!juC9k?k<^#3RBl?Xy1nIQo94OQ;rs5qtmhXEkCvh+{PT%>WRXLgL!zO{%vW?rmJ3 zt&5lLn&52oDWpk=5qg_;iGRLcW0IWw@~|II6--SX+N+%QLM6iuVM zX0)!0O5lPoSl5GCT6hZ?G#wnRsHdNzTQ~^l zSq1;|$=Q1>!^tQ%>{KfCGTVErrUfAq!3o`xc+8S7MyR9nZEOy=ef6srvQzT6KAqu8 zr&w{-qs9)8QwPx@*{~*av3y+voisTU!YEIEcHdXs=5M}MHkuUS72s_%v!Cq=c9@p> zOtWF1r(~4!e&iX@o_338<{o(xtra8igW(Z-s7|H!ooD*oO9N{q0!du?^Cyne(I1Oj z*{FW18s;Q5ju|G|7dTCYy0Zy)IlNs<6E|>+pFIX;k4Y2X3H>Ff#AofBQugYYDcG>7 zM_(NsOoxRH%vbx^K3G5RK-YejA^hQpN=1#IZ3!QMCQ4Dqu-5vtq?vNZtCQyy+8o5r zKcAh}d=H`$Z+L&zx9H@1S6H9l)A3+GUD|bjQON#m&z(XyWbBKscxz$H`L2y_&f`n% zH3z-rl09ou-FC;lb)ho9{PlanjV*e9!LEUNB6{`0#E)z&M+-IP7ou*UICUdV%f>DY z+RpLrLiA>3QNbok9YG$!r2Dg{y?xUh6pP0z8*4lK!b{FR z#oH{|cSiSSk9@wFcfjXOZ<1s%e9^m9+!N+sBe^;mM}*GS@I;SAtmfeWN0!sY#<2M} z?aLPv&&xz|*vigqmfn4wA79IDS@o}>X8Hbv90{n@o+z@Puhr+&M3-*YXd^F8dXu1T z+=B7R=ZR}JI>z5GJPIh?UJ&bCpFDBJ=U_9InuCB2w&lB>7B6^;t5&V`G@Diyt)C`$ar}Kg|zU^ zs}W&?>?7KrkB7)3r4%U@U4_KSHACFo>sr-mRH<~W=MvR_`D+)L_OUq6OJBOq6sZg( z$4oeqxn>?aUeEUPICQ?d>SJ_%UbdFejq^)=;Pd0B2K$}6)9(rnDr~sb79H!fLqlS+ z+BB@ZPdSsKcg6NKB7c;n9Eg_oe9;oMYZXtTFcW!(Mrqa(yD1GdHC+kK6|V2N{hj<~ zuaW;@!TjBcj?e-Sb;+65FQ+I=1okSY+9D10mJ9UQHpd59rLVL(erRD3mu4E)IW0%O z9{Kz`cieEGA@g8?y3^+Bam^Fn>Ym0Y6je8Emdb{!*-cBnE}f;QsOE5Mj}e<{m-Rk; z*1oSA9Z%Y6NQM+iR!I}{Jux=EXNUiLh(i5?ZnR?KhDWPg-U8O<#(@?DFv@BDlDZ#$ z(oNA^(fU8Q*4ACuiQ&O9-tNBj=x)kE2TOx~qFSR8dJ0q>gHLRxGflrpjhm+DLRww0 z(#aO-$s6sq*(bkKO?W6WC2?=hw>=nFJ(_fsOk(_7n5grI1(BkKdWUEyfAnW_S&y9)1uFP`(ibzwcM0S1b4ly zk>k~+#}XZGXSA;PlD1v^e7{7(z3lx{Bfm`HhBys&_$Rxpf%P)~hbE%B^t|oafZFo$ z^JL;PsE8D2=Up=Br_#xy*q_t(8;!!sDIxxnnkL58{(8l2()EZ#xUc_PVuM}je&{A> zx{7&Y$ok+1O#^iPVpqjTkvgr+-s{wQw8J%LrE{N6uP?ASc=D#P&8EfDoRvDRn8}-+!2S&HRx5>DSoR+#t6$?v>T~ zh}V9ns&8k$xwkFzEepNzbAPV9tO5M~hkCtJ6}x(eqX`Qwi!COkiMouSns4Wa3q4OE zH=XE|phamnAB^5;_w2=GR13Y2tt*giVwwt!+*Y0b z-|TwERy(s&4D5-yq8mT3toM2juC&^|>m92hTFS_h4RZ4tG;LQ|(!Jy4+TVCqeQ>oz zS#_oC>NQfRmfD!I$#PP~ zvqKMpzD7xGl()8JEySUk0bj?3f87jKWrX@FYO|pgYiTx8X2-Cz1%C=)&w#|(oy5$h z?Q%b_#9W;WGEA?tO7Y9b65U0yj&%`}d@}@Vph+?uJ-f2Ra+3pQ)UTB<^7`uDig-0eUJ}XTyiycgtV}oGX zK+aBcdnm#%>#n=NZ*}w1%HaudBWY^+f=_wI?=yu>6-&t$glFIfF9Ulk5>;&^xsvRk zyQ|5#U@dQfq~W$RKSeiQ`TKAz;|n?xisu!c730ShWvOa(%UVrLfrv@*mophhGv2pY z#_(twR30?zy+|_@)clN%oR@nlUb^4kJ212?+Un5F&@>XgRl`#DWm3pI`B|e~>UT5m z-3Zm0i^0}guXyI4{_lza3v>L6Mf^59vtNa*pJAV6j)Z4r>N`no4$7UVDQ*$$`*ETC zuru*}C!9M2yj1+mIn>;bn(WHH2}S%!B&-%wFxY%_wVpP~R7i5WDgL)xVy5A(x}asz zmNVk{Oq=jn6iw;`?=uwV9x4lBp5OPLLwD`H`;yd#Qb?`W*3wz1X!meIZ8Ao&*A8*^ zrYhqAp9DUymODl9`|ApO?-@v^6r;$Qk_9CGD=Q>8`;$f-9-gdQ`e9Ei`&>>Q%o_eJALud8stXOvrvnozSuD{LZzxX4%d-K#cdZRMCSfFY%zZN zUnrr5plrQ&xuvbEubuc)%35~tE&EOw5%jXFqfCK7;p)KaRa|z8K;@va#~hK_^Rm#E z5<7#*$D*z*za_lQLr+3br4p+4o{RmJ0n+uK;UPA2gtD|@9o-C*<@)j14&%15)PUdf zLRD=}(MnJ}`*A&0TYVy%fvgPR*~O!`KpWu!zS0x5`k5r}_GTKJ`^MGZen*|qB9mo` zKI{DU5@j&@B1Z31kFtU*NJIhk9V&k+oD>e2v4BfslpP#x+l-j4`a5NSCi=8Gt-aaOvb(!!?wkF6a$TPZ}0!4_NxIyzV^+5(iB#_r|>e>G_tG8+Gzcb@dT`% zJiL-f;U50ZYs8YSc8b2+oj=|0fIJ=oJ9~I}eq6BBn=;au#_y{_ZW2hF8(ErDc}YG| zJA@Vb9f#B2IH-_+MnFZuwrpx@M#jO*lC-;!LhVzvKoh7~<)fNdN7SVs8v5+spmJ;@ z*i-+G;g$|*2~li%8H6jxFTD))-W(6?A~g#{WFr#9ZUz;xgqnf^AbKjAFwyz&ZtZ|W zHw*Gz>rT9?^jM%m=Tbf+zAy(2Xc{FjcD>U#DKreO(g!@fhM5jFM?Nj=4YC`KaUTV@I_U`0Xysi`nd;DT@9dB z+KKUl3@FWMQq2p~!7o+|FFdL@Zj;(kX2#2Xy^D3vaiRU?9WF@_GNn%HJ7dy?^A8$<;fqweE z7}5oVDmwIsGUG>jmZBl1sF!@!rTm=V$ZuK{!6|wk>bnyO>3yV|=7uH5%iMC>LyMX1diai*IB~``J;*RrxoE-dH;Mh;0)QTvMJFN7%lIH8PA3hDJ%?!FUU> z#I~?}JL}Wh9QE9bbW+yoQD5Jrc3i2PC$kd^l*C0WC)hb^?8u2>wTmT_!g%gMAl>-Mm=u zz8$xKqKh2eUsRJ7&~&fIuk|<-;K6zYQP`Pth<0Y#Psg0F?TH=&xrey7Q#+q-;| z;@yvUNMiTM2q7ulesU8TnoFKw7)AeKitSsgO4*bPh#ZN%%&Q(6KMACJraxYt9Z?EA z>%#ljW|a{>ow?KY;%4}tE-`G-3fGy7f1%kNQ|DAxi!|jdgA+)r!sCz3*i_Al6by_J zt+|wrNFmX}8En4jgQXT9e(>ui|z+wceNTf%&JqdqwR@MqB zXpD?Q5&xi2d))y_%e)i(bi&)tP8Q~{AC<~=$ z`xeIq8q`2{5Fq*TY)WfF#avcpaL5I6K>>)+K4KhIj^Z;9A0}=jAOQ6{`W-r^jCT~- zv9Tg53e!ljo3?~qo8L3W4jw#4=(fSbkI}!5e4dfvYn@3xqk@ zC?hTCBSanYO?hE{hd*@JxcyIW9j=YM0>vL@sqM1d|4~R20Eo6p_8k+nB-CzcTeqQt zq}q^?js**)o*(yayVO;yjP=jPD4zT6?8@WS`E<-Z<-q2Vw$28nHP#pa2DE_YKPYP+ z$%Y8qNs|ZqvRxTIOrLSwxOd5&bfVlRhe0L%d$3C#R^b8n9eF4`)D_3D2AH!qz-?*n zFMqcJUa#6=PHsM?@tG?WrLy+M9a zPt+uCw2e&%h0n`0{SIv|vh$O?)765b!hyY`?>=oV>a--cJyFGiLnSt9b;|IZ3VPVZ z_L_LYh6P`TNr`^4d>o#oHtO0|^2YI*`(tn1boRwpil}}$8u3}sY>Z;Px>%JuHWnB- z7~*#Nc`I>Z1U12r(z-|jzy_s3zWw;wGxqB((9U3+govqe^;X<89lr5)r$PscoB1vg zkw8$cpIWH6!^)X_&zzlPBsO(?^UJIn=u!i%9z-{IuzEs=28~@39uei54r2umC8xzr zN6E8>`bo0kv6toV5iK6-MIuCl>LHz=TZY=qfS*S38RMS# z=HsW%LghNb9Z4o93muR;tY=U8gTv53f0Ia}oQg|RsWL08l35;OK+aWSTmMU@pb2#R z*{rAJ7L#F6!-KP@?OX3#KmN9ATx$Xy_=5DybBDw_RNgNi8Cy&Ypi@?F>EvbPj)Yv) z?`pbIO32W@2CYyDde(HmBR!kwTB7e3F;4H?3+@t_D36lv>8>Ut+{8l51POo6o(DEn zBVT~R6_JCr&t~L{;p_*e>I8(w2(8B$AIPhd8grg>Dov=T#}d24jH`Z(3A|hlZKJ}_6OCc$sSmTH-D`ZKJ#Riv4^b*pPnf{di;%pjnQzdg*f$-I&=^{2#<#?D|$6R+FS{`#{T^z z6CGX~j2^&Fhhk24twCTn2^`hLAv01HSo<2=R=50a zE%Rrz$QCE<8ddeP%Y>g?^9KI&xir`glqz&aR2Mw>9@Uf%bYOaf%rdIMys+!iVyr)x%T|6g12mj4zcQ2!SIFXq-KB24yM zKzmwD)`YSO*TZz>7j*o~)@qg_cACM@b#b#D-?4hUtR|aKc37T8l!C7kQd^Nx+ zr4cC?d_!}ajsfUSw85oq3`eh3t>X)fX*bZMJ=0A8Nzu;@rW0%A^0BLl2L1tfBcYF4 zUmE5?3$@+tN{1>anyo&DmSelBeE3b7c$Z~0dgZh9q#_Xc(>8K1-B9RQP46PW< zFXn00j-F8M@J(rRl=;2NHqlcct78r^s8-^U1F4GkbHyfu!@d3Yt?Ub!C9m?{86&8S zRTOBeLKiGdF(c&ST{^-TKRngQjDF(FjhjTB^NuX9xcGnvPmG19NtQ_Mt4|-Ang>+u zF^w=GuIySMQ#zah5*H|~A=?KV-(C{<87!aL~>UV{Em!Wm%TCGA*W&3M~#*bw+JMqT3v^`uiIhbn0ZtL{cGPbZK%pXm|CzFN^9` zl>>dNlwx~EL`Zm7x2VQ^T`>AGr7pdbk>UzP9>cZXY;dmScyinoSIK7)#qoeP5w3sSy zFMZd*`eEXF2VF#`eeU6%FYco=n*1?QF`xQsnuL9URw-TbDfmhL!l`AyvG&8W9gW=rij`i%Dx(I%$Ta$aBg%&JV^; z&8x)sJ9_*^CYSL_?5kN@kZS8Y_Vihan5Ly>owN2nXfX6s9vUgT@QOo2+Xyk}n}2!- z%?=;cGtX_{XWQ!LOjvs>&z1uMCrB zFtjCJD-9P)a`s6Q>)ngH^p_wSG{0u!u^c{ZxZAM9pKD3`BO^&f}kAR56Y#9;WhD>*H zv<)}7Jxi~8|EEv)E_6$8sSY?DMrcWZ(3}*CS4$?2E+u?+8v7s)^TQ4OU^q1$K4zX> zhIwn$Zsc#~<_GpHejmzGSZ+OM_FJ65F=aUoHw85ePRFaf9>66RFqxgE^rkTR6vvt36U=8?vk#dBnHF*q`N~5y1S8- z9J=$7W(bE6L_&d~hL8b7`fQ%p_pI~ztaHBo*WwFnn8nN;`<{F6>-vr4r=5Z9@^Lm9 z6ItA+4URk~7=z@SQOxAnM(J=L$S$3J;2k)hIL@PPm9|aRvKal;V_1?wpby3-5edSi|_tq7D z3HE^OQ{zoEzvO2TaJp<~B|8kxN02}k+{wz|Hu3^eQt`I5zP*C&3w`qmj5;w%0?Y1Y z7wDy(x8I@0T`{hE?W)tG#=4_F@*rpP_kaIH!^hJ3LN&y8_%ohayiH5cVi#?_ce=GG zrQFf^sCH3!L#x%hm)i#1r1HD1sl8}+&SPkyW?^2PrsiYG9bkyb%diVlYH{lFpk5-c zUOTMA)Sl96G#oEDwQv6sKi<3A{t>wRYI?IoKdQl+0 znIpS3BQXT=N1%&bS%566c;4^IgHrFlf!l8%pT`6e3AX)Ehh?|#d)l{X#ZG=1T`Fsi(xI_Wh?=_P_{bmT-`SFnk%X`I=td-KlT8iNa3ylYVNq>bN+PYSoKkm` z4jC(KU-jZ`$h)~#K?KUkZR{lJY{_2^_du7g!!4I9;o`YRY7WG0EV zcwO^rbWiN>tnvA)4uu9jGoESYv7Dpj3X=qP#Kj&%{-~5nvfGt^vMUt+aah|rHTlE* z)pz9nT8>|Q^Rj`Ncc8LSvDZ|2C;eQtS?|L0mQ-lo{3$-fXSh0{HYe!P#}`!XV9h^! zLhm!^Dl;_cMINx(p7kh}`2-P+2000KD2Uk3z#rHAvk2mEus;d3b`IZUTV||L9^UAs zq_gw;`9wHGVCn4G?L_K$s_uk*uT!bPZbk>CU}>TDhlpy!UZB5fGtKAu2Ka39-WGL<$O>6VH9dXw+$ zNzeo{-)!Ka3^V;6H^KoB6sW}&UQUWUN1F@ z(e|6p{pD3@3f9UMXuUi+bbrPRS~gqWM*MS%{PkwQ@nd9`4~G9ZVngY@jQ-Aa0|$N4 z?-VgizJkvhjZc=VgrAl|?&1qqE1cqsFx)i1gR3z4@9SOjwJ6AUPlGbi4QalIF?i3` zHCvmm0mFev6yp+AJa;@ep4)Ivx(~QD4F*sKhT0x6Lq)=oWJT{ zm1X5F&@e*`r7>swixmw06LBb1U8R*=4$0xDqPjt`nyIj|O}yE6v;5?a$vSq>QkL>t z(Ws(Ciz10Sw(O`SdQe|s+6oo7eD_ZDQ}|L@6(pM(OjIqezW7w>NDCisuEwrpYl$5dBgZSFl*ag) zU6cEkPrlUKZY&S8^t%y>G@2>iRwLp}($e~Llp4igcHb(i@ZGD!1Vs5K-@Eg_+v@{5 zDhOlsXenPNP$&51r;gO0G>Tlf$D;KB`(cGeO7Ec8CU`f^#UzTsB28e7@t#}WGx)3`h zIpnpLHU%qb404sfPHVW!C#B1%CLZk)9WwkhqR8N`S$`o1%Fx7lVoVrc7k=jwHeD&& zai}?4n5y0Q;WA~>q^dr|hJwwL3>*w>k1TIvCXn6^uv787MzcwcBZ|p2w}RXc1PVfrsK;bZNtZE;Bh!Z54h&PK z{Qdg}kE^vCi2@+xawdT|CMkR?wsEE^j={JEG_8>)LhhdwUN*EAz{!uC4TB(u30(xM zHJu8+HRc75{RgeRswks7eElS^GemSHMsC%Lhicv%%~wLKmj36cil}wAtVC!w z0dI4Sr9k{Y+VxaUD-1SY`${FPeny?96*{5&_7U+Gg7?^!2-w%H+n#N7GnhwraN_nT zyrcG+j_RV%K$U9e?9S_%u3@{oz8*wYCdKA>k4>$<%s-ZT~0$}0(7X&_uAHhsSbzi^tx^KB?$3=BKsy6T^UG@&Zipg zW}W3;!!c_A%%0YAqRJx9;^|G(T`Ha<&GnIlNmDLye%G91i=Q4%*8QTdlANAYebhi# zQ7x}Yp66bcwOJNaq*t{?I^m5TG&kJhF^k$00dEgx$>9&qRMU34CJg#kC7a2ZCPx&< z9eR99TQibM=76k#;>vIa+NzzFHs zp1I|uz4cOLbS6WfZ%8=Wn2fK<-zOgLA`6orsZYbSx#k^cD>Byo^mx51g+ZbJC+16A zhIJMvTR|*Ctojx$_v(-S&4;KQcxI>>Gu`o)ntGCC)>`T3O{c}A+#1OyTgG*_16T^G zKMir*p@>zX_q7#UJ&nYKh&oF`+X42`jCj=0h^QZ_5;Dw0jW#+ zDmQYPiyYTsR-Jx;3Nd}1vN5Hr`XT?mik!zj6hv4&XX-ZIyWnW~^mt@cMAURWD(L(i zpTO0;W6_uMxCAq#nk4io zOt11Xfh|U&6+(QQwe5E%zt@rEV6+SX1oR@LxD*->%Jm@1RI9gt^}OT5EzV(gW(u$JV~$kb*w zzEj_xKmeGu>J~9Puo+(>41R5r-m zi->&ZHdVBikj`V&`kuPDr^Blyf|)8qe)l@~<+fx=skAt0R1-uu%OaKEA?+-(`U|_5 zLa{3%UCj(#a6WeNln}cb&A6ISzy^oxjCgom6S)J@>vpr4acF}{UQM#}sGs`E1P)oG z`%0s>3fw2rjDLP98Nx&gKK#ryO)-T}&d4N+ySm0aM!cjLP9M}wRk_^q3GXJ6O__ZC zyto!0eisXtX%GN&r5~8B0@2w- zoyHi>+vv^iecZGz|F2nQ%)dF1uUlwurhdCgy2&WY{hNItSvzFJq~}#xB;TTfkTBC@ zogt3&VrYf}G9W#vfc?zXU3+-zrcZni#*q7VCM+B?;TQ<<)d+0KN~R_lA0YVt!K^){ zF-Hus?1mGABo^u5a6#JetFI8>Ej@TP$jj%duienTiPaouprgr(=!~I=RIXA%)@V27 z-`GF=@-Xbv+i;}H60&;2Oq9xUl-($^l2tEmqtF{N7$b%gT05fDJ+?RU?TxYMion;Z zC<3ivAwQ1(=o;z)-%T+q9N3_(U3PK}Q3>Cp7zj@!T9CGwmwNHWMlyf0E|abVosjt9 zX^AC$Bz}VX^33FmFE8@$zUG)@w2Oi3SxRuf;|SnoqiXExKQ&n!4OWw@BJ&e&7y0pI zQV2^O%BpG2i|3>FlNyx{+a%(Nhe4o2LKh8?IevG0aS#5LJl%%0#%ld-n?&JHdp3qX ziT6=uVt4U#3e20da_N;%z*DHrtMoP8FnL+ih z+(@fo7sUlb(zDGhp0Hh={k-z-K4byrVN1;7K7Y#Jl`c9-N(Va6+jh$8eKWp)%>?Izq%&FBvaunl4e&9sw@{vnEKh0KeM%?#<16|Q|sWD6toAfuJEkDDceB?=9TIpR3iVH?lAjau>vo9o#e)^ zZE1@#<2>YQcMN7*I;DnkSF3k*kY)VobB>N)8%Eb-1oV>EYdM@5T!DY}%mXivP9If1 z3d%HG#{kz`B@qABJ)e7d$gCtPi5X;Q0Ts}UOQ1k7dj0tsDwbf0=Wg4kq!5X+f-FME zBYa>3D1JZ4`MAsZc!{y2n84KK=|q+Zn#n2bPZCibL?9?2En&cKCo$IRM;>KH#>|p4 zhnn6 zgWFM9BNFMZapeyTki-#V5pHVHxqsQz6=g~fnl(|;iz=+#_}Q7ccB=+YDY z!k@U#yN8ND+UWuRnj=X{jx< zQ5ovEVr6@|V5^2Qa#%%~$} zOQ?)lkytFEysXpv0n=(7L51o{h`?0AJHueriUkBMbU*uI&Ov>1z;OYHHRt|c?;xZ; zoua?Kj%_|c(uAUxRC4Orjvp|UF~_JDzv3Ja=qNi!3dBaD}O? zYIe9#99cK!Bz26dJsE>^u8^Gms&d}$a;WMkc`?GCwEkpQgO)pKfbBxF(_X>2X(sh# zrCsm-T0+y^Gj&r@-Hy}cazjN1GYkH6dl3P`3jW4?uZqFxBGXS*6nRTool^}6n z+!9^E{xT!P=^)mJ!sAF5I!5iKs*d&IskiFBhkv6xI$@nvyd_Y;v{4NqHPc2J&kR2v zX;!H=I7&d5=Un_|QZKbSZuF>C=r|4J6d*j(WT*0Byc(}C-A^R88pkw6h>U*EY$DVg z!oW;5ISeP;j#8&eEKD;?%G*TaYbCb6v8QB;dK7LksjntxfM}3zBA5#)GErAf!jBb2 z8|qE1tcZrIbefN!RFsXRZhF@6fGErNLFx84>KELdg{LN0AI7BY;Yzuci+WpCTlhGT zo!`vaUv&!ZcoaO>sH=?-JU$KY|0FAKd%Azi$e_`_JYNCY#QutVE8A7^cdgUbmzXjt zArcHGk20|4En5@WxC7XJ*0FjocdtClY$puo@2(l#Eq{2j*b1dpZ(^$%lUeD@Mcrl> z^cWsFfR&`ebu$*DK>=YrLlBl*{NVMfQl9RzjT1dYSJIwpn- z;P#N56NBH(FBjhC4A3&Ch&VTn1xsF{QlT2wSuS^Wx~^hQzMrCHXa;~J0`w5Y7;0ru zO!n0_s{)+K3oiXXKHD_|5%89MZ!p1yYD0nEWLtPh^?!PutW1POH%XgPkZqZct;&=? zK*J@p)pLhU(QdSFnfqT$=B2c*Ixq#o%#>~ZTfLQh1OT1g?@ipJ*6+MlApgO3hP)ib#jy!uc&Tf;0} z#?tSWa>ZmCjy<%v`M<6GV8U)(VZsW+|Nj0LXZhEp0{;p7TJin=^RRRjuKiMHb|#nxwQ9~aCJ~M*XnpB8I8-_`vv66>-7wJC*U{5UKDYd{l@^rjcX_g2 z3KA>z>p6ZCfIDF6SRYB3W6pL@xF@^UbtRb%#Mf&Ph)x6h@W^D^(^Ja867`jRU2U0(&A*S2~5VyF+z%z%}N#861;KXm`FJ z<3UW4r6(Ima2T&^4Gdr=`ZNP5Xh$>4BLj)+-0E`IHQ?e7%ylG%b(RdEQ5gV?r>2`e zp2`h{X9H+tS^kX^A+7HQy?PNKS8@SD#h~1be3lyc)Zopj_|r#Q9oQ z1``Fapb@N(z;hv@vOtZAAE;6Cyu=2vw`emT6bYq>>(gw2OS=O~X%f`T*>jy6ZKqXk z$M$jKIfuV&-YP3!#Z6nnfdV)0c1V*v#N{mQ7^VEPh8I`dkuxuSJ^> zKw#2XB&las{z;-a7<4eORCP_DB3pF|OupuSKJn!03I~mMrA`bvi<-Tb2Vc zMNNyos%I?9|gInhBqm!I-uy392Jx=(@?LNX33_dLmd$oas zv*^x85DK065(sqY-o4P1*91}_X07h59e_;ey>OpDL%l@j!ye%1V*}qqPCWV@ty6VR zff&2auYWa`J!}AnK396|LA*anP4lbzY%SAi1HjkCJp^J=U*V?gU9M|0tmh9&yKolU zefaiE(w%sz_-&*?I12+08-HZ}261C}k2vH3t%g5Nf6)0L7LZG?Wi;ViKp$v6e;(K6 zye6X+OCzxXaOGm?B__3ZY2#OUa^S@&GB1=yMcnU$)R$$Yscn#R&l&v;RT&u43!@h` zGfy#kaz0z2U7*Vt3;t=>LM>cyV|j)E0CaIgsYD)|y%QL_d< z1t<|1&EoWKd1Gf!Cn$CPXSjR92u8~P^U-JBMw~vYRR4LcI$$V_UshWF&roOt{x<7> rp8D@b{GZMA@73}DZY#=61w0ZiVMCi{O$h&Z0Bv+ literal 0 HcmV?d00001 diff --git a/plot4.R b/plot4.R new file mode 100644 index 00000000000..ba368558170 --- /dev/null +++ b/plot4.R @@ -0,0 +1,45 @@ +library(data.table) + +## 1. Load data +setwd("./3. Exploratory data analysis/Week 1") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") +unzip("electric_power_data.zip","household_power_consumption.txt") +data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") + + +## 2. Pre-process +df <- data[Date %in% c('1/2/2007', '2/2/2007'),] +df$Date <- as.Date(df$Date, "%d/%m/%Y") +df$Time <- strptime(df$Time, "%H:%M:%S") +df$Datetime <- as.POSIXct(paste(df$Date, df$Time), format="%Y-%m-%d %H:%M:%S") +df$Global_active_power <- as.numeric(df$Global_active_power) +df$Sub_metering_1 <- as.numeric(df$Sub_metering_1) +df$Sub_metering_2 <- as.numeric(df$Sub_metering_2) +df$Sub_metering_3 <- as.numeric(df$Sub_metering_3) +df$Voltage <- as.numeric(df$Voltage) +df$Global_reactive_power <- as.numeric(df$Global_reactive_power) + + +## 3. Plot 4 +png("plot4.png") +par(mfrow=c(2,2)) + +# 1 +plot(df$Global_active_power ~ df$Datetime, type = "l", main = "", ylab = "Global Active Power", xlab = "") + +# 2 +plot(df$Voltage ~ df$Datetime, type = "l", main = "", ylab = "Voltage", xlab = "datetime") + +# 3 +plot(df$Sub_metering_1 ~ df$Datetime, type = "l", main = "", ylab = "Energy sub metering", xlab = "") +lines(df$Sub_metering_2 ~ df$Datetime, col = "red") +lines(df$Sub_metering_3 ~ df$Datetime, col = "blue") +legend("topright", legend = c("Sub_metering_1", "Sub_metering_1", "Sub_metering_1"), + lwd = 3, col = c("black", "red", "blue"), bty = "n") + +# 4 +plot(df$Global_reactive_power ~ df$Datetime, type = "l", main = "", ylab = "Global_reactive_power", xlab = "datetime") + + +## 4. Close connection +dev.off() diff --git a/plot4.png b/plot4.png new file mode 100644 index 0000000000000000000000000000000000000000..d58a50337ebe0750b16bbfa870099db7f54c9a14 GIT binary patch literal 54818 zcmeFYWmjC$(k+YycWopP+@W!TdvJGmcXxMp8u#E%kl?Pt2^QQ5?#}I;=Q;QOhIfqj z!ydiY?ooTylAbl!tm-I5`EMwQ1c(q25GYcTV#*K@kX!#Qcv$cgzlH8J2nZNdD^XEJ z8_{o~4z>=?Dvm}bX5Y;0&77@Fl)s5UKyb&!sp(k~sbLFbw>QyKOoc3b|DKHc&XL+| zt2`UJdh~AAWcP<5#kN^EaqM(G*NTd5_qD`|RsdTVy{~*LW$QzykDAoF>MVw_s9CWH zCWPj3=J{LU93H~ocDAODls22Li9b&VIT!wi8!qP?NQrF>I_VpfPz(gMjQjIDO(O?` zgFLQ%elsY3GmP}{X>@5+kc7MaJ*#IIUxqi9?pq%|EdJIieuIo$4_mJ09w*x|gLuao zYSasa5q=p(STcS@8059h`LcsK@B=~vkcW2JIGvfq8fhTTKvNm}KDZVMcSwG(4Fl(L zxfajIQC>q!HX%O7S(PPEKHnAc63`;PZZo(RqL9!8^uykSZoAK*b57rmK+jj(`{No} z$7Izsg#KaHZiR3~4x!i48Rm?5B`|2B=F>@ZOlBvg3Ok+)Fd8AP}M$*Y#OmEs}7rY?JmGik` zI%AGJgoocPOhH@C(?invT`5nJqj$J7%2&@@hM^_he zou@zg4Gx#;4Gy`qk>BC`p#%P|skd_cWuH_>^!w?cGx+U>U*1%plu^yrsHwO}i$nbx ziev)9uidi)-U3$Vb?;$JFxh78A(@0KV0U9rV0+3X-#OoDGjLRIi^IhSHyW5$$D0J{r?7{{De}QyGOLobXTtBW7=Rt}3iJJiQLsk$MNy zD!=MLyb707`|76O+k&bR>9Ewk-*+$Apylm%L&>EC@yWvMI=n;A?!LSG%kZz(1r57g z+46ld_BHTj7r++mcMQSbjOkW7y;^WSZk#~fiM7gY{*iSOJutSnYm8XON{5TQ-&;WQ z_vcXu(d>8B9~qYW5cNK+-2Dzx?{9c(UZrL(`LNut)VvScEnm^Ls-b6IEGIYvEq1#u zAgTqvd)_O1QV$w$LUAvK4D@Lz5KLE*{Jqohw5QyFSoZDG|9E-x_Pc>z*o0^+_<;VP z^h6pm`8@#!2yQb?DRVhF2s-dRJOpHf6$A|U4ibD3fG-FLr~;_}K7rgSfc}5?|Gq5E zH<5;b5Q2~r6IS(vJk5n`V-UZ(Cj>%ZswxJ<<3UP6Awo%ankLe~Ba)1#eHm3#b-qu= z7*ldSNEQ?N>G54>h|5(7<+Wn{7e+?Q)uqTv(_F4r0JpJd|a9|C}f874pp!{Np+y*nlDDyv# zf-L~`KmMm%@Vg3NU}7ONAby%z{oj#6w{ZUNs14y$0|QyMFojwfQ2uKH9yIL#dj08;_7V+!S4W{n7Y!u&p}1c z4x4p>)7-nr9;;SmX5W^L0Z{y6TQj0)ZW;RCR%kAO*piwL)L{>zW^L@nfEWKylj9yK za-2@P!*PVooQ8MDCNTP5`#34%C6E5U15^S{g%Q6Ml)tY%&~Nqk#F|-xC(;e({p})P z>Edh{yvrL&4UxGC^>J6x0opL{7a#A_cFnUA=T{>n9(V@64KL#w-8%;$6V%rC=f53X zo4ziVP7Tq7P`PB_y{@uneP!Qq#`$o+=HQVOEY1P*3>T!Lz`t12JST16vSRM?a^6wb zaZ*|JCq+Tv7+23#$>a5E_4t3|TY(@K_)5nu4 zs=@eQ#Tc|1ykBS7CyC=;VJT1*B=FyZUJkf=j)&&5?OL?viv(|HMD<;GP#xdymO8*w zvUd7tV(9!{GXxd8T+RbVv-2ID<&##VO9tyr()y40mkurS%ppCGb+_~K;&^AaNnnVM z@6}M3=1)B{fwyA?AG>4jKfky(PaVAt7j$6I`2+UINv@P*HV#ZHEQG<>iQ8OM|2+@~ z(pV6VI0!tktBgIb*ZxDR)uz33xh{LqdnnS;m%SW4j6H-M10JcO&FBM&%(` z@Ot2RuGu#J8-W4&ZLz5QU5}O;^!^Yxvij{EyoyB6LcJ_Wg7>X2-~+hYg>L@r(d;q{mV6gtn@>?w@vx zfHJCF*STln%ddwyyUX)jba-I2-`{a)Cxr3~>Ge9yJxteg*LoPlQt+I;Y3;sayuhh) zpi>MAZiMRE3Pw7KtzRQ6)q_AkuM2pqYF(jH@b%bTTPxT72m3KS`}Xj+C{Q3Gzqh{z z9^5;RPtyVC55!7?(i1Sx-;4MeXzck~H~oDaxN^U7nheKErNvGr*!R4-le{YgJg0PA z_9Lkb{SfK`#}vnl`X8w%K|vyh>uyVTMHVPKKqJ|t`#&zzL6sKF^yCttrIP(!l8?4* zj}5OiT&*W7G=R=I$C7T79Usz+4%i)!s5%1o|4t4=!ysmSmnf_sM*LSQS9H?x=gk5`L@rb@m*$Rh4EyoMtG$L)wUsxqgOqv8bj$MfG}1zLk(Xc}v1 zbpUS|@XLeh2;A_bG*v|l>d*s^olqSmb1)|T9g_wH*aPw(2dN1f&GHFQ&MGlu(INm| zai3|_ov51N!zXFgSSa^1Ze_24T0G}%ySMYT{32hHAYHaNU-%{B;0xLU*Z9f*MPWS1 zDCHqB?oxzt>4|4H$Od`O~|Lo{{`@-+&si4uA?HMQ4MTH~o2-=i~c+)zOcb z##+qBuRP?oc+oU1&{4?lJv9IZqb0WGOD)l@RWy)y)q|7g%Q`+(R6KY0{g1k*CIKa# zeE;WTzwv(t9&H<1oFN!7u=rf#j}L|m3)V*Ps)Ud=&kG;_@XTW?2+liT-diJ#z>p+v z(>C)}v4xNNtYpMm!)K!M1+V9EDEtJ8n%MuY%Ah8rj8ySbl>TljY5g7|Xb=Z@C~*$n zFdGMG`-ty`y#w-IQ@RnKWvY5eXHcMw*`-BwL?tVBJP=ieaawcf>pGqJZ2(5ZyQ3EY zA3h_;s>Z1rdTwg`X!hq|+zQ{^n`lFA=mN0rg$I(ndY)925!o}vdB+ItAbQreA2`3x zCT{w_*m3QrsvPjx{IyH-&iKib;B2`Ri8ECTrb3C#P<37RSqh4Nm#Hf9S3OnVA>Y98 zzS(v6TL)GA$D)S8I-3A?nd-T`lCT0CmDlwc^$P|2@k|;yu_##&IL^!p_WL52ex0+F z$k8`j@PWb9=r!#aK;>;?_B)ob2P3t89LH}*fIVTRb1;}v6(GXPg0Zt3@K`*IvpXll zd={|Fbn`vizET9k55J`FwI7N3anm?)oz)OqL`$j(N}@{J*siq77iKWmW1~VRAlH4> zO6Bv;4EmV=Uc3+)bT`=1H@LKbr2#a-KcAgPN!u+p91tp<9(3AkI>URvkoHC^SAD(r zM-zB7^ceZ<@kl4nf45*iMwwA9>qd#_|FG`imkAIZWayx!pnsc}=lxY@EO=L;(0=?q zyEadNtAS#xWAn{k)V(^VuYN^qk_Fl!(pJz}^otVA+g1n~4|c<#qj{DURT*rm&J+p7 zEqImI{7y|sCU~`EromB~F0_}i_0LW`_fDh|rATA?aEc1xs=8_Fnz-H5eLqcu2Y?VL?Ij-m)sXxz>inH+ zSm(c)WOFN}F}RHVILLPB_C}sl&h10ldC<10+25moe*Rlm7oj9ZMSqGT6B@@IaG2|H zU-yG%6&zdETh{FV+A3(4@B7GM3zPqz?M8&NzcJ$c<2X?3B5=2$vMxvx7qWOzE2Gyuls3vkDmL=P_EB;JLB&CNhyI}-CV0HN|3NH#6y~= zW%P$(o>VQq6IGBMbF|1RqD()OM9|Xr80PNf9`iaj-F?a-+8g{kqs6H5PC`VSa!@D` zw*m9_Mq8(ylnjqmb+A*hY1I`QyWUQRkmf-B<{z86bdkE73hn18WWYydRZUBlMSS_g zNbMm{4Gf8IVHoc9H&EZ+acrcVVKrthyA0t4Cl`1$<$~-;7MW)0=CjUz^5m$5tY&Bd zhgq4F=J3cYP}SH^CZy=u%a$AneA-tCbO6GX=Sp-WfaTebrF)IZ2z~#j{o0|u$aV3; zJw>0NvYxda=R6PK0IbwUG#8#|xEwmLL-~Cs*8;A6h4m0BT?6C;QH;VN{FrZ2O-TFB=ctOK#8N6pCUd3`NB0 z5u}P{Fq-YNOD(I`^bcTe`*kutFW~*DMciD$v+on0EOG=qpZhEb0337A9Jz1X&RW)9^M2*HOdS&hQY`4(#AYaPc|()sgw<;ypv>K zg8waf9Y~Bo976zG3@B|yEyG^zp;Z^~vbK4mWU4XgIY{yZtaUEkAgk7*u-cQxmxTLR znTe*aJ*orIgi-6`a7=;8htx*UXgu%v(ZuX8!PU{?1c6mK%&tOcOXWi|D*|6 z#ectCe5l<8{*9Fhw(WzD5(;#cOQG_Gb81B{5@og1S>E1DUmP!Bh{U33)A0Kd9^?H9d zu!&O!(_*&IDDQ-ukKw#vUf;#px=^P#WYGu#i`oL7>FWdXprg048LAs88do2h_%1Uj*@01FV zZKEC-xo%`^V&k(5WRFT??s;_dbUrz&!%t3QPAdYY+8Z;e?YYaw%(Z4mV`hE({^Nl}ZMg}2R=$Kedico<+ z?XRBiTYJtF%6FSfHBIob$nF)K>_g}9Vz~z;#-$q6zphRvip|maw3?~${HpzR@7-Ya zo67;Wb>)UnwkxYN_wYsxHg=6$>}&bQO$0Owkv=jnCC6Y1cn7Lz223JdmY6Jjz&p-B zqI%6_4c(Df(M2xm(_7%@F6dUV3=M_ChmlTtn=(rS0H0x?zt@m@V>bl3Xslr4+RiV4KIrUqDtGpT}kf; zAvB6eU?3n4<>b~@s-o)k38z5v?@B*=9!fW+8~(tf6A8O&+(06)|03sAhlo#Le5hgI zw@4pK>$kD{j^|)P+Q1dpXs2s$L=gV#hM0zI&BhUaY6mGzza8# z`ImIV-yL8n0L}P~ZBeSJ;W3Lgi4=*UI=p%nT1yWEha4A_2Z;gOx?-N~)+ufEDH#-# zT8WLD4@uU4#E%>)1sQVB^S63;BJ`2NHULqk^Rj(z!W$*i8<5dFCW;wMp1{{AOe%?$ z36%fsvoFjCxFmVMjPUlaB;1VP*GFA4!oa~){sn@E%LO0EQR=R<>e(p>UcdNJsj*zi zCAHMA2a1+6gpM@K=utcE_mIl)bfIRC1}fR~6dv3sNrVF68pM2a)asDbhi?0zm7z02 z3!=?xq%%X+)W%KrkBA_t4kDQ;X9E$67edG6HYg%+biZckmI#b&ML%ZVhXv!HGCPjJ z&kLW9Bc^&-2mIss29zh6dGzb@wZQliR~j~-dF4mrKQqgHdAE%dOn=kHdB#+nMm4OQ zQGV4r=D`?Y)m(=eTW!!XJ)rL|hKl$!K8Bmm&Dp@p;wurwL|q3`>SL*)^()>}gnu4h zI{E4w&TC>jSS426Tu?z1mkk>;fLx4*0g-))ovhC_iRN;?*-^iH>%dsO_oaRiQ|56I zgG>&i*7OReZrk>>`A3CgQh!4--s(Lu-JN@V`90+ zv8*Wd>l}YXefY1ugs0OZRx#}OS+*B1_|#gu4D5yKJu=n#jK`PCY342K;76M)7m;tW zaNLx*n~97=u#h4>)UOTQBq6>o^#*=r!<>0?qz0eWnBaieni(RE(S(hx`ylaL-y#e5 zxBRwl>$r_>84LK{8Nkdf+^(=z%BC@AZfOn?5(b@nA!sO)R3;RV_gmEVxm3NYs=6^+ z0eD{ZdVqEi*D+upl}2bs$Z`fEP%$j9=*d_l*s&Oo1!Rmx4a1&h&*qpXurkk?!mzMo zp$}f5#~RQJd~Pe?GqG(JS@Nk}NEi!NpWW{0JYQjgU}iC-g8EfW)zAM&-2`#lbYjx| zq|X12-az+$th6~p>+aa> z@a(%TE*CG9<>*f9XG-dLS~CUEo5;BmgSGgtsheRPwI-)<@)JekV1#mqzRSY=_uDd* zl|IGh>tbKU<$DU$1NjZ`9J*n}7@xB#Y8r+K^c#@EI?zYL#hf4e z+Q#0ys1Q?;XsZFvps;b_E;o|yCH@_&DVD&DAP!|h%Zk!;>t%Y4N7gzNpWeU%v;pKM zHOdJF*Gwfg3j#muaX8sNqql)Z$j25p0J{|%Dtees}p*iEZnA-O+x!g}RNpKq&=)bHWvUOK5 zTK6VQr0lm&x|P@tov4?nMBMs-)y4-b6zq~w9W1D>X>SyKU|UhU?7E|VUwSW?;#{QI zw%}DdEd#8 z;P@TwP`JqNBbOo7vo?zs9(Dy2^e4H1%7@;S9|ZpUXaHccGaKzRq{U+AuWIFHESh2pl*$md^^8Hx2sTqFbXcUn8>Q2Hx~fNB88w$;T# zM1tZ}CL}m2rM70%{@`X(iZg^=%w+y$dr8i2)(OOUQjz; zOm$hci-D?sQhwon%sfarJ}R1qrX-+$(gO-INV@4EhFRtPk^AQ+Sh9^_(4f32n!UMN ze7w_%6VB~O4r>)b`3%)8BbH}f=LH$K7ZG%J-f?liqc%6qn^0eU+pdX}Zb4euL-xH; zjgWJ|P-q3<_`~6kJp|f(+yw?>(@(LI>Nm@|h`tCo0n4zj-&?qllc*2RFxAZk43|+5 zpjo)D_wY5uMrE}%-KO{-{+s6>*#C5dwfs$cQ<&c&j^U zYRi@TGSsH`6A?pVqMtjh_Zgb_2p}dH27m`$U^?zOA0LH9{oJQ1O}lQ0@w3SEa`^qB zwdc)FL02h!zw>Wx2Opc%-&6ytuRxM#nzs~T!1rM8>|OQ!2kuGgU;I0>F4O$2L6C`@ zDGs`i(StA|J>$ml)sv*C1sAF1DS&!g-=`WrNeyEk_Ie!7DF?7Ze&^QL+RVOU1j0-j zDDTkIv=k@EO0OV#rrPV{FXNG8`^E16_Y2bvBplIJu@WbXTWN~xC-Uy7YYlI{!#c!; z-oPrw0)Lti0b(Ca)+ECo+63WRl9T)&vHkQmd`O%4P|f17gijU%ua^T|xwaM+egGNb zoM=b!C!<=Djj;O>5&^paIJSi?dTJb-x-R#ZNRm)P11&24YJH;}qwEdvvrZ5jAGR>P zB+C1EtaE(=!cY}on3adP45-U-QR;rC+Eh!eDcDpOQR9b^S9Yl&_@MuyQNrk;*-V+M zh&^m#z*XZyb@`375}&+`e{2uu&!dT%eCB{uwAh=8Kq6h}KElP&(SEgPkI`^eDtre} zAOC?7AJ}^*5~?O4elwZ^>-6#Vz(o;;5N_VF9-T^n*+LR76aim<5j6)^`mmEqfD1;+ z0tAy~G#aT!UsooIFT&#SR9k_%p3@sek!`CtDdf2z7CPHG9NOS};WXx~X)^T%5Fra{ z|v3qEbf7+*gwn%9Fa(eCK(8Acpip9ZVHGLl5O!ibxY28R? zlVJSlzM+eqO+z_vsVepT;x|YCkTejL9T!zU{O0559u|WTO)1gUeRW1FRAHC!Wsx2R5XlnNw~?wP`0a9kd!kEHBbAg> zTP_^B8}|I)Aks5ob)M;|q>)dpV|rfJFZ#C_FQSS)e}?Ng1HZE9cWDF@(0kT-(^TJ6 z;c%X%@qr`<0fRkb32Ka-(}gH@O}>{DRAvlm7@xSsmVuW*zws|rD-8Vn)C{sft2uJt zc>a4$5~3l2`}zGUZ7MNonI(V){~=w#_VYXGE_L3!;j>Y0KYR2~1=HRxOd}k%3jKrm z(~yP>3d%(N0|zTYs55lKnXc!PsyD5+<$^|!aG5@PsahJ*IBi`ec@VJhT(Dq`FL`GG z8Nl8H&OuRk$@@wOnoSe*Q^2d>iB+t!CO5?oj?RjTU7Wg!Dr1YBG8l)!H<=&@dI`;~ z3V?;_R|oa3Q#0}@+`__~68!3iU$sD1fCe}28#pghu_jDU?A8Am8j{!gGnr`@GqR)j3ac|j0^uP(3(9+wNJ32nsQsO`JmYKBDdrIza00uzwOlUP! zn5SAH-+&_QDWel+5*KBSB=GMMWuK6xsBzvNCG0GN!99(5l6Yq(<@AqhWstiD zfH_*)GO)=x%`0Jt#k~K^pyI;8P~cbI$51T!%d3G#3r4sns~%Ud z!lcA|g7IO5FpPW4%HBYHzLZq%@nOrvo3fsBFuT^@8ySyi-(+2^>z$95m|RwEYYew*2ZWJXLAxUAwiB5)pq)-sxicTy{h>a&G|eHzG^i3j*gkY z^cB)e{oq^d->ikv9iaG|gcFrOOmlgsPZFBH**vOm*QlUeR@q2WERvRwCT zpS~maTSBSZ$R)=0)~XN?rwRUKv;c;GYx7ISUWgYeeE=;lt%KMPOBEBeI4CSHL&Dh1 zSda=gQ~k7*rY~KutRW9#8T-6$63n1aW6e&3*_Zt$_3d6xeZ64(9fQes3V&)8_BOA) zaCEieUc7|t!7$oz04=|K2jaX1*#JzqAPp_!5X!{ZpiR%)y-lQOZX|Qfv-+g2)%{7< zXy8ioh%4lsJEEW@w57h#_#zRBGFw&W+!T4PItqKjZBvO-X`?Bvhw}2gfFo?dR5tea zQ;SorBG)0h#5CrjqY37oKQXlUk}q-WLOXehDe>qv;gjqY0^d0gy6i^^U7$c6ryt&|=Gs1Piu0WOD^g zp7$swv)|A}&X(Ou=|H&ib9DI+#QAMbr!GbP5FY$jj-(?Bd)@d)uAKv*o})x(p4fuY zG6gvCR9aS*=dzD~rDcZ zpi6VCoRtHxI=hF~DG@GkIv9ZkEpH7WH9g)xIX*|YcU&DQQc5(Jt@~3Z?Zz7;%>-#Y zkKF$cMm}prI#=PjGYuyvXIG&L0!Xjp{+AIHIyA4JdRCV)VB7kKo?T?|>)uc_cVs@s znsXu_bZ7jhz0Xf92$q~miF)?bAs-;lc$!f`1;n$EUDx?rXd@=%0d~*uQ2|Ei;U_py zOTU~wm765&99?EyA$)|6%IjBPgCSI!YHfXNSEqt%zeo@S%k7Fq{+R_LyFaSj`KRq8 za#!Px7`|)y6twRN!wf*F$yAR#tvQvI#=&E?Wx6!V1fIDoBM1W3Ye}{Xc150kISOfp zR6G~t`_SX*H_2*-eZ}DGkDiZ*59O~-ih|;p5Jt(R{9@{Zz5@)=S|E$?Q0}ZWc4ZO1 zZ&JM4?&YC&E#t!_aQRTVw`lVEA(|^?D{FT_ysvOg0~zeH3{3P`KiS`eu3Y8lqN!x1 zE^ckXl6_^i-4AIbO0IFn(*{M1h72@+pcVTnMokklNx0H7S#1n zK*G}OW8!Fd5h~|xo@|A~Ft?|s3ZOzmc2u@vrrUIXYR)2UiLtpz!7yA5mf(VRO2<)k zw(jylEH+-iwxC@Mme+y%h{?TH+}-~>XlJzASB(Dm8W zwhyoM)^=Wx=WQQ3LOGiCq_PD1vbThtqh{9x8lk2(;E*e2N>hc%+U0i`fT7Fz^JBaR z?}7jTBuJS=rNK5%n?a+_6?!qq#SMk-T6r=24UZm}5KFvd1@LhI7l+8D4Bw+%2(Zj@ zi$GsJ`sMY|){WPoRl=4WdL1muY13(NS!w=}fHCZ)xrqJD%emOQ0_bQnm^`N?fAIom zvx*H+=0|o!Ph;qlZm`lznyl~{IA{*Ei0{4)UZGQW9j~~~%N^odtP1q!@kAR`KZ;o4 zk;$qz9E}!y3ID~cJy_jLI?S*`h2cJ4Jv=YFH_BU4Z8g*)^;G8f-C;mVURLu!F#@KPTo)iVW4gU70@5-n=>e(Q4uyD`4$ovd~@$fk7G+(I_=7`T#w zg*+bo6@%b+=fEE;Sv!aH#Z0mM8dM#j%-D;8@pe5OvVi^qY$TUiF^NeQBqpr^Iz<9|3LU=p4|=%XiJBjgV~Y$2jDU^ci|G-5@+ASAFQk;ilQ^OE$X zMn$1MHk6xw`pn}(>YF*4@d`e^phWfvzHXzTnn9cUqT?9ejaC2DDZ(%!1J-^Y-mo58 zvlHlwoF4fmjn0X?{&zLTx9Pjo*QY8(wF-uH!(c|T6jfX9D%sNqV$ZFh?rL3pz6tei z5hCKX+2Czl9oyNImhoPKJjmFiOh%4XvQ3QP?BD#<^o;6lvc>=;(!qvEE+a&XT(@)! zcp9w2f(&yJQYtxZV4P;>#7!dV*FE%}H{tgEJ#t@zLH;r!VQt7VqwY{Rwv!2f)XLQY zHEeYQDGGUL6jDHU*s$)fDHZfc9M73wLL$qo_UwU_;+6B1KDjyLO1Pkry*}`lB z7~F~ruDmbBXIm+@`*zeF+0QS-Kd&|!lSX8=bd$M4u+#dgUmP}d0_Y;6z@VWTCRn4HouzuDk0DU+MF#%M)#eu} zLekOz*8nOy_=i%b3TgcG7tI3fUpUBWeIHo`jdjt~g-$!lgN83+-WjW-r&=|h8s?1D z1`Uyh&87+lcvyqXg9E=JLniwIlaIeex11 zt~s$tdj7ixMq<0Jvi)01pi1qqxtH*E1uH*8yI#l zY|AgswMRLZdyd4HrYvPqhN=R!v5ffMh=aP51vIm2o^Ye5-W13vNcd7J^EG6?n)~Pe z$FA-r7=qzoY@3U&hx>pLB9~aalzX0!%F+bugkCJ4EwJ6+ICSMXVvRPh*iD*@ zN7Et|zq@~@gM=zu4T9-?40zoodD+t{5U!4&b+(rngr?519CTe!`c}F@hxJ<;+Takq zO21pCZC^q&*G?8>{_^JhTNuPjlLQHUwA^6w_l25W^GSfII8kjPMZPd0*9=xemA}MS zQPqDSS%FWnv2Hxc(MuD4FNpNTG7>4}eU0zu;SkJFRvOID>!M^>Edp4VfmxfpJVB zNMyKwDp7c^8raE8NOz)9eIJ)!qbzMP>C>))SV&V|xYH`CZ6al~%tm=PDKm8EjMN8& zs{P74Z;mMV)s3{HF!J5ucWHgnH>LEhqsf_lmaFD)7bBzut;BH;tGcx1Q-Td!c=RGR zOAt~H#zBd#mYP;68SqN=pqRY76S@XwX$!-MVa}hhk+}n1hPPx{7-a+v9>@*W=}WY7 z_H*$VQnESh4NAmVM>I*qyUoLfr{RbF2&iejJvd>PTr6t6=Uz_|Vnt`7xEUCvaIJ4Ge7dN);ULwN2^r@N|~(S#M$COvYgdSX7TFp7-hDxsSakzU;*25p%V>?F10q+mzpo zVtP@S`FK8wJ%#PhvUMDUKtxAvRYB6_tKLY3Eq;ZjTAg{_u0R<1G$4D_AY?gw{mZ=W zt5aky>)@lLbKn3f24+INK@4OuJ$a2wn4L%3SG1HT^VEe1twkG>7Ol?C{E@SqH2+5i zSG;Ib8f+;x^>9#yt(Hc9;O@O=1^k5wXv zcHy*D?CPKC$o&hmqb{;alkVG7G3LXWd2)b;kbNGabiFWP4lAdjTqXY1JZi0urNfn9 zvDs1tE_g8zWMGKtkcJ*Zz5agoc@==KtSNBi;2|oZ>Y%sDNcHE zxTTAYsjN1h-{LQwO>Hf>w)e^C0|tWa~2;WqJQlB@0o7B)5p z$b-Z7N#5`4^(gu04Uq-MoAG9Y`NF>X%xSHv=kgqSDd?@Q8;&Jf6$!ekdW&256n9)8Mi_O*--DqM#avR;f|73nf2^K- zC-Ni;Mz`3_N`h9^?5baPz8b>wNO7Isu{Q42gq?Nhqdd+36G5ief@fKGXcB< zru)^32m+dlS4+w+$}X6qf5|mdOfQMRQdUW;W!-)4xf1sw`;i1siTd4eraHDgLxsBk zlJLS7oV>j&cTJOMqIc4|vkr^t#*A&xeB;~OTpl0@ui5MK;ghQx+ubYzx$QBoKw43}YJ1wK9Dx~Fycz^>QnxkhsC37J#3gCD>SHEQ*(xLj_X<{jJ$}Z0srd02gxoPEAaFm%ol@{w(MRSTm=B|e5o!hQQ;&gTku|H)W*7&?}@@vTaT1y;8gF_Y@X>76PF4I;N%R2|G2L{m!t z{pVudxE)-QHg&OE6o4fI>=&b~{mn@VBHyopqV(>s6zQwfge3s5naL{~eIKtjAmL(i zNQw=ItrHz)Nl6R|0%wG#V&HZgah`N0)8i4Y2(O3LKv_J-dzKi5Vys0qg{SXn zH1M@A70;a6B}@Kh5>o+L-Dh@iKQmH|@+`iw0goY^Al!&Ggq0av;LxKC3vVZxD*)&r zcK4jutfIv2WT@Qx{#Ci|vb{gui32tV!_7^3u+vqH7JF=}CKgSm_}jLTtQ&m<;3wO z2JYHr>#CYgGW7dPq7ish8uB?3Z5BiIy;NqZN#cD}1g3*?QaS8uu$wky2 z#6F#$i$A&ZVz-_Cz6wtkz<3J&igy^+DWHy;flk3Q%|^$Fv=eYagZ4&%#mJ%^btbi& zWm9`)YcpNU>U};@E5-1w)C^BpH?lov**c+*N z`H~~nw1nNvx$Zh&q9J;RoP-#vXGZgV4i2Yy_6NM9b2GlA+wfQ zl2}R>d|+nk(l{MfEQy_RTGSZQxQvxlEVtcbQU5H}P5pzNy8hho?a}SLf(KYL2cd;a z(0=>*gZEFK-$Y55%wTQTIlVG^N@`^A0F0w%5x-D#tcjfcYAvjbx+ch-#cLu(#6i(I z;T8k9?ZG`fdf}V*R3;ZQ2Ir|*TQ6(tV&qrYm_khd3!VBzk|^^nkUyo!{w$M4P$Vhd zL9E?XB(*zpyr?nesu;h{iPrAT2j_gCLXt5;y{ux?PooZT4(<3lsT34+bUb13?%cKP zYbwbm$Pw)wNW4L#a4!s?P-7BPGs_PS5&2JH8!!Az1hTiRdT%4c&Kl6Ly!d482R+*R z%ny%}wzD1NIUiW<$?WF*Z|l8D7Rcpl)P8KW)qgY{3!-A?N$=q@2Zsj>YCN0Q>(8B* z<^3bZrIhnvRMb6aSQ~Z@9z~y#lgZOcQ#yH~MEzfrK0*<&UI)X@VA7z6$9dDfj$tEF zMcqP6Am_bCJyFSx&!wk0NPfNa2wc{}f=-h=K58vVvCRf1RYP%92d-@Hp#}ClbX|B^ ze1eb}FhyU?)51a2m%x8ad~KKxZ}2}7iBCzIDS}~!hgHE&K^S6S7qL>FGa7iSYy=h$ z1R;^hQZZGFMfX!xOo2W(tSUvw5qPHT7+w6LfK%Z0;%<=~FFu*xlTh3*K`XDZDVXo5 z)EnTW9-sUuKO$GaIc!u9+)5 z-xBpHldZO2bcl@b!jo2GRgrUc48dc_X`OM9M4Fd$g$MaI^9&ZMwR=*BM`JP|iKWR* z;~12RB*fX0kYFjIOK=D1Ip`DZv@HCJ zQrvrh*9AwF^9U!DGtCKyMUWGynrZmGn&xS^kegs1_`WQd5YFia}(9a*@QNi1)0Ajaf8yhS*6nQ7gR*VsnC2;ooBXwMz&jON#3&*Y_a zOv;CLMYfEvbx6{{tYDJ5823)sRKDjOj{p3ZKNl#2uhA5d!mq9MsYaw5h%UfH;tb9O z*LfhyVjKaHCCw7$O_SU3G1w0f!DTM$_(S+<)Ns(fk@$*7y;~Z4FqBM*R1DVwq3QI| zWM?3{Dt<50N@I)oznKpXwoIA6z{JKKp+A~wUCq^Q;+W7^pEK+Gk!J`J5ESHp!QOJ) zQum1B#XB#JilIsL1CUb+^^{@na^no+Ad{4k+N9M2}#fln!Dx?j;oEO16cW#BDg)9WX-~ ztkL`xmMrMy(Or4L!~amiJ?=PKBSlT z`)Udl5#%Fxm|a7f2+syW=G8li9)0pZX)gI3?GOA`1np8813)!OG?h%r-V{%~On#(m zUZE%Z;6~f-)BlP{k(z)?bm1_3wVaNSdp~jk_r|r+eCb?*KqL!z(UMpA%Qa^hs}J>t zJpq|I26%BahlURI?y?RxqD7-sA)8tvMUEU-iXS?&z#jy_LCeTAjEJS_m_QuQ93D9w zsk(~V;uiwoj4n_cHYe%$DL~A-C61_@X@2>mfwb5J2|tbJg7N3-v7ot7qF`Z;>2#M3 zf{*?vOV4!Z>v1U3IP4eu$@|-cReOlbBB$bM0Lc}ebkjZZfwD;tsn9G0oI%U=jn4?w ztTp3g;h#}yYWmUUc&W00v5ExYtUF*-JLyiZ(lzML?9K+%5B{t!SzeN0j|QoRerJdF zWR|Mp%0x9LD;vN=U$3n0Vi0X=K5jL7-zswg(xQT^B)DZD=E-S@=raRN!R;3a zW59|um!zc!%oGQ(E{wqEhBNNu$c^{MvUC2?z{hFH(6|=q`}E*f&Aq~G@k7ZJf9JU` z@JU_L-LMlmu-cyn>m?g`P)dwDts^^#oc7G$D?F0{STU-y5MEh64^-?&%+%ml6y{2$wEesNf7pA=pf0yI{#P25 z4(XPzAC0tvG)Q+hD5)SFB3&XN-6h@K-3`*+NOybIZ$JBa{%_9Ad41-b7tWq>-1oh> zS?gL?e!iZ%@U-k)`FNP}=kePyS8VEG$?2)c{zpCCdE2hU`(hCxDo`0EXfcq4`88}g-|C5@*W&pd!Y3UD9 z&l}ZYaaa@-6Uq$}K`m-QRGiF_B{|lP&r^BP16!PhyRG7!uf)Ht<#LO1aFRGQ`K)yB3$mCj1rw!43NLAd`F2NDSS8Muf}#*)i<3-fW#_%D`wrzSwi$> zK$IX^mFG-@T#E5U;+7oAn78tvPHWOq6DI30poUcD zC5c4*$l_TxZuYtaXm+&}fT< zZc8f-h@irEV*`4UXXis~^4fP1s0|z@tAu9j^Qh$Alic$9FLM)-za2&%=SL5#YTuz< z)k%qmP;`}3)jZJS@N~GiVslR3QNrx3cCvOS8TAlBYtj-nIZ`*i>I2q0Yx^D_BBV1l zI&Mbse9ZOC@4Hip#n?6U*3-MYqKqm^TPWu!Ht=&jq5_T6A$krR0lOw7de zXw_4uGTy+4TPn_v(37nuKg;c4RwR?;?-zG4?Hi>WwtO(^i%fAKdMgcE+z>yOE6Zuw zbIO0qf+)9mvcbes7Si49HdFXPGdEk%(Agp3$3QABZ>a^ne*Y!;M2tzK5D!)>M5HOi zp9v(dgds9RlAE|<#}oR5rqW45ujCOeS5S%K)1^oV^XL{krd3FKysnX8*LXL{O1%})%^X=6HrrY#(_8Dhk?OpB!C^Amd!zFEfE#o?7aM9kf3&2 zU8lI+Rq{dj(2l`5!+`2}FTYUX8Sq*P(^2jFCKB?;o;fW0&^IJyWl0f>c~woB_O*g3 zFjp}z#4YDkoXyq+tku&by;8C%w?pYj z%qLMlXTW`h$PdUQbsn?0f0FL9e#1xCY zg2W}>+*-{C4A*JhTSqAv?<)2!y(!HfxvaBZ)a7zi$@A&o-icUGOS+T>+bQ!~rCGs_ z5ajhYwCK!p4WQ3Zd{sC4p0^>4nNHD#K8z^VE&b`;=1e}Nh%pA@;Z0;jbZ@VmikDN6 zxzV`hrY28Ukz(VCuwvZb`7IcpHQ|?D9!>!caawsH3b(s4@s$3FqeS){; zvGX5Sjhr%JIK$GeQaSR40;wFG*3IM3k~wmWrmO~y*9OEWs*DxM-*D=8-Osk@AD^{U zpi#Xw#;s{Le-vE{ZL;QIS;pKZjqDsA2v0CbjYu)(94wPlYkjW^(@D=R(VGBIg@p@$ z#%G}#@NgI8<3}k{u#ZirN(kY9r`)NMfK@CSbh1~J|(e-+IHI4=;=Do*8y+Gcb=4ZpRK8TX6YhM3q%72ka!DCxU5H|uc4fzKW8*wh<2 zx%ao0({W-L#qpX{-c6 z?z9m4dIEgk1zNER0nAWc3LjUAY@x@2o;L*r4uwqNqxjvssFg&X(JoRU>}*j=Jgo@G zO1Aq|_o>QKkzA3egW{BJvYbp~v<2T9GIx*DkSU#2ELPqdc=-*nLtXD6oL`v6S=n~MWZcl}9TiJ*F-v(-IB47~C`|H!`;Vl9+tQPSwlCX5=GmW`CZh*LL^&}*FtNPk&`Y}0nNHCz zgL1D!8jB}E_S0QGn2Y}4{ARXTD)p0LjggpDEmtCpR; zytJd9DOz>Do>d(jbQ%ua6F2Eu*g%U@D(4s7_t-%VoGbOJuR(t$&PpK6rsl3)9=|v zVwH2D;%=E<#baKJqJKp`>c#8e!%I1hfl>148}kuoT%Jg#%=@i4gXJBq?qHclejbS7 zkXnaI$->} zSG5$$0pGOS1WjPu#hKZ@G6eWN-?Ls%7u;NvySF3y%!h}V$r&i_i8;+KnvwUcJ#53H zgKy1KIpIQI-|NQ#F1L}QX5$qvY*ienQsl8-y~9uc_?)iwPf=xrMVr-vlaiSo_p;(| z_2Y9^YGs{|b*Gm2vbSd=h4_2ikkyhUT?)NJ? zt23<*Srg#L(WB<(WOHD}!9*V769`(B)UAi0Nf+p%VFW%P;bgq(&hYZ}uj!KJr`LFT zgu|~e`ze%c={TBgfYZq_7)x_Z)!gNabz^9&HI*T#Rc47_;|qfmAJXPw)Wp_ulX<-q zHrP^TR3-cQ`!XjWvHggc?|&ASsVK$ua^m?r`L+9^>$;o4=y>{9#ZPBL)N)MbEpB;N z0XJz7%k9t`^ffY7I=Gk#jYM5(q=3;HxXfM6>{xYJ?A+H<*9XnAI;n2HNanV)G1TEv z;<*OOnG;q%9YII&8Nia|m>U(RYkc~d6l)c5pR&WOtgCV8zvbj}bM6^g5AKC;1G zZ$DIWEjXT`N*(2_Js#3mIF6okHrhrHO@w7-FU~EU-rrzacun@FzhJF1oPwwHSYgy_ z{=gIUwY`kP0)wbuQjSsV!9&w4t1s}_S%DU38?}aydo7zuA%36tIbEMo5>p}Bn(2?& zTPS2AJx)cvequZH>JuGyebrv?8m&U|F8Sq$6*<#32b#cJUUGFfXZ=F;lY^iAmYGMH+5 z+!Lj5CUKfl(r1tMo6TX?PE&S-(;Kwx5`dv z=r2vw%4lECJ%P;hfKS+@W8b@c1p1kJYSX+wSt2qeJ8&b^dFh_^%vJ^to4!m5&*s4j zJifHklDGU2aP|AW%@IJ!9C3@o#d=+zP5FK``D|v4D9A5v@xDuuKlJdS9l=sLi$dKD z+e>Sp&j$xR;PhEnf$UJ+XV)}@_t_W@iHzh-m^Q6lR?f=!IRa7|HNt#+a4V4vG%tdR1Uz4i@VV_1g5 zF2IOj)3oQ%&3c*fcQ*yH!*zP*85c9+7HXD*P$luO$tFPca8yZsaemP2&NcU1m9#S2 zEBEngVH98F*m(twHaRvWkHw4Eth}!I9pLp4dvJr9Q602Jn;%v#DX~Ue;!mqca>e-W zV&HYmY=!bh1j68YL=R$|Om#on%X&Ns6!{oba*c+8MNqP?vW&! zYc_Ua_O}AOvmm>E-nMsC?whjA<=?JT!eM`wv1C)cHhbH63!R}>5zEA`sZXxhr6-J8 z?1AU$*P<&UHM5SAfl{2F&+f&4{^}yCfW^%&r5zAOaO)R194}SKXSKYgR0AO&NKpF* z^3yo^aUWOUTux|`_b42)a@bmXplqbIr~>Q>}zRBHuG4vxz$ z27FKXRNA9nY?BAcV@cOi9W>X@8iy)*OX2B*5odKJ_dE3AFZ82NOE$h%?)#h=LKokA zn-;iOytuI-G(|is2)VL>zvh`^rlm>;VrInQEd33L<0YFB&%a9r@_#UVzCy!3c+z}i zQJP}KB10`i@!sQYr=a~^L@!HnJ}T4NgDL31bp*qAX)_)YD)gf znQvin#58dXH%6q$;jVM+@)qumsio}?x%-b-X8-xpdaw7FpqKFwQAh3rrda3+x}?tT zbhhNJ>TQTQ|GK%tc!vOCm(lJ=lvRx;Jj&OijY7HVy&^qE=TGuU`@bZU z=}??CzfY1){Op`u_pS&RmiDXd`RmDOgH1E7FT_7t#$v=Y*4BKMdm>v5b$0 zFsu{y-d$3sc%1cnAsFOT1lokbss5Pvh#mM~wnyTdVcuq?7uWu5_LvBVUg9(Q?O)@N z{LhIaD0In+BE40UTtC*GbXarx2aqLUgY2COelF+KE2BpZz(=E{^&Vg9tl;SkaE=O2 zrp07`Nj~s5*vpQs>ac$Vjc%(v^On@dZc6t_x(nSeCJDOS)yp%k=^;JL`APkzT6`&v z0}RV?F3L%ag>svN;wm;bKV(@MHZ@y0{s;`YVxYkVV0|ME_a%^gx*^zByuUwgT}jgy zCs3HhVlO*Eg>&uLlrBQYqJfewY&XJrufkx8<+eH*M5zX(Uh@^cT)#+nHdgH(cBH}B z4~x`A9yb=Osw)LNQ2m}ds~8P zT(?I8h#M9JHxXn4&P6Mo-9x|d#(5y+Yq}Qd_8ba>IuM374k|~T=~6!bu+X2SUH^oi)k30G$$Qz%vv*fG=&AEnwdV){>Y=k z#X)Lx=4?fG8~x9W`tT1IC#@y1jTzzF?eqP1gXvOF%qEZ3HDdHQor>4d z&jhM^$Gs3`hpI6L3nMQ-G+PNs+Y}i5G1)p|gGbaxc_D#?J%9!gLJsJ#L$ndMBq9EF z?hf*wvxo*=MFD5IV0N#jWQpFqdXTm8<|F+z6m@cJ^ihuDZHH7EN1*$=wR_tm!teIa z*gAx=I@6rfuwXnsXY~aTt48dIbCP_CNe-GS6<^5kBqW42qkxPttr92_E>%`&xgS

oh%zPCRRsrs8xOx)2)3=v35uJ{fEJ!OM@DNS4W+9W*&1|m4F zL+si6+8O{3p>FBRO0yM@B#A@UuP^b5>2m|7use_6X$i7m^E`aw6-(%xBJ2scO$X@p z@`s9y#ZYx!;&vbaC99YTiGeV>P~845o_$ruBV>(PT>fEVMwK&^ zAfG+7i+_rMm2rrgdtB>LTfoCByJza*I1$+~Qar>=55U9Fk4(mu*h2`cOCg-vB6P;;L)dn4t38s?snl7HY+)?ta9 zx+;7)PyAip`ui&XvAV|Yu)O53*IBPCaraYp4X?1WN|%h>3lD1@WZ{)WE|YI=Q}Is5 zvs7ecfUHIBvGFD=k>#WhKnSN5S;|V~Nr+Q(9+jd+Z;yZScr343yWdj-s*%`ozqXra zgs9Tv7i@b*ll}H(ET%YHo5hn7F}zt3ZVvc@uWcEDWc$|9xV77fAJlWCVwsV6x-V87 zswZQ^P<;z16jlGSsKSR6_Cp7*%WO7MHU8xD0|*uWC}^+WT$fbd-^wqLwX_f>q5hFhf}Y z%ktWr;!P0pAvRW(k~@4^dCk)TS)Max(cc;|%ZvMpd%Fx&0t*}+yXI=}=W-wJr2^a7 zT{m+c9;kkVqFlT1eM3%B$3%QD2Yj~=OHaHJ7Oj%hKFw^=)Ld2J6O=xrudn9I!}*44 z(}q7yOt;)ChN1lSZtRW1E&6NTTYm7QLl0+e*a{dprpX)qZFWnmjp%vwzav*_ubDfmdMb^6(pFuraM5!Ils_#5 zNhTVA*H7pw<-+uK{13|O7vd9~j&wPw-TW_0moXf?TE?4gmYJmW?^wmFXg_Ra}hhLszl zh*_rae1W$K7O7S){clhw--~#5a&{2>{Oh+FtD)}@De_b&vVNwLcBcxba79fF``f#6 z4KJ|fiI{rg=?l&Mu~gawur)#z^VWs8t@8;T)KHW}YwOtnlO*70rbYn}VB`A_>T>0v zi+wqY2q)hJ`DY-BW8beK4NW72&WeD6wLtQtg=q<58!lx5Yx_+fICKJkwHqi`medtQ z#2u2(dZqZ>&CO82z@SJC7gKYOZfPd90 zVU6T{e}BE=?Y(K|eXk?*09hXM{b0cmS#Sp!iM+}JS+1Mld=ll8GK!qdnnZ?AMTC>! z+0K#;K{`>Xp*FYl3SgC9b3i|vy+4%y6$Kce4x7;1r_}(MXDnJ)DD_Fw@`FS%7T9M* zY1y^Ey`vSao{9<{zZhQo)B=1M6q8#IFkn+cfUkQ5+_4k^(COKnoXKO~0B-Td<{{%Y zv8njtLiV{k@*U0@S_WG{N^=l-I*nWcJ!X$uwLvceQ?}E*y`a5ijo_qBdxHM=FV!d^ zNx&sp0*~GV)C8d~!1~p3|JLkG6VXd*yWxRCVEM%TCFYCz6M9mb;`fS^MxNo+Fu08(}KD)QX17DKg*j-j1&#~$ayJ6;!AnxmK8oA`T|80A6^7px1xi|p}?<#;kQKKz9tqs6gbw&V{PT%%&TH{MR<6OBr z``fEVLRcua_kN4bdk+d=WpnHq3RgRZlC5~=OmTXn%t40@vDcbEz6Zw(wx%*D-}iAD zVy-K(L}~a~EASBT+Bx?Ac#KrCZ`I1U!{{htY5EbgCg<6StTDm~!FkOLtr1~cu#x6| zj3Ean@4VBIK&3$YFDXBwU|9Ib{>T5Irxk_ZKUS8yt#rwl{^u_s@W4!veU1F6_AhDt z7a1@Uh1c>$;{Vz(F(}fT@}^Jy-M{4WeZX3-`+wOZAlb-GAhbOKcB((;%C6-$cjG}P zYafb#ZdmD&fnwUl0@|SHv#a?JrMcBDr#-|=z$VRIJc8fGs`HYQ#$UjTD*e(+?(H#I zc9rP?FRbi^RRsUfM?&R=Em9?SKVZLpx<8)ry&3g>+5j_QFxMjj$94WMwfmqD%ugEn zt~tbngbt;xPYp?K`}vQJ(8+yUfQmjn1xJb%O624tI0d2H2ACdWzXl6=Jptvmc`QPa z$U;vy8@3bDbWVV)o4+F|Y@~gO?>xx~Shd%v+Oo4ytM7Y-3^%e;RWu)N zzTtQ1ydS>odvNBDz+HHG-wLrIxESIbJ?QS`9O28_@a+4gMn7RK0olr~O7ySYxrKtw zMVMJ={&_G5wf#vuQlp*Mc~S%(TZlTif}3>!E^-NqG2vNuF&VYrN&ckJT08i}GOCzu ze2sa^?Osit6jI%KN{%24JlwZS`%I!T)oV{_obpzN%|jCH_AV0$>W^Mgrpe z|J|4nct>b1i4~$v^*^tT2Q1E_bMWmy+XO0ZP!B{A`0xo>u>QAxVz9W%HM5NWxzf7O zuka%5XVCxFj|LVucTzF-zsIsd-~9i7mjC~=p!)uQd$$o(b)Wof5a5tzrW9l;2&VA8hiVX?+b3?CV|~_ zKaZ53x{lJ&S&atZqi&E+kKfrzmT6^^QGv+$@E-4k&?0#a&}FO0yq?R>WA;V-6K}IN zUrZceF_CP5OWvWh<*oqAI$Ht>!quaed)sS}%5MP3h9y$>gL2Z?#ebhj{hud7m{#O@ z=DNa(c}sfJx_FqNVfscwh!F55$))BmU}z-WO6hDG3d$B-pcWM8g4Lv1WZ zg?)Fq(qhpTduyzYDQ4J)b@Q+zatx-Vba+8aTpjeL`6mPbr9MX;o9bA6X$+UkVz&U% zBdF~lRhAvYB#?uLN=)3`1G@1VxDv^(gWr2}G=m5jo&D?qa6IB;YqSZ0-UhI0=&LOt z9ykJUZf6kxxC>SPqr>o9%fe~p>8ke6=s^!A0X#eu9^FfRk^kP4Q7v|sO&9=NCHRgZaD}SA#)3r;=vMg$!fB!V-hpuf6PVjp1lP$DS zP~fO8>wdOZcw1%D%O6i2*hRROpW@Y6qDKDBi(n|E#Oh6N7~w_>z%E6&{RL74e6(d| zlVIh?UO?%h4vE~O>?E@Zhz00}{cVH8z)h_+(`1ES25sIyq-js{4e_l^kx}7bL7bSH z1bD+srqS}-gc^56N^Uha9mTryudCHGJkVzA<{McM&WVPL^JgHng4!cN3gJ? z&FJ?EdI4S-Hz3#A0JH&SJVBUMtbvdcSp8dj5CGp*E-fD2I@Oi6hRTXO?k{!FWa@1& z_yXCacgBV7(fh0AzdoFZb_wg&a!sqMOml1N z5^mICtZfA(<#(eqlfA(wTmo6l!@fMijG*(mQLo<_-#Qq-dA>VxaR1ewTICW@|H3`8 zr~v>xWUg;EA{*H})?Nr(L2eg!gm>(zk)l}dU5mUN(&|91<<intIuD0wf zM{j&2g!YWt@qxa<>!-mdaJBRH<`(icA1KBP90J_{y;!y|4-k0Wz2WwFxzc&#yzFWL zRbsirgG3Ne#6w0kPb&tRfcy)IuwTZp$Buwky16}gZ($M#m%3UVXEFdWlbAC=-6|pK zCC5P)A-Gm3MIK$?VD+W0{hPn{-^I`!AW8&(K>NWF4-lV$s?gkXk%54r)HUMfZ_>&` zuEhaB!RA3D*T_)nU;v}~%~I9|>y>!|Brs-|Ksn$jfY{bv6DhGNWp+29!ZfHK~N*s!+NOZg*A=R!|&+x!9 zDL74youx6ejxh0(+eJKD%{5uFto2=?Iz~?r1A=4L#)AotdGO4AsN790kdnBoi?^o1 zO3ag^SKRkyuNZjyZIoPr91~1UT7eMd3Z25x3*uU3ZIlQVr+8pYLV*o=3o#*pFgbOU z!vYWc{Eya#;Cj>f$T^dNdYQ|oM2OMXYX${Z_Cnuwt}LJqG8rL4a8fod$2q(S^ix88 zi<}dfR(;{87^hzXhrx!@nmpaId>V=g2P6`zU54EFOcuC+HR+K&hzOo;l9R^__oJq=p?!wAWz+4madB{MNa6EVYc>EWOI8@;-wQ~@!&V`Q7t(e-? zrv-aD5TIm!$@+{uW?)q)r3kXanV1AZ{CKgITa&!VhUWes$~b@bouAOKA_Abhg1XKTo8~HNp^CQ3(P@g}jRl zqY3N^A5L|9yf_BbTzE{3$4kFSJwaiOtuI?+96w;x#SF1bX1r@tZ+q=|m#wCzAgw_~ zc%^nL1{aT4MnE!znL`u*u`aG?8Zx@InXdJY42Z4VF{#gGGL_W5txbig9Ec6zWOI3c zM}FHU*%XYmZhbaUdjmM<+L5i$#xFcBjJFPa>mQJFtASpJYj+V8A)oihpz5Yq-w7`` zmV{_`yh`}9Y!J6WpWv1P-x~ZE&~I~l?tZG=-BK3?!UNS8Fbi-czpu+CV#0jl?fScS z8Qr^X;*!*+_qw<5uC?v_`wXZZr#R~&Jueay0MofLWJ9*Aq5 z-+zg>T#f4ch2?96`6h{Nx5rN3%wWugVgZEjO*4!!L%X%~V}#t2qMmiA62AmNw=j=g z#Y|JomH8N^)FNDuEGDV?2o~QjA~vyuHPSDO4t@b|M)$KKV!t3#CkuESdzNg!$-K}0 z5Wz;9V7FYe7tgkfL0QniW|^F@dUp;o5ND}f_O-$Ah4|kD#uV?H@m*166D@Z>Rax=U zx_5q^PM_k8f|-0~&l}hmH4^q-SG|QU)g|-GPZ9dq;~BSyFL`=PeU!IW>k4iod$tp3 ztxMSG=LnCKf^tO#2QP?5_2bFe9Y&%J(dqMp$0~Y8?yp<_HqVgRIjsh)t6t6*_B;N* zOQb6)3cCDqBaX#I*Y&Wk(RwEAjTKsUrw1e?nxj3`-vW%}E2rgbi|}&(zuYKv<8l+O z4*~Jf-i!5w^8ypS_+0bVH($5AC_Q*<3#nVuBL&Z-*kEm(KBjrRq1H2c*3t5^o6NmKw-yTdg-{(E^s@^?yvw5vy%xHoHLX!$E`uOU}3-o4D>))eY zzOORS+{T@ZT2n=8c)|jZpt3sCJ9VI#IH1DS!Axp_UdPEb5YUz_avPOo`iDiYxYj&0 z9=E}{=Fcme7T?>i3a}*&qb--kcDJz%dAO9-#xz4MkmZ&JN?N^}wI1D2F;>3jkjjjN z>}!FHkBK{!bXuo|Kf2(bq*3Ezk@cF z`tCp`BTa_}v(*6P*^U5r*Ve7)lWhWC%ow<+7Ji#qmxglCZ@epYAj-Y~-Nr%2vpWMi zjZtD#<0a@C4Sa{azQVozglhOOEyUj2FYY?+RMiZ|lKqGF6d=H5UYa@1sY01MxS zPs@ov+vj4nU_Tc`mIG{&NGhf9RJVNwwt4f`0=$fEinQat0XgU3tnJ@_ z%@xYD3^3gT_sfY_!(8bh9;w@IhW_{m(D(l#5yA5_5Md*{BvW$T9d%dr`AP;^cJK*` zH+nOt%_9cY5b9a;IA}meI$pviJy{QByIN-=5+EwIoa*pc$oUIgOImAfN9RIXl%=0+ zqc@#hF_Ww2E$Nf#G4BaJbC<#Nh$C;`XIwXNXsHye)fq=EN9F7ggT z0P)QvQNaQrTJ*yf4ry7WOdk&iNR`1t^OGHt3CBw1y;GY&!=aHkN;JyP9bIe3l|C^7 z$3ktyKrUI`B%D{G+v`h68^z7nC!of%Q~TMlCH_-8^Xquu^XSG5XPKC#Y#RqOUnBAK zHz+SQ9@$NLTuj{6bBi=D15?auyIvPsT9yDL_wvFE&K-+X*PhTUrTtwEV^|0(mE}3Y z((K#9{TD>n(IgoCEll3@icmghxc~9$Oc{fc^E0IxrH}06+}}K7Md9EAZr9<6hE2_f z`MZ+;fU&B^5`x6hc-HS^xsnHsZFP#6Mwd&YT)U{V9&dPSMi}qEN|ajxp`{CRuNWfU z7`c}XG%@rJEm$%I+2X;hk|LNy>%-_V42>8VgW|$A0&lE4e{WEz_#tcKZN0+7&3yvy zuUnk6phcP!h*LGbN0eBO|3DPZ;ZEwA3Wl3Im6voP`8P5Q+`9f7CkY?16B@!0mMO&lxKVs;G;`|=0FCknOU zP7_mD6}hiShGUySd(VD1A)Ufz66xXtBvqy;fqv4!Bz1YBDfYd&f`SlsYhm@ zS;)mJzSkCfuRMMenTZ*;+$JY^IPO?SbT{PY=XP`zd2-x*?MdT&@}JXK1i|h65z~5Y z!f|M%`8u@cG?=g-p9`G~NFT!36$EsUduOm&(%J`U7IAiQ~rg|6XPI zg2`a4NdW4-x(?!BY;t4bYgaba$ z73$_%1nP^)6>UosufvmHkd`H=wZzn>1qUOQh?VOa!gdXC_Xo73{h76zs~!m3IB)6` zCfUZw3T7AB0MBr4cgd_VH zBq~f16ehO*dI85T!#7qnsqjZ54Wc#Vtf};Ntsv@+|D)$_53$`vi1U+Vw0ALLE1rh# zIMY#iTz{A1khX)%sA<%7@_IL;yd07D20MfP4aukyP<)H^{$}GUf>To+PjcF9e?1Va zDkm3K5bV=~Qqq7yS2-**3|||k^95MEq&Ob#!PcOij;x@jfj*OqT~#K8<(yg03DIsJ z^`A*K9HRY+bbKgM3O`qcfEV zpF{iv}7Nd zsxk}E_QOc)Ho6$F^3)wTaNN+LLPo^6>KptH6KZU|r0TO~N9-Dh0^K(|rvgzhgPeHx zUi9r@ zHa7!W>iV;rjj|w3FrdoAYPPe2Vym^z1u=}_jVGl>H+q@RDb8*tMdVUxYHAcn40Dd4 zw|LzM@oRXl+fB9fK6%p-@6ODFOBxE{{j*jHhl%(?s=WVe$0S(BG+}?7bwm zpu%-YdGpM50meJN8Ymlr6g*J(vm#IiPx@KlX${eN>Zovt)VpV{98x9^+=%HoIc*g5 zieq8v(-yfJb+CB=wf-%o$JD&2UkLIg=19qC_Z7s}H51yFVulc`pae~2mS{w$)STd? z82#E&hO#Rk)?fMG|2=F*s!MrS{a1u8gF4*@_ZTm_)j!t<`34y| z*m> zis$dt^OnY$N(-UU<;mYgT9wP!DcokmazYLh#Yn7!5}@whEZgTP;cnHO3uqjlP~?2N}fk=?Z_5k;k@-fY+}6 zHpO)9s&RLeeUM0fc$Ys`;z)=rQ>CBEI9;uOl>Xv<_yk?+;j6MipDa`2oIAJ@>=LdEXQ&=ef|m z);RECKF=wr9sYP%eq8y}Dlml9qhQJ~@RI{I0LGMy01Yb@#gW zy7_5R-Nj&w`DL7$7k7qnEqOhY*x4L3?R3=zZ8#-EojJ=8hqhQ?_uJ(LKu#X-cMV?J zj`{S$Ki8#RZMNZU;pV7nn;c;g$gZ{bWn%lrq`vz8YD^D%40}RNLk}DF@!k4)}@f1L^6Ep{l$Y#w3njz@S{4(%?)=!#=+91+`#~MVvtd z#`2Dj{v=Qd%XGnkYK(>k4%W22KDQYW6YX!WE275L$TnmBjaT<&7=oG}hQns&+03+C zjLFV&hl6Wx6Z?s)&IW9%lA!`Arh0slWJuNzz1|O!`i?=7W_W>v=0{(< z_)9l4!SXJdMW~?X-9;{=&~LR3YGNDLrQf2w9T={}{dQZ}_ZbV%x6qfY1^8p^(CUoI zP-+XFw9KlhSXE$D9E3I9C{UoUa+8Gxa*QsD4fOx`5#v#*{7wZ)JT}^5ct(w=8btb@ zm(#xJXbd}DmD?VDl!090jd}@IWsN!GFUcJ%O+~fqqb%#2v@Wc}KOlO_W+{6bKNTpo z74On_c~mhb=lekOiVZ+_kmlpNiPYB$Ci%H}IxJZ=NP0G@w%wDmX1A4WDdF#*Uiqra zu7V_{vz*x90}GKCljU+~P|5`we&`lwTSKvVPyEr=fs3>J0cd|giyOCw^@v+Kv)MlF zxTCi?3mp|i$huJPL!Ecs;!)Nw7Szb{VHtKziIupqRa=%r7|Le`vA(f%0%#A=m99$_ z%^|B2-gmRi6O@LPh84qJ{b;06zz_PPn1~vts4Ai9W+U??pzz9?*U+>E z+}LrN?dr-zHRUxA+ub_J=Jy*MuP>0Zc)}*ia1q-WH1gslLVoK%{+9(%>4K|Qe>pKc zn1*jRnDF{jE>svSloTt8)|>nDw}o)qTv*mGX_nNn1TTbkCHB+KXi=(^VWIU8(%(Hy z#Z}7jZlG(TGPIlBuNtI%Uv^%)KzpBh8#vs(>O)`NfNIGRYr`(p7vQ+hh*e|=5_lV( zhATy;FVqkQ1CixF2DYFH3w6{CxaKJ1%4Ck!behjKPAPO+E!UsV^l%TZJfC;H>|0NO z(cxBnF>JkCjYFpbQyb!I`{zwL?HV~{3hpB7w+=0@IdWQ?Ad0DzE z==b`j)c<(BLO$?zF3Th7P3yNcM%XZdzo(JjF@|Tuu_`3lU)CF^UKSO>(RX2_(EUDE znu5*gS8H07QK{-E>}8?rwccy5-69pKft!BDg9>Uq@87A)wo*C9QC6wJe9^&Z7)*U< zOedXAiDC#d6bW}cqy2%U_xBqgiNwk!I{8H0j_`*J5>Q8C<9?f&?@FkponEp5u!X!EOe-^~c@_?ZRz?v^snN{e?bp{p87VqeSM}&}V)WHM^&h35MR3%uMPdf)gQTmqsT^lFHclS7u-os} z&-@8F&A$y2@RfhNTqwe?RY$CJ8$&Msv08^q^+5+$#Yk@9Gxfzp=verftl%`QFHl|| zl2731cJM(D5QIw0!NJr#cWQ{%){!sh{0Un*+ZB6%qz=l5nFzJRGpHgq1U9dz=QUx( zM7Ce(7y9z0ohj-!`%voDbE`{ihW$uFa}%CEQD|=8cs>MTHN?TE_%vpIEeD4dTNDe0 zo==!aGS{FO>O@~x>UsE~B+6Y}ZEh#cTbSON2nqFV-383*!5$zXs9Pqm{?XB;dHHvj zko&{8R4w}uIqY3ZlrqmP0QYi)mMb8N>#rzTRWjZjItBd^6-&xV9^h`9Ca^ME>}Gyj zELsm08s)&#dHFu1b4&7mmbFbGT{mw?AvTn*CJ_+C)wV$+myW(02RRw-`R^IVt;@v<dzW*h!AoXe`HhF9d3qS9d2U2d&HI&xAEBX*!>6;7}0t}%3%~|G^mUfC1h}D<>+%yhUbpaH}XJL zK07{jD>(MeOLWdp&P?C!>nKOOCi{LuDqWuqJQL&NUrClQAN-NVMB0ue{1Dy4FXUtJ z{JGn=a?4SjQZt_M0SZjQCu$6<)vh)oZueg%)U=^=%O8{XjW(=LXA)P=+UnN?H_G8@ zBs6gzFHl5sL)f>=+5nuT!uE9FR;$&F6k4KX&MX)19*^5E#>Z*s+Ym^9^4g>fAoCcz zl^AxV#^1qsX1||uJIuG!VR`9sWX z!vcbPxP0NB)y3= z;Yz>1w`pRts3Z@sF>Nb{lUJNoB08jqZu3Q4S56}`TvkSId#vH<27BwD_4SQ*-6Br9 znh@_`wAdeUruBCm>5>dedRP=CvEzkv=<5mfjg(I-_ItcHxaq)`L1krkeydfU5)j44 z7mLba zwYDL-j>1C%`s0JSO20UCn8OByu(Aq%!j3mT*WWwTZQWG4oQVad`8;IagUIoln90-{ zrb22`wFKEDT`3D&qox6U%kAZIB$kxTJ1SXg4aQHE zg_B<16XLc<-cVzNu&dWO@a3w=YYI*>q^m?%HzV`^00%c)B#q`M?Uy1TnnQo1{r zkdOvpfh9#?5vc|4;dkfG+&MG+!8qet_UzgByx-5~d2~MXuOkSef>~9uzVKWc2;y(u z=}CRtB2UIt;mn}e{Qj2Y6j<_~0!hpyp1TL2uUW7@?j1kDL{fux$KJa6 zlWmTEiVs8fR-zGYGWA_mqJn^%77gLy>XkPn77aobBo`L;zE(!`r&jE8=H!uCLTG_n zL?SechlY|1+oGVC>V*#C0{Z|go{o;2`;}w^$}JHKiN}8FWm7W;uoY6U<-_+z%Idbt zpw5*a>Bgo8L6va#n*Y68xc#iQu*nuC7k00t1J+Ng-`ux?5n)UO776b2F>TXV&9bJ}x1wIl=@Z_ot4S7b0~73jGvIE&YM zO&(zAWl*KNO8+egK1HvxOG`}UTMCXRS)4v{|5!F2DlS*sX$OcnV+*JwQVTiX$AQbZjJuJuxE zxj{GcFIJM6ET_J3*j3tfBUHFVph0W>ISTswV(zIV|5A)+(4ivlYp6dj5J`rf8!Z~` zyLGP_7{TlGz6=>a;-Hh%^*|Z_ZJKI4%AUYtuD$j3b854{U~<_h(J4+s^o& zkgcZ~^+DR=yiji?9BO9OY=YKi_}0^d+1z*)p%m5X*w)()A#Mgu8tJbJhPXVqUn!mP z6oXG0(C9*bWirm`N_F^Ol)D0?2zhw~{LmXL#HXlvsNJri@aQ8W?ZhhF(7W^_+Kzzz z_x*cTSKS!GLO;y$IXVY`aAPvZ62JFsU9xb)PFnfBqAs5<`8#@{=hV@=Mn(uv<%xWKAVZW{puZY-Wo_RhS}@hJ=}5!$F7B(% z)^#DpTt#ZgMr~W-`4AB)17Dp>i;eBAP4k{z^We{>%39zrO<~Pbo2MJBM~y{L?YUJ* zdU?Zt{qV1y(ErxC*5Y$Ld?j~J4L@m*^5WKY{`&&J)?^&1|Jkj&khkE$N~nrj9M}Jr)Wc&5zz{GN`pH!vu;lQO zTT6uJI(~7$yG2;vR5amHhR-`mxU-1=+d-n7lf{oa`KnVD>8H?0Zsy!DfHr^@IxZ1V z&WoEkjUWOy=tSTF5!bT_ER9%+sg@xx9-=Ay(9V95_7qP0;Q-izk1bU;o`=Xn8xu&e zy%Bm|JqqL%PYtKx6mP(5!MMF>gXd|$WP)Z81z7VO%n5*W-{BYde0`}XPt*rPA#lSXu?-T zZi>~%5cgxPjqjvX@JIc2m=4(qx4tl?_35R}-{HGg{)?KEoQiS|Y-tj(T`=9Qp-tF` zQ07mN(`sp%2nkx|5DTZR=-Vh-ck)KQQ}F3K)iM5^J-gdR=(gf_n5tlG1no_HouD=& zUKtfk())evuJ{MXy@Y%7E$xy{GkhZ8T(~+*5 zj9(Z){KBAuu(l&avi|F7$~N~y?@DKXC)z!FA2f>RqQ&ggrs=X`PQ(t;NQX8g$YN_{ z`oakN*Z6A+(k#UfB$hOUPSqDG(vKB&3{5}goqoZ6b%@n&Y?E9>r5f#tvdrHg#XB|Z z*;qH%7P-u=9bhP&_PVT$X~=OTr)nD1jc8HVIY+M=VHXE!z6KTNDGrV9wh1`rRzwvE zR7UE8EYx#TU)zdhTFJ$b(HJlBe6Jh*aXHMh1XH}teQzh83C~v4vW_dI5OzC2>EGt`W*THqD5!8~kd?&2g!4%?P_1;$~I^toLR?^%ss$ zgHN^J*kp!6G&m6}(@Hi+#Jj*tc}I5A;cMD5QWu^zt^EO)y1`7An>O0)*mWC;n0vmY00!{oHJ@kS#Rg&HWxJ&{_T`>Eg$nbpIbH@#7ut z`&-q~PZD&0t479?BYlx4H*NEwc(no77yRLwf>?I-9z8mt0*#@Rc5o=Ak%AfTTi)Rd z_w1a{z^0H0OQ(pM#YI_zw^F$9WDyCgL(Rfdm9)udW!a5p>F@g%nf&8;_&Y9dt>6k` zz0Qghs6H*n!NpiJxr3DG7UY6^+rlDLwU6jBm&l9 zN~q#~I?050r&?9Li&TfYmr>Epsb2k%gGDZDA<0xswsfYcj=7%ILMbXc*++-zm@Fge zpAje|NWyEY`4l3Z(Epc7CsXx@#j2P;Y%g;$X+8V~O$5$>e>iJL6Eoh)7+XoHiL7oI zy0Jn>#Q*3d3ZC?#2?lmlG&Dtq*{4%wa?Ih373Iww#&hG!IyB=+X3A*`lU~VD;O$jI zM$S$)sw_N0ECoLgP8Seetd8NVHnp9BoQ{LGHo1_)2}tLNMbRxCpAx}B>|@Oc);o>C z(n*V#s$E&g_FBvrp>(1ar!-X#wG;v67iDGry+;xR-2O+kiNJ1WEmw2a;l16VS@w&> z+P*n4nQFRX(;TIJL%w6ORhz}0T#+Tp9}<_UV}z0M$t!kjCrgen{qP}{&!fo-D?Uq? zFh?V+{2BX#$VMUz#kzCM^-+@x!#daw*!4oB#sc^n!~IYwL@RA`-gLV+mOx7AuH4q_ z6rR+=w=O{eara^@Q_6^lBjgA)$!XmOy_`#@N{)JZC-vjA7c0kzkujXtb+GBe3*jAz zO9YN^$~)?M$-*H~F~PX`>D(#*Ds3h@pVN&BpKiDwFUoJQ1^jEj$|_A5snxFlW><&k z8=K?8u`Ipb`QoXfI?sBNANEmD`yi8l(>h?j^krr$PnTvb^kwr$Wj}4!TUjJ&WLLG|%9YG%&iE*jey*KiYDX2dZ%xWU_{RU*(Nv*yXt0sKYDNP_9^ zp;EO;2#NYV0?+$}=qzarWieSZ3>izY^_(W3w>|`GlYk z(Z_FDO#GWjTPnQ(-$&jQ}Fx_ z7+>xD=&c23l9{^)qg_RczWX4dWXDbp&+QGNq7)3H2Kc>hA($RV2KhZl0<3ObJ$5?I z>~DttQG2QD?%FAEEmBKPppOcM8Ek(ai!TxiY0H~1W#vA3agB9WyW@G2=Mdd}Yf4qR zz?~!N_9>+vRRJRbX-uY(QwvNMP&48TI4?_vez80_!Y&g=wsO*Csm&4#DQ)rgM1UD~ zY^-c^Bg{4fm-eF6ZYZ;egBr47aMwce{}{?p%k@8*nob zw#XvPCk@;+W}&{zYzQY=IF27zX20y@5#08Arf6j5Ge+O!u=HyA)<}?1+6m5nSDiW6 z7jyTQmF)kLt2G96>5RLnL$#LVAEn-MskjP%8EDxmqWsNa%25bkf+nLUx=kVBCHJQW zT8>WWZjV8gV`4Ms-K|2=73vUz#dX!G7lv4*=5H)sjV#d=_^Rd~hT{|H<85nn58uY< zi#d29z0vS@%AbE%c*x43@9)m3o^N*3KG-56RByi~0wdI;g%G&P9tqWLKBoMMXQlAG zq`2o;^-gLzqicbsl7lT30%wSWqh zL@;?S1nW0xTx?U_A+g=%svkI|n zcnwtr`~(xmCs@|#zvtT+_{S}KnZ9{0yrfZD(^aQ5u*BKPo1=xxc_8XZLqmq{w$IZa z#^9K|3$BKYk|qFjEc#;B8i5FT26oehhQY=03_m|j2?5}#ioI}j>rM%IMGB3FlBp>D z^Eni)93nk}sSjoUwX@R(1#?r+C96mTiB{i%;>L zh)_Zr2)h)0j&ufNP)3gSJaGD|`qMH}v1Ho%(dLd=G>q zW3K+q-b~QKoHoL+)i~3LvV=6(JA}8(rxL1xX-x0`Q9D2xlI$VqZ>vGe>-ub{39&j?*#=5GjQl=Ml zsNgI!Qo5$4AkRefT8+rO=$kXobEiG33v3vYiOO@-deMSP@Z+L0UQx#5DzPWdXn)M*y2#vk z977?e3Hco_1KWGBqR2k8x(>PUj7Gj>VS0hcM)9leb_Rv+;5{4AuoT%&I$4OY>^>zA zb7I3xI4=l4)l-P#_VI6(H17RKt`_2zrS-!yPHsUtq4c@W#bDd}Bt8eSkXp7Xx)Woi z%;)*Y#kV%{tkG=7S9MIk<%fA^A3i|eP3B`*8h6U2iY*Jlr8*e~SI^8Q(&KjV}!504-I^&0TrXX%1{9p*1sS7o} z^9V#cWGxtux+nR_ChD)E?}{it)tkE z8G}6jb@&-)kccQ}p5WA4wT#ZGevEiHLC+yH#y{eGP1b5eu$X?ZRgz18HgGw!s9at7 zX^h-M9J)C9BSP?P!tWh@8FUZxiS@~T;fgb5Toz{%^WCQ7FJ6%FA;V!OZX!;|wx!!0 zKuY3iR?#N$n7~dv$CS$wN)<`RC==lrGb~C}>|Ur;V^HDkBZ)~!Gjk}d^)pr*cpm=X zDJO)dacF?Cfhfev-HO+7YDQKVajYo_Vkk0eksbonZP8N=Z49B+UN}ANi%J%JO?bWI zFXKMnM~@I+?Bu1*ZQIP`i;k=(y(LRnVN@#?h!BU^vY7`&P6`M%rdr5+Gq>H|6tGp9iD8bWPP$w?XF zB-S3(y*wb4>-hO=nT$J@UB@f|&8BDF=w>DFsS=evIvSX{6A-#uUBpV|jZ$(*4qI$%|+@`r~QAy{CYaav#M*c;wq99QImbO!n zh0Dk}wBm4ee%Y7W=6FON5PGml3^nr3bZRRoUtpqWYbH;hFhE{QhWNZ{a{Sq09AI0? z_R>hUDb_MCanRy1t=k<3_aUBwe=wyn-|@Po{$uTtO-n3&0_&9l&4Y+Ku7__2Of#pEMXzi=jjH%0=w=+Gu8%M9#`i1CiRkyp%Ey+kRuoXGrlKij?7c&~;S zFk`)aY8GB4Ne?*ML}91XBvw78r4GcMzRo(H|7o)Zz)^mXL(W;m%Gfi;pMLLuXcI(&y9G)R z=fd3p3ZSz(y163V5s_W-t1ho9D$$mH$<~PICa2~70~jHw;gfiHK0Xc1&u9l6<dhL6~_opL$_efLFrEr~c5s?8^)y9te8 z?V5V1Tx=X3W?&E_@dbTWBY8t|mPF|Q4u;M;m22)Fy2%DPwtSwtkN}U=5H#h|k(FQ3uckH!SVy*VkI79w1H0B89h$lW%Y!0OO5=$a~rk6$S4;_gV-_!0v zCx_0gC3NBt{s0IY10M~0=G!UuypxMo-~|a!XjC9OYC@0SR3?kS$NqBnqw-Z11qYCe zHjREIBpB5&ZUM7~+zDBcF=Fs^4r}W}!^Zyd<4Pf;vCf44ep-6}p>}&@R9+y1$+uB@ zHaZNYza@4sypjZqK`4~faR;HJe2%GXe1(`36^F*n?e=RK0&P`6wq)^MO7+2spjjTx20H_;xjpJPfyNg;IIEi3lQ@;26p5fbtm#?S`A_z-N&R z#L=5cN&@)q5^Uax!u@>8v9oiEt%gJoy@DDN+5z$gQk^yXhEErRHXq{<&q=>!VwQ;{ zakyR+S(Dckv?(~gv5N-Ybj9~|ijh0aTA!lJJ>JpJ5vasyo&O{5z0NbE-Dq5N?kC5w%1*gAWw~tg` zG24%S(hci<7LndE3*eH!h==jynp0p7(Nj_-V(%f~DMTd5boH4D)}7bPB~q%17pQb@ z{=lAb={f}^s=P`dT?kJ;p~3v;LS$NJ_S( z3Bn4S6BN)&)V?W?G0SkjfkZ_Ks_(ESb0Z^Q%~?ZwuCev#p(q-Z!IbREocm4JKf zhlo$H|8H;hr{e2z?8!SqZm+V?D@x{phQd!a#Sh-qNOhGn|02GiNkhD1Fd`8kq`VZaI&Yy9mX_ zF}vuYa{leqT1pZOD*)S3upAp*|JFW9DBOYQF#?c|hwdjZ$X1DLu|ftvWB!RV zgO`c}%jY4M_hp_WJWw8F`ka&~n15Y69EFdZ2@i^G?u={BJ_4(2W>J+C1c8MfWE>|gS(EVfAw1SXa^apB{$tj#vmZrzNaYrp_3%5 z#Unn9yaMc)Pe_bzd8mnFxUbEmH>sNNezv*gMozX^Kx-D1ov9#dKb-?B|4Z?4klBWh za>=WCI?2pN^>3L;>rR6$p5#tN=+`)eaEaD!9yXLHtp^}?O_53=%P+~DJeVHF4wHSM zjTg#Mf>@Nwij^Hk$)K7}U*;#KaL#O8nKQtQ!{Um8^Q48>gt>=IzRDkKn>@Om;OzxX zn|gy^X4>Ty_S){QNYGQvD*m58lb69W+* zsQPqjKJ}t(7f=Mdf*Z@T)VSs2f7@X^j8Tm(kwwy7=+i~a8_#~LOswdD$xZKb*O%ME z^7R$k#;j^pkdfU!zf8cvr5)>bJhQGk?mtxjkdcX=u3D4t)JekQF7TM=(&<31yXLAI z3~jOy{Kq0*GmsN&H#|D7F{->LH(;NTnZmA94rF1%^MJWSwy6yhfz8`p&Nvgwkh!Qx zxc0GuypC%NvNmPA1leIR55-(r`zrq=rcQ2fWF^kHQ^A`gFNGX*8ZS+jaE}pWtZctb zLW<3APBkf7u`J5zl*)Lf#hCc5)b_kA~E9?(Q^rdgGIt@CoAN4zQ*=oggA!_b-8^K zfh=w}S^-H%oW>i%tk9^{c9Nj2QCu^*HIeVU$^&4EKHY{>?c*M%_rP<5UT_U=qfiv; zZ!JX{-FX9{E>qP!y*0)#qHTiDH`hR)3Jo=RgjhK(5-@GSzH22u8Yh| zj4BvKjS@&FUg*#DkS8q3N7**NA7r64WyNlQ^3bSI9uR)f!hidi`MfD=Q&Q|rb!uWFH&_ssk<>q-~ScA zXK{eaoSg7U18yeJ`nB9gR`E-}x{Z$%!^mMU53u=LX>+$J`=~vqgyftN>bej>tJy11 zLq0dV!dv>Be|q2gS7%zAv`l={^8;#)pad1OG!|wt-qiS!*t^9iWC@DthI6CS-ELPZbu({MZT({#mY zOAebqB9JMf`)iQ4J!yWrMrD8E2 zGZf@F7$+c7EP;4k=3|jd*jh}E4T2u&FB_UK;<$ou2tx)BR+L$p+*tA`6tT&%CW>SH z#IR;d7%UvvlED2o0!e~GlhFw9L2*TUzN;yFB2&$V{x{NrNO-VCN;aEh^Z$N3xx`)__8?iTAo{imnv`Cgam<`n#LCyN=cE!CknAs}6e-QQ8z*?Ja| z=+sqh+$zy)RH>u^bg#^<2h#=gx)YFaK_|Hap#lx??9l=~8|AsRwmH5XxOOZHngUGq z06Z@`$~cw&Dzimk@HeY2@}w}Uv>y(aeS@JKN;a3xCRuTb0>xL^s>@H1q<!<< zbKBV%PVSR-vn!H`%BG$*4Sque&0mBIC@=b3S=7&wvVXNeBi}wn5t7`SAX*QncPUhF zO9KNddD^2OgTe{9Y&)!a7QI0@$~QU&B@)`8Xlb`Y4!1Rsg3cOQZFjrDF0z=@E0oA5 zmLIfAO3h%sj%@_JOpYdVGV^+38_Hw{i6s$3ediHbF~?AM-UbUX(&|0HSpWGOOF`s2Ty9K(pDc7?&h`^! zJUTrBU<4Wxlkd#bBserUhjSn-eQ0d&MvdP^1z&`mWVDW$qTRd}5s#p&;;^XZF)Q&-_Hm>_{DjIERC%vN6V8iELg@i{E^_0vy zyKphiK{&jCE6MkVbl_8R)Q0-y!ZGY?_3bZ8uDYCNFz-U02lxU=Y6`Rp923t#7I6%6HqOsV;h`Z6MKi+fJpY-!-f(CMjGyAo z%DCZ_8F7&n+=bCP!8-^iuQl3V%)tqhUM@bG52ib~HfgU~HwC8)jY)lSMWoJ1a`KZV znHiKLMA|N{fsj$guemoZUFxFMNv443?P6qf#<#!X+>*BX*GR|N%}@N$V~}K4N%DfF zR0i;@UnIB&g_kG3t|Zh`6g{3F^w)=9s?0KB-kdR#`GKJGp8R;s0;zo|9_$y3_F}l) zk=%wnbM+VQ)aDGK+Wl-fa|sIBET*l@9ycLPFI?VO-9ag><~2jx$=@lJ$RKyZ%jr2y z&M6kZ`+(Eyb$7OTVRk5Ey@uFqlcNxQ!<&+6e9cWaQpN5oVo)e^g`;~79rbC-Vl(^g z0HliVVqt>dhmabSm5ysve>@4sOJs#r2;33%lQZ1piyAUGFO&|SyfMU zJqzq5p~qBU&nA1U<;w3Nx^_70e(=GnfvkD@#0GT-B0MhTPhTAn-KR*f6fd-2VeMim z0<=C33D#J0x?oFG94-lV4Qh}Yc&Iqu>!IONOX_@Y40Vf5X7ITGT)ku?1(Baab=UH| zB1dO337iBd+RhVW$>xt{H4|^5FIn=VhQ83!7Zkw<_^G+qsQYD^ErF%1yfLI@okkF8 zU&b@B#M&h4*RWS#=I8z^kJh{a^(->>PY^rtSWd~mT9~4Qvtd58J^4-_iD@QBq@wgD zrrT^JA0)EZcG)Cxf*KC8x2eb#Sn`?kt3n+=mXH&AG-`?u1RH4+ERk}9G~AnwoV30x z@}*Xe8u*neio~hsb5R?oW0pCM7_NcGFt}ahc%5`RZwL~)8!9;SR}vgjXI8hpvc1wP z+?@PjyQQJ1EQS%hdxKJM*UOu0F_9%9GDhB{)7h@`8I>M2>_KjOS=fcJ9hepC@XWb^ z@p&zT>>oi8L#b>)Rq-1{E9jWTj-kw1XVHN4ZaL3M5Mr_kyX=q3IX=zbm75Of#_N|& z4;UkpYcKj+3DuPc`7*6Q9mH+RGPoQ;lSwL8^$Nd)T9t=JJhD%S| z{or*L9ZXJrw&HSxH&@x}jp`=KFu%97!~84xjP`P5j|`SV_gw+VUdQ&yNAvQ+j3Tk& z=83e3JbiWc9pJ{&V>5l!R@x9;IuX98viRZZ-Kv!c9}(wlNrbZNt+AaCNOeIvuZ4=9AP!NW~Zb$`wh(bIy^Y`=UnV+Vujhi zr`-5wg}Tre6l8RLBG7SxHFawW+MUgq+>a@Z%WVJ#OzxN!#O za5rWiQbN>! z@v*lJ;>tyqmsOcbhWh%^gz8d;hJB(gm7thV16Np?zgpG)AB^8(&u2#TAYRNU$Lgjb z@l;S#j)Uy610&S?t<1&UA188#7kFpeILNGh$rEti9c|N6Ou6u)gfRo<<^f{7U<6|> zj%}1$ku!qP**^PW5n#PL=n+#DFQO{pzN0JRk&(zwuXa<)Oh!E~G69~~q|MXtcN6v7 zJ+7|jg4tbuGwuMBNvE~roJUl5vq{fXd&SXR%22vXSV74op=Y1-NZg3aX{CQNCI9|F z^k~G2IQY2Eik&e(X-lhKQVf*(#<47HW2kCS^V`rL+kHHoCrZR4Ev_e}^$~JAg2%oi+VIibp~kjD0s> zK9gl3_xdH%QA1KH#aL%5tGjCi;y2nYlpFWF*rta=@tuRg*qkSA%^m7G{%+7HVQjFg z`{xfA=SI{t(iF>rGYfTY6O?XUSf?W%@UG-yJk0aWpA20hNxBU;&Yf5KLoaVy_QPC^ zT?B1fsG`F8$T2-J#n4&Yjzl9f92?fAH5j0V5rhj9Dsd+{%PcA{W(mrE0z=K}jrML4 zRjKM%J6>}Gx)eKV77&*BYBN14s;Ypu-wodHs7OG-+>}D9`M7a(5H`vE1c^c2oNe2% zX_ZbG>@ilsREo;=_FYg1ocd+i0ViC&6Szo{dnq^HQ#$pi8geT}>^Q1}LImxmCNxzf zJ>RCkx!=UZm22|n3op>>e(}Q;okPc)%#nLpK0$yBx07;drDco4;qLK^xCKN71TqVz zw2|?5*JW~%fRU(ml&TpB)E0SB>4}1wg)6IWJZ{*yeKN@Oy#@#ici!sfyJ50#?!Ta+ zSM&cYoX+>xb=N6)#15*TzsDKCrpR?s${_6!JG6L7f?KiLFkN=z(^av1=acno40`KZ z?pnOmdFMJ2qROx{ppjp!-FXh%5a~O2%86BRIbbxW(h$t`7@-jX{fM+O2I8-7_BV(s zQ9KTrk@mz@ULz6F5D8eEX}nxO%}R!%Oa2(_Mc<7kt#JlxevJTRMF28}74KI8!76^y z!CKJFu{O+F?-o(zHc1(m?}JqHf-Pf}E7sdC8w|3BtH! zpOQM8e!AKgwf!60+`d)^b8TgbhIG+vZYx!d%160b%uoxvUbSp&uO4KUM+ptlMN7N3 z2ySkpk|mT%KFzvz-F5~4B88LM^5U4fXXLe2Zt

&u*3r(NIin!4_N|W2!`~iHC}_ zM!FM(eZ%eYDVQU8{P)$?2B+_#^$+M`loi`am)KXgN1|oKQC9nBJ@t7ZD};}~8rmMB zgeaY74+{FG|JCsX`MAdOik$cepOu;J_w`h~iWxft#NvJ{Zp6ZV(=9I~hjTozf^Vck z?h6L_*R@a|&h5^*3F!J3knOcd z8tRIXc5uCy@x|L*R0x6Hkx}1>mgxxOz46@lI@tCn*UL45irqD_m|jlozS=bV{W+b^ z!*4iqnbm$LJ8id6GCUe275$^(uTAC-+h-)!0tp3{6)jLua7dJ=?=L7?QXvt^(Uyq>JqnS<5dMb(EZx8C(zbnZ-_D%UjoVdD$Z;1t^6QP#4twLuc|Jn)P zRMcng*~I!j_TGzMpEJ0)HAyJ;w*2ZtFsG#)@=}mFA9=A1$nQ3?d75q3PNg10^sxQyIno8noEaxb~lbih8k1WYE zL!OXAX(9bJ|H9Wr>Bs)dNxA^-~uDiIG(g zI21YJB$%|2qM((7cE5i2M@G-tV{%B%llP9;YimcU1%pu`HC#>+*uwT2VG=A&LxlQ* zMQr#&r_(K+Yb}msr6q+hMt(>RK>HeFGebj`aEpXm5AngV+i$F3sP1}PV${r?pE!o z!ZWl$(n69mDl2=ur4$1->03X2i_MRPUt0`k8HQ@;!Eff5^Gk=mbQ9rM;&q&%*Xu43 zgnaJe-TiRw{TV|Yx90QPY`QJ|d?xDqQz+y;wc%N8A?!;~L`I$8WVnI}2wlQRJzpUJ zgn_SbGmdI@^j$hGb0jPhkcy4XFWN7SrYwI_Yr1Hi>b~*t&tM)U)ZnGtCPwe|ZaR#v zEX;BfgJ!m>7VMPLK-Wfp-s!d`#F+|cqM=Q)&$huy+7P@)Ie8hmV=IoRf}iScyrAcG zoYK|&$z>eT|LQj}N~pUvw=wi$>d#kp86gA>UNvUfnPwvt`U^LY{r$0bUz6o0G0<1@ zidk(|?o*3$cwVx+Wcf4EM^<)@AzW=-5rN~Hr)~&JDqUm7YA0SMoHw60*jYmZ%~kX2 zmVMae=%r1YzcOKyzTm}$taN|h+WFG$==QEIJ#=ud4R)8c(A2zuH_{Li829+e ztO$g|!S6-UHaKA75mT}q$4y!`L3`YNSSsiK%c-bkR_pwGOM#L9p>pfs?k(0vi2CY> z=IR=W*B%B641~YzmJ7@Ry`!s$P>37anbw?pk2J@(Fs#GwO8C*GZo(|RUQoAc;^6rk zT$A0jm|9ygW5>3le5iX-!+YvM16c+jfNphve}2`Wk)Fwx0?fLbS$%M5=8~j~2y6VP z&V_$Oc$(l^+@*t;&CwTkJ<;|%C0157I1A24cx;kM#aIxF=?#$ZRML^kP|T+vZ4u~y zAvvmLYCJcbaH)MpPGaZ4W)@%FFh7AjK2k3LH%z_)u5+0A zOKdN{+T2m;44W`xRXTV<`^<|^({MT5xEO2yWQHH~2c215&$2^QVcB|a2cOzM+wNi2LJ%w`KZx)snwC2=;Wy=M9g zdEI#z4ewlH%lijLt;JSbgvS^r8N_@y z2Lk6?_g#qf{k+XP-)}h>LW9~?rf}2WB)&=#EUIJJ6JV=jD1Y%x_8&Cq-}t@2R$New zs5=x-B|PY;x;Tqv=8}(BUv5ZHM-r>16Ko7&HF4mToX=n)qlUvja|>508UWAYejf5h zb<>K$50*iY6t26{7sBjGZt`SgIV1jWiu@|Vs{L*;<0=cQN0N4t!XVO6VyU^=gduPl z-&H)RUO?AoE1P*&S7;g$?tg9vY&I0))IG5iLdG8eT;qnbzVQ)Lp=WQP$5%#U3-kQE1FC(Ktl%tm zIFwg-TQMTyp3d#k_b%UPFiE89PMhvLb25pmH`@q4-L_FS***F3yraVf)AeJ}LWTvw zGy(#lozffGcX3ZXMm;BFE^d#>)T2M>ytp~K69W&7=zOqEZies-Z{D)v4@;JK8%_ng}8RgZz{x@L4u|3m9IPQ>3m!t?i8-~8(x#2WgJ?X zDj7fQT>gp9Y3nkSzKGNrqCP^n`kv zDo}NhX8HXhP4rup>>I}oBjf%aD$KKW{VMD3X`^3-&MU6)z9G;%tdDPrM)~py8z&%` z%w&kv)NIQ6-#Y(>v(681)E~=1^?qZ4h8#ywpX)$9x9Z1x(YC=Km7RUuE#-k9R&6$3 z|ByPM^>?Pa{(X|yk+*gE;o4Q2$n2p+WurNws&jfKMBwMG>*cRAm%uYUms@>PPcjjqvzvZIH1NAAR#_zB3_0((Ot_*I; z=^jY8R&Ld<8C6?1@I<_OIJNAiD!&v+VS8x0{8>S zWwFLO#@0x~_)2I2PKa!~RMLG0fIfIPb>Cj3Hg7oj=J?a?NnO{>Gl?0u2`@iE(sN&R z%)yL>;AY#4M?GbSge{mk-|cm=k|A}4lH`r#&GvXAI!wC_xNCDmknoR3oE87e&B#$v zXlW!q?&)!Ic^6ar?fn!C6<9L|LuMcx5eiWWWtwyV?9cKJAm|0Q0skS$f7sr8XE-L2 zzxx^xez-AmF?S-Kp99re6vICN^V9`U&U;a>ytvss3qEMy%C?bq`DQ7ECiZU-<5v-& z+hE=x7(F%r#1Wja1X{+fbKXuGV)v_tXhCnqRj~nG$;KByDoFiLwwo-gpRTnnOKg54 z&RTJgB^U7_{If#1@WHPr)yUPe@OVXv}ShOt{wlvcvFmPW0LQ# zTmS=n*x$@Ug%ot1!i=-f3g0{caoq4aacN-RH@9uP9{Ibxv4cCowx4jm>2mt=c@kF?H0K+WVOXFu7D+2+Ypcg+E0Ayman%Ab-p42Yr8z>yL4N zSs0Fu*9Q<9ZZ-ovKW&*!k{jP>i{S*I8sOX$ejG^Jz<%VrAvj3-&EW^#*Y_*Lfgt0F z6mM58$K9BQk-{1OqS^4u42Puq z6Q0G^cZ|Beu?`k-usD#;lUre*nf;{&ywj({S77e;n+yfoLDL+xW#3mwxb^K=rWO$* z$5?oM|Dnb-drZ#@Qa(xFiw-{keJzZ-vm2D<`dhMR$U0gd?3Q@x^$LC^)_DlP&ISQh z{gY39{V#?CBdCoF3Ae@NN8sa`Vu-=}!)Nh9rQ2DDSixVpwr`*b+s72902?#-`d~dm zO?b1}?WdMvgh0k~&^nR_9w<)(4`Aw*BNz;hd6f=5X4ac~T|#s!q)c_vlyP87|%FwD8vN z_Z^WxVX+lRsVH}|p>Kgx?9(>MOmhH_)ZwNk7x@uE^N8}U^iEABKH{y^%pe)bu*gerw@t}^>>G0 z_MKfbOW!KtDa0l+_Ae3O)HYYVRHsw1NVgGX00$iB_HG4~XBIGj>|6C3K=K4#I0-eR@m(|UZfOqKcH<66mlN?rE8Y;>cvbFS)s?^g!3JFCL4jy01BH!_~9 zjQXGv#_EfG>FB=?OI!=jKbq7-`kWJAUR+KI7uzPtA2jVo)4}p z8SQ?P$55ic|M!oS5R;}4avd}N?~I_&XEaHtY00fb|KDNmq)gAc{r%Qhr}p_}{`XRi zk(3a9Z;_RMGh)8_?}%5!{QFyK8;I}@JsTLx3c+1l4=&dL1GV$I`#>@gn}Wz%WgEcD zdpy%$l!-c`EdZ=DXACm)gvZ-go(D7Dfcn6oeFtW87N8%KuU#yJS$@_gaZC$lh$~0w@z8SzD47>uoO}*RolpOhPgP3L3HVn@UtU+Xa3G=elt+(_a z`xMB%{T8l`@@6})?!8-d%f!Dwd}%x1&vOOkq#->5u=97>{C4Wm&!1wf$DOn7BI%G| z2*4uxK-fno8PxyG1y|I40Bi_c@Q1SyZi&CMa;PC+gCKw!iW3J9FLCgsEgIlJ^*(Da zK0EdSEc^(70@f0W4F~WlY*X31W#<6jKk8hCyXRf;t_NU+2l*`%rDw_91y4>gvkQLg zGt{0)I$1jNovK4T12RW{0B?ma@P$J|$1CSQ{=Z1^$$J%o1d^VcG@<+(W&cRFm zj7D&O`I8{#5oZA1{Rfakc_VBpHZrt5y07J6u<$y$UT^x)Pvle> zxMC62@r+gbo+N}QnWKz@lqD^l|o&aaarZRgiNxG}j zYdZ97#%#&JR=FeCP`1^xI693<4GS$KJ`}JfM!4OM0hW%%u~bLXMc|4s%>3^)@^s$b z(=_SKUX(#>UsdXd0Uly$b#)5{M1@{Vg;$}14?whT|1ckc#jvJ$3~-GkiXDGx_&M+! zvCOn@pUUlRn)I9UzQ|X}y<5j4S-o4@hTfOg;fDzvtxgMkDMA}?8Iu`r4@pdD7&2Fze> zOIIv!!K&yKbjo0rEsDGh0tB|n98ghUL>6`d$GD?~xaYLJ_;GF0q#w@db576mzt3s! z`Tum~al*k6)FS`e*=U}5X?3ZZf_H!Y_QN2D7Svf;s@JThxk^?!sRfpB&;sIqq%eWc zh_OANg;80q|1WbOD)>ou=|xhV!c?G6ig{JMr-qc7SR^y!ySZYtE+o522wW#YK zKUN3w$ZLjQ7`J#Xkw%t1VR10TlGy zZEh6`da=?)YMNmqr{JmKg08c#Pw2{A~;ztS>0Gl+y9oQoX|FgFT{nUg1 zwDnwGYe!S-M41$h!{Fd#E(1rsDrv(lZ+!%n z=I$QoepRIMI(+I=y>2t$$q|X^f#n_ECfC&(qHQ~$*>tnrtvv6WhED9xbEivH96#Cz zodGDZ0%CQgarT;{pAiUUycw~$H!P%yo58@;1TdyY)o_KBf@Lzzjc{iE8=f?pxvGQD zOA5`fTxd>qZ_o?(*~xglT3tXrLBfkj0{d+F)o1iy|uNBe8%B`9f|d;E^rrxn#1 z?{O$I-sQl(rgI%R8pCK1z*v4`Hx*Yq6alI#3?(kMlkG#MJD1YT1-%)Ws<=sti`wOa z4`_hFrz?u(NN;a0lpQSBLxwiS39=khhsUFwkMGcz*ef0M`YRh+N;C)Bg==Am%RoM) zWg9%slcK{?j-Zyup7S2P3`1}p1|^`U`>5BV6&avqqacME{4xw*l!Lx${3udo)h Date: Tue, 2 Aug 2022 11:41:43 +0200 Subject: [PATCH 2/7] Update plot1.R --- plot1.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/plot1.R b/plot1.R index 240218d1973..7efd07fce70 100644 --- a/plot1.R +++ b/plot1.R @@ -1,8 +1,7 @@ library(data.table) ## 1. Load data -setwd("./3. Exploratory data analysis/Week 1") -download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", ".") unzip("electric_power_data.zip","household_power_consumption.txt") data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") From 93b5835e702d576019c31543c5db1a00f3d628a8 Mon Sep 17 00:00:00 2001 From: Andrea Eoli <64196727+aeoli@users.noreply.github.com> Date: Tue, 2 Aug 2022 11:42:04 +0200 Subject: [PATCH 3/7] Update plot2.R --- plot2.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/plot2.R b/plot2.R index becc2374171..a61bea2a67f 100644 --- a/plot2.R +++ b/plot2.R @@ -1,8 +1,7 @@ library(data.table) ## 1. Load data -setwd("./3. Exploratory data analysis/Week 1") -download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", ".") unzip("electric_power_data.zip","household_power_consumption.txt") data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") From 0bf10cee591f3f7614e848ad1f09544a6f17d5e8 Mon Sep 17 00:00:00 2001 From: Andrea Eoli <64196727+aeoli@users.noreply.github.com> Date: Tue, 2 Aug 2022 11:42:38 +0200 Subject: [PATCH 4/7] Update plot3.R --- plot3.R | 1 - 1 file changed, 1 deletion(-) diff --git a/plot3.R b/plot3.R index 5a790e988c0..f1208aa26d7 100644 --- a/plot3.R +++ b/plot3.R @@ -1,7 +1,6 @@ library(data.table) ## 1. Load data -setwd("./3. Exploratory data analysis/Week 1") download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") unzip("electric_power_data.zip","household_power_consumption.txt") data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") From 941337061c217f0181416dc806cf445efbde78c1 Mon Sep 17 00:00:00 2001 From: Andrea Eoli <64196727+aeoli@users.noreply.github.com> Date: Tue, 2 Aug 2022 11:42:58 +0200 Subject: [PATCH 5/7] Update plot1.R --- plot1.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plot1.R b/plot1.R index 7efd07fce70..defb4b996b9 100644 --- a/plot1.R +++ b/plot1.R @@ -1,7 +1,7 @@ library(data.table) ## 1. Load data -download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", ".") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") unzip("electric_power_data.zip","household_power_consumption.txt") data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") From b40e66359d051fefa000f20757c9fec2d0dd811f Mon Sep 17 00:00:00 2001 From: Andrea Eoli <64196727+aeoli@users.noreply.github.com> Date: Tue, 2 Aug 2022 11:43:08 +0200 Subject: [PATCH 6/7] Update plot2.R --- plot2.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/plot2.R b/plot2.R index a61bea2a67f..2c3ef84681d 100644 --- a/plot2.R +++ b/plot2.R @@ -1,7 +1,7 @@ library(data.table) ## 1. Load data -download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", ".") +download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") unzip("electric_power_data.zip","household_power_consumption.txt") data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";") From 5b3fdb47eb1462f40089803552c7a211fbcb6849 Mon Sep 17 00:00:00 2001 From: Andrea Eoli <64196727+aeoli@users.noreply.github.com> Date: Tue, 2 Aug 2022 11:43:18 +0200 Subject: [PATCH 7/7] Update plot4.R --- plot4.R | 1 - 1 file changed, 1 deletion(-) diff --git a/plot4.R b/plot4.R index ba368558170..3528854f5fe 100644 --- a/plot4.R +++ b/plot4.R @@ -1,7 +1,6 @@ library(data.table) ## 1. Load data -setwd("./3. Exploratory data analysis/Week 1") download.file("https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip", "./electric_power_data.zip") unzip("electric_power_data.zip","household_power_consumption.txt") data <- fread("household_power_consumption.txt", stringsAsFactors = F, sep = ";")