From 7ed8a4a8627627c43306e3632937dd4a89ec7c34 Mon Sep 17 00:00:00 2001 From: cbackman23 <82790105+cbackman23@users.noreply.github.com> Date: Sun, 25 Jul 2021 14:50:59 -0600 Subject: [PATCH 1/3] Add files via upload --- Plot1.R | 21 +++++++++++++++++++++ Plot1.png | Bin 0 -> 5865 bytes 2 files changed, 21 insertions(+) create mode 100644 Plot1.R create mode 100644 Plot1.png diff --git a/Plot1.R b/Plot1.R new file mode 100644 index 0000000000..acb1775979 --- /dev/null +++ b/Plot1.R @@ -0,0 +1,21 @@ + +# Reading, naming and subsetting power consumption data +power <- read.table("household_power_consumption.txt",skip=1,sep=";") +names(power) <- c("Date","Time","Global_active_power","Global_reactive_power","Voltage","Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3") +subpower <- subset(power,power$Date=="1/2/2007" | power$Date =="2/2/2007") + +#PLOT 1 +# Transforming the Date and Time vars from characters into objects of type Date and POSIXlt respectively +subpower$Date <- as.Date(subpower$Date, format="%d/%m/%Y") +subpower$Time <- strptime(subpower$Time, format="%H:%M:%S") +subpower[1:1440,"Time"] <- format(subpower[1:1440,"Time"],"2007-02-01 %H:%M:%S") +subpower[1441:2880,"Time"] <- format(subpower[1441:2880,"Time"],"2007-02-02 %H:%M:%S") + +#calling the basic plot function +pdf(file = "plot1") +hist(as.numeric(as.character(subpower$Global_active_power)),col="blue",main="Global Active Power",xlab="Global Active Power(kilowatts)") + +# annotating graph +title(main="Global Active Power") +dev.off() +dev.copy(png, file = "plot1") \ No newline at end of file diff --git a/Plot1.png b/Plot1.png new file mode 100644 index 0000000000000000000000000000000000000000..e3fe2ab91677662406caf6feee0deb57d6e226f8 GIT binary patch literal 5865 zcmcgw30TruyQgW!rcrc;N}M)ZG|4hEOB1(gRWn6$!`zZd%@VCl2;4ri$q-G;6mv}- zvlJy8#5spb9`hAQ%V)2Y~`W zAO#2v27zH9FcJiVfndNp76gZb;3=R0I)GDlDjyga1_%-iiv=SAVF7#?7?7{cu`r+| z77zuX6d=Pv0dVD$0#BjCQ}{?Q2nhotk$}VkA7m^G$%;j?6u|HSAb3CkC?EiM2Lz;~ z1ke?+FiB@ciAonBRx0>C%xuiAQq zfk5gnmESdup-(S@K%2ttP9Af)nLRZK#__wO{_s00$-GgXR(@sdcRqy49|#c@1n02H zSXcL;(zFAf9$85xwnK_5YBS%$9t;;r_14eg+i1z?TRZlDB&)tZcM_}mZL@^E=3odU z&gow${G6ec9W521Q429r^3V!w`8|WZ&ewltb$HrY*1~SpG+1bDkfUG7#=HX3W>zCB zF@e8A_-U+L&2c;vhe=oYByS8Vm8C90AT8S?>nD8w)@mDU)Bk7l{Y!-$`Rq0MNTZmv zKYEyDLW?+eQKUoPEj=cPLx|bSEgF@RL0OL1CO?-o!0MarrAsT;^}gF*ua2b-XH1K0 zIf4KUIcsX7WoC@GQnk6SVo6?zD!(^{G3$&H8%kB9JFS)~2$Q1ZQa?)6p!=xIHx02j z?`VX;U-Ev&x=9drQF>2@z6HN;acBRGLdUSoas0Z;b5*w{cv*d}BBSaPid$pGkF55Eig)gv8FP(z|41RJIZt^rI^LzP zAC3lWoM45>M+3Q`T`gAARx=d?1&YB5Mo=PPY7U$2RCG?ek6m(RuTAaP8)0e8atNEx zAf~Nt^T*LzW)ze3R8-eHf6D`#3~_zi-6d^YIMovy?r|^o6lQST`#=r-IGi|jI;WRU zFbqANqajSqSZ-~DCSbkEMJ&W-fc(u{ITQ( zL)`O8#M!=)>`b6$B_}CnuSq77D~hQl9cDz#BM!E(et^~ub90@KujK^96Y>nUa1++D z8Vr1kEx5wENw5AHc8L5?jLgsIcGU96u}(@<0*8JKZQkxxr5Gzk^w-J8(Tk&hEJY)| zf6itOynEyxF_2ASuL=+{V%l!+IqpDLS~Qy7V_<0K_R@XRz{fsk9Xc4ozwfxK&xS;W z)w}y5_bWb&v=@2YdFx0os-DJf!{Ne$4i>j%dct*Cp6rf)%iZ4_tTw6B9W{9ULX?*e zgF2?(KW-Onu0!8fY3dY3U=n;N-W6G>h$yOT*wy?o8#B%gF`q$G#u@##1Y)=^W2?0J z1nHXFUQ!sev3xu^kCW`S+@gusl8ZRwc~dGk5Z(I4NFhk&Q|Z=s+ILS zXHOqVND2~v_x$`Bv}qs)m8uu|jfu)DJzbipgWO7Xj!$^5S*UgUj0Lnb-e?^C{7Kcm zgr4HAO{addu1HH9yn@<&4tMO92GY|4n z>u2tcPW9qk-B(5cu99=~G&38Ts%3M@JYxR*hF1WfXsRjIqG0|;aK%VM0q3#d)b+-f z;*}edBW~#DR>z~U2Ea*t}SXMwF*d|uCJr$1|fV1JFk^>*(Lt^P`2JhFN^93*vqlR zXR^JdHJr!1QT6Y2jsAH_lkE)MXZ_R#eb8`9j`oPsXb2LYY8L7MlmB$!5k43p(D^c= z!}MZymh5ZbYSP+clo9CjB{Cin?l?Wk-T9Ct`LVgv z`1YZMV=!ml*P@|HKD|;eu*_A}E^+ro;m^mF*aQ71z5rk<`DZP^76IA=t$&v@S56(YPuUpfh?}0#J*1HTH-w3A4zN7Li21`2we#1A$MRaX{dflbe`=z_RKSJhTc)_wptGJXNtXLrqUOc@cTvitH?pMgi@53b{c2;l$GdcfaI8GY~=%)>O4PpL} zxO%B2zC!rx+IIJzh_mRe`GQ;v1H+30*#=R&qxywoO6VoJ9@P5jx$5d*AG4rv)$K}l z*eP1Jv!Gk3X}QPfUW#@=tW%DqbeHv6FBx&oL@9GQ1DIT;rL@4}C#F?Y@%l@|W4_~F z6oPZ7xtFLWP3z5-rIE25_6Fh$%~r{XaKk`(E*`fo7#WDDC#3uLnfug|wHB1V(ox9| zh?r+DsoQ%F-fGl&^^@=oiS6u(b7QAfkggRkY!jHgF?F&_JaMFf zQC4r<@&Ztncp`i}VYp-ov29wJs9bhGQbI2SKDgo_Jd^nA4V(}!eU^??d(ay5n%|7; z&m!D$$;pG3&U=_xr2*Tmpf7e9+LcVp_&P1HSef?ng{z%m^5u)8yo;Kqw))fV%o{t2 z$A(rAmej2;oBzzsqt+ymfV7A4nLH(SjD$}4Sw3^-Ee`a)SXEl#WT#!@op@nGp_Y!V z?2jo?hYhvGFSu@!5D#$X)-sB_I>qhUH}7jLB#o?P0K;u=S{DLLB~22`Utj7utBe~! zMNU;6Q@L1GqihGjwdPR%@Yhgtnn@VebZ30}viM|k!Nld&oGyc#%Ef=kKm9x9YqZx6 ztWicz2^(YH0}s(v5yOd?j}>grW5j>X4<&Y!0)7R+YEteI|xLOdwxKmGz+@%`|6n&|0JA~(A(la)$|xs8iAY!;cvpbj3h+ z84Fy-x!}_-H+~j!k}tS#f(ch1rIXfQPV(V9Rm9R%twxx?qSgvCv(Lo)`cs(EC*uSR z-X4e=FUs~;*`ybl?UFoEhcIFIfzes?K_06&o$;+qhdyc$Yvs)23n13#9Fm`nvqOkG zudjGj4T;iigI9o5%j&+y`!LxXU#Sb(VqMtl!#Iil7%0S3J$KROfZiU1`@NqZLHS?c z>ZY{AK_W*__>_4{RR}T3x8HhBXXsH&2hDCpqjGCoyWP+(;yW_7_TvY9G#q<<9}Tl= zplcF60i6nM%Vpi~O_!%bwlp|A$u(5guwQCPK+REyp3_jod1W}|MNt>YZuCV=**rqM zuXX^&5N_fMo#w_SGa#y7=g}W=HDa_4t%~ysfsXJ7>UuQx0R!4xYOfDDz4xC2%l0sk6n0PQS8 z#gDeYjJ4lB`Tme?KSMZ1k;$zH>=#1yOQGk53bLaXl&|{`RtLG{vj`tR9$L7ps-0u zwNLiSJ0z`W9Q})LzwOPa^WeN!2T>i!yt~IOh{{9bFXidBJ@g^QS>vrtz8=nxOq`l7 zqF;W>x9kOL3$cbfX%XOX<~rtw6NA&bI#_Cc$kGMV$ftbvZO-(O&Z+H_cQnG8_*1WtS&aSx7EW4;-xlij$5SE#H@_G6Ger-Rw+lU%Rp5Z zs)@JMzX^eCnJ*`pb3T}w;^$jF=wcTm?+yvOun$qvoGkUjG}6uxoZLYBeQoc;J1QbR zVxHL>0x5kJ>vvB@YSs!;G?8|fui0bLG_S}R%mz;Nmx7^zsbs~eeC z2K7U676Ts5onn1=o{HI>E|m-vUfp9=1AiF1s8Z6jW9S!G?NIR57S$7HDL0D;4<@&g z=S?pB^SA83zM<1>dx|~W1f8t9kG7-JgO%`PpEpsDmlynJYAvB%dec;VLsnKLxu@8$ zzsIw#yKNu2ArrHL&d{E0h=HiO2;dWAlkY^;8<+$+g1tpSQOmD0;4DrMaPb-0117{l z<{1CGpB>|GZb&$>gLX9Bo?AxhaR{FO)DV$ee!n-QGKSrDXs4%p22S7ivS~^Yb|A zND!@gm`3Om8On_#76|9>6&W@!N7JSI32xO6+sc-cWVafJs$N?9D9H&qy)0DV)6SU{Ee0g1?2E8IEYKaBS`gNiVyn zL+a6oWL-4m|8)6XWgXvTrDSb%?ewK43*v7R+XK=bZS)^m4oZ6sMB@Ap$7!kzd(C$b zPqeQ5MzlMk0_Ytmt~P_3*J66SFJ7JNi2Q_)79245^po?eem=tV?2K~5Wi_ku!(Lt+ z9ErpMmi|zDbXp%PmR&GZL}5E|p4&@WA*I92*EnGSE(E)9J&<}nV@kBRi3@Gb8)+DC z@s61*)z*yvZK`6lUo<2yv1q3B)O_+_V@jfrB!%-vP`Lbk~+vTg6CW#~GuzmB=QAkg*MvN<^ zhKy1GdiC@0VQvkNIVQVlM;*TD&@DtsPmTXVt8Yiq*-ujSY0@xS6IMoKew@Q}>1k}jB>*$B1R)8$!spczl&%j)pq zb=_VupLDt@%v#iZL1l2Y1naXu^m2#~Wr-4ymEa!jyrQ4}Z0x5uB+N;)&9Goe=MMEf z%5D;MwmXtJdq_}Nvy-@ugo{kh$MuK)FMm4<6>IFxLu)w)=hrCzvbH Date: Sun, 25 Jul 2021 14:51:38 -0600 Subject: [PATCH 2/3] Add files via upload --- Plot2.R | 20 ++++++++++++++++++++ Plot2.png | Bin 0 -> 8471 bytes Plot3.R | 26 ++++++++++++++++++++++++++ Plot3.png | Bin 0 -> 7099 bytes 4 files changed, 46 insertions(+) create mode 100644 Plot2.R create mode 100644 Plot2.png create mode 100644 Plot3.R create mode 100644 Plot3.png diff --git a/Plot2.R b/Plot2.R new file mode 100644 index 0000000000..f6beb636ed --- /dev/null +++ b/Plot2.R @@ -0,0 +1,20 @@ + +#PLOT 2 +# Reading, naming and subsetting power consumption data +power <- read.table("household_power_consumption.txt",skip=1,sep=";") +names(power) <- c("Date","Time","Global_active_power","Global_reactive_power","Voltage","Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3") +subpower <- subset(power,power$Date=="1/2/2007" | power$Date =="2/2/2007") + +# Transforming the Date and Time vars from characters into objects of type Date and POSIXlt respectively +subpower$Date <- as.Date(subpower$Date, format="%d/%m/%Y") +subpower$Time <- strptime(subpower$Time, format="%H:%M:%S") +subpower[1:1440,"Time"] <- format(subpower[1:1440,"Time"],"2007-02-01 %H:%M:%S") +subpower[1441:2880,"Time"] <- format(subpower[1441:2880,"Time"],"2007-02-02 %H:%M:%S") +# calling the basic plot function +pdf(file = "plot2") +plot(subpower$Time,as.numeric(as.character(subpower$Global_active_power)),type="l",xlab="Time",ylab="Global Active Power (kilowatts)", col = "red") + +# annotating graph +title(main="Global Active Power over the week") +dev.off() +dev.copy(png, file = "plot2") diff --git a/Plot2.png b/Plot2.png new file mode 100644 index 0000000000000000000000000000000000000000..f2d34e90a47d5ee70a94a81026157d934d555aa9 GIT binary patch literal 8471 zcmdUV2T&8;_h=LWrG97vD1x5_4Bdz#Qltw=goGNpE)Yc{Nbew`s2iFE1W^ecB%mu2 zI;gN90-`hn2na|IO`7z#@cn-8&AfRt@Bf=O^PhP;o4b2YyXV|#mw9xvAc zE))vIYoM=VfH^1ql6%+|Hpy}7xGLLnj$^fuKNAp)~|DfkO9ZqH49D^C=PuX^jZqs}ec357Z| zV4$OE=J$N^#RFiX*jvN7St;)EsV1|R_)_PWk6m5zrV%Z6*o7jpI@NZU4K>_ z`}@V?$U_&y-eV$<%A|j?<3fQf1|RBYsU{9(PT0tgw}v`bt(6OZTJKK^!Y{QDS>yzVa#-!pp)6c1sXMai=&tX6DbQBp zlX^%&*=xP{+QVOf#$V2aqfq>{0gfl9Yww%G(7&HT#az2_u>beVo+g(Y!qE zKcL-7iyAbt$hsmnAXAI)#dcI?8ELQ$9Y|W1zR}bphgA%t_pqWI4842B=905sy_giM zGz?9S*;OF4neI1xNiyEqJv+4d*>Z9f+0LZHFQ)0e!YU;H7!x&Dc9Qz&0yIt4j`S#K zGG2~(%dGJKk#m1EW@xtduo_INp9ljgb3;NckmkCQI`7pDt<804KzoGq)UwPn4tR(f znu5*a0gJQip=p>JGi_J@1;2Rao^e`8;j?VlQqHK$Zwogu z-;>>p{jbV|^?rL;KFk&&gqDy$%Oq7XtuVexH0CZT_=~yp>%bTHt_jYW6!inEgJ&{$ z89?2uL6!6uJyC$a;|&IjUB^@Ro79pSejsGtYso_@De!TlE&UCjyO3kvjf4hKUCyc9 z*;%#m-G+&*E@`zWha*bW%8$f8sLj3hi)dO>7HXN`7;bPbE1;BYO zcpBTmw{UJ@0azX#ccXfMInf3xPAo42D_rPeg0HxGz^g2B(_yuWgtCNh_KkemMYamg z=QP)ShXJhOgMe=vgR5=_%2*|&LL=YJ65F>EGQPqi?Tg;~&TX=a7=W(vQ#UUQOA1W) zpuS9Hoxjk(IC)s;i`k|Ub-xAc2(8zn=}EiwV3V&SR*_x%VUOh$2420U3o+NL3)F-f ze5P`P-gYDvHoo>SRuD2Co_|%cF_^IDMKb&KRSj)i!H-l&S#!hK;iUn65SmK+##=?y*KGw7P2zPtBfs0g!3^PuoE>pW9>6*X2%;|i9 zZX|a)uh*nerfBpLm~tiMjr;T98xj8Z3xuWp1=_BdLavCw14(55;078~r*d=1FdZ$Au%68M zmlT$R#s%)kz73#W(S&dP->UHxQIzc&Yy^NXr3fQjSPp~@43ql*5#&Jy#o4NM><<5b zw?Yhj;VYhOA!)e-9ga!NWv;fmI=BX_PEV;%Jk3RcAHYU4*1Axp`J$Whkkl>U&5=f! zz=OFNESxHVY2)OUIk{E0 zt7@|e6@M0syL&2RWVc(JHI+FtdWuH6%#3mPT+{H`90gy}4dMV-m$L4CU&;!0>k496 z@E$W(GgU-~i+s3Va#Um!(QLJKIQV!qJnI@i!N?YxhIt z87BX{eX+&A+16j@x}1bX{!T21^haABSObG36OLCi!CTg^$cisb|u_yPF;6Tek~3R%(C2XAjYKaSyta7o`V(n>g!qqSysy(dfZ8`hkg0mO_!hHz_8+Qq4WiWbXQuh8 z*h~)ZvG-SK3EqyY?VsZ~;WnC_sGpqgbHQ^LMdAFt<1IU+!BgC4vkf`VIn@7v*YmER zO~XsQej;h)?ZS%xmbhz#r+mfdACeDqBBDHX-NzEIpvx{G97r%xlb*bcmz7Lqp4PHc zo+*Pg`1%4O8vt$Z%fmVKVJ}wNPTY`xh>@uM)%I+@Gj5y{y6m3^ClJS zl-&XUqAeao?623HJe!b1TK}1rEzfoyC!4LtIS*hZI15KmFaghZt$7F7S@l&vUIQUh z6H+fU~aOnXSr+j50i*6k=FP!a=i_Y-nxVSpA5(h z=P2+_H}T7QLIHl=KhsExWxayFJaIQfs!a`Q8c4_8VCr-tTdta~OdR%{85dSBhm zQ8foFr?nYdmi!R#lis6J`t=`J3DD3nMQo(LN#j;4zcDinM|XxwZ+De|pPxtL@>Kqk zEz9eLLp@J<+#ON7(f;}rI?4a{@|3d$zIW)eqowg}z+;!#%Y$8@!7af49}?UMom2&TRE!}58jSv)C8a;>fy#CMr2heT6 zU+=s;W5>3Qz*XtR#p1O+A=qI(=C`|IFNHsYvIh@;kwu1->Cu^)8p0tgxrZ5Iq(R*t z6}wecaUG;7CE4K+)rUVk47KQLgsCy3I-7f;1&; z_d0n-=PG*c2y0Y}-BJ(k#pM4U!97)M6UJ53ue3n|KDt_K#?3xNMf z<&nl(_z)c(>Q%{nEmVVj+t!6w0t=2ujgFoXRGQ?&N?hF5gva2Ulh;#~3vTD#V&)eA zu!DR4C$VWDr0TqRX)j#9d&@_UH65S_p17QUcV9%htJFTCHSvk`zpQsU(baIQ*q0Nm zNBnh?#>Bcy3wi}VtihpW}JaA3%WtgM) zEE3|vXXs3gl}<3K_v9rbpQICX($^cp@J^bm{A8JENS|$wz*9i8Xn+>JFU_1DPTEsaYIDGmby8C4`kS0yQ zDyEVi-D#t1gF}xH_G%M~*4zw{weGSs6QJq`pDEiKq~<>2E-}F2C{ZFM5LuS3YX(jA zxG#AG_yvbr|01b^c2iw{p}WNlp*>O6(|l&jMOH?Z?&JI6U3-+3aLQoRfbSvL7IL;E zvS*N1kMbJha&IE!!SJ{}t9Udp5vzznbMpkluS%G4KlB9tVY496%LV^jm`b}3+}a<$dT#mC{+Ci$urpt!lGPjXT(7kb}u4!C7)o>Y_d za?n!d6XW0mfIBT+NQ51Jr-2hXXX$GT+sfpG8i+I#D2MIf+dL`k0UI6wxI%M?>prtHr&!QGTOEeMBiT2c#kFTYX_Q`^>$Nk{m zDmlx2M>j4=fMd4+xit*+Pwmc!lJT?zY?!nU<&cQL^rU;~#nWE!Ui9M{LgVp|3jvVx zu542KBNg9TZY`+IgfbVqf+$#2`XdbBq9t%2f`5w)K7Sgu?~DcAGwx0v=|C!AP!I(e zxC;tMi&+L!EnDB zOHJ5UwTd0CDZkq1_oNtY7;cV4?~cX=tK{lQ+w-%+*mz$;P++9rw@RzT7)?m3hK!Ry z{1d4V1fMKBQWZ0h0T?8J;{^DuM9 zz5|!(esmgXIj+(9yU(syr1g{Fau^^Nl>e?Ti#u6M1({OZnbu2^5@W0OPNB9 zA(3(xI}EtW`&7o;BP}B~9WkS9w6G2|h}PvMP|u>vn3I3J?H;Y1B9�dk`CwXE4&1 zs(=Gg2j@>{ygTg=d9p^}&m4%8VSBXAozvo1*`5oJT?3uhCcGs(7Ctk7yh=QV&D6{= z_YNDt!(EC6w*e}$gVo6=?X3iIz8yry{ym^$qoJt@ZFtmzUYX!g?H4dgq*%wLGIvEP zPv&NxKpUo7HqMDyeQtB`(8b9DCXLTzPOS!ZSJzH1n?Qf7a|udWxY0=Rv)K4WY=`K8 zwH{?RSfT-?92<)O3%{?c*pKZGW6x%G;Lh&0frjh#+|}2zSI*poUkwoP35yZhwdx22 zc@{95>M`^{8~Wn(BhINM|FkADMvzRLK63B-yxEVgULmvy`6K410Ct#lr-*C@eYpRf z$TD47eB2C&ZqS$~_JKS^$dxZ-kY&~+_$=m|$J#)5Z;6KtTV=&-co=_h9c?l^?ZMLTnYSjC-4HVy~&BGQo+ z9hegiSldd)rzSiF;F1wt1sqzW+7!BxqyU!85LmXVAE)231kDa(6>m=MfrC!myNk6L z-2A)Cab6n4O5jsSEfh-;tm2t|b5)~?E-f4ptWEMdk{HyTSSW1L7?3hO`lVL*Tm`f8 zkMB%5Q!*(JBeAIFrG_NOOijq;s+7dim+^i|G3e|G1*Q9mJ);ioD?}FX2Z{mH78=v* zkq@tdJq{|0PhWI6ozrs-IHaO1deJ%ccixCc>Ei5j2boB~z9yGsnmP7!AhE)@C6Z{RQ;xLBV z7L*oSe7>!JW_y(T)6?jr`}cs!Jcgn<-9#D*{owd@xb0) zuSx4?c3VTPWmH2bef^3fjLca`%1uZk1qPIs7R_3Nc070@{vf&)hzDvrp47QqlZuZ> zXP#DDyL!sXv=1lA$Z!e)Gq8#Z{Suu`{jV_H?+(pbPzJ+Np8}6Hp$(@G(&WP4nvyH# z0k&Lt$Tg&2(&xw1+{M*SXa6|q=5{POD|e?ZByii3wLaEg=r{ANJI1k!t^Mj-B}~Dy zFQubW5~p_iNOhpU@#am>>~A!u7f+kzlY+VVjXzq-^x&ZyZD_H7qBbb#Mx7bv@k*n< z@}^JxbZZ_)TAm;y*7tqM*|6VZs6+~Gd~9g0Lh1e*Cn+%(B6o5R9{PQ9RSQyj{VutH zE*b{Z7H1_QOZ2Pf7o)$TRoYYrSnzP^AE+r4P5Q!fb{-)Jr~ zW{ID>AkGhe<~4*|f0_$rxjcJ~%yCT@iVb`oBm1f`b36onQK=7@jruqqd?4)jq&LGx zO7W)m)8%+Qw9N`10sn9r%uoa4wDt2klx?6)pd17*7-05fSSn)Ll?A{%FCpsRrRagU~+0_ZadC*A%cja6>U|3nGpb4dn>p?pn zc~t`KTDQNQR0d_&^d}`-<@M%DqZJ7@xC;IVuLwYB`h?4-lG(15;@fVerpytZVsG_*d8n(p6Epb$*h6yr(!@z@@gfO<=9um?yI#i_wMrbX^1TfxA6sa- zn+y!=*Cw#HC8bDqG|A?5P5Xd_B2&Ft1$-yzOu}1sO~sN_X3(SI(7EfM68cVE@oNfd zI;ExGJVlQtd8RAnlT^M=92@nz_B7EvnU4XSn|9KHdRtGK^7(p*fZ~%VSS2P?y_mGN z+YX|xSvLDs0z&45P$RtbO%%G7wtrIgy8UFrx8B1)$lgL7t+Hr^M|hJ)A}2P}B7au| zmsFFXEzXW%MxWNd=e_Uud1&FS2nWpC`LRJs36_ZT&$~%+{}l&37b^QC zGnRBPg&EMvyYDG5u9HnN{(@!LBVw7#x-y@XPQWXVQxYEEN1GlJ&%{YdFtcb0T(ek4 z#AT#HIs&@<^$-Bg-XLyGjkx+Xw$Cn9EkYwZ(&{0CkqvrpIFP2tBR!0Jr1x*E8Cs-# zQXb5U?>T{G7#&sy>*JO3nU|E&o~=@ut)&Etdu=~f@i`y-15x3w4vjf4_|xb<;7Xvp z(E4aW*DoVM``ImM2~Hb3hTiEOJ^=ELoK34)v60#kXp(uu0Uw*=$7acL?Xf}f=e!2w z&4o;!Sc$|?4Ma=*Psob@N%afwGhArTa9{$xw-}fc`$UxNNc@O!YZ!KLzavqHH6LZi8+!W2Ih_zd4kN%(f8OYT#sI04j0 zd$z@>SK19q)5xIsZ(FE$+&bdM2laC6qru`IjJk{_5tfcwn;b=1p+_p*@qw zHJ2PyHzvNz-$-Nry!2*S_^NMVlM)a7i0ZKSx`KfTdgALBv!?Tj%vH*S9Ha5!vr3@H z{gq+BAd(-=C{aoiHz!Cp;70MCX#@Kd2Bua|oP1&_lbD@g^=TL2Z?k@4c(@eVha z@oVMYCUe(0hm##P6aCr`eUCm_vesH;V4cy${j7 z3@qo;r+pI-p)WcguWc|llD0cDcuXH|GoOOny~n-L*TcsIpONHG z$<|rFHn6m8+-P$vm9Bp6gUJz%>;|peZiv8*{CC^Bu0@~6ao*sjs9U!(YR8kq!HlT% zBrJI&Mc#pF4b?ztL{@6AsWvpMXNeoT_VN{JWZF%>Ut&QHJ#hkAAVj9xOxj?{L2Z_+ zbbpel;|R;@5@@$r)AT%34>yJ#!7_4ms&~;zDm6uz>m$(c4szh>x)Go2mLEx@H`k%= zq7(13A#3RpdIcl%8q{cD9alrLyh*8-Rva?^9?eC-pH;a<_&*#CK0&Yg^hkFP8W5 zxLY>6{*y2My5`UdgIcz_={nucYjQBROE!1$1+qZBTC^xT)VvXw+e@uj|06y${rV%c z6b-$(<2jq+T^{J-E9+8)6_m$jR=X!}uKD#Am8B9`uf^sBE(%Ch)_+CpUg*OK3RQbd zka%kP#5i3~s@EbLk)ElsDRy|53nuV0Bimf^OIdJ5qVH9!f~Yhh6{n<_WCH##ZHTQ< zO25|ylPfyyP=#(%%cv8j!FibRQ{QlCcYme{v~5{XQK+y^J|v+=*)0G$7G- zfbjhsW{;tS#Rh3$t%~)uNbevw7n&+y3Jug(4h;r3TsbRfY<%|;A_IrX75npIQ%T6! z=NGZ-au|SX$s!d#M?Rt;uP2#QO%l@VJhpaUyY?;^NY{e^U7T9WQ+9R`)=vgtf1Dt? ldgp%z@Rk)144SsL3I5_M!GTPS;$B6SqXntjPGHDPR_zdBS1 z&0nU5kRl9{5YpT;{CnT`xzBU&eed(U_ul8Zp5x51ec z5;%U$&=Q5>08uFR9XuQe=W@W7I^?4PZ)$CXe4~WVxlxOP#PqZMgodNVNt9B zghgVpHIRFP1_`++8VSfnM-&iI()utdA%T=YAyJTvPNFaqG*Ag7xY)k_H74WeFxw=oAW_PC@ug3WZ6hFq!lO4SE8JPC+h21NmbjgUF4}WFpGQ@VXRB z5MfNrBomO>c`qKb^FyJwJY)T{wR@MGL!ovQA2-yu4$Pd+;tLtAyR7F{?jB!DRUro? z&e%^=YVNAsyOi|ZB}jga*q^HlR>4 z5&#FD3r1P%V^KDEem#-@9nv(%v)6a2OeoB1AS~-nD07qR`K|=h{L{&}vq^HmPY|BAt*0D@&^;=)pL#L@O=8Ch=D(tZ`QwWUc_QO|_ zNwz?DR{(RR-tviZJu{7N~|7O@#S-4Kt0 zCj82X%T-zpvl0fA#$NQyE&ekDVS^dU@MsXYoHhGvAc}z@)Tk5OZM_sdOT%~EX52DW z!oAJ{Jtr9X&j+1k_yOv;A$bg#Yu32iNPQga*Z;7#R4}Z-kdCv=saqS=y__TS5N?*9 zd^+}Xb|&2HnXOv5F;;U=V(=l?@=Hzm5xVH2Znpqjh|nxl#nGg#;9(T#^M9FI)V_IM+Y}p}TZAm1f z2f8eN`J0Ackx1eu_`A3zgO=DU^<|AO*RwAtKq-a79AA-qe4^QXMd{YTCUIj2we0$Hldpw4;=|_cvlQMAZi|oco+6Ox zRB5;w92d_T53Ll_hLm#Cbgn^%3#|IC6UZOVSTD3`G>3;vR!y#8xZ7ZJpi1feyHSwv zdK|(k%5p#x$|bZBdW)6{RjI+f^1=!DVY7&BoWbiK`-qn$ey3^zYUY)ZOMw70AZo-zrvnO55K7?s|1%?D>FLn*OH7pgI427<) zIva0D;DsCW-++GeZ#?gn(OmK*o$8ISYUmVIw!`H5hha1QOM{}?uz%CoHrN9%@A=cc z)wcs}^(!#s$Do0Qmi^5S(qVGlvNA)jx{__^`73q70ZZ?ns6SzTHSt+ZRcc+eN`6~? z%gARwwofDFy7mm-0|l65B&MhN=`t(NOKHjxg69^`sFNrj<)Y_Lt-0%{PQ-hk82oS> zw0Zw+sK~Sd;{lfqY-lBk{HA73h-9DS2)Uoz7*I@05LAhEAF zLjuU)feOvem@)co-2JR8?m7p&XM6LjME6jowoI`14tR2Vjj1M(al^SO*Up_MQgK9t zTzYC>0d2`RV>SkGf34;YGt{(U3R*Sx)IpK2*ItQqK72MKNPH+?YRkdMss!EcJt%A4L&-u zUu4cLDRI{LH1VnFM8NjoZ%*4!q~jD=r7<#eAP&>$k)SrxQLUKWuUpwQSGNgnG#F<0 zWGg$}asNi}2*zzh;u(5lw=f)xB*VFYZnG!m_8(U-?m=_M3Ts8mwISk(t8E*Rzk|-4 zjVwh3_Y$|t%O4U1OeB(7th9d~h}<3GRT|p=2t?-^_U(Nm1aopVZ^?~7KE5=4CCr`; zI)^*-M)e~UBoKkjwoCb9m(NBj?1#LN#LVTu!>?WjI4jCOa+ZR3Aslwh?hmc(V{!ND zqm8k|%&*Xmsz*;FjXqr0BUjHoyivl(M-$H{${=<9Dh>1S@u^Hcj>{KD$Xscd$j2wC z>SDfncnYn-iX&T3#Q7{+6%56$SK}ptlaJ4o3#r{7taO8rbW5xe)^kpT)dA_PcZ)oR zeI4V+6+G*~zkIxVBhCLrAPJy9obsvrBWR!7j64#GJmx5lJaas=Ddt0POe{B2&O7@O znGND0t?4hlhvG&h6s6JJA4|}r2U=<>Ts6jr@9hOC*5+#*7+v|16>M5 z(RRi*yB*~5{LjxiAZ@3Y`2y;ieR*p$6nP{anl|>@Yc^kEgcZUaCz~xq#5y%?(LEx& zVNVJ!Oa3&O{C%Q227~kdQtv3Ande&Pn*@{_KU-w_<%(P@$GLr}_iW_eo@TOPq_nZX z&bXx(4AiS5=8D~T)>9>b_+d?qom-Fw7rSu{!IAqTYli%b*z+Rp{cjY-8w%}|hDs0z zqrFgH{8gGr_ccDhV`CD?$X`ajIwc&AZFS zTnKzQgbE$)3VSTTQK$E!h8XgyB;DH@fo*Q0TI~wt!aai_^0>FTS@D&o%N4lA*o}~ZOXx& z#&6KgLbqq|?BDPnEg%M!1uix4PT88Sm#DqCadgZjWNAmBD`~@T*eKX{g3dOT^!lZm z9HRc?cB~B)y)alD^k+VT=Md!iGe;b|e*@hs3KW6HrN0`kTN=)<3%Z%O5z2aZNyg8_ z$xJTB&TNU`{edwq)_%%4CP$gbE_6Kfo&TaZlOS)|Y=OWQGqZ)2UmCXuD^zNPC#yeq zJYpqd%0XcXxIJa%a!7!NARt-9MrXBC-QW8rE(V;oFZ_;XcW5idVM{PRUh8(-y&dGi zfB!UU&zKI0Y_xl$#j4(%1tSs(uk=SI`h$~slao`=p^bjenu+sloP6qaemPPl-X4k0 zx4k{83MEldfTf zPyMhl<)r$ziSq7erFR1IG`ZRNnbxCWvmt}N95C=CDb=}8UI@5`X~$uysaSt1anQ}% zOWpum=c@(K?^!*aez9_7x@UfDMg$&yHJ77z_;DPl_WenHw>g=5H%}~TL{}iteJIS`@#*coz@i@9GQKmyURx(_LW^3 z|M(0|vA?HVy+YRbwXi3Ac|oW_m=w;Glf~!J*kF6SDF>jLOElqz%<7y>m7I9-j0jLc z9Q{^kky96-a>3j$apY&D)}z+!%O@^oK@To;?`S8W3Bq;4gsmbSU-YZd*Fh=q11Y_u ze_HUv8s97`nr&eTz>1}*M~?0AeKCglV=h9onIRPwGlurqr^O7Fgm>3o5%m<$@U2|A zIkwAbfO_A6KWmvnYT-GK?R9CVbBZ-5oaOwtJy;4~YR5A! zX15h2YyyPyY;zFjO{VXCW$)8gsm?X3xUl^Y`famSt6kijR18=dmC@K=8?#!`1~XO+ zvA~qen-pba^*g0hUc=?PV|&$975#WjqV}I_>D1djgapewA+QQv5I58YUEb!2g=K%v zs+=azKOKn%EImF+gh8Gsnh-U23>Ta(rolg(OTL>=vuo{ITcr-V6GlPL!d#-TLClDh z3c(W4H2Lw%dfdE2GrtDqUb)b)TK;&BTPuU4bh+f>W6Q_Qz6q&|~aydVJ?5G)3(K-g(L*NK!|(;I?V>mC6TgwyI0|TPtyw`yRYCkk`_ZD>_rp8@zY#SYxn4$jI7}3X zmA2GXh3dafSn!81dOJh+>5-3+EjqbIk-dU~KLcofwyLwH7BSk;+K;QbG!bMc=r4}3 z!65ChLHj=u<+E$yfb(PijK2*khH6Zk<$&)ZJk#|0;t%pbr)$7%zs*N8Ylvch3xB9U zj2ki%ER~Uf9e!L2;CxW6t@hjN)oW!Hjp0Rrw!Tt=$r!q)=98ZC1HNC6Oo8Bu+8#KW*oG46*{c!3zS9QNg2 z;ZPm1kZ3NLul>sy3(T+eD4Q?|9;4w^w9MboMK9IRRL|M50gar{=_+tx*l$?L`giDm zuvSr)@v*(@eXxNi-lK&Sm#^8p6YbvxMGr8vbbn_vqO91aaF1h-OP^d$xOGZt(?`Cm zpcOFx63YP}eVg^|g)KV}E6jp{Upq!Xqr3AreX$?e{r~Q$e3TC`zzzv&`xzp88w-xh zyborc^Lvx@v4b@9SSyYkOh)EI{J~97o*1P5u_F>h=55>$-&`>$FKth=BtoIbZv5l0 zY9$R0d4-n`KDLHf04bnR`wftuUq9kv%RjJu73?*bY&XVkm#fmODE{fWDdnocZ?HvR z*-ke7-xO^F10FJF70Tfg@<|T99nAki0oC+ z2Sn;-kIgs-P*wP0Eu_|4k=@%P? zN`=C3?9{#d-{b>#vdKS?4Vr(mvU{XWpM2yGWIiAVsK4AJtHL$Vhh>I!!i;7wpk+qI zMoDafKXT%*+gZmgJ}zUjI`4K~wJi|LD=j1j<2@`xv3P#?s6P3{R_EVhCR|7hWdKh6 zfB_kgm-l@x_S=zVB+|UH@OBOuFAx0Ag7rp2u|9(cAD@HuumB$yyc>6Gt0e5eI?=J# zmjCZ=Y>Q~oQc>Xl9d7fs3|~FK4{5#M*e#KbpfkUN`j(6F5@5L<|f{liwo+cgGUqQ4GUt13XhaK<~klYITW`y z{qE4DN^ei`jG@70ZEGPwQ@rpnA-#Hg^Ea^aYh8l zOkM0KfWdqCB0<#4ExHYlI+oqxl60mXig3Ca?B-UC7PTg^!Pi@^l+lP= zUDrfXMI>%jX_#En$GYb8zU#7KsPyWc7ECJGjl9#gkc!o_21l$bWQtQiIgrB~X9jf~ zvOC-ei(_oC;&Yi_i<2NUQUCqTtponMUQf#R=7M`}%ATv;aq?0n?RY-9!T%aq%ypEk zj))-JAfU-Y;$>kfH`4huw@AE)xnh$FYcnNociRO(1NAF0oBsVLG%G+ z;~Dg+buwzrqYVdGcsTmY7?C~ah%L05gI5vW*A1Q_@-iXpj-1XVx4_2DvEcmU)t#)v zf9=75H7mGPx>pL^XRaAmXMgXB?rqEMpq5#0>>j7#$7+ zx8s&}%6Ug|sgM`*-jbTx^XFmIW1}hi3b(eXO4eg3Zf>pA>)NLGhk$G4yW)MY5gz~b z*X5#C{KF@R$H<0{89_N?*`tus7lU4K#E4?K}niQ;1aC)Av_Qp<0%dG zUC2w@nL#nQ(kW6orf`X0Avha+Z#seEtXwm{;a6O z!{Le7K@p(3rEV<8V-)Pm2`jO~zMp;=me$7Pyb^A2pJW^Evm2#oMSc(8CVC!`1Tp^e zmXM8hO5KWWb5O`r@_jwBBw0lH Date: Sun, 25 Jul 2021 14:52:39 -0600 Subject: [PATCH 3/3] Add files via upload --- Plot4.R | 32 ++++++++++++++++++++++++++++++++ Plot4.png | Bin 0 -> 11313 bytes 2 files changed, 32 insertions(+) create mode 100644 Plot4.R create mode 100644 Plot4.png diff --git a/Plot4.R b/Plot4.R new file mode 100644 index 0000000000..9fd781f317 --- /dev/null +++ b/Plot4.R @@ -0,0 +1,32 @@ +#plot4 +# Reading, naming and subsetting power consumption data +power <- read.table("household_power_consumption.txt",skip=1,sep=";") +names(power) <- c("Date","Time","Global_active_power","Global_reactive_power","Voltage","Global_intensity","Sub_metering_1","Sub_metering_2","Sub_metering_3") +subpower <- subset(power,power$Date=="1/2/2007" | power$Date =="2/2/2007") + +# Transforming the Date and Time vars from characters into objects of type Date and POSIXlt respectively +subpower$Date <- as.Date(subpower$Date, format="%d/%m/%Y") +subpower$Time <- strptime(subpower$Time, format="%H:%M:%S") +subpower[1:1440,"Time"] <- format(subpower[1:1440,"Time"],"2007-02-01 %H:%M:%S") +subpower[1441:2880,"Time"] <- format(subpower[1441:2880,"Time"],"2007-02-02 %H:%M:%S") + + +# initiating a composite plot with many graphs +par(mfrow=c(2,2)) + +# calling the basic plot function that calls different plot functions to build the 4 plots that form the graph +pdf(file = "plot4") +with(subpower,{ + plot(subpower$Time,as.numeric(as.character(subpower$Global_active_power)),type="l", xlab="Time",ylab="Global Active Power", col = "red") + plot(subpower$Time,as.numeric(as.character(subpower$Voltage)), type="l",xlab="Time",ylab="Voltage", col = "purple") + plot(subpower$Time,subpower$Sub_metering_1,type="n",xlab="Time",ylab="Energy sub metering") + with(subpower,lines(Time,as.numeric(as.character(Sub_metering_1)))) + with(subpower,lines(Time,as.numeric(as.character(Sub_metering_2)),col="green")) + with(subpower,lines(Time,as.numeric(as.character(Sub_metering_3)),col="blue")) + legend("topright", lty=1, col=c("black","green","blue"),legend=c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), cex = 0.6) + plot(subpower$Time,as.numeric(as.character(subpower$Global_reactive_power)),type="l",xlab="Time",ylab="Global_reactive_power", col = "pink") +}) +dev.off() +dev.copy(png, file = "plot4") + + diff --git a/Plot4.png b/Plot4.png new file mode 100644 index 0000000000000000000000000000000000000000..8f4f3b3a0f17c50efb3066c5fbf8073858fbb507 GIT binary patch literal 11313 zcmd^lc|26_`?pA&P@J(O=|gEOr6IfQYsA<`ww!8&QOS}eB$N(ii^iILXF8Ut2p@Dv z1|jQM$})wqWy}6deP7St&+m`t``7Qh&fI6_TJGh#=f3XyyszsS)>x1I$cZCNOib(s z`r2kpOe`Q16Z45fEDVbG1CDo$$0F9qLWl8WVp3va!ZR`LF)76`;mLoVe@IG7On9X~ z7o&_(!sC_jjFPMr6QdNvD5(quJd+ZhiNW|I$6(`?V*W_|xfox__?Q@c45Ost$$K$M zOfi3JiTNwUVEkpq#E{7`WNHjUfJ%*_?q!@_B;%RLcqQ^*eR7NvIR;NAGj4_;`HvuV zkGw}E@9j}zl&CRyDw%P|P#GMCHkDB_u087B-X3ExWc=R0Z49|T;tVQ7?=Od<*>jOG z;=}j!Z9JKnIGX-^_O;wCxXHwHn#n+0!@@UpE{*-hEZO@>;Kb~2AD4JpV=}?!?a=hP zT+>K$*=$+Q1!~!uyF9yl^+~_?9Xrjb!KCsutYF=s%-!JIzBAvBt1q%xpI|!usdtE# z={i*%!=xPoGDR>WOvhNEeW#BAEb0LIz#}yFD3fUhA5+%<0s)$Y537PxK@T_S!Ry&q z)Z$_R3*x1o$CR?GE1{{250hJ-#yhF`l2&ED^NB~r`yvkYzCatx$EIZ$t126+Wq@cL z>uvp?NcueTi)rcNDmbPxa~ZIG9OghTJB16nR1&-47dFs74=g(+n|_edbB{=KLpK|A=j<3@T$x>i{wkVp z1-~z)DQ@4T{0_}Mo7H#W-$RA91Kj>_f|J``XZ|i5i;iFS8d6p!eKZs-S*+UYuSxN= zG}2MEW+s}d$SY9y(sw_HfvGts{qs8brdt0r*N{`oA+B3nDK1t!5HzVjwXLG5juFaR zb7bEtJ{(=45^_as#$dr(@eBtL&8ZOLdW$%;*W+Sj)^4AWON5McbKPD?9fePdL6;q6 z9UpG{g*^gQA36`cZayni`xNZH?nod0W?{6@y6oL(gHB|oK$r7~S(@6-fQW}9UHr#m z9(42J33XFzk@&9_%EPqMX09nN{x69d8z$o7+Bc0bX6NQ!CsKK-e)Z~XR4=_*Tpsv& z_uCoi>-og{uS_|hgL$M`AL|4GPSe#}gsN@+@6sS=(wy)#B zY~$BRgW(M>DE5%JT%ZAd!nzd_%O=jq;dt``F~2%q$w*~|gJ%ra!OsELo57VkCZZ=H zS-dyoof!d7WL<1WU-_$Dl1VJ*q~M}#F}=ITUn%4e$-yhx=Xk_#2ym4d1cWF%YGUHT zQRX`|*R3OUqYe7UrZoFaTpTg(D9<*6a_yw1hYe3LPWH;t^aGUOABJe%@;I<4@KO=Z zK}#-0TtweuJQrviyrW(Mn#g-`BJl?g10pttm|m6p`iBiG-|_5T8v<8Gq+c2lh=09^%0VFe~`P6s?VigNQmexr8=dLL+If=O{zqF+o& zznP86AnyM`!fn?o7bFtAr7PHF0CQcLW#_N7Y-o^Kxv1UR2tmumF+)>t_90mdBVDo< z9!M7X?b!%Z$~MNn$Vu*VZrcN*+2B?E4js5$TbUE_?Xz1!RdjY(P;zXwVdB!cSa!fR zwgM}OZ%2p;HZNtO%tzxrQRe(m)nU7*XkjLJYI$2=z5bfEgIm>$Omte9feBniWZOThiIJe*52PHv>rb_~Br1!+i zD|zl;Mr4L&!{PuL_c%k$2>*4*nXmWcpa?giLKI;8u+$l?8&@gCQ~lbsQ9P*9?G^=M{I*_WHj z*phaGBr{_TH0=q7Rp0<Q* zgVwsJiiHCZe4hsz6mX2&>SV~ikie(o&5X{8(Nqn2+`s%-eY?U{!%4_22bRq=;FBGi zn1Bhx8Q~m;-9=CW>so`3MI<7*)MnZRp%>o~&vo(mh4K_ClAFLFgqcC;e7$t!Bk)#u ztMK=pht);%E-Uv9OK=I~D|ynoM_CYwylcp%LZSgs%$Lx#s5rHq%Pf|Un)REx(=rfg zDgV{s-k-@RUrAa+eU4&z>d_6jrFPeW4q2WSl%o|s zP}02+v!{-^%kDv2p}OMbZ}~T@s@{P=5n_|k4;e$)ncVi(7AfHP_d`}3%3OEY$twG% zM4kd*{;@9&bR~lWyf-*y(mGEf4h!?eo~+V!z+q%)tf?{<5~K17Gz?1xE0JOqGOe4a zh1a+FA(vv}{ZrR25Om>^i#;0@GkRo8ztlAU*5N16YS6laxfoQ%?t30-{`{$!m?FN* zVKLXr+~A=%DR$Sx>;7B@POmX%XJ;uzuP^=zYA3a)k~wgHCLii$R0ciLYg^0?`SbvT zjWXiS#;uQZG5lt(eGqUEpte(a1N_$Cbq)m>7hSxSQfiicToWq?X%`!TC@Q| zpe_RfXU?WuyH~ujGD@QV%vwdc-SCF^8;09&po&H5Zq50q2`M#5OB<7}U?`@0>t)aj z@P1t(G$@ytHQ;N;j|`Xj-O7)u$R7@isNF_$pyl-7h=q@)11R&uP%P%9rDX1H z2O|#TWZ=tqW5tELFTf3Tm`+H}%z9-HN+mW)B0$0u3xedg0#L-~BT#Nmc&By?%5mS0 zwJXsOeYR2aOw|#7^&r~jhlvKfO>jlF?aP_hkvvpI0HM8@A42np{Zu!Kn`P@es zsL%+hCh_*td)}uu%z5}oLUS~CV^;2`Cr`_a=q*hOuQ}TfSS)J$tHFZU>pyIS#-8~HeNgs0L#Im_5IP{XEc7| z?O6{X`#@1`)*&&g=XB2(P&>9nk$wbGA+90Bd}Vs)ZRGLy+ejXnO}i4R;v_idK7p=I z3Fi#7%@vl<#Of${0@Q>;oGo9TzK916y|x+8AAW^&(Q*$v^13}bua^CQvl|+JV?U~A z8P$^n$xdt{C@MyrTqB9hf7)#|TwL3-&2ykEeYT{?UF(S-oV@b%BBVI&&fTH)9^yw? zm~-isDj-JAvPDD_f|S+y3*?7VG&DJdMEo%$>5CEwFj+nT<$LJqm*;n`dL}%&vki$gyOt!BW!pmWHl5Zb$>okdy09fd-Vs9;Ni5_O#Fv5BSI7{p%;;;u6E)LIGC(EgQwX8uRLlPa2J8AnmfkVU71x3gQ9a3)@CZNJ zYK)xzu&!3%VvjnkE31}p%2ZPISS~JzH!l<#96fJ}(UFkLnXFLu$|usyqb7bX52EFU zA}uAPt?EBD;f0~x{U^lp_<>nEhBK2$-U6|d#tJE(FfEKTQ=;V49vUhiwA$ZWtt~E> z7At-CjiG-XG#BNZtcOY5ImeGYfwi51_{7CXEk@IKY%^%4MoZ|v1M}(p=ss1!Y~0ow zISZ$(sHz7Gmg2~#OS$c!=M)L(6tCg6Mk$UzBQ}@3D+O5*I6fa(TgJWsX&Wj?^IIi0 zgwpg7sVp8S3sB;|gWOIz(>bqi`yZ8|5q8FgKWHzg2m7JV5nhF#cPIi~7dvPYWV-hZ zdmu8@U}K!oW=?=A&u))n+f8!)0P}9hThNpYHc387HId3&Mp6Cb67q;Ojz5ri3rY9G z^$Hft<_!OQ>e9!bST+fo+GW&pGs4SAEP?(k3G$$%mE_^Nxq`$7p1n|nT$F8u^ND$= z$Y-Ltd}Gi(kCpsExiX@I6?{wvCDU`LJ=;i)^0HAFa_KeUe<7NK^VLxZQT&#LqO!NW z;&+LJyxA{0Vs4?@<_?YAmMhq@@PJsY!?=koswRj}h@MxDPyHR=%yu1#yj)bz+@%a* zb7Rz1ZTK5>Z}Q~gFcKZnGKI!>@EmrQDbmkf-%6sVez6*Mo_A=rHJNPuS=f7Hr4}$JXX!W}xw zlvzpO!wv|(>7ffvGiHtA)zZCQDWuX+%;)z`9y6W;ayL9!8;bz7I&|SRC!dpPO5VKO z7VM|+h?OvO{)04|w}re3MjR_+^ESKlUi2ZwsLR%v3X;Lp_&x;xZ!ykp=w*fSjDzF^ zP4FSKD&TbU%(!ChEYQXfoD=V3jWVSS`Wr$Xz+@a?yKNLu?(Priq-coa=XIxsh0bKE zQQrqE_A_?n@T|4(G%-PEQ*2oZL!AW&kl=?m>CZ z$&QH18=)D!Li4fp`F zLUJjGDoeophViQ#knHjBV{CM@@hIV9(4Zy3+R8|(7+1v+@e))iwY~=HJOUM;WusDt zzzke)`F;KA__b81%83Y;YCm&+K+uL8<|^`7{GjKA#vHx{@uUk_%E4Nk@wfsaOy*Oq zeF=UjzFEz9|3xRp6ZJ5^zHDeh7*gCcGx9JCReUGVvt~F7B)GjcvMK{t6eX3F;ddWE z6`Olk&ygEea?#}AWn8ar&7#1AQ>v*@u6<$o8*s8>#FEL2!;VE~mvN5IAe!WWEl;;- zY0-Wq;4i z2F~}H5|kPv!1g<|JHM+1>UPc-<01xa&`&f8PXI*RA?Q<2q~Chaoa4=eV>Lp^w21T_ zO4r;WMON<@9&^?IP8=T^Q`Usn>=*K~!miIE0}C;unY04~T<{i%|GE3pgH2qXGoT6{ zq%K?_eWeLcUP9<2y+%FWW#6y3w~XAnU31DoQRMO3mXi6u^QEK`;=h93%3p_>Y=y1h z{+glE{3wympi@>b8Kq?HdbaYqd@4DfC5;Uqe8C1Yvf(Q1b`A}{(?WM=q~=w;s0C9V z-PMf^NT6`Y%Kw`fp?1NF6!;SJS|5#X@mi}HHkB-$^X{UEkX-U5@~Dp)?rS+A=AP}l zXEz*VzF9=Ab4&}m-g$Js!RO~jq2g@=#drU5Y_c{eyL9?J^-^!lB_?g>uJvMXq`tZO z;81DYVgHL_eeDY6ucKKWb~tsPQqUL2i!d2?iz_^>8vEW%-2IU4iWtwBr0$q5@}7aL zaDC>4yxXybDM;VB{FCy_u;dXSd%&p6ckB~hHBl!71X9FK0JcJCT{tOA177`q5K!B? zOasjSV#n*Wx5r ziK~A95A>ct#etkr@aCkn#8IeJ$J3Tn=8G-K`~pr{^W}r}r0Vry*_SyNZ~1LZl2kX> zAAg>DC^TQZ)G|BLo6?f|OE>&hjIC1?G%`vIKLQoO{QWyr?bI?*9Z7E9O5F;!@C^9#=2k+#=k zK?Ozg(<`~Z@4$l`7C4UgsOB=9_ucvW?ebKUynz#LJnqW9*SxitTR7MA9oG$~qK>o) zlN#?aqyAek=gT>9tKZVsGCHj!2sP03TfCYHX}RiED&I?Hk*C$YVc;b`!x(x z-@*T-IPZT0&Q22}IjWS|??1*0C|jq`_g~l-!3;5o53Er_wT?BXuQUGv)0a^-%&8Z@ ziir~p^3)bKWaX3_ZG>0I6HTXt%0`3sLZdv!!>x$NmY^!Ft*C~b@V_aw_S5(%;q$N{0Ddd9Cb0ryB}M2ij`SJv8>yen@1y(Tq(_## zieQ1A`zij~+)$bZZcUP7`OJGGWbzl0!=raE`(d9IeRW<}De@S$gcW*rTzq=zZSayy zt=`tiqDte$US;r#<5vH=xl;h0R5m)9ntupUFu)RC%iju~hGJX(Szq6rs+fshIQ1O6 zSGu>LHP=5~HB`>oUa>hqzbY8KYfuFCT5--=@BtM$Cwbd07q66~L>Nv-UdY&AFnFWJ zBzVsy_seqrSkSK&(&&QP&W=gC+MfC9vfkeBk%{H$UbUS`s{fJo-`^e0Pywo9JBpsI z*&*Qh!uU05KclAuMDW_)#*f#QP~cWUux()3*yXz2$(4z>dy7x+26;Q~Y;P{Dyt%Rz zx!&?xR?swyfptiPhJ}nTL$YL9#JI+$<@HXHX^C9ECEam%qkeDMWWBfZuCqkn(K*j2 zr?64+liUSwq<9Pqa!A2DtB!kKd#(Ly+au@dH%t7pEa_9lj)CO8@AYXxLC(O|ZgKsN zMjnVV8Q`_$r=Xz*i*B{OrQe3@iyoQ-uWVPqSr+7D#QEvH-SJsc{ccOwtLXaQHEQp~ zxYm&S9d!NA!utWYXBPC;NWG%~x6Rg<<~$2`}8!>r!}jJUqe1#S6$iO>=ioKw7GvB zakx`#UJT768N^QWu>-dC&8&qp|>-u=mgR{OAKFk|RA6`u~Y({APciF%VP5dHHRR zApg0$S{P%q02pqP%o8o_&m0hUx*YKgj!qg6wheYf*ouR=Q*U_dI6xi|5ZT);@pDVh5$oEYGdKT^U`yCE+vIqmtz5 z)3QW;t>nau-cZTF8O|s|H?+3$J596@fz9rpZB~S^C;_%@Ynlgq*>8_ykR=IA;VQ;? zdpoxO&Iz15jR($CoF8m&1d52ngN+BJGl}8TMgeHKunqc)SEQibiNZIRUV_4UHY(>P z0o!Y}NgEz>kx5coM}hN5>WD`NWU4_f#x3qIn$WV3o^+By^JvrQ94wcyfI`e+1Wh!~ zNKR_;ieQ%zJ(ZX~e@r39rU3Lzurq=!t;0e=nZ|Ai#&==!zzWj5-8){}X(jI)eZ5>y z!-;5JOrhj~tI?LQRyN=9TNO~L|J#HL3!{ji%=%LK97tA-N(dy?Xd^DF-I%o2sN7jB zmdL{oA>og}Cog5@ZaqlnwICQz%9xdets)sXS1HkV%SVwceWIzP6CTsZ`4#)qo6MaQ0=u9pyyYH;{lR#Kl|2I=nTz+MXu zx59^jtn1)Gv~EMrfLWWaI=qS!aCg8)F5-YjJLVWj@5X8e8!888`D3;c=&p+-mNGDrzc*l z)Lh-KnbfEbCse${BFwkaPOpNA`LPwOMW#1b84En;*&dU_=w*DGnl}v!kJP!#ZB!El z#=BWsZh^h0xgZ1XoqZ>TiVQ{G-HE#kc9h<6=*?yApe!#GFH}14bGbhVx-c7|&VqcpY9>18Sbrv<5Mm4ghj1Jm zaT_0PyXGuG`!UONRu>L^)$^@=PYrQyDYrDzfW{9Ae0zT+nx?9crC+)iT<0I};p$QZTJ}6$j2=kAa+`;htlUN7(Z@JKA0;F9 zL&E3YD74)Cf0e; zrh8n+{5RVOA6Z1D7&0SN9@^Lf^9A9V&4`;B16O(kQ`x#SVOF5+08}dLB6KZ6ZmH}c zmg0wkjxUXSroSpXjWn`#<&7ptU4=t?KF$?m3H#BBaSZZf=b>|B(gX}L6onU~t!90I z1pWEd;h)+DVx3wr<7nb|`)&l4`v9c#F|yOoq53hvHWnhj%BcM)6h49cP?56NfSx;0 z`(u2q>-HlYRBK7QFgr#(Bk@`zClpRLQ0Phb96Xet_WtUKp|m5$?aMF7&xv!s?O@sBs}qF)mOI9oWr`jEetR)L-nMwWcSdM2Ti;AE(Yv%?_QV|yxDh4yKU>m|nbE&U zHI{^oqf;d+?25o0ZQd-RJ51~Jv@D4f&*J;>pFVd(f)uG!$TsGc{E?J=;*PvE+=RuL zM;t~714anleJsFODh4-ZJR{!YN zE%HO9#W?Am5aGgs26reP8nh13Tn*iT1Ro-VzM!o&&L>o6-}x9QiAzU<_Okb(?F#f| zE!YLsXTLgJrl~$sC-P2#3$S&7TYHN%&!GFBdHt+f+?9B7x;fLK!dpwJ^)Ny&6v_b) zjs>MKIzIQfV07d9<*GEPOk(l)LnN77;m%6i`9Qkg_KG-~JmNrj0{WZ5q03yEM793c zxw!fY0W|)|PykZbGk?AU%`^G?qSE+Nkcy>$lhxUBCWZJwf<%-jeGTX-J6lcdP%Rci z{IxWV5soD2aB0U?CPb6^F*rFhVCZ10ImP|16^8mv5he5acD}t3p{>7e@iM{@h?Kl} z26+#9>wH-TQr^i4lbeMfF-*?YQOP;nlg@Ef@D|3g%e{sZjUTeiRBSd6^LHB8H~YnVCIN1srJ;lJ8rYB@#f8t)n4ul!vpJ*poIz}m!9#kjW>TqNR{ zj|^&-zuVic5**c+F@wnuhaO(RMxC3oK{tDuY>6SmR!AmswK$(RR;G+pwxbzn4XeI6 zrKjd_Ll)m``z@_AXr8l3E+g!k0uGT4mahtth&<+$#0nBo?DI8fY1B?`Kfvbh2}2tq zTE~$}?$frgXyd1R{_PLv?pzQ!{tpkDXGoM0uU*I{dNw6^Asp#ovN`6e1Wo15T)-7f zAko5zREYacE5{rM|NLdS@|1^UMnUX^eBxN0z2gMnNzcbbNQTv2G+TbZlk_@@ERS;XZL>?81Ox(g@5yht%g3kUtV zA=!XVMRnNSXh;h)?Lg>~nUe*$(<`Ix!?e`omPy+x z8@sK;sp~XCJ0qkK{M1W1feFz@6}#mqL9N~|gn`-7qL<)58Mr7gO_MhRSF1q=g$@E+ zzWb05=QsJwvT)nN`>`bf&b(Oz3A~T=F!}Y_fWZEFG1`ZYT--vf;)X}s$nly(`xq4s zRzqjY;x;^X)ONy>=6?d74sRjZXwtK}r%S4R^Tk1C>s7N(r-OUeR%b^i=DWPN1}sZ9 z_mW4y4F!x3nS8H%`$CrEvKGt?7}}q$7`wm49w>`wvQ|X@5U17m)`6n?fKX6ya#Y5< z^UW;Z42-+n^!>|=LCN;n*rl=$w}Wo~s4BRf7k0C9b`4H><1ftjNt>@7+1Y;sMGao5 zyVmD5^J&>4d=*eW`Ju00PK;{C$=F*lKfkz@T7`uQ)Z`N<5-XB?uH3(ODhBcs+Z&IJ!QSC2=r)NbTD|gCNI6&3hWIRtm6o4Vfd^%DLc!Szuxqh!k_pkrRyLNW|A)rH zNI)^ageI$EqZkB<-_M!eu>OxhkR%e$Te+V5Zcv&>#XRfnNNcHz6i+n|#hF~o`@F`f z`@|*V8IayIGGmfe65V8W8}{Fn2XDf3@4S7m3ZHLM8eu|B*u7*>bAmAJlg#S=0xi1+J7=|wW3N(e~bl=>n~6!iw!(w zd&-*?DupMsyal>`ycH@c3Q!6ZtFtALSx|{ucfw%_tC2IyQuUHQ;>F0#$-U;rRaSys z+e=M5)BQVUirJ0jpNcQ0sp|X>814B=vx>{OZsN))D&?zJEYMZ3gV)u)u&6{nmXSz9Zc+tn+DQYGojUnm|qe zT>VTTUdI%B>Mwv;l1#pK2eFR%$l#6x)NzhgJfm*=WU!aCOsXm^XMmHJ5U&-@