From 8ca9f2c11d4d64d10790ca350e60248118d6d8c8 Mon Sep 17 00:00:00 2001 From: Sherrod Blankner Date: Sun, 18 Sep 2016 15:25:48 -0700 Subject: [PATCH] final plot 1 --- Plot1.R | 25 ++++++++++++++++++++++++- Plot1.png | Bin 0 -> 19465 bytes 2 files changed, 24 insertions(+), 1 deletion(-) create mode 100644 Plot1.png diff --git a/Plot1.R b/Plot1.R index 24d0a07c2c7..55bffe3671a 100644 --- a/Plot1.R +++ b/Plot1.R @@ -7,4 +7,27 @@ df$DateTimeTemp <- paste(df$Date,df$Time) #convert to date time (for some reason required two steps to work) df$DateTime <- strptime(x = as.character(df$DateTimeTemp), format = "%d/%m/%Y %H:%M:%S") # drop extra columns -#drops <- c(Daf, select = c("Global_active_DateTime","power","Global_reactive_power","Voltage", "Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3")) \ No newline at end of file +df <- subset(df, select = c("DateTime","Global_active_power","Global_reactive_power","Voltage", "Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3")) +#2007-02-01 and 2007-02-02 +#probably could have subset earlier, but needed to move on. +feb <- subset(df, df$DateTime > "2007-01-31 23:59:59" & df$DateTime < "2007-02-03") +#remove giant dataframe +rm(df) +#show head of feb just to check +head(feb) + + +#view it on screen +dev.off(dev.list()["RStudioGD"]) +dev.set(2) +dev.cur() +hist(feb$Global_active_power,col="red",main="Global Active Power", xlab="Global Active Power (kilowatts)") + +#write to png +dev.off(dev.list()["RStudioGD"]) +png("Plot1.png", wi/Users/mooncalf/Dropbox/skb/coursera/ExData_Plotting1/pUsers/mooncalght = 480) +hist(feb$Global_active_power,col="red",main="Global Active Power", xlab="Global Active Power (kilowatts)") +dev.off() + + + diff --git a/Plot1.png b/Plot1.png new file mode 100644 index 0000000000000000000000000000000000000000..b5ef6a7df4a1b25aceb0cad23521e46bdb12013c GIT binary patch literal 19465 zcmeIaWmr{h*Dky$MG!$L6(m$jN>M;TU?HM_ba#ie(%pingrqb`NOw1aB8}9dK^hj_ zvWV}RYjMB(d7kgb_w9Y`Kkq*FkNd_6bIp0h80Q${Jjb;HWu;#d5!@tz!C*wove+uv8ja-4E8uENJ;B8wGx?NjjhR@yWI*F zkKWm33K207g)2WwDXsRLnBcLB66YDcy=1t*-u?e|o-fZZdCRsMUez#-U{H-S@NziXYPZPz; z&9L}KuH{vBSkjAQ{26mg_j2m#v8cGuSA{Nwj!(uGWL({Nu9-V_F}pq~EwAhYy~m;- z&koxR`}-c=#dd|J;hgO7AMs5NEfw7A+uQuOje*q~v0JS+C`*OJ?Zx>O?${1j=jX>q zwa#Mu?lwtJ)|TCtcKo8)FCM2yNBEMr_`df{c_F;NICEMwEJ<&n zSuM+qrJh%pDR~EIUr`{ByycV6o|k;I@hVWekR$ggNM@A1Y6baM?ngJJTaw#5o*Zw_ zdZLm`c+6k!2hc2;v z{`#fk`?s>Y^qygWpbtgy&Ew!)ihiT5oOhZAq(UBSyx2mFH|Va7`1WXXiSK`Y%Y}8@ z`NLDG{c!4HQp1g-VF?RS?Wep$C$*m*%4fuhPCO~CN!C4kcu!JO0g=mgrQH8c2MY>M ztM2%xPLbv^8?RjX%#DOe-iY15u_Dq9sct?HdM#gfgd7OJ+6N;fSp z%u;Orj`T9II_P=suJ3L@DO(+r zJM+oUx-R#2_b&Ht_a-gu&-@(;v-N*C-q70W{Mi2}E-7|=GV}7LBntcrq*+A+!o&e384k&o*r?-MgIQL^ z@+*A?lkV7R{d`tPqAqgBSAF67Hw$>~Ma8Zxz0bVv|4TCXwL-wCr8*Vf#^i3uZX8z) zF{uW}%Xrk~#(JTxRTRfea49T`+RMB3j@9*^_KTBvk9Yh=i^rO7eHL>goE|t>-ETPJ za`HGCSRQY&&0S>oD&yr(Xqeit8xn+{<-kmWJh76K+>~T>Ppx4vI86Mxu%Z*z+Qg-J zvL7dBXFWE}`E)9kqHtLB0#iw7N zx8O57c|B{vVW3f~h0leG!gYn`6LlJpXKQV+haE*@59yR9cAnXOMd>fQ&KsY zYpFH7i%SBBVd0X9<-lV~X@Y#|yTBTh;8yJW8<>CKa?!zI-7vm@=g^bkUa(GA^gm$Um+?uw9(r}tUqwF| zyn^Px%`1|raq$hq8%N8`El-dCMkOU#mzg8V9o9zGN{qW^aC4ONiXEri5i5f^CYEF6 zK?R&;h^urM&JN;tTrcG^Iz8Ljz{#@Bb_>r_QByJ&ie%Rqx~G(F$gW;m_#)`$ z-<-ce@cm0IV)%xEjkg@fukM@@PtCUyJ}c6&s$$^S?0dyowMMDq_SS7;l7hy0?&?7- z7S4rLOGLz2LFEiVbgR(mR!9Wub+e4n2^s(4wC_Z{R2)x`vv=vQ6UV8{6DH~S>os#> zuV&(|q;+pmZZv=2UGCR%cC6sksdro5AG4m?;9G5`AHnmMr*9;&+fT4HG71VHrnS;e zF1yKXHk@?2%jCM<#^w_>Dj<-Uu**}IdVixJ6DrG}8Lg!{pS!{7PnvEW<$l51bNK9l@< zf#siEQZ!hS+s&$yUwZY<3)Oc7^J?Mwvv5{tT%S zQt8J{c~g~dQ@g%AXfAtMW;VDwZrfu&Iht9$GH38Bls=zb=xFJV>wKh2u2PP&!=&?K z6$1PwwcKUTOoelB`6Flj8w&HG+_%jrzQ4UBm3?XA;hGwnF3ag0)>;mg3$f;%$e5b7 zV_*0*cKX*OY5J?o{*AUh0*n6e10&TZBX3rvcqd9*Nz73DYX;h|x9Qsf$#uk=s?yTZ zoi+8#`vu^wtH^=|2b5$C*N?m%!D9nwXJ@Ms!uv%9^+)ZNQ_=LV*K&^S<9&R5zWBe{ zn@!NIe7f7Szcyy@Ey=^>Saoy?MG`2m+bi;5L%mF6XzH{ljNz4jp#2a@nWNOW{5*S&X+09$V1*7<}fyIY*1zcejzG^uUvkWfXg5;vR!^xyx)2?|5O3 zzxGLzApvLo;a4P!nNOrkd$BoPkfsBkJ+%h%Ndh#B#_L^`AP^z?8xquLZZhVod8 zxR>y7zoOx!D_f;t-KA?(Exay@Q)m4JY=(26qSnju1a;t;6A>M@-H%(up;fIq`!i?_ zq=av;tVo$Xhu2x|#dEjlD9TUl-3+3kw(WetG)AjLH+1Jhq8>y{OU-_H!5$Z zm8@^$4rjD```lbJAy*EO0JwTVTuFY{CNzs(y`GcSxX6TOq=nk^wA12J>wA+KhCp!@ z92l}|l$WN61XSDK#Fm!)mgth5;I`eCk%`TxZT?5AYMEnXKioY>Yo5w2X8gcr53n&b9VJYc8V3=%dS4<`>2r~kA-sc z$J!-%Cx28cw$DzN$0`b_W|W-mHHAn}-XlV$y=>cHLxvtvYXM}6<2F~;=W%6Y#a|h% z;l2IGCqw%Et_z+)f@){{lm5CFhy#Zwhe+M$a41bO*WR zgqDwTd2yEoGwlVqmHIAL$QN}bT2Ecsl-arhN>*5P#-d4Yj3#ooR>3$1T?8Ws6k zZ<_Eps2ZeKQjY56tY4ImWsnl=F^4lud`+jz+Ro%nbjq_w4&|*My^ND z8r(tOA%U)Y(Nm;D=5CHtqqP1*Te~-dF1(hHcQlWrI#MZ6W8$_!7~$;Y8l~8*_z9C% zUBf93PH_YA_c@&uBKFB;>>K2pJ_c^v;fzO42pj|L5VnOAnMIE)LdS1Z>RT>}t8dLm z>->BaBM}}`ON{!$i0$m%A|J#a-WKHoG=dG37zEwV>qE=6%qJhyXE56scd@|*GEWyq~AU`+@d>xKr*N7J`)=i^Z)VlM@bJMlC`<7Bk!b>fnJ3yk48-IH&&In=VBW*5-peob>2oN|E&N;@3SP4vx4!w0%Y^W9#C z(5zVp_xLcvTE$hxO5nl4i*--L@eL!rXlS#Lu{S9u5NXJ`o6<{kUCv=M@AQ9gNAW@Dt_*vAFn+ralYzF>k+1K;lKpt@;A<0x5v|kA!Wn zW8QuZ55F<+Cfgl!;StIR1|6FW{0RNQKyc@Cq9{zcAQlb={eRf>QV1KzDy%C2vNA+{ zKHrYpOe7y*wf0D5Djth3+-3v6?kQ&Kf}e#TPc$FQj+FXxpWbFk5g)V5HhOf|AH5DG zCnFm!HSNze?a$yiq@bWs_wcAEqIo*ZV?AksbMeY$5jhqd%$hRX4kg`@51do{BpLh2 zRDWlotEAcwqN3>N;0 z-kLwx@I{GLMY=%sQ=BN^x}NgTenl}yt7e}D*PE806o6Z+I1;6pmi%*5xbuJ@Izf<@BNp?c-Q^p1xpL&| zYZI)EYR`NwHT6WXCjCBo`v$Tb?_EN_+pr4L{+|?1BDFXDwM$=rX4k477%jI%=A#^z zdc9Ldb{jY!--ad)Z-ibKiRu>*iLuT) z=-y5rY3o$mN9Z?o68g;uPRBen8LfOfn+vuoDmr@6KR!n($9QeDtmJ{g&*2Cb1ujm} zOBhFB7WS6K)%B#XD|UIO2mWtUbOp0jGx&b`_F#VQb{PLFlzhTXsoirkE91MF9YUM3^Sr{o7?s6^4B{MeE9^~SqBPL0fwu{|T z6&G7YFbmC&ow9_*I-Pxh{6-_-@`a}RcbU10MvX&WL+lg=HlDwrBg1lP^ulsjPLCe_ z_4&?hAwtKq4n&X%|I0V7>9k^FOj_wr}Z_*jG*UmqE4f=EhJc|%>jk-)ikwdLwd z)e5T#c`K814@#E;!%_`Nsy#bJ<;f%oS~0sgJ{O1z^TR-21n#q|Uai5m%s~lnCq(>o z6CUCA&$Gqxp4k$qR?v}CP>g0s#f4EsM4nGooQ_OD*Lz`pende=fSf^N#Ru~=3Gd!r zFNLU3qVxM?y z7(U&9E(x6-mJ_I0%R%9VFR#FWvF_9VZ}k1+nQn9mqaR&01~1FDckaSuENC3+eoFx@i1LNQJJl)#KwA_vawpZxOEb-g;5z2e`g zFEs!r=b8;>m+LiO(5QTqVk$obXq#6#ob%@aI16~g8^BFiH2L6x0P$4gKf$w!NSujX z;2dk1)Bh7aDL($lm597IlqOC}g~88?h;4Zb%y7aWV17u*=R8|TfyVl3?36ElKiHO* z>YFlepbgaq0!U+FCTr>;jCHEek%{zn`UJ02eTqe6$X!Z&QJ8c*UY%jvwF5=A2~^HE zowXjer7GLSQP+*S=+X>Y_ubFjuY2j1dH%sQfI7IkO4ah|5<^wCCXQ1ZfSSnzQ3quy zS7Iz>4oIOsM4ozC`#qKXcsr_pfV2Wa1}l;3weqnK?o{#}QS4GeZDEN_U@cb+<5UAM zUO0*ecA$!gWo@k+3yr{BY$PAlddK}E{y1UqA|GuiL|$k9y7#4 z=O!mNf`DWU=wJJ$io(L)?VTOV&FQ9c=N)4}Tk2l_AaUb7y}9ZwyX$4r9d8QwqZ05Y z4Q=hj`MEh&z&qw@)j04NcV3UsSom44C@k7ay*i1j}>%xG2Kfa$9TtGasUoi z{TV^*s)daUU2!I_qS)Rdd%MB}btnjBOF*^EV3`8(U)hRTVgE1S=-ZnD z8}JjE6byaeT4ZIUWRd0? z%9g4R%G8d;qZp-P4GDVB)tK*eAj9gk6w`BJmA!xl4m$z>9JW;Qd~xvxXpi<2hUP_b zYAGhz4kotNO6xgCqf6_D$(%lel*Ur*XyzSiy{3nwavJ+UtljejsiXW&`c{rkL;c>y z)D(zTWGr^~&I>|dG!u?fmK${ki3va@c9^h7jCAo%SrB}8xfiv5bqM#~zh+CjfH7Xe zF099K8q8KIH}1N5ASLE=3b<@*C_jVpX^Hg#JT&@u;63||V>MEoUU#&Tvrc$@(gn$m zn)W50>Du0Er5yt-IptX#9wu~r1@ora>`f8L(`oQ1ciPgg*&j8R>hV#Q6tlYnEPj-zy#&s$H#6cK-1?Lcg2<)bx_1TFz^SDm}Hdvq6>KTV9GE5@&Xv! zulRUsO1Cmiz~|L$ekUvwdxl9!!?05-FHnoC-Ft^I%&VaKy!~eQJgt+3*h<4TN(|oK z2KBAzbm4g#kPNPb+rl_8HYW;Hu8)m+q?jw=OC(;tVGKH$A%7sDgHd`nGh(iMu8IAn z3x;%x^^wjx*Mo9k2DtWa+oG5OvEs?^d-d>dJUx(H0A#qvH|Yc*57ErJI+tv-KTAh@ zybp=k4X-#}Ypa6^$0Vo%a%V`cPZ!e(-OSNBX$Mq)0$uyFM2zDY2Ep55tAtC0*Xj>v z2oDtUHJ=>RE;RXG)Ci#wIMzB0LeCq9jbaJizPTCy#CCPPW`pNM@a%ZU@^JHy!_ONg zsxe$f7K_~p05fnjiVXvAxh$oioW&e4#S_ds0!y`Sl8~daG12456o_J@9P$L;k7D6? zdgu0ozuEwAr(Xh9MO7o}_e z(~%b;G?t+DvX{KYXIE&F==_t$^Z4yB24LXHU$9wlHUSrH;W+*_pzQVU@3+1Ju;ZXR z+etcOTcCG-g4qlFw9Ab_RJ`R-iFTh97cOG~Xw|J|pd=3NiW2>!$3A`o zmhuo{=coL45e=tzZZYS^O!D|XxW@@pv-uatL1Ki{5u<{M_Fixa?}!R| zEw`;7Ja1>70}$Adum5shLD0R?g%%4ii01v@WGXbp-=(xwETo{Wz$IimYe6ZMb?t8gLc)nu z7Uyde*3{<)&k3d*LMt>m=`>5!AI-&_;BmCPj=Wfw_|Jm;AO#k@*coHMJO0LZus~<( zmavXMCbEH`{h!5PP6T#44uY8iiL@jnq{Kx;R_3QgS6EM3fyHB8wrC^9xTWl+w0J*m z!(SxkW94}e;*{IWOB_%yF}#YZG!comBic>N8?&nEn%GZ6g%}ilQOc740kI$=0awcE z-BD4y^dYy?P%8irPaMqC;Pqg3zv@@- zZrb_f0gv0^8|*il#%Gl65p6{TlN~D;$hN#DGe^8&T2 zX>zp-&?HThjg3#0gW9T3I2Oi1FERsbVd~g`#6p37!?6!F`5>Rqu-29jaRljxGRVqj zjN6cyTn9f7-frHwvJ471zSC4r!=?UjAw<{jC%3Ssj)nRYQ5jbsR6cu0ug2}m_lp>XMM7+ChpxTrL0a%GW`-A|Ze^ueiMRk2Yz_FlwEEnSkCbBo#1j5BEdaNUg)&OVs~S2_dY~*1TC#6D zjs^sQP%YrPKW?ybQbn{p^O2M1@L{~Aj|0p<$z>&LAMg~_7vIJ^ zjGFE*e@hx2E;5i3>5q-cRV>o~ag7Dk8IkyRV$kVI#BB&F0+|vEfsi=CQ8jl><(2?t zwNXb@hOTo5dqu=+@+zXN=TF)$Lq3vB27#c<<#a242}xRy!xUF(+nMSxb&!;7@AU5^ z?TwqRW9^G#VgV={ARMtDRN4n2yE>*9q3xOn2`>(d369l^T+xrb>Q_^MXv*Vx>gJfB z+>JX5`vH*n3Ov_bzIq}z;MhW;00olCPJLX)5ZT{PB?-hJ>7K1mX! zQTq(p#*q7wHvC-ztQka$Mmjm~k^BAq`*(jOr(hJ41@kW=JFXAx2yE2uNQN~1j~XuG zvn7!8Gh98%$yD++mtDRcWjBH?VGlh*I-~+gw=xNS1)hO%ML#j%iuvkg*~mz+C?!_= zwt$n85~}8n{x{&=+w+2uEY7;V%IW3w;6H&d0NyUH3WZ7;!M`mItHVXDA65T}$N;cM zaPl>)ikB(qh(yhwMG5V?0Tdhqy)KJ0w<1-}sr-4cV1+cbZ#y5ft~MzEPC{U)2>U!P z?#n6Y*2&UZwQfqEei)H(pD z^{3o+q-vR~s;ZPhqH;LJhS4~@8czxD5;Zc#zxmGb1WIqV8aV5A*n_(Q9gjvE%Tvc?rkO(tQFOVr>HHERCXNn*< z{Me^Qg}K54S2#Wl8kkRhxCS!C^yYKY6&qY##C=tc*&i|nIE+Igz!GzXdlwG7f*)mp zK}GOFm}bP4v2*AW1AHL~+X$xKlZ}93RWjcyKPLr3fuKUCT8zmylbHcwD92}U&d$<- zD|n&dM@%X#2a?~fcEkRdD>%6F(rr8ECcZ+c@V`v(8Ku{GU?$A0{^tRYAqoqysAiy> zq6Bma==V zLsj)Pa1usY7C__*9 z_xZ<(gg_SyFGm895kQuXvZLxd+?rhjE)=}@xv~)S_?S=CyU*M^m(hNGfvRyK!fKPA zL|6DKAk|J!P;nk%>7dUj#^?TdMROk?!{S}G#>4QIq0$h8)S}i4727gD`sx~7j>t=r z`~NyjtD;A<3p z{G*G=bAqz(4M>hGyJER(bh8g~zUi`%I3kCFtVKsf1B5WB4bf|b^)`i|G=!SKG?E0} zsGsz?^UIqCWE^7*;VuCXTGS5~yOV^b>W@}fc~^5cu=AC2qENy)N|Xe3sBe}wH1I>Ek!eESLS&fm0f>EdD#KOJ=1LogOE4{;u(uN+2%CG6aGSb!U`=&E9BFnB0%F*^G;Dhz6nfh)56x##q)7;w$d>bdhf3BVP> zb!80blB5Bb7Sq~3zw;fq!n>Svo-WA)C`jXQK8NRLK<35vKL>nV762jg(Y2U6#pr<` zjMaP&VLm|Ey_ofC60^2xpn(16rN@micwr#y`VKHy|Ibfv-lsFZwnQXZcTBm)afxXE z+3Zhm#Y)`?KG)5p@LV7Zde6x~kqpiV)+I(ZWcWeD7WSsKpw?@4!4tO7*sk^muAp;p z^#f}@{#{Ql2*W^!39Q@Cr6qXz$IFf~YW_Z-s;^u5YoEScAB3cBwqzMeL(Bx>$ztBR z)oh|PVL_N#frixufpdQT0(jvK_+lvLFC<>h#28cx#R4mRq4&vM%+zspCvh;h7{b9) zV%c3e_v$6=O;D^`CLAmY|HGM30N0qTw$A|u(h2$^4ax5*7J{FuR#y3dHERbv1&NX8 z3L0HQ0o(3GHvj*Fl8fTGI*8uq_g~@6E{zXOx=Y{A{!{}65j!VmkByB@u6mi-5CAl) zhsK|zVz?MS><^&5o9-h7Q|Ed@*L{p`>(FPJiwU*KrI7o$w7kCxwVP21xRio^$WEwd z5eU+S?+7Vl8I7cp1nWwVfXf2jaRTmPJ0cSSSm;Ndb1nc!`>wqh_#zXD; z`bw?=9{X^&UuNxie=SccD3&2~EK!YZqVhLKO>xqM-NA&bl_3!}zF{8Z>c+x3lutqR z3K~M+{m_4qBcJ|(+qAF6|H>^hchr8@=!LH{O@wYB73aCH{L|l~?slke-G+P8*4%st zPFozP(~@_gVLc?Q-mUj$MiT&y-j~2{%qdF!lfWub6^PETE&XW@*yy(un{5rL0KJBM zi7#iqgC5?zI^NEIXrapx%XG@N1gYG5#X=>?sDlmbe<-`}|3=xdE#0prXGY6}a6V{} zNlk<~)rwmL$X^|tt}LqnS$T2H8^hqG0hSRvbz4tjbQS786^wJOF*I2L2y{kp{gV5cF>%Nhu z2kMHe-r#|9j}11<(2dCU3t^lw=(K^l650qvh07t##Vs$ale32KnnmxfajnOXW+eyNN`C9j@x5A@AOK51>+I z1dD!7K7f)*%(^T60nHNppvCnd(-oAUl0s>#ETTxw)__3HxeQ|~0_hb^wE_e-jT4zSVjPz;DfpeL`UkNTWukR$|s>=W43 z=;V`*72vqq$f_b5*6I2IR!dgETG5QyFA0Dd$~^p$Xh;233h=m}y>Sb@7{vgO<0HGI zF+3g@I{+^`!Z&V^OL^x4%r!A8Q7}bc{dajCyh@VNYxWL_y|)xaNyX$BqXt1#JUqL4 z>l>}*i9gX$rd1t$d+NrRX+XJ|(b-he8MWA{;Rkp*2qGnA^I49gxKS=xmGjkm4kw+w z*iRM^+NY`aB1(`#+SkQS`RgM{n)%2Od|FB1pH>nK{F=p;`nEAMY# z#Em|q;B1U$C6yfMAA(Widy^1sdMe>ly}ON0d7tZm5O~6q;g1Gxda%d=g>uYjl!otu zUHolrVD=u0_$1H33;uV1Y+5dY-h%9dAAA`1v}VqnKS#X3@k3b_=qf!>yWdlMCAZh` z6Z`=f#t+=Nd3-}(cvr#$SLe10Z>7DZcB8zLlmPX2#YQ+!eqP{2s7!fInGIxKg%+^U z8>AJ)&w~)a`U43frs^j$+)Dbc-21J07CmB3oMjCJ6?)iNh+jGhz8?q7`r!2CIOrBv zD$o|deM$xd#6E`5*;|>p2YGVBX-N*Ng-{_)!KqFCd>`t`;h&FCzy^q#$_il-=u4^r zTB*fMOJKSF4}yk$j$rG0*P+%4IJ&SQB6=J8-o?BY-BQ5)<{SCtM(I+<2)Hs z7%LwxOIUw%9^NWjP(@nmX=ge8% zJr*xO20vN$AXo*lMXK7;n$`Yfi8o+ir@PDd3BOLswg#2rw~WC}#;>@aqbPGrQwE8P zjV~$@-F8LUDS4j=7KBM<%RLM|Hpy2vwO)uQs_;-|3O$ZKJ@j=iGfj10D|<__T*Dr> z7QTnf^MwDk9-!+&J|Aka^T*GHuM3`7@`#WyLW>h0I&J)LOr^_o}kag5|p`( z+f$%td4GqHv-E9<0EO6J-}XnXNXwr-?QS|dN-~Z>wN?gYlYsU%XjdNw0+Z#>PdA_z zpLdhbK@0+NurW|L1e19;feK}jcW{B=UgVyjor9Bzp>R6&M#reH#RAu4bQvH{9%jyH z^vCRrrC`Nm;-c{hu=?u&l(N9zcwRA~#RTdli zN)@DZdZw4!(F{hY5(+LnX@c)F^(kIg^N#Cn_)8`q8we14*IWFcQK6TZl{ zSz6W%y2&k37PE&%xa6w2M?DhD?fbVl!0RJz;HnT1NE+*xnXbXHRP=$Ous=3+I+S0v z5bG84e193B%!Y5d&jx6OKhTqLxb$rL^Glkd50kv2S{{Grg$-pAQFOgo3QVW8!xz6L zJKPX(d6eLl{N~{oPLbXlEsMSA*^RJ*@Gx2aZ2^6C0}2l$Nh0V}-mm~f71y!ESj-jZ z^obXCyMnF`LhHa(S1n!5f+0`~6~?M3cB0(`)RF1l%HUXlzz74rHz0YcQC>US+djV% zpB@N%on73=VrkTZ#8<$VRDjb)xK3on(iPw(6Eo)l5KG33{`KSq^jPr!J^h7YeK|na zOfc*lpj0q{C5T|ShyR5Pd;0by4wRxm+83ZoSHFJbCmh=Gr{+Bf^o-q)oLBr&5Yu!j*8t!gPf9gwO{_S6P)>=qqO2Gk};;@p_5TLTnp z8Bk7#f!=BXcr%t|kXPm!#d+D`&4j+Dk5|`*}>d zsX=$714+Q0o<|^iQ1D{ioCKXL`$x!v8iD%LBXdd^nV)zQ;VNJ_PXR+Z0+hSOMDLtC zG$7UEaadJFf~KEMylMQmSP8hMxcW=IDf=e}Q>};+lH5knAIQebi@?(sxL6H%Gv$fbNKa*+z8ECMtUHE115Bh8?-~@NG0$^!lrTXjy0I#s>vQ&4BvO0aX$UKI0lY^ zSjCdO{NN9-daal`2SKq2P%*`y8nE-44KSbb5;hTn2Et)*WK-&eat7F^JkN@DJzyY-7%V|}&eE6ubD)H5{Y?l!QNv7K(A1TnB zE38%PAkV;2FE!AZ3w8QI3@3DaGY=q4#>n`B~iAo$n___4Llhdqz*dH|a*v=8-Y04hxL{yJzZ z{P{7f5h7hi!6Xjc?{xq*#A2Z{#%d}xL~zu&C$UbZU@SU88qA56jja?6Vi@QoYY+;6 zQ&{&??_7Y6J8EqlRL%y!QhOKXAm*HWHg?}?yz;P30}RVWD_tTIY65aNJ306^`fd+@ z6}0?2C4CuYVZ#PxVzuQ&^`KSVo-(3Yp{hNCW%jgwB|B$-DH6g=8mDP2bI=n6WiD0? zCl395LIU7yoN|MQyZP_0?*JqW>R75z0fg`9=y-_t5gh&$s%Ibk4)lPv^l0s3aCUUK zJ(6_|bhZo|A!;`2#~`v73N8X5a_p~FOpO9YR;#z}c)Mc_bQ+Wbxj5G4aP*~czl@5G zdzlpIQ5ZlS^(UPgf{EMhRm}$TkMnspeDz3joOI@(L*8YK?D+D)U=^I-v>AE*TE~h@ z-A88B9$BgE^HOe#3oB?AsDmw*6;NEkmv z9tJgf5IUWSgp)9HV^3}xbrP0}Mj@z-gPiM_D?)f{sUYD_f1@5{)kzf_%ne#f_rcU^ zEGK*IS3!qEu(LPUKKS_)bWmM`BI5WIP+cByPPf#97V6;w(3+$Qb#I&3CSTjZw&~2cl2{04pC@JB>sd{Q3T_DCuO?qzKSVRmJh{`y&rHueU7pB+>3j z784l?2}gr#U_}CHTXme4QUdhB+1;o! zlTJeI2b}L)yC2V9uHcCLNZF_l$_sl`=F`bHE~^I(XLYDC!uj}7w!01v zj`BzGN>cB*m|Fw|*193WwEWI(x$SpK<ytsj(Ypugk(2G01&(vhCN3n)mW1ZGKP zp8nn|tku=io_@b!)5VSWLK(3Z-Ef=^@o#%RAOIU^H#&ghg!v&)x5W^tK@H45eEgG6 zCKFsftcY5Vm3OVJ;oar6$g-h++j4dNv34l$Nd(YJ_ex1i*1%~{0gx_R4T6^BiM=sE zQC2-2e5EX-j`%nzqENuE2HY+RS+{(%(B-W7rl4Ep7Qr6gCjR5E3o9{C}e{%YE^G2{~s@=HhB zSt`%VZRpr9Pc<|^^ckbd1}>wZT|r`%%iO&Z$L}*9k7ASQ4a!0sXJ&&7csQAv3qO#v z@_7!X+RV4tlm?87M)N{?KGfme@v3zcQ!OKO5SMy(CS?*+wc5Yfd`vqezb#Rj`-Ata%j^q<= z&3pr9)59lfeJwcvF*b_Dk-L0ETa-q*+dSaJ5uT0^PFcce2Xe56lriBE^U}(kDCyQC zyY(PVaHu;t?)o?Sw=w3-+RZ1faRLQAveQF;LUr9#zu!DeKAC0xl5>0)_llwy%q`ib zmg5dKQ-WQXvq=6HO;&!F>4j2{fsZ2sS%^&73=`g!J>%nu>z~MVSBCPCE)oPT1hv&s zImFu5uiHGu`=)xH?tF@)2Kn|Q&{6sUwdHRx8(suXH`l+i7O(4XAq|{(IJjyg^;Nz= z$@}@9g8cLlw|e9&A%eRrU5u~zKKGW%pDgiJV1G{fV6){KL9j|-!?z6Tt5Ro?#`WqN zq1fqY;Rf#QWUv$zPQ_{Eef5FjP3i?o_uasE5s>n(73VhQl}pre(=+$MaL9rr6l|FBnfI`C&7{d~|E8Nm@4hF0GNLMZ%}ux-z%Zs zJ?(9KC#^fTrghPAWZC2GlWauxL7-2`RE8OjP$5%!fFsecmb@%~*80j86Jx^h(wv`P zqcIgxxWxs~Cf)Hs1W zWP?Pta`woN(fnjP(7zP3&M!Tx2uLCR{QMtSL?IGM*EjMM9(Lb73q+@q*uP?L8}W1j_=f#C{}3Vu<^0!sE1hlwjNG(948TMS;1Aa4Y(Ll!&*-!G15##8HNJ zS<<8IuYo3kq({e=$1iksK%IxW_rn99PSyeouL*qXMT~zQcUE>O<6bPepMun5*1Wy1 zH9h3G)PATS__P_7)33U4U!QTQB=Ev_@jCPF=&ONkgjq^2P zZ*pNoq+&ThTm