From 973680d0de5f3484e8c824e3dd0fb276968cb4ee Mon Sep 17 00:00:00 2001
From: Gunning0345 <127795817+Gunning0345@users.noreply.github.com>
Date: Tue, 25 Apr 2023 18:42:01 +0100
Subject: [PATCH] Add files via upload

---
 plot1.R   |  43 +++++++++++++++++++++++++
 plot1.png | Bin 0 -> 3889 bytes
 plot2.R   |  53 +++++++++++++++++++++++++++++++
 plot2.png | Bin 0 -> 4504 bytes
 plot3.R   |  71 +++++++++++++++++++++++++++++++++++++++++
 plot3.png | Bin 0 -> 3974 bytes
 plot4.R   |  93 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 plot4.png | Bin 0 -> 7270 bytes
 8 files changed, 260 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..24d4234a268
--- /dev/null
+++ b/plot1.R
@@ -0,0 +1,43 @@
+##Make sure to download and unzip the file (Source = https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip)
+##set your working directory and check that "household_power_consumption.txt" is located inside
+##list.files() = "household_power_consumption.txt"
+
+
+##Read in the "household_power_consumption.txt"
+Full_Data_Frame <- read.table("household_power_consumption.txt", 
+                              header = T,
+                              sep = ';',
+                              na.strings = "?", 
+                              nrows = 2075259,
+                              check.names = F,
+                              stringsAsFactors = F,
+                              comment.char = "",
+                              quote = '\"')
+
+
+##Subsett just the two days we need ("1/2/2007" & "2/2/2007")
+Data <- subset(Full_Data_Frame, 
+               Date %in% c("1/2/2007",
+                           "2/2/2007"))
+
+
+##Convert Date & Time
+Data$Date <- as.Date(Data$Date,
+                     format = "%d/%m/%Y")
+
+Data$Time <- format(Data$Time,
+                    format = "%H:%M:%S")
+
+
+##Plot & save the histogram of "Global Active Power" as a png
+png("plot1.png",
+    width = 480,
+    height = 480)
+
+hist(Data$Global_active_power,
+     main = "Global Active Power", 
+     xlab = "Global Active Power (kilowatts)",
+     ylab = "Frequency",
+     col = "Red")
+
+dev.off()
\ No newline at end of file
diff --git a/plot1.png b/plot1.png
new file mode 100644
index 0000000000000000000000000000000000000000..db485ff39050671edece1cdfb0f5b7b39278f29d
GIT binary patch
literal 3889
zcmbVP2UJs88jczubVP*_5JaSxFbW8viXemzqSDKNK}skJh!hzfZ80lEf<P!k5n&J*
z7)n4x#8`#}0Vz@+B@`*41dL!5A^Tuv&)MBMvu9`Cx$l4P{`b50{P*7P|K5FRb~a}G
zJYqaB7>plnZsGug9iZ*qh(nOag2$!;dVqFTj;7EP21CJM7#Io#LqQe~!(d<-66AvF
zC>UnXje;y5g~6aOkR_q;coZJ8AZEWCgvRXQAdBCFKo=g5!ILl$fCLpb9tFei_s3&k
z_<hiC?Ib*&1mZyw9)v8Lgn^MTC=wnj7!nDDT1b$SO(L;D5}OU;Q6L@zlAy8=huYat
z0YNsK4TC|QA;cbV&#?!G-0td`Q81XmVYJD4$EbqULf(Av;_-`3po$il#JS?DIQ<<m
z%Q&$qxy<=M$v3)AyX>~V5&H(k!OR+*CUQZ~e>l@jW?MHeU*#U4YJSA+%ORuYlTH$F
zT%uQ)kct5C`h1->LWGMt^Zz?p%B+ENvnQjTjRc<?SZ<HS>LFE~?%tZct*+E|#IP%}
zIj-K_t0k{#yJWlFmAV{8%N-O6B8}We@}-Yj!nv;EwhTU)u3xTGOh@K`woDp^sPJ`L
zyX8xFKhN%fHY>nCc9MhIV2Tbs+8Smt8`34tu;x6kUeEXm=+Npr!5;MeKt8>RiT1g{
zyBdQY+8F;wde`m>PUX?<9Zc-bu7mxL3AMnm&yjfMLJs3da*1-t!y2ZD_Uh=AW1T%a
zSZ}Oc@h8JMpwJ@6GqdBBEE4YLY&I{1u$J{AU=-akYXrVyo*cDzx87N}WYj(bf2t_I
z-fcay%Dde&wq(gs+b(l8zScSocR^mcX7U1IEKg&8GQ{xF5>pBFcFfo7iifII+S^M8
z*x}UFVc;rB!9Z@X`d)*g4_bVM4#w|pyeU3CB4V^XrKDP#OxujA|2g%Ql7c2Vjpm2L
zDlX?|%og2~FNr8958vD>-nd*><&eR>s}Z-=EM+OHT|+iA9ev9oesjvN-4Y$@!kl-`
z&)lu5Y91&WpHMkGuJcPyrED|%spZk^szpx~L!zkt`i<?3Flp`82(YaD(nm_5YlCFe
zT=XpZSmAx%o(2-v^G%=Yf|+`<fUb<V9K~&o;alTSM5HM!D_0b%G<PW69(HV3v(F6<
z99RID)z~wx2S$9PEz@XgEJmV!--f$Zf0GY!Dj4VO@YO5Z`gI<UmdmP;VtxDb#6Z_o
z=`&x#^70~9Zv-`bRoZYt^wdw5>wil&%@(GHdjCcC{Q*x40;r#BHuPh~t`}NRH}r^V
zL7Iyl08QutaIRMB)-K>_2fVHfP8>K+RRU==q19MB?ToD#QeXWH5ziD5A{7*GVSo!A
zQ>X$L%-l*rBP35}d4;)1$Vo^2trsV<P_WK0OirMkcL>b&^>dsU=rFG1dPnzt&Ey93
zAI+;PN=T2`(gg^m$l${(G7%~0V6Bgf%rId<zZlIrymH{T3@e~}_iN~5P37NMK7JYU
z_QtzW5o%)DMb^1m0ljT*s-%(lU(3k<Sd&W4H$4eyy+SJoA{G`$&OMNZf|ys)?IOHa
zhNeXCs=pw<^6kgcy~O7uyec8c3cNfWra+xhw-QeEXw+UvD)Q5cf<wMV-?W$NXbFpb
zoOkZ&e~Cp!bndIO;;rSVuX+vCz<@nGix2y!W#m7C{=Ev>M6igRy@9z1>jJtCDi?Z%
zVsuO`s^p`jKw%<8QoS>^!|Pw^_~pL3prZ!}tL)8V(R5GP0{96R4_|Jqb-Y!-CJJ8n
z)oUvzyq9T8LH8wj5@M5uRcvasqKw5?RDWHD-|HXxMH?}_XHv`4cwMODMH>%Lb?9wz
z^|+QhR98$k{DF(Q(uHkCNGdq9hJ9RtPhaJne86yS>V?yRiH2>M`ZdyLVIUPjxgOTP
zUTd{1UO4s!B23xk#+bX?U$(MDzM*>HlMJ84dB5%E)g*Q22<e&huaiO1Ew=}k{J<b+
zpd_1YXpZs>Q>hke^)IARXgKr8(%G_`S-Rl7B|`F4C5>QXzZRU2gcw>jEhxVblCKKA
z`d-$+)+zitFMrnT?NH{d@|~bw8C_9*=QgJsYA*QLTwiz*$_a`m%QDo2d+6cy#6;S=
zH<1uwn%34CzNZ>#LJP6{+9sP4C)};CnWr(5JI^{7>NgyqQtSl$8W~9%vLhj#)8mF#
z^nf!C@K44%1yvsLK}Mm-l}4)kE<M9bu!W}1O^ti5jxH!viuTl5T_N%#){->}BA@on
z#oLy^x2->y>ZYK9xi&ehU>2<t%anx+-v3aGuCRFpcnSV^)+*0=C+3c&36y1Ga>)$>
zm{_w=q@zc;U$jT$mH0c>AF}AUHLDGGqS^?ZDI!Ldw3{s@_wp0AK0b%$kwab-pi)Ag
z;MRo3d2`4S98ly2mv2w*?~3^t=Ts4DAn0f8vm~0d!|lu0-v7E=`xI_ZVYaG?0F;wQ
zS{Is=T)^yXXm9qVDhv?xyyW}@>%X@<`waY3U(J(F1@zD}$18^&QwWuOJLP8zpzI0R
z=QN?i{P&zbEB;@cPPrLJ_KW0##~4K*zpTS05nJD*3RNCv3$G|gym&&Kj5VpNc*naC
z-5Qc23y*<8-200P%V)PPEf(9)_Tf~>&76??eRk|8YXvHZVter}O{<d6m3`^>sTOOc
zmqYBc;zHwckjy-OIkfFth6p|q-8X|k%=0ApAovIhAKHZ$eWh97EbtLfcQA(lFiBV?
z{W(OHcDqGW85RQ4;UV><fWA4mkJ3WpTumtFjo5ypP}gO_I~;JSl7H7(gZO|$kg)Zr
z`+vta@iV-_Ma?No^$2%ewq2{y#Qhy1$!$>g!<1+S@RyG{3cLmnF!v=CIssevDV5Aa
z9Msoe_UZ_=p>w!7qw}FZKXX3K#RK3ryHDxZ3At5=h;$?XwC~~?%mt3ZMVIqUZxo+w
zar)m~GYySTwnS5gXAZ~iLZdU%=(eLQBL9h6vvqqV!)wgrQ@S4UI#dtGi3dgHyJy9V
zkuJw#%ixJzj#B)oMWZlD^=i&TE`LPCMtRl?d76H4lU-5SweNM@<>J|GM(r`11_qPy
z3F)8caj~uJgC`h++pH)y2WqnF)5gXwZ+Pof#_a5l=wejuWPAHIQoWdB9P$TZU62hA
zDL-FvOKObV>vv+lO*Q!8iqa=qK%e(6m%mvZzl}zKY!xNQLzT2#6e(W(<A97pf%_uo
zcqAMozZ`C!nDBa9&t*H}f7rvYZCRb&zsl4fNT+S$9w}dQ@5k<L?07z{E*(bh(jtyw
z1B=o*+L`E_Q8R)K2%VhfEzYx94#2qqo1HvlZw*cIamx;?kCQCiD|??D`h@Iro!K-6
zV0T8ZA)f}eWe2CCOQtS|56{xdzK>9T;!2e>$|3%ea@P4zoP7Va3a!GeJb+iDs%J6z
zrmiLFS$N!I=grUWTRWJJRkio;$!+Y+*vZ9w3MKN&XUq_2gPRY@M$H!M^zON($0x=+
z=~Y>)uh&1}WIp>cvL^qIqUf<D^n?rCh67#%AIkGc5qlPPbwKV`PI*E)W9kkiT=cOA
zMYD2p;@R2voj-Qgx<xDn1qa`Y^JciYO{fr#E-&0tE7XbVy0Y<g-e+drKcIPFt|NUo
zqiSv`J%`+}A|%P(!+SUGu+2EX{q()T)it$l%S;`3b^a5I_rR0SUY#ZGME3$lzq2J;
zuKeAot66u^Y18Njl!$BaRD#N~d?l`M%+^cTY+~x*ZB7I39<dgUVyzciKX}i}91A*H
zeQ{|TpEP9=W}JC2yOG*}%}eX}G!5QYok8E7(f$@_EAS=iS-Y=j=)WQ@^`s`-0@k#9
z`BkPar9pTpku+NG5I&6<wMOrn3pK}$;Nr<*DD&XyuE&4|p?g`%qm8^Xz3G#8Dh|9N
zwDEPJob>k1k`4X4iqBl&sTOXuco1)&4YyX+xdCT;Q{9H?YBykZ+px_^q}yi_>^bv!
z^9^ekv>*C@EsJKVF{(;6rN>r0k~v7Vb{aiXZ*kXYh%@6%L%Fr}!4sn|y)<u7O2Atk
z`S(v8eUzUi#tiRPG9McZ*NM}`CU&<KYH8cLue|$uGh|%FKQZ51{O$7G#lcchY>nCZ
z^%XV6#tlY|<fV5($gz(J*2pj45~p6)gpT?G16FReBby2CcUM-+MBOE1Z7<2|YR0hC
z+wSl!nZ~s1_^EPUy#R?{1vq0R@{#}l{3F}tLP>N*Ru~6n?fv?qO>InmGWG)g3AqS5
AIRF3v

literal 0
HcmV?d00001

diff --git a/plot2.R b/plot2.R
new file mode 100644
index 00000000000..d90e0d6473a
--- /dev/null
+++ b/plot2.R
@@ -0,0 +1,53 @@
+##Make sure to download and unzip the file (Source = https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip)
+##set your working directory and check that "household_power_consumption.txt" is located inside
+##list.files() = "household_power_consumption.txt"
+
+
+##Read in the "household_power_consumption.txt"
+Full_Data_Frame <- read.table("household_power_consumption.txt", 
+                              header = T,
+                              sep = ';',
+                              na.strings = "?", 
+                              nrows = 2075259,
+                              check.names = F,
+                              stringsAsFactors = F,
+                              comment.char = "",
+                              quote = '\"')
+
+
+##Subsett just the two days we need ("1/2/2007" & "2/2/2007")
+Data <- subset(Full_Data_Frame, 
+               Date %in% c("1/2/2007",
+                           "2/2/2007"))
+
+
+##Convert Date & Time
+Data$Date <- as.Date(Data$Date,
+                     format = "%d/%m/%Y")
+
+Data$Time <- format(Data$Time,
+                    format = "%H:%M:%S")
+
+
+##Combine $Date & $Time
+Date_Time <- paste(as.Date(Data$Date),
+                   Data$Time)
+
+
+##Convert "Date_Time" to POSIXct and add it to "Data" as a new column
+Data$Date_Time <- as.POSIXct(Date_Time)
+
+
+##Plot "Date_Time" & "Global_active_power"
+png("plot2.png",
+    width = 480,
+    height = 480)
+
+with(Data, 
+     {  plot(Global_active_power~Date_Time,
+             type = "l",
+             ylab = "Global Active Power (kilowatts)",
+             xlab = "")  }
+     )
+
+dev.off()
\ No newline at end of file
diff --git a/plot2.png b/plot2.png
new file mode 100644
index 0000000000000000000000000000000000000000..08381f8befbb94c17bb7ddca70fcfe798f947ec2
GIT binary patch
literal 4504
zcmd5gXH-*Jw^0)zH^QidpoT6;A_$@qk!}H`hN2W{K@dd{f(S%P&>H~}kyxn%4n;&D
zM9?G#5U-#NB09(*C6p*2Bca5hNYA@E>-~9eeczAw<6Cd7d(W<C?|t_^<(`x3<Y+Ae
zYy%JogpAG6BQ6NU8sU#udL7KM1sqFZKzFh~W(h+C!U%x~LKqn#jNq1u2;#srOc)`8
zjEvxiX%rM>#AF&V1wlXcf)Fqb%a}nwFisFh!ZboKf9f%r0;WL12|{pSfq==8a5xf)
zfN3Q7$reZ?uneYQ0JC9gwer9>1Y%>S&5?u0Xn7OAro|3%Hd)<#5^_2>I_6i--<)W?
zwolK?r3Q-T0C8abi%SUl%BWpv<?q>-X-6)_;O*|~m*FiwAA*EVyA81$WKoR6|L@Q%
z(j*NjbwKv2=81n3q~jWJ!4iELgnpw?30o9_^(p@mw8ew{Y{4P^{{Pu2h-xrbe)s-$
z{Nkrg+T{+A+7-aeTxDGJ>GMKYsz31VvJ<324j-M;>zvYkU|AN7RXjvhNbpP``&F2l
z(wg3!b)`yw!h2SA_8QIFL7p!v&-{ze4+P1b?T;8|&qkP_QdBp^Kl<fJenCIhl`1QZ
zOkA!vmYXl&-o2>g8s3cm)#SUwyMWy&ZB@DW<(VO#WQ#onTtz0v$30vAzS>j5cpx-k
zqUo`<6^&SL^_RN6%QNRsD)^}P{l3<^*HX|P6}7F5J4EzY(?S<_ec9QP9a6B)CA`^{
zy;e4aeSU0$2Dn}F*=IOj7}dgh{7>8G@IkZowe2q#yce<q#5;Nn++uYWXDAtaxuwYB
zfg7b1RB-@xr6A~MXA6z_<&}}YRmddi-&v2V_2)m&1-@12{8R7^TY=#Iv<frJhvx2T
z%to8QpW)5WQ<@>`@&AeHqCx`w3tdctoe<_@iyI^Gc3#xzw6J^QCp_P6$?Gr7)vR@U
z(@bGOo2x@g8pA&5Py9C*fU9+026xj(J1KxY^o(xvGoJf-+dX@B@jYQ}d-3eWYL@#r
z0V7MF88Hj&vhC?99u>{U*~dEIP)lm2Dxt1^$88`wRpuk?<@|;pEv`o10irvxb$gz=
zsPbxS)V}^^3(PS>elTu<aFXuc(p~)ey=uHL2{y=r_&?0vtVr}r%$K|}pxqunK{US=
zb)mlE78q#}t0Ah&V2v&j4Kc+5;_@25D5z&w?Sbl$z=Kjo)n3t&fnC3YoWh!)*wL14
z%kL)(&;<%`07pLxkCEfyR0sN8$Z6=YfB@=`@T|V*bvsd|N2G7C$JM*<Q&QmaSwvT>
zjTCJl8cO%HBu}w2!Z-d?q`(mB8@W}iBC=UH?rN+3KJ&p(m?CXvo=cW2-TQLI9EH)A
zg2}{-lG$crTfGfdr$SM6zB>29ro6u<4*@tgSzm@+zt2(V<(ta^)aqIc(ZeI#tGxpl
z+lrCTo3V-c(c#H@t@vIY*i=e%ds#lo4pu%0%9)+J2PWOMQ)bAZ!rf(+7_KY`tMgE?
zF89t~!8KT&a{Lb3P;gC6qDv|mqhT+8(-Gtz=3OXMLi;c>7v^J~jZZKf((Klao^@s0
z_0yUQ^+exQ#tVl^upebias#{ak1wnma#t)N<Ld5!H?M_v$hjpH=YCblrT~thkZ;#&
z?Z08*>TELTGnR~=E8n`&>y<0p)d%o>bU(+%w1~%Q5Q_YDnsXaaKL%oV8H+2Np7vk$
z7>;gJC3IK9q-gTy`-#)oy6q5H(7$vB7`XXL^9b~Y*tz$bXc6PMRBR03KAyYB%(m~o
ziYeQQMAdelL*)w4_y{!v#(fHxkF7g)(4ZvNDx!b!LgU2gLdwXUv8}J7h_o{BtnKXe
z&-~eiWWoC1k)_WY3qVxVI;2*^Pb59tIGC_GZ&_CIm|~!J3Di<)@t1iwa!t0r`Id{A
zvcWOVGG!~^=5>t<o;Gt<^J>S|`EUp9a<bW*6kPU71JUKilHfqRXDgQ#`g*YgO&SB+
z9)deg0j#Rth<fWRIN`^{cU=oRlJ0?)QE5I5qK6x|Ti@^+W$(lLHdpRc^8ueH)<4ov
z5_U=0l=wM8m6y1EUsN!-zXsQ^zN`5YfBzv@K~H2UaEE9(F;R3ACE7-Grp6pURd`zl
zTi3CzV&Gxrd~aYjc-J)G22_avZs^Vj%Fg|@$nyl;?6tGhiqlxS&FAYInV@_}n5K-J
z_h9yuB?C`vUunNBf8GWj^iS0$XnBWi*uM#N&zV5JPVDFt0IrmTHOY?eTk+V38Z1sH
z7`CX4bRTBV&Cckfs+2S_o0nH<kC(>c)67xYrRkbHGpB4TcB&T7M#X`Bc3`nwIYj39
zq=wQhG-nJHg*$A|219&1u0!9DUcmG0I*H2bYr705w|M7KzFVQ1K7OmD9EKhU_IPJO
zE@FZ{Ds6{#TIEmxdUB65^#nxX3p<m(WY#YDFol6+ev#0*_bEqL<-)EYnaNDgHDG7$
z>X&H-z`-hdiS?Zo&JlTJytBBOo7urIH5%}JNa%K<dPC&!*~GB)^Eq*51NL+m@k!4_
z2;N>YC36jr_HZb6P}^{t;P!L@!hKU{A>cd6ooV%1xlW|%MwEHAZ-+>raCZB=@3Zm(
ztj_gPp;=`x&SC@9d3!QC(JEykGcg!+@C4;nW}V||m!pvQ+7wEE-A$Ahe@&m2T&Myv
z#m+{P77Vh}=#?LZSScd{&kpZEeOY6pkIeOg7@;}faj8#M)bEl&zE76ZYquH0?Wp(m
zT#Otc3#=->sLD&<-aP=28iOxC0q@3K*^aU5b=VUC-2-=h4Eyl*<GEBY{8psQWaJ%P
z+T5jm&B9zoOn4bucEBae2Jg!DD_VO}Km#T_T-b)9&t52L(qh2wk2iII=xoJZoOC^R
zwpDdRuba5<`DWDMum?@#i&9Zxxm!(1RG+A$V$vEEp)MuiQ09?ROzBo4EypBuyJ(T{
zAx)@}+2%sMO?n{wvhmcl!*_A^;$c(&S99aXBKPLAgo~avcI4bj<wAoHi6e?D%3@LQ
z&eT~$aqIh@=5g-{zh90wZ#J2BTm@^_eGqi|pmMi>qQmXe`1Ur}56bI7hqQ_b{L|8@
zCb<f#((!E2{mkOjP{9K)N{n`Qh4k|Ty*OxYC?u-&Lj)fjtP+ldqJSH6#wvcG5V8ZJ
z)59~?4U`BU2vTsNb~x`TRaf!ZcnEYD4Jto?37$G69?m&>w*otEeE@8mz}%g=J@i+R
zU|VKx4f7sYUo)x7+j@ye(_VE%;Q`qeev0sm5-@NzL!-N|&dG)hDSyM(sng02D&H=8
zrTeNG+ZR5(emFye_iN;Ayx5Il0uNxHYZ>Y^w%Fe5h+4fp`{73mb_wNs#q8Sgcf*s~
z9xmf_q`(5gJVv9^%&u>(f3dNyLOmIt29ro2-|uY%JW=LUFUa`D#z{eHsKw03FvGWn
zuhG2$DJ7qkV7l3aG^N2?(qakOQrKOUd6hz8+XVpkT6gx=e$dCbLmp}@I+8&CYf;S&
z<poTh{Eq8uF}N)f^Z|W!q#~{YG935pG!%B6g!+yeQ}73CkzU~bvA&zapb&1$l!<Z`
zT`d`ONLW*Qi&C?bR{O_wN)3r|=33zSy6$rjgCX~~tqWx3z&2n!>cG_G?7^#iUPX4<
zwGl93ANEgQJjc#Ja<{$)n*-j$`+%fw<$+U8OSvX5yJ$sTht|6(YtpOd{a_f^82x-j
z(Gnfj@Mp-yW^2uTsF=N+l`_MaF5Wlu<bsl~$~(YOPA;zIo*s=o`|J*Puqn!`Z8#+E
z2z2-rgFL3uy%xh7P2I&ylg>);WIqdmIy2fHf4GKgb70mCszPnXSQEL?z?TQvej!hS
zR37HPBSW7`m`JkJx{USC)O=7&%9+T^&H(#&Sf`c<+bXbi`&3Z14mUQ(S%Wet(LHc;
zs9O+|bQL6en3M7;8S6Z;6)JILFued?G1O|3nw;3XCw-Bvhln0g9A;KO(k_7Lu|FA1
ziqJ>K84&(<d!lo}5w3f~vzH*jV~aIZew)yp$YQH1K>KS)u!<*k8bhC*0Jl7Coikbx
zH{69C&tl&vfTIfQQA=&|xMKJpWH(P(Qi~vThr`|A0y~RUgXq9NQeE1DV`~tVBsv9q
zC4j<`Q_g4-cHGF_<Bxn$AZT%Kbzz4&t%dfMHOUkTD^P;TZ^|R+=(N{zCV3GTr}+yG
zkZxoW>ea@&o7X{~ARzUG%7*d->S*7xoOH_GX<P2Gcqo^Qah5m9$^=cP`Iba<7->&>
zvE9afJI_?Rk6V;vC+xrfXP=|LfFZ9A4^6#r{}#Obz8-DPV1y{<LrUY-0!qhe#kvZu
zWPlW1U4A|?>bO_?L2=-)B8FoDw$Zkvs?vriFRaF%CA9lKNE7<^o`RwR(&R(OJ*Z1f
z!_1tZtn!s$ep2GnrK8P%+JUE^yIcmt%^2^8!b+14?J#bNZvAa3%n_L@c-LEU=d01$
zz4I~C55D;w>;I%4Vr|Z+`#W`6ik}=@*%@MGUG}n@OcnG&>!Q7&w#824Z-h?WfDXOl
z%fF7SqYKKGw3=iKlm+zDZ+TgU6W*nNkZQ~=k1>UAMPHNVz;hi93(+Nwr}|cEJxloM
zxNvC2)?ohm6Del0x#C$JY2_RHMu17Hay)S-xRfYDhxyGU9PIl1n3Aa*yJw0@c(E}w
zS>?@~HqX86u@ExCxr@)3{IR*BWdK})xRUcbrAZT+r<_DzL{sqUhMpYbsMzO6@9eI;
zorwc-6nEV_bMSv2Q6X?pr99xFdBeq~Tk}89Pmcym$>w<hEwWdDRaz{5g~KsDP)fH?
zo_}GmB~Pe7Kcw9(%u9VH?{Ho<U+9q?jcjPgdMjgfr2aRwq#siMmuE?|Ts)n{BF@h=
zkA6j&UUc=_uv`-BX**P<K%RAXMCU5it#^;Q=4qug@^t?5cgn=$+PR3+kYx84r+VGM
z7K65UNo%;dgnJ#=<*+(G=Q3-S(mG}msWgn$gfjeCU7a|>{5L1tG`%7J`Z>27<_!}A
zmirAbp5C2XmYrM*B0mMbCF^yTXJ`Swr9O<-;E1**J%z@quJm1iZ;1s|nj(7N)fg3^
z?W~ZXq;#Y3H}eB1fW;})OXHoL*3%;*1x5OaaXU{&$P;+IzdXMIWtJ?D4$6*>CU6RE
j2L8=q`#*3`@J_PE1DWEKO0PQe<A%k?((wrE5C!}%gUm;8

literal 0
HcmV?d00001

diff --git a/plot3.R b/plot3.R
new file mode 100644
index 00000000000..0dd4bc4d23d
--- /dev/null
+++ b/plot3.R
@@ -0,0 +1,71 @@
+##Make sure to download and unzip the file (Source = https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip)
+##set your working directory and check that "household_power_consumption.txt" is located inside
+##list.files() = "household_power_consumption.txt"
+
+
+##Read in the "household_power_consumption.txt"
+Full_Data_Frame <- read.table("household_power_consumption.txt", 
+                              header = T,
+                              sep = ';',
+                              na.strings = "?",
+                              nrows = 2075259,
+                              check.names = F,
+                              stringsAsFactors = F,
+                              comment.char = "",
+                              quote = '\"')
+
+
+##Subsett just the two days we need ("1/2/2007" & "2/2/2007")
+Data <- subset(Full_Data_Frame, 
+               Date %in% c("1/2/2007",
+                           "2/2/2007"))
+
+
+##Convert Date & Time
+Data$Date <- as.Date(Data$Date,
+                     format = "%d/%m/%Y")
+
+Data$Time <- format(Data$Time,
+                    format = "%H:%M:%S")
+
+
+##Combine $Date & $Time
+Date_Time <- paste(as.Date(Data$Date),
+                   Data$Time)
+
+
+##Convert "Date_Time" to POSIXct and add it to "Data" as a new column
+Data$Date_Time <- as.POSIXct(Date_Time)
+
+
+##Plot "Date_Time" & "Global_active_power"
+png("plot3.png",
+    width = 480,
+    height = 480)
+
+with(Data, 
+     {  plot(Sub_metering_1~Date_Time, 
+             type = "l",
+             ylab = "Energy sub metering",
+             xlab = "")
+       
+        lines(Sub_metering_2~Date_Time,
+              col = 'Red')
+        
+        lines(Sub_metering_3~Date_Time,
+              col = 'Blue') }
+     )
+
+##Add the legend
+legend("topright",
+       col=c("black",
+             "red",
+             "blue"),
+       lty=1,
+       lwd=2, 
+       legend = c("Sub_metering_1",
+                  "Sub_metering_2",
+                  "Sub_metering_3"))
+
+
+dev.off()
\ No newline at end of file
diff --git a/plot3.png b/plot3.png
new file mode 100644
index 0000000000000000000000000000000000000000..9f289aa8216dce4d882189cd96bf0cad36f09e96
GIT binary patch
literal 3974
zcmeHKX;4#H77iLrKuJJba9AVQpe$mw0wD-t$AAPCG3?+L77?RH5|Bg<YFZYFgGe`v
z2&jnc4FnJbpMa<|MnDV@mdB>-1SAkPGY@;JW~u6`nW~xTKT~yI-E+Qk?mhQ?@1Aqt
zy>*D_ASbIV3xmPr2nTGBz+h6~+JjsVA&#=dY^Y-&I(XC$>R~V(3`T~*BrqHfh9kpp
z92gmDTnL499E^;^L5+jsKurMoK^|lnnf#k!O(K)I5)KZ=ft<)N4u{O)aySABmki^Q
zaa;k1E8%h_5&;J%5Ujxhi9`Yg<B}mrB3ZLQK<w2`sW2Go8Nt@-C_QyD?N)@KVypen
zPX@c*oSL9_c?Rh<*C%&%^-2~U4^<r)UH6?OtCqJ|{d$LZ{756Hxm))m#<_(i#ZiRE
zMEReW*GI7$tctKmMFcQ_aaaAL!HY5Ax(k>LQ01|jv1zj@YYV3>RSPTi?}*zk)<o(?
z^9q;o*@h%9!<ri3mE6jHf4D|#UO8!5=fR6%*C1-x0(aT$fbjIE<txf?9q@_eILz{N
z$RcBaSv5Uc8+~G$E*iw!&0q~{bMJp$6bVm07mF5nSC|Z+$Yq+5m8mf4%E7QLMEq)!
zdManoQx3?TdAu+s-S=EAVl+6i)^~sRIs5$u0Xp&OzTJK?>_$;_>`ufxyfdm&Kht&d
zQU6XWr@fZ}Lx-5r_IQHGXI?ma=6NL3AVpQ(jb&2%R?4l(97!YuUW+kYwwu#P*vM)+
zTRf`)RCeQWo2$k1#&n>e|M1k!^<yc0Rq1U>S?blwCNj)|>u1fzBWe#SjRDE5-29PA
zP5QA=Gw11e?%jAeNw2ecX;C<WaX+q>x2vKH9Y!YG%?K`*ZDk0l`V}Fh+wO7Dm^#PH
zIu)v7S_FkO=j!*xV)iOrsm!7B!Wl*kJ2+sBe&<Y)GD*c(u1(HCXi+$l!xksFGLS?|
zqG&txo!Z$Te2%&AO@6Fjb+8phWyvCWC@fdePurplQz7RddTw%ITl!Go5z&0dyq`26
zgZ;ptSU5m=nniFkw8(GRDZ1Ag3+$1;%=r}98oV;%wvi=xFKKx=+?M5MfDE;nc1Y-+
z6%;DM%QL342o6kzR8~#AcJtHnhn>;H4GsyOj~J?es&jO*YI^FJ4Q1Vhr)WUtb&dsG
z2a~-dpL(?yt@JKtyKl;lUD!AM*8JeG>9q)yqkT{A)QR^grRSq1vPj~Kj2d#S11mvo
z_d|rvLrL9@7<SrOxXuGeQWd&5PO~?f{QT{G7#h2&dZ!~O)=L)NBQM<%I@jxN<hNSf
z_D3n%JKuKs8zn<WHK48hPdt^bZpz)U?NRR!DJBO6ca2p6(`)})LZ+rjpW`*GdgDix
z0aHpY*pqnVOP$?VZ`+1zU|6><{c^tGEA4fu6{bRM&i{O<FM`C^DnY$d<YqPyFdbj6
zH@`m$FV}n(+B$gGj>@g?c%A%AV9YqFrRQ{FLc3X`)A{W^_bS31c<@$H%FrgBJ0d`~
zitwMW4vkL2d0%&DnrD!P8j>aG=SOA7565>h>Lw?;91tupOe_M&P<l<D(?w?arST{@
zFe%(ztxPf(PZchu9sA9P9(u~T$w;{RiK$ndx!#Im))Bo{%EU7F%R8K`DT?$d1R_6j
zH8ZMBzWe6Yo`<hnfFNiiy--oRll2Ybl<RsR(DD#BP#IKbCGqecwrItOBJ70rtwGwp
z(Z(H2Dn*$kcoF(%Y+lrw6O%<69GJS&x1Lmwd?(fC8m8FS`;u5`Ls1t`X(zI5X!qn(
z*Grkx?a}I(-f=J!ITr)!`|Ek8KG@O+g+ixi5d?Y()=4eUXq54fbvSp`-Zz`sv|sA`
z)AY~Nb)3Gb`GMzG;1@6T`_Bko%l6pJ-a-*=C@O2#TD!T}+>Pw$Y_Mq@Y^Zy59{KK?
z7ayuXp9Um1%PXPa<poi+EahYj77^-$Xp7q0Scveeqz=zw;h$mCr*0)!Qi`+OtdjJg
z1PxX6p3-I{7u`uTD3=XW@t7i)BH!Khl0H{YoK{HPCDj-;ouV8<OCVoajt2E-%(G5T
zh9Y~Z^;Z^;PHOSSmI+YstF&LRI%j?q8)TMiyj3v5$-~R*Y=mE16K}s8+2+=l)iR==
zuLWcoOdWpvSq9J_x)8Og?~OG@4(>3dB|9~5;ejk@aYm!e&mn-85qk=$iqL*0g$;Ud
zqG{24+clMe&(u;BYGq_A+`%S94^p4V6dd-@FpBGpJC{(ijDNOGC7H3=FUDN${hpGr
zv4ZY17v09Ukvh|;v<2gFih|E&bKKVIa}|s2PsP_{e3|KY{bH6Btm1>}tb`38PO;Mc
znk-_$2jcBAzPxCcgz)s3k;h6CVL-F?yqrm`=T`haAYTl!#_f#pF+A_oS`<Hh{?sOx
zLboD3efaOOU-!Vhu4fC5w@CZZ71JyCd|sICP?aX(iEs5Ky7ozZZ)7(|emAz)=LwiQ
zh~i;!%M3<qOFO=hIKJph1xMX2T9mAc5|w=@mr~MPGE7cbQO<hTu=ptneNpq*6}(lF
z3c=>@$;a6%CuM!J<tL1K*z(npvd`l(9OmrgLmoZ$uth|HT@~Ka(?kZ^EC2zNov)Pb
z^?9~A%!vZ$zZ%x1(`Gt(HO9Yu<hyhR>0k-V<INYhR#!#N6`nH}fkv!C{F`PK4_BI$
zcs8eS^*7*sc_trO^L5AJk3a@h2V1|6rD9*mq=ws2;9fa7^HFBi&*TCA5qvjp8-NUL
zD|KGJCOb7(vQYtA5Irlaj<?&kC^7kjNzPxTCkUFT^9GW8Bq1-VYI(vMnkB@}Yc!+1
zKKQmjf|dV4%raZ0I70ADd1l@1ElYNOaNt;QbkD=_<}TZB@`~MDX%jkoZC-zcW*pY>
zi??+7dO%c+^wsJh#_4yQJz-Gu{1R<%>llJ%n6262h|bqOb`fp{k@OGBE5+`*#xac8
zQ@4t6EF#dTI9aRXn!nyw;J=}u4+{tSTZ>P?`Hd(SVQ_V2NKXG(6tW;*?LOEOzF+S1
z7fgjk7@ai=Y;Q*F6u-UXv}St%irb(yPkKN(+fa&vXqofZGcQecZ&sMFEK2Me4Q(AR
z8Bp-nFxw9Z&=Y|sXZJ$fR{7W(8ur{!ggCMJPL<&a4MTEUZE|n5s{(6t{9pNBagdTz
z_V`;`T!srU9S57egqPoxS$P4CQBTpav^Zl8HNR9BlV|enKYe9>99o&a89bJebe~Ku
zOWacZC#ojBErc5WwxzSECA=g-3492LYgHH^?J0v8IRCLN<p7Sg>QJ6+yb+kr&Z^q7
z!VLbB4Bpg~kM)OZbzGt51}Uuc!%cp5wgo<q`m*}aljhdws4-T&7egLs=XY{0ISXeV
z3{am91itKA`FV7DJV7d8kcWtkgxu^&UUBwSR@p3<4MvI#Tp;yBUcWSU1C-<&SqhQc
zX75O+%LVH%Q8{_w<bzD?!Hz_*<U=H!)F&ftsQ%PIz$@%+)1)7OPRpdRg_WshnkO7h
z5Y8@&h87}9+Mad#nUjZH%J8PT(F=RMMFAly(%0jS&DyfJH-wKJw>&UcAdYDf1mJI*
zm;T_2K2A!XpSv`jfv`#Hu15J<+$f03aQb2YDCz|3cYd0V$lg>vpo4Wg!X8nI1N*P}
zUzv-s7YZ$l@Jn`DbULO(V>J_D$_CNDa{;P!76yB#xl$JR{G~@h;U$%MtHlx6y8}I^
zud>g;%$sT|5hUK;pZI}1q3-V0nmm5Vs#~?%#;*Z~tB=MbX5XG|@?Ke5{)}fIo_Rbp
zyg(?M3*S|Bv2N@0OPVrFI+gSz`jD`$>5%SjK0Bq?%k=9~*P>>`a_ai<%BPovtDJkL
z-+##z@5@m)NLPqV^FgZ<8&nki9P3=mi*JCrn+^$AdRJ3xD&q3*E4GAA?)l;=T6hPO
zCV90CJ9)RSoNi@<qP(5V%j)$_MwUQ3v&ajPR5)u`TbuW)C&bRC_Yb@4Nf1LZru$#+
SNyMz(rwMjM+X8EU)?WY?xn8;e

literal 0
HcmV?d00001

diff --git a/plot4.R b/plot4.R
new file mode 100644
index 00000000000..99e06467299
--- /dev/null
+++ b/plot4.R
@@ -0,0 +1,93 @@
+##Make sure to download and unzip the file (Source = https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip)
+##set your working directory and check that "household_power_consumption.txt" is located inside
+##list.files() = "household_power_consumption.txt"
+
+
+##Read in the "household_power_consumption.txt"
+Full_Data_Frame <- read.table("household_power_consumption.txt", 
+                              header=T, sep=';',
+                              na.strings="?", 
+                              nrows=2075259,
+                              check.names=F,
+                              stringsAsFactors=F,
+                              comment.char="",
+                              quote='\"')
+
+
+##Subsett just the two days we need ("1/2/2007" & "2/2/2007")
+Data <- subset(Full_Data_Frame, 
+               Date %in% c("1/2/2007",
+                           "2/2/2007"))
+
+
+##Convert Date & Time
+Data$Date <- as.Date(Data$Date,
+                     format = "%d/%m/%Y")
+
+Data$Time <- format(Data$Time,
+                    format = "%H:%M:%S")
+
+
+##Combine $Date & $Time
+Date_Time <- paste(as.Date(Data$Date),
+                   Data$Time)
+
+
+##Convert "Date_Time" to POSIXct and add it to "Data" as a new column
+Data$Date_Time <- as.POSIXct(Date_Time)
+
+
+##Save
+png("plot4.png",
+    width = 480,
+    height = 480)
+
+
+##Set the parameters for the graphs
+par(mfrow = c(2,2),
+    mar = c(4,4,2,1),
+    oma = c(0,0,2,0))
+
+
+##Plotting (Using 1 function)
+with(Data,
+     {  plot(Global_active_power~Date_Time,
+             type = "l",
+             ylab = "Global Active Power",
+             xlab = "")
+       
+        plot(Voltage~Date_Time,
+             type = "l",
+             ylab = "Voltage",
+             xlab = "")
+        
+        plot(Sub_metering_1~Date_Time,
+             type = "l",
+             ylab = "Energy sub metering",
+             xlab = "")
+          
+            lines(Sub_metering_2~Date_Time,
+                col = 'Red')
+          
+            lines(Sub_metering_3~Date_Time,
+                  col = 'Blue')
+            
+                legend("topright",
+                       col = c("black",
+                               "red",
+                               "blue"),
+                       lty=1,
+                       lwd=2,
+                       bty="n",
+                       legend = c("Sub_metering_1",
+                                  "Sub_metering_2",
+                                  "Sub_metering_3"))
+        
+        plot(Global_reactive_power~Date_Time,
+             type = "l",
+             ylab = "Global_reactive_power",
+             xlab = "") }
+     )
+
+
+dev.off()
\ No newline at end of file
diff --git a/plot4.png b/plot4.png
new file mode 100644
index 0000000000000000000000000000000000000000..abdb72f4978674c869ff8d0304d8b2f1ce9f7816
GIT binary patch
literal 7270
zcmc&(c{o(j-@kWe7-Jh*$DR~fLS-3)RJO<xWy^L`maHS&l<h`T6e5we4OwTTY=tX@
zLa3}mCd$4QA<Ded@89?L@B6&>dG0;ue7>J^?sLy`&i8&l-*fYnr3nwG7$*P#Jf<fM
zZ2$md{JS~OEX0h{vY1ueJ7s>xh*bgr2>?6+fC-RN0nZv%g9MOBfG6qS#d@ZaJUvM)
zJeAHOc>*L)fYna@hk4d`rlxwb@ET?+2}u19HPsVHO|40#(^Kip8c(3clT^dvu^@VC
z4YQ_(Nv~lt>8T`oswc}%XVU3RCX@B<8c!C=Wd1X<0HsBKGXM}zGBrGQhLXFOhl?21
zOiSpz_sz8Jrl3x>Z%Xy#x;g)bXW_kTOy=}Gtsp@d#Ub^ya`}gBwdn(3Wgl-W@#swl
zuJvTt+XV+r@grUP;QJ?m!<m4m3fSe0%Bshx1^+)7D$gLN3WY}t6klM-JB=e&CxOhQ
zw_*H94rR;=MG>HGn*x&!qdVhXlvR!P`KrCJb>q(J{BPIB$Vl^zD{2*7n{e$l;X?Ms
z-|1KW{?r?r-;;qq4oq%sY)lvQuWnZa(*Rdx_q(oA+4dc^#_Ym~wu+|x@w=7<&l;!9
z09D~C-sqVtSHGA^zWV%jYLD@3q`Y>P1{7NV33xfypk&HoXq#oy$M<4Y!>j6Ntgl4N
z!<jFKoUsc@`HPjOxHuqZ5xD!xGYr}E&i11m&3l0Bl6x?#nz6M`wE*JS>ipDD1lydr
z9Q_zoZo-S*a8e?na9X+vACuNt#I6D-`3%}U2VC9Qz~Y=lbizlT17Pm5P#TXMs1m%2
zAvX=C!B{5^P{l1z(E1#*8^+6lxzi%eim*iwiV~H<ZtlO<25b!SAVy31z=w@&_Mu>X
z1jUV_+{cjf-To+sBd25_-v;)6)o5FwCpii}=ZkdQ2#jT!e34VUYHMv>Em3sgzS-(U
zB4})4Tgl<j`T3*~CifscSpaICcfMA{UDORaPpsF&s${Q}%`i{8by^!?<+IWq4nlAa
zS5`J}E$`0Cc8{ubE{PabBk6{uVhK!sZ<O6j(6Yck+yg!zmJXWaOZrGF*csN!8lV0<
zVLyzLy5w*?XE2j~08s?h6cj%8-C5{o*PWWaF})k=K;62}m6!D;Zn-t+msoJ+B{ptZ
z5KT@s;ZXYqtY@)I$vq$YcCC<Jga`oJ;ulEJ5N2iGtFG{u9VbJ3xgWjxJ(F4^9!Tgb
zdj%@-s9`|#E}CaPW+?PnXG=KPDs%pWEm$6*&A~7hDTzb7a-j#xy<r(VIcxKC;t@Yy
z6)44fk6M&E8|~{``-=fw#ACO>>qRLaU|UmU(gWZi7W}<vl^H!CfL`3}&~wZIc`c-0
z0A+$mr2v*@NxYlvjQH!Te-yc$u&eRx0Y>jyU(=>8Kh*nS#8eQeLwzzSes6!<xeVpp
za6{!iMF*+S<$8D<-kyADHH4>7cw^z)ass%Og}tI`F1J8z<{@*og%IBnl|x_;wQK7l
zXl_GMXceVB0uuU64<e~No5y$Vy%8r<6bwjE2Ua4{SCdh6xnE<qsXGs`?(Rd-!5`-k
z_`(AW_`+<$F)XhZa%&(yl{Yd0J8d{aL~Tf_?L27yb53w*AE>m~Yb2-xd+UYNByQcM
zLge3|dmu6>8^DJo0uJ4B0)YI@gNzQFg#8e=s}vM(TVyPOQ5(A!_#nnx!2rdm`XLB%
zV-OBm&|LFs3OYsE;{+SGFcgonn|x647Csk&Jp7Us;?GWecK2Km@>sNW>IA3Xh9D9g
zwPY1xt_*nnYNVna3V{KXDdyII=^ac&rMtq}C*5L>yQuMC%8_S4nIV$DM=2NTu_Zwh
z{!~si2e^+8^1{PY4!{(+Zp#>Cr%+al?>aidFMJ=^07_y|JeUA5(#GTPXhLtR<>Jew
z&i3a0DQk1^B60~d;8Sx^1~z0Jc22PSG4}v%v3Rr;rGDu)d$<@Q?Xb8HFq-Kg|6a>R
zvLud<AM$oy#Mgc6N>Bu*9jZ7jF=|<GpYb9?g%9F|R_U^?hMC#JtZj<h{MOlW@nul#
znD9-a%8c^2o`XTLYg8{@Xa%rqNB{W=Ydk!>{z;Dy;s64~9Hg0B?az9P={^`yG<VqN
zQ?2o!mMZtAS@`VstQ~r@M>Qte(Qe<>_gIOWMD7^%mm@LfXR;$~ByTBP)*mwiv{II|
zM@nx!3Exuo#%K%E<e<m7ChWMOul#_ox`NSKyGg`e1M26$A--TP)D|PdNw{gI0-cIR
z6gf9PyBG|TPmEgC@*`icB$*IZNaIVevSL_CvT-hN-SXX{@6aPNl**RGwQ?sp6kc6#
zjR5H?sv}G2XM8l$cyqMMfJhVtF_M~*1e}s>E|FV?<J&=9tzdHj592$=K#ujn$UA^|
zzHwPiS(OTG8t~-h<kCE+0pbvQx_eXg0+>9WzYo51Vx!$iUqp&y<&eNGDv|LeoyS0D
zFIrP~*xD3hZf^niVZs%E9+efX5QH2+nnrf7c;vzy;grO9G~D@Io0hglgL~fIJ0ysd
z0SQL1)yk)ci6jFBgk~hUpiyPF%K|Nd>jStGIUO#8wc}~|R4#Jt{ZkxtAYnh_pyE}D
zKW;f_6+IP%2f=1J5KRoUfYt!`#Z$~2<Mcz4!?s<G2Gr@Y8{4eQ_`b@v^Z~bR_-pwb
z2FcEdM3xL5>p?+C;n}{6u<62kwB07hy+PISo^TfF>bjMcHan%^S0S*0GY8E-tH8lh
z*Bm4ll8^cJx-R_{K=gLCf^^H%pw*9pg@zp;z#NyyJ7oVuW=B<N8lqp6f+ls2OVAor
zkoR0eS|^Avcn6rGf_#XY<P)?V7nte%_%S<zYyEQ)#Xh+k3Zor*ybs;B$AyG#{Q*XV
zUZsx@bhhNRIwLdPq(hL^iwWGFnE)9^4R2FaS6N)~8e=IOn|qjVR9ssOG7D8tsN;dk
zge0Rd!Jx@qoI^a2N#HnQ5}=QGzD^4!*XEy}i+*=SX+MUr&h{#D_ojsQ9>!e~MF4Se
zOBq9*WLpTTWrK7-{ypfiyKa6^pnd|LUFs?r393m0B3z0=sl$8U0BDv|tHKO&6JOnx
zkt)Is%?Esov4sT?e>*Jp-k~?Gx%>G51AfQ@-BxY`W{QVoqOx3T(?;)mT(DCjJ!kc)
z6#|q*)bd4VV6NmOsnTpQ(1g`*@*X!)j0ZzI%US0Z>N$KS`Rg1X#K}03t%a6we9xES
zBnFM3^8mtrIH^*^0?mCLbL+ZPy&0-p7_dtM<!3u!ArnLqMHHUR1Mp#XfG%l_K;D}c
zfmRt#)WpBGy8)Y49889fp%)H{C541L*9lcrveUAA-zMIF3rA_{$#tCvB{=lN7T~WP
zu%1zf<=_}6e36>M4VGPktvy1=DtHLx%+PS-#NWVrTO8-mhLm6EnDwKlL3P4NsXAmU
zL9@E-5<Ynq2y?Lp%lv`q(6QTCHgU%hSr=7EKl$j>c%b>u&tJ{~*p;sj_Cp$)O7Gxf
z{=7tYFHy$Pj%e1O@@4GD-vU7>1tIcYpY-adraZL!$0Wn!!P8v*e}RbQXJZ{cVyC@c
zzL4M|U3wt_WijV6swOW|T%=mZj$qpt7C7qWC-$$^tMNadv~*O~wQTpxMP-T2J|F^1
z_jv4{NOBJV+yH7wz()otz32|!Ruv)>eIQ*9Hc%-5ZuN{}mqc)h7y^%YkjPRZYjtje
za*k&~+Vsz}@UP8c^m<)5fbJ?DyMcpVC_q*iW#pk2e^$3B?7x8;`V}BujJfSv4MbFV
zfKp#H&#~V+_Klr5;ddJG{9`a`eqC`*nTB$%d0VXoX*^Fk4}0~<AaTXBMkgX<5ABhI
z`;FlYX|=-8z`V~u57yy0Ya!stH&TPz&R=6hP0Xo(^+W>ZEddc+8XM#JZDfrPw}c_D
zed8D^tdk(O*+pNufeHT(w)b!`9A}+=&&sro2{qCmcIJYQ^^`vwiaGtZZcK9vJPdgG
zgd++yEq}GgN<PBrwLisCf{41f2k>%{dd*NS;QL@bA96+<3z#RR&mIR(`}cyfjiPLT
zyov|0;hzNukNHAU9)P9Gdvb^jT%suq3<O?MVSFy+E`D%x-Io<tGS}fe6*hNXOSktl
zyd@yuzramAuh4pgnEh)WT+q0KtJC>@OJ;XGArly&mIFggQAd!P^jCHvbCKT43DMUL
z!#i!IXi+I~M-ov9J6<?MboHS?d0@$L_?(3AQgoD7WY<!gv@88|-^fOnmBB*SikJO<
z2J{5|-r>Dk%ho+bF2W2f`?&eVWt=S3lUn)v;0pfFYgx%tZILsWd8bkUI{IxD{B)l0
z>Q&L(K=R0ES;^B|ku!qx;-!L&gDLTci<aJqDtgtQNjSU_<@IbPtH_XKGRR30v&IG=
zn_UH0)jA+wWjxvJ$>ER}aM{NOI7MEOaWeCM7ye1VJVl4PeUqbZImaR}M8b*{I*%{r
z{|WsL^CM5UqQl>{{JLl@>C6%gWr{`^3A6B>1N7bt+Bv_9?14aEZ`*VfCB~pETM*e6
zKimHV_%hyGD#y06lVGRe$VYoB{NMFW8h{_i7sRNDU!M-|RXt%js(<G}*v-{ho#~hp
zIYPT9Qop>B7&R)P#B$Mnm78KDj3pF)1_(Z#vkDYu6i6}Ft8P!#QiD{l&4l8PFgMpz
zY^>H+$G2|e0ZZBX;lm04;Yl}XrJQWRH2V%_>Wm91KO3=~UmDRFHVnDUTdCbxZ?smM
zhFdC_*^b2pgf;}06=|^ngSlVW;BoztPhSt)9%;#>w};ujZo6<t!a4ZLD%c#IP}?k}
z-qLD(%))VVYS2m*Upstl-irDP`~NQK{=1&ESA?G0JbA*>ZIPGZ+NnJY5$(DxwI|=8
zf2{*<j(QR9SbC%pMX|we{z|$NUuH!G^4ETnH=5Jp%B;vIMCz);Ka~6<Xi&E=h9VWR
z?w>*h3JpC<<Hp!$V}Y7RQB>V?d+-&NC40snJmv)P+sC{pLJ01oRyD7GVfkY4;xL*_
zvPd#(ZvDB67hP^a4F!E&bUCb9%?l(iD_ptXAo)&G((HR^2nR$z29TTY|DqMnTj4*2
z4J`iniwlsZM^!GrjH-MY7cIXyEj_N0xh8qsjp-G@m!3Azj5^6HM|!XFsJOe_3F#g?
z!t*^e_|MOklHZpvrWWXH{I1ZS3I7;yC^~(ae!yuuKhY4e!KRO?23*Kn!XnJE(e>>e
z=a(_RGw+2vnYKou>-1+fzAlc{;#+I|kftYs<bAL_PmbfpwtubA&%1FZh~5uPY&e$0
z@X#L0yo;*DtdvI|o^R6h_Z=wVl>%#RRYSI&S#~HmGXTup^|NX`PLE#1#n5d&X7U}-
zZ}y!Z(Q=zqp-193DkE5eQfubv>-_RaDvIKU`wt0KcZ&N^h#yk8^@zT;xgL~gRfM7S
zSQA##AOA3`YMQAj@TFWAMlMIkCC9=pO@|paQGFF3P@5E^kou+>6@hfwMJqGV9yN64
ze$&jStlx`I-{@<InJO?iHH}_rLPSHiwfX7Um#OGFg}n>ficQZ`_Z)x)&XlTdef}PJ
z=?ONkiyDt2gr4?t3(2G|=311cVOIDndPSnH>gbedlEyuzAn;XnE@`uMS^vCt<HgWb
zjIN;N`r$mCYlUYK3$A6YdoaDNlNINe@AbmV>gh6;`a+Yu`|YsGV6D|^=XHH$WVrQ2
zX6>V-TS-SO!UmRRh`NlOn@7fSK0LdAhaVUxic#+_BuTZLUvAl`OtI8X?@7iJ2CszD
zI>XtWX{saGy8e2|#H0c~;Py@aisLSqO4TiO&(rdX-EriT^A#6Ro7cj|To~(G+kb;|
zjO|#{P&tWCdaidn=F~c}(TZ*pSLj~U9Y5k(?ih5dX=c3?OU{W~UI^xrE0C0;_1j2&
z9)Im}w$G@|r~p6}aH(3}%+UY6umb;}D*Y8`4CQs*>+Tlf)=hs;@g-EUBx=CTkq)0v
z+0}DhKeitQ6%Mx4!y;oj7Z6oxrs8(g^NIZOI{O7h9<>>Lk*ChQAF5qJM$>d9f_C9z
zyf$#as7;XF5F5kvMt6HIl-#I>!XwE8H#nDsx|nP$A4mYB?dFtEFtW*auZ!ahK)JZf
zMI2h@xL(d7A-ytTJm8MF;!#8s%QHKF^R}i=5y+ogeT+ix+kIzD&A@%&Gj;0Jun+L*
zEo#M``T`6{Qu>o*V~Ozr&CPy%1<y<QA!B>-6MR^(ykHDP3zm~y=?}GCFO^oK?Aaem
zF3tuXcfh=xBdqM3HavU2*9RRLy4;fIhv3fl@`J5=ko7S^B-z{Aln`ep&hVX|LCT(7
zJLugH7A3JkRyU2L<Lo4%NQTY<)Quc7@bs%}FJI8yTv-Zy)7=MNFWvj`TlEM~>t=sr
z0;H4-&H-*tyKeVbJfdjy@ZQwbWt1sB>Z>=!p~rpEeq9|&Z!;KEE3lBJmcqH8j{Yz;
zV8~A^YSixazd<72glFVo%W)Rjk?d{5L}-R7!LK%G8}=%=YCm3G9?_|IRvjyB7_Y$)
zvL7C{v)q-ZZ-_gpKab@uS|vba-Y&jEUf%bK@6%+=JV(M%<xUU5qDYGopNu@AYu_2>
z)KJv=t+nRopB)EUrX&38SN5`yrNPqY1#>k*QCn|zk-vP-(01g2@Kwsl)Z6cH)Z`zX
zZ{s^}`N$hb-SALB!v<q8W+#u6ayC^>lvba0F5ho?D^On1QPyEUT+C$8@&yxqn-M>@
zNDMd1^tq)gqRj1ip<Zx<FA_esp(S+}>s+LI7MO?6fskwyk)f^f^+Zp*D)YwP{$IX0
z$KwOoO8xP_Np))#=JOPq|4ei439l%oRG^|E&`N^6<WsSfAGBdMn0`1wZY|rE3v7<u
zoSbxfhY!(&dV!Qz7U<x2x!57I-L8hRZb&PxCWCX+(*%i${(ZQf<pKz-2=pW<|5O>u
z8%lute=p_k9PJ4|JAHnNYKTCnffkvT(qREY^7LliY@;O-;*TacBMkO3PpcBRXG4Bj
zj{OUU-XO{`hTQ&$G6Kt*PKEVM1QbvHaGdG+QuiT1Ezl6TQ|TxToj`F5us$1KYyeLm
zO$TdrDu*H}DR0oU@Hw-mzBPP|VNPC$Vn57Fj+N!*MVEA4MeI-`O%#gsG${A2aYwo%
z9#)qmo7@818$7vy1e}^5SC$G2@-Xh@B2N2N?Gc+#N)G8(!E(>SR{;WsCf|lB1QXoh
ztLy{}SwyDug16!In4gYs;U7V-pHhGiTXhp`+}E+AHP7xXW9;w@j1YVIy3(V9@jFMZ
z9!A|Ne}=Z4oJU|8HkJ<&DHrcA2}7#xO9-KxYDjgNJVed($L<Jjf}42gU!}FqtR${}
zpyh9!w@skB7m`H*mawtuP4WkUT-p~M5hQ9{c{Ui0Mod`=Nq^8lm{E?Q^CRLwf->SE
zjG=OnmuSO=h`=E{)WODG0(WvpQrXGtwBh?hk#k4k10TFc1o-{R<dFNVo~J>Bi^wTK
z@&q^Y3ZN>cIgj=`Q_ltV^oHCr3r^)A(xNZ1HqI56Ye17BzO%2nV?aMJ;W66M*~3c`
znR;j2e&L)VK&Sz@uUueF+sPG~Ife#Mtol{$$qf{NAH-wlQF8l2)fQ~^;2#>Mr!3%O
z#U-_54TSgP9_RrWW`2)NBGiqGk=x`QH%!^MeOeY;oRS9<Y*~T5&dlwntPG$3W!X+p
zSFnQ}+MZIyE<oI1!YNs<sO*CAmxWmX`?c%Rv^FKqq4iXN@EVSCGwum!O~OLYtwj~9
z_QSVxsJjJd$vt82`X~~_F~vY{7*WBYPl>#D9k@Voax7dS9S_KRdm%m+$W{JMj32~`
zWKWMC{qrr+NL>-FmiVr2Q5$v%SXJ1==u=K}ooU#c6Vq8sp>n9XTtEi8Yk_(F{*JdH
za&U107kGU<?#DZ?scw75Pe(K@c~|!wigJTb>Rh5b+|oF~R<4FT1$kD6lH_2E=^Vh$
z5&qRx#+~GfPzdQI1V-1nCpD$upP!wB!4vHn89><~xOh`$_P}6blXV6VAQGV;bII+B
z0b1hu=%X?BLO*5HP)xu}<AL^ecAC?^cy^*8=wvT}aDv=2$XNo)L8k~<Y9NmG#6JXi
zBhYq&tn_q59{opHhi)=O@)aLV5zkuMmt@D(t8OT1B>=7W;0!=BkGh&2Vvd*rlLw1t
z7%XII&$affN3;0{u;nZf&H;hSuoo*~iGzByS=9_c7|E(NKuOibgK<F3sN^mhKXSF&
zo|8q`2eYj_NCe9yL47^FS?mEu@mE(}y<ZPs*auvZPcL3y?q-CmAI$ByNM?>_$p^3}
zRnV_a%+%`;48&Ew@8dV6vc^VHju7P-z1PA)XMG0a(P5MW_RlxAKi|-!P8{G;&+{Yp
zC<*6~DMc`4gQ}keZpcG*?kGDnV~5%I#`~P6c75|f-LNBrD2cNn3Hulwdz423Hy23>
zCl3EWWX|+#UlQOHnsyFN=V&OAC}1!7@t`ER&*CwitM%9Kn8=t}`BsnlU?Pvz4V`%}
z64dj-%M=ckCqO6A+yurf1!TO5?@ca4Y1b(VmB!8A0Y0oc-R4w(R+<JFXEZb{1?_{a
z3o9!loDZO!3s0D~if7pRfDDf>nws~$1<K;8x$iu;zQVRr!_q$r@P^j&Qd96%^Fvz;
zPR3uJ3LhI_Igllp*uW&8JOA|*NC~&HQvdz;^s^vJH1_ZN;5UCUIMRGU{EopF<O~1x
zHMuE<irHHM=ONeTW0v|y4bF8Yf3%IcQVlTIfZ7y)_2#Gp{EaFttYCS^dhTZQj+1m1
zD^;|5y=GXeXzNoB+vfG<?nxW9mgSLOQ$68qN#$We+b`EGHFvq>$N5?Y2JHG<aUphF
zeya(Jb;?_!m(E&%h(>WZ$k<5vyT9nIVgaMmKfUc!@&8suiM{{Fs;H8Q4UBx(#N3aZ
Q|94(!YGi3xc^r!UA1{#=?*IS*

literal 0
HcmV?d00001