From 9112d8f25d85808d38a16eb6c8cb08ec069d61b7 Mon Sep 17 00:00:00 2001
From: IsaiasGutierrez <isaiascruz@comunidad.unam.mx>
Date: Thu, 29 Jul 2021 10:02:48 -0500
Subject: [PATCH] Project Finished

---
 .gitignore |   6 ++++++
 plot1.R    |  25 +++++++++++++++++++++++++
 plot1.png  | Bin 0 -> 3889 bytes
 plot2.R    |  25 +++++++++++++++++++++++++
 plot2.png  | Bin 0 -> 5041 bytes
 plot3.R    |  25 +++++++++++++++++++++++++
 plot3.png  | Bin 0 -> 4032 bytes
 plot4.R    |  44 ++++++++++++++++++++++++++++++++++++++++++++
 plot4.png  | Bin 0 -> 9143 bytes
 9 files changed, 125 insertions(+)
 create mode 100644 .gitignore
 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/.gitignore b/.gitignore
new file mode 100644
index 00000000000..8440ab3567b
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,6 @@
+.Rproj.user
+.Rhistory
+.RData
+.Ruserdata
+Data
+ExData_Plotting1.Rproj
\ No newline at end of file
diff --git a/plot1.R b/plot1.R
new file mode 100644
index 00000000000..a5400f89439
--- /dev/null
+++ b/plot1.R
@@ -0,0 +1,25 @@
+# download and read the data 
+url <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(url = url, destfile = "Data/ElectricPowerConsumption.zip", mode = 'wb')
+
+dir.create("Data")
+setwd("Data")
+unzip(zipfile = "ElectricPowerConsumption.zip")
+setwd ("..")
+
+data <- read.table("Data/household_power_consumption.txt", sep = ";", header = TRUE, na.strings = '?')
+
+# select only the data from 2007-02-01 and 2007-02-02
+data$Date <- as.Date(data$Date, format = "%d/%m/%Y")
+data <- data[(data$Date >= "2007-02-01") & (data$Date <= "2007-02-02"), ]
+
+# convert the variable Global active power to data type numeric
+data$Global_active_power <- as.numeric(data$Global_active_power)
+
+png(filename = "plot1.png", width = 480, height = 480, units = "px")
+hist(data$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..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..c5d63164bfe
--- /dev/null
+++ b/plot2.R
@@ -0,0 +1,25 @@
+# download and read the data 
+url <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(url = url, destfile = "Data/ElectricPowerConsumption.zip", mode = 'wb')
+
+dir.create("Data")
+setwd("Data")
+unzip(zipfile = "ElectricPowerConsumption.zip")
+setwd ("..")
+
+data <- read.table("Data/household_power_consumption.txt", sep = ";", header = TRUE, na.strings = '?')
+
+# select only the data from 2007-02-01 and 2007-02-02
+data$DateTime <- as.POSIXct(paste(data$Date, data$Time), format = "%d/%m/%Y %H:%M:%S")
+data <- data[(data$DateTime >= "2007-02-01") & (data$DateTime < "2007-02-03"), ]
+
+
+# convert the variable Global active power to data type numeric
+data$Global_active_power <- as.numeric(data$Global_active_power)
+
+
+png(filename = "plot2.png", width = 480, height = 480, units = "px")
+plot(x = data$DateTime, y = data$Global_active_power, pch = ".", xlab = ""
+     , ylab = "Global Active Power (kilowatts)")
+lines(data$DateTime, data$Global_active_power)
+dev.off()
diff --git a/plot2.png b/plot2.png
new file mode 100644
index 0000000000000000000000000000000000000000..841c4b4a7b3eccaaf1d2ad6485686287a6c01f3f
GIT binary patch
literal 5041
zcmd5=c{o&W`#)!fnP`xdr7SI$HYyX1AyTO*l!&s8VpIlG)-2<Eo3s##q7X$WVWwn^
zZJbFpUumo{7|Te=n(X`h=3D>$uIqjO`CY&3eb05B=e|Fm`+lBtKlk&T=UnH$d&=sV
zl;j3U005-Sj~}rC08sGHy$UH}EF`URMB=YgCvD9{5&-Z3Km_o30559e03t(#MF0;F
z@%T7Ak%*6r!^iQ7znzGH2#XAH#D6XZks*x31989o;^O#m3{fLw5CH}e&k&h~42Dq1
zkHho%|ImCPpDz@O%pyu8L>3W>^jZA~0M-thA2GEJP91$J5z(0|`?1<9VJa&oK_{@i
z-P_M~<L-qOHG0s4HSux#_G}V-Pj&s)7o~J`Ne`;O&~&<9Hw*b}A_`)g!GbLWvg{t_
zDn%zTj1B^&08*p>o9HZ%^m4;PS^E1#3ypsl-D?UQ`uf$^>>>1*w1fZF^Z#dh1yNv1
zThNZ9|Cc1%ASv^~!WqJsMKxK*+foUKt=fX(+lym^D_`cDZtMYho3sTyT6Z_=fJ>!g
zis{`$TM02=ou>@K(@lapCvUHEJl83f_ka>V?ayt|a77dxN;Ugei+KVyH(z=_ApL7m
zYZ{~%4^UXzM_31LZq^iRPzRP46hbw|ySw*)MwNCI@4vjX)RB7~qbU%J2aPL)SMij8
z^tB*mc_MgacEam8+7b>pj+z^u^^=w(N3RWR=<n>smi>_bXfDru;q1S^gr*ZY93G0W
z+Ejgg+&LoY#Xy(mAL1E=u^I{KPJ`s`IQyTsQ`lAZ<6W+fLtw*YJ7>C)rN!%^8;^AS
zou*cE1kQE}dH&i9^M`{bjM6g56~5N6gt`jVS7;-OQR{a+i!;G1oM<V8$diOIE)3W2
z_p{+G&U{*Kxs$s(vGDiMZHi$ExXO6upFYI#5-Mf(amzI80H_sL9!&||7NY9pTr+Ry
z{P+-@^e7fKI6H(XC>Siy)%hIwNidXL`+6wj;eGZO!rk0xUBSLV+d%Eo((K9H(ruBD
ztFbQCELX>(M^QOA-}T$?dA(eDl*c%`>vgmZYHq@~t==%uCLL|h^LMdR$QrrQSmm*F
zV10#FG}NnJq1y3?^*SEv{eZC&J><J$>e*(qbHZK8klhx6C@U5qVbT3?TTNuM-c$Q#
zv+Cbo>c1`K3d_?bK_eNFA}=CYl*cTR#;{rv%{Rgm^-~mD-_CP6_52+YOq99(+m*S!
zQz0gx{pLZ%rFCES8wiHlYjcKfkS;yXEM-i-D&4d(+0337Xl$qOLY*okMrhBmE+JwQ
z)Tt*bem#Zcj<=X4&8J9-r5;qKHszLX8b*^=Ib;R`o|non`&Qv#(OMo4eDnPKYm9`0
zM%%|*zRzjCYyPA=-h*7ddPOX6Ek`iqEV<LgpyrY|eY2n<Sr6(~{jw;eZ1-cQEA7fV
z2hNT5OxEP6)p?{@ZXvjFCE<al7g)g|YlXFRIxzsH5K<ZkMe6P32rm4l`Wc=LV&#s7
zM2yaSwjn~kCGWG~hHr|7sB61U=~q5c!r|;2X)?Q*>%vk(bkR!s_CAKh^}IL)B6)LC
zV{&tjd1ROV3HWVD02I`vKfIh^Ar|(`AKKrgU-nC|7F65jjiL=tkKGH5XA@5yhghW&
zxEEbvUJV0FD>2Ug#z}8O>;~AOKXb$8f22gnj{nsN>MStMA>^A=^r*$8UNd;}bU~5z
zjlIDf{qthVHZ*Cn(^E<Q>jNOV`2_5xrylU6Ba_(`3@3Ty!M7{L3uZ?pa4)+q!M-xH
zD@A`V<3&4w9+C;VTHU{(YO+;;^k|tmDmk~g{Jy3DS=4?=EVb3++Wl`Ki&@fzt@Mlb
z3zk7*yYh;CpOfLJKYedw^e3eZ1C#$CU+sOa2?eV3%>=iK{qH8jb5-|X9nS9tY0Yt8
ze-Fg1Z{zMCX?3<;kcdFYe+?~rwoaTmC%1A2uHGOkGd}UQauxZP){+*~R8h26ivIH~
z2g2z19phY+w}e+h)<ZSj4Q@_w^?6y5t<~3E#4b+HNELO^FXp^DlXVZ`zPR;p2d1^m
zjZ?r6^Y`HCyU2@zF|Uw>i^~EJrOS$@l_eh5;P<>HQU#12@<16DXz9JMO@V4++2?dy
zaUvZhO1hkXgKR+VLp|z7Wcjcik~y9ptcGo!KRBEWWyNCKTt=N?O+7-BEWOid=2rs=
ziisFKHc(;;&lG&NNm@NgB&))A4b<Y<)ztRFpFd5jJIv(Bd0!zz1j9#Md>@p~4G)qG
z@7#sOJ$Ez(EfvBmRCZ2DRO##Dn$&lq1^K4}AYW@u6^eDDUsjw_d9QzfwY&3Fz!nu|
zttnjH*^gAt8Ui;WZi$l~v!l5=RlE#|;C}tBf-MmbdjVK;8YyQ0{``{B3s#01HHAx3
zK2(as+f%tlv)u_H0ofQY@s^==088685hP83`r#}6h}5sXXJKB#i^U62*>}kISj-cg
zWtJxBI%P}5)S{UeQFZ!i!rO1IA#3rdoKdA%Kw0(S`x&AMpx*{~rkV`^<zt2Bu%?ON
zQ|Tpyyx~~HB~rXNifM9M#rjGkvWxT%*S$P@5v0+o&1*&P`=E~`?gYvcky<`nCyB#v
ziyY;4jb<F9n`jGSias9&XO%jNR^h5H+Z=^+4v7wWu)|iNbDe;<`+l8T=@~(9<P}UO
zhKy7qwU1=DR#GaLSFhgj@?Ccq^GrSp*pEk5hKCvn4Oa>*QrNY;hoZcX?N4trMhhjz
z)uEW`$83I%>H`+d6$|JeAo#-hwHeNEOD1Df^D<wW5V~jWcv?3S$YI^NI-F5PQVI)i
z>g@UX<44Dtt+QUGI;EztfiAP&Rc*9?G<_SjOb?cL>;N0oQVT(yDIhpWiadZ$g~;1s
zuZ=gIr<(Mr_nm)i5<KB^_qI}g`LvNc)>kAyMADxit=f;>hZ3aUBLzii4k_%brrSyA
z#mkekF*#_`2JsFzWNjQfTME|PFVNjB_VX;@b*s1sF*!c`kc@}#+T(SRD7<B|Q__&h
zOEvNs<|y8B;zh(V#EJaTBm8234W4S)Ay6%dFx}vVu{tna12`O5KgHxq;B>Y{dh?`s
zpH>Bv`9XDipeJl>aX2c}Ef=_$?=DOJyPw3MF3UoGshU|=^#crnnWsDFi7mZ}+MMKP
z>loDVGNmvhf*C5^*lFyZ@rv0cO9X?Pu1NO_YHuu&9`6&In<}aAd!NNgUq@zPSgfci
z4D)aALQ6y!(?F*^e|4)ms$=)*M2FlF7(78s!Pw`#1y~hcfur7qyrfIl2ZediZFe~j
z`Z}_w+Bb8Vxdr_Ar2S8?K%J@GCz?xuP~%t1^a|s?txj43zRkOcwVjn3qf}%oCjKMq
z%<M!$7$nzmtZyX52G-mukeXhe9So{ba@Yx3o`?BL<%%~WeQpoV_dsR5vf-^Kay)Jn
zBXCzyj=S%I3ZDfh8I(nN;J%40nZ8V3Xiz6a6sy#mIp#2-vP7Ux;qt;>e-q_OzO3le
zqDbSZO@LzqEe{}Vn>kEcx7?FY!#`Ylf_o?r*ev_PJJ`7apra2M>C(t2my=CgkJU*r
ztB2Xqb#L9tf$)sFzBK&_a8#8VVFUMmR40<}@sOpLnj+%;;>}<$7w<x?;Fral2!Rb=
zE(4HUiHY*K%R$+c!nT680Wl-1YwK5dp9Ie{j>CtmxvN(~K{HY<v5c55PFHz<D>OC%
z>B1%SJgYyW!df$at4@!0Krr1F_3p+iUNwh>k+<u2C!-VCuM-aKf-|1(O;Fnd&_=Gy
z!&O`4K(x8U9E=%TDA_JjQ`lZ=o<K+4vlu_ulm6l}IV8yN5?tyz5b5kM2{)0(UZ0y<
z^A|Kq%SXC&`eHj=74112411mEMe9F|0N`qGUi>9#96eqNuG;b7F#ZBA4P<z^`%H^D
z0d!}?KIzNagp0m!I>gFdC6ooz{C+Jc+`c|Yg+?)UX&U~d77LWWDO07X=nHBQfeQ_r
zIF1_)Ynm;_7W*$wOa{|Z^SgF|KkdJRB!=W2#&P|DLg#L`StrfMhX8_U*<#qq4yiMf
zQgFs$2@Jgr9C<G_l3fhWjv4YjZl^!E-fB>!<0joSdk~)d76Wz}J>z6o>bc-y>Y|R6
zz&yx=vS<3rLcpuhWIDk2YYeEg+HzAn?2gQ>H|g?=sy9-Wzm1)Um^x{N9Ptbdk6!fR
zL&Y0gRJI#>Hfl_3YrjI1&H`m_iUZguyxQWr<IwFbweBaJ5`0?Lo$pYM+5$W3X=9m}
zVczc0ze=#xYv9uj+oG(c&mtIsrs@cQW0sK1q=uX`UNe5}-ThTBW#MnRt8ipLc}GOo
zWNGS)HDuRVs7l}SjfTLPCRTp-4~ThewqG(hMA8~w$lZbLcm<@yAQ~YUIF{#UD-nEs
z{x0PE@gRVu@}lg}t#^RkRhk6Ly)l;ZaE+x{-uCP_65_kC8iaG()nOY)gw?n64yjPS
zvpg)z{+?!5b21##k|QG$lNyyCfnPAv+p=`qB|;Iw6yYg=P=$%zorRUG7Wj(}6EMsF
zs44U@dn7|Hu~Eqb9Pz~<Vs~a?cOV~MBp=-V^mGV(O9>+#Jh~nD&2J$*R{<RprtM9*
zmABAGU?s3F=<51$3r9t*G6@G43(tpJsXQQMZ^a(~j-PjA`mWwYxGowBgjMaoL93Yc
zibjciL`NGh^c@=a<-9F!C?rDQa?{DO{WHOFe4=V${){kuAW|Vk*4wxC0{<E+2hpMQ
zGsnf#n@C2%SAYGTABZ~a_@T5JOe-(-%>2xSVv!>s6i<7uhswAoH(20&mLbor51*}Y
zuiQtImP{Bj4&!)5SppU}xnA-t2<wwPZ_%!!r?~DTtz08?zuL{x86|7%m$6vo@oN+B
z0Fpk@;llbK88L6vcgbYd60llER!4%8CdCRA2KIgGbDP}^j9>UZ<xVbxI5)A&SCbXU
zVV*q0)CNU2Ji5-9z#GL29O<9zeVG>b*m7{y8@y_sB+NKBa<ysNTd8r*kH>iK+4*K5
zE*?4KLGMIk^9Ub|bc*kpQ2d~L>eadGNL}5i)~trvdfmV^Sb4JhnG)K*)Bw(>{9>)G
zGHprhWz)-=uWj)vt6FuQN^`vpGmR_11yxVA_12SH@pryC$;|jn)#e;-iTp4o@wWla
z+qGeh0L)bSs~yAWB#`W{ECPn=vD^D7Yl{>zJ!gZJZn@2#IH=+UaW3CIU=)DgKp#z6
zjP)5Y;><+9`h3~DI44Ef_(7;!4$8_^aAX7_J(!{3(fOQ!TXIAhspeH##Yo9JHMh#j
zR3=yVWCA23=qV;;#K8d-8hA*?|MY_^es@MO^rmZ7%C-;KK6UzE^$eGqA+9mO8Ff2g
zqA|)=bW+;9I`Y3u5J?-xYdFJ$^SisZl3pz}A}FEEN=gJpxV1GAfABm^bFH*y1r@F*
z=F%Ut1vdBDv>;`w*V)>0`|PL_U~S*v!5+~M>F8ak@4ZYi#FqnWBGvYR#af8O)h0hQ
zXXE1kWdXpksfM!{_w79F+pYRYHEOVr*XMj(>c=2uZp&IM(_95Tm&#5$$y|!4nCyIF
zpXp+}j6<)~WnZAMI%k8gV|p;NgEXEmLPKn6s>Cq-RH@<7q^o^>O}^S6!%DQ5l?R8D
zIF62$!p+KVjUemmXorexk(FmbdP>y%+QIQ&1HlOe?cr=W1gpbjxgcgcuO>(6-0QQg
z->*ANYHG0EPB{Dq5NPW5WKRN1gU2rJbyd^3UQt#V&@emmAVEa~2pc?LRq4dR)=g>$
z47nT2Oy1JJz&bJ?wlUasWxVx3cwAav7EZ=kX)=e#QyMJe9Ie&a9rLwrY2)4b7CqPY
zh1m#J<(G`et6rcX)x<9IA!MC>S9(lK-u^B8A1)IK(cEnX_j;o{xc`*i%+0Kh6dWSl
F_#aRzRdE0S

literal 0
HcmV?d00001

diff --git a/plot3.R b/plot3.R
new file mode 100644
index 00000000000..e6e1fc5a050
--- /dev/null
+++ b/plot3.R
@@ -0,0 +1,25 @@
+# download and read the data 
+url <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(url = url, destfile = "Data/ElectricPowerConsumption.zip", mode = 'wb')
+
+dir.create("Data")
+setwd("Data")
+unzip(zipfile = "ElectricPowerConsumption.zip")
+setwd ("..")
+
+data <- read.table("Data/household_power_consumption.txt", sep = ";", header = TRUE, na.strings = '?')
+
+# select only the data from 2007-02-01 and 2007-02-02
+data$DateTime <- as.POSIXct(paste(data$Date, data$Time), format = "%d/%m/%Y %H:%M:%S")
+data <- data[(data$DateTime >= "2007-02-01") & (data$DateTime < "2007-02-03"), ]
+
+
+png(filename = "plot3.png", width = 480, height = 480, units = "px")
+plot(x = data$DateTime, y = data$Sub_metering_1, pch = ".", xlab = "", 
+     ylab = "Energy sub metering")
+lines(x = data$DateTime, y = data$Sub_metering_1, col = "black")
+lines(x = data$DateTime, y = data$Sub_metering_2, col = "red")
+lines(x = data$DateTime, y = data$Sub_metering_3, col = "blue")
+legend("topright", col = c("black", "red", "blue"), lty = c(1, 1), 
+       legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"))
+dev.off()
diff --git a/plot3.png b/plot3.png
new file mode 100644
index 0000000000000000000000000000000000000000..dd77d84c2511d44eadeac2a63d8228824b78c82d
GIT binary patch
literal 4032
zcmeHKdo+~m8lPRCJ%iJr8(XfaB-eJym~ts(Q;Z~%m{GgQEi;N~P-gc{MFyiJH7?Vx
zBs8dD$hhobldd*$$uP#238O*CFqreHz1G=(oc3AgkF(DC<E-`0`kwcBfA8;ke&6$c
z&zkp&hr9C%B~2w547S4M2S-mB>>J_I53wBbxGK5lL63Nk{a#Mc69z-WV0aiz4nw11
zXgmy^3d2K#19_o28iq%sp^=JCg$5tOK?pnykN>iO$KyHjR5UCVLf~PksrXb*YARpO
z!NWLsG>4zck#jh5IX@N6=P$YWaz0-!mqWogc*rZ4FD*h2FUOF67z{b(;<($3ob@4_
z7Q?Sl+dKR~+?^Tofy^a!r*j^)c2`!*C)00B*5~r<VTwu3v%jxXT+|!^s?rL)ag30m
zWqPKF9Y`>liW|`DLjBK~uPs62rVAIr;+veX(~L8Kp<bS~GjZ9!V{SiFLoO&VCvfcy
z&DH&yYiqI>3b}z>!I|LJ{`UR@t1HL_$?k-{a!Mh<Jjsz^s6t?~Qdp8{O>!@0#&Y&<
z0VyS;Pwsz+&YmkA9>xkj^?6TH<`)O;uzeyGdB~;*@WqeK6QsIlub5N9i&`C9vif~%
zieksy$3MtwGR&}J-jg!!bi&j2siAV2`b_8iVuWR(!N>)6=7epAQ>3exLWg$g4)&_~
z(<L_p;&iRBQ7Xl9*4k!5RN4X|SvXCPv2QyK2M^vcB`%7?)fPIXNx~Svhl_OKQAylR
z)m;>_c>u9YZhE#paSnf0B6~M@8*Yx}0(Mq)JF=t7{O+$C;q6ec@@vU-8ZQ-)7(Loy
zM!JY_@5kcl$;I+&oU#~~31%+fPU4Ros<nY|v6y&JOqxy@3}vsW#s(7<I+x4cRV1{)
z5wXD8><41|oT*O{ixAg0x?kJuw8D+zSC@UBMh+qbgNK$+t5QxEsPGh<@@<!DHK&^O
z6R&yGlk^Fik0}BfIK*}dFArH1cjc`G;w`4$-V=>?iE5R=RVBq^cQenod7VsS1e`lc
z^BA#Ye@FdZAvRSM*7|X}rEm#8|Mp%(+g<Du&p5<0`@u&UbkLX!YrTL4@^BD!n<#a=
zU&}LLn5Regd$pHu?>%@n@$4UoWQ{mLCub=;jrqv_hg&8D8`8kEEVD?~{j&jOdZ>#(
zW7H+!;1N}=x|*5;R<irg+|^sDtG=HfuA5!x*a5Dxm>=HbE;T$c-gZg6pSgtlEl;`E
z^_EUnDzvrIqJyW{9~t;L_Hf<TV*lyQ++>DES?<a2d?{MfM#@b$KpCorX#wltyvE%n
z5r1tyIWjIf(qsOCR-~4-yi-XaFtX(L-ILg`lz{jMmhe?|IG4!?KBR~GTTDqrQ2^X(
z#(<4{y_Rz)InBQ0y+UTU7XVi~ZZ#ZHw;t_xEbK?Op5vK1T}{ugX>eWG&ZM-*8#}^R
z+Mo`uAKheKf3Smht1kT7zewqy<eayfw+5`=>||ksQvGXPRRAI9Qv3A1^zopL2xNUR
z9HS#9v~g3OzP;pZyql;IXHyYf_x$%+XPJv}e~YWC*5wT0U}zhaK;bY;SL(0;ULZOA
zN4F8n@!q*;<41SWA?1)*sH;g8a}-85>Z6o*%}@^+V{3z=G(iWC(M?V%-g){cpy5JF
zQ_IM9ApW+s*E4j5eOKaAHyqF>Ps~%DA|L%mO|FNO&%fSuUiT^e^A1v4QayU9Ri-eZ
z6ryB(gy(Cvf@gl2xt2X!&y`%;3B12B7Vc?!n9IH>)bf}T8rf9XS9S6Z<xbIrCOG46
zRDp7zFFYf@`R%<|*)H8Dwu5JWN?Xwws2!%2^5b{$2EL8`Kir5wT|4o4$_j!ch$MB#
zCiqRQ68%}n!ZuZ{WzLV22Feq1PM;0TCo9?3B6Iqf>*9r46(sGdbN+qveGxa6dDg@a
zX!6d2yNci$VRsZ%gER9n<Cpw=Ueg_jNaBVUC`G`>4^%>96+wrJBgE>=$ZdE7W51#`
zqdOk=)CZ|$8FeZJ(6W2<Q3qGQr;b%>hLO_lQ)G!klZom(#|L!~f~ZEy#G6qA3}5Dg
zc>PVoRg<D;ThwZurbG_bclIuoO$R(%UNjZy^z^~3X7XOc;GMjyGbI>o993pIC=OCp
zw(irbH}Jh9EVa?#)##x#^A%=fStdaFP#!$An7^C2eNL^XGu(4hAks&v*DoM)rpprc
zjvLvqsOh@ZpfE^-p9oDmfbyV+^vcGtr}6g)a^39YcD!yw`7t^?^5w&<O4FIvqh;tu
zCysh=Zw)5)sAIW+9-uI$SwsQWU~dW=$|DvC0$YQjtt=gY>E^acI?IyOBfJ|jHjph@
z;f-v4^%j3Z*EGm=8~w6}A=I;dA|zeyE&hF*dfr(5V1|t*6$iwF!n7WV&%`ZS+f4t*
z7dpvC4kZ_D{gE^?>B~at%S))*_fJKeD`rVv_yr$JG-boSjZ(cgC($e+ZQxTe3OySg
z-P+P%XYMYJHaQY)eFHP)t7?+FSG{K!{{3E=-ddo%anP7tRwMN<GfWb8RGd>NCTwlX
z{zx|>r|&80jAZT^|J_BV;Xof^>m7D=V<&i1A=FU?g8BJQfA$|X!N0|3r52AB@dWA_
z=RO^Oko>THa384-Fbt+Vi7o=m%jt{fG#<c<RnN^j6$zRc73+Rc$2ffW;&AOt4A7T;
zq&fP+Lx(XXjmyBDd(CTSX6=c<zWn@8)YvMnDlfy+t{1JrLm-1STWdUc)o~<!F!#-B
zI67v2bPt3xBBlLdU5O!Lnf?hlBTMMZt8F%OEV=&NyYzYyYm@gGU?(KLQN2eTe{lU_
z*W}tYteu!4_48}L5SUphU$Iq&Xr;6v7pAWJ6^Mhko)Ja7E_$MbT+aLO2oa!v*ge^#
z>(sGVx&m3OM)2ec-ur`UCb^-7SK76BNQeh<qqVI4*N_w(93tuh;nKs}0M_+{m5Xbq
z_o_l`P#bZ>^Q#-YfPKT=A;&D8OP2FIw}82krz{^a47x7hjMnfxD>;nAuhd5EORgv4
zjQsuF9*Phos3uM&pS4Y{RA?S+&Nkjlj17whGm6Fh8|a*|pM;;fJ_3Z|f#HfAI3!?D
z@jg71p}tvKcYYrtoNnqtoDYVwL7G%_ue4w-1+_W+r$l3W-O!XnyFmW&7ptmfe@Q6`
z=I$=J-aWQHCPHFVx<qh*IJHCoz0Louyf3Buf0#d=iLGVrt9klv4&4TazvUeZ5rB3f
zW-Gc8wpwq_?RgYhx;P{qiL7k7_2BgsJ#AAS<*Zj5(q`uSyEImoaQe0ZPmI4ic`(KO
za<Y4-cJ(*T8?PIXFX4dLT!Su3<Zq?WNr%2R+bnl;=>R#B0@|gV3Ru~5007mJaDa@C
zWbE)D_AEg7WF&(l>vip<V%n+!$|yhfq6A*1pv#%t0A^AQ9lT9>@zjEW;R33n-=yJv
z%EOdzvy$wzEj}vts%ZL$S!$kwYb)DozVV%!xZSdwonj?a1q@KD0Ryt#yKTz0-z_cZ
zu|X?pL5N)-7Q}c?s`Z@PxO!JDffH6+6^)?@uL0&*EQ87BpY01)J9<snFv)LeZWldp
zWY@+tH8Js&)1|hLBN7T1FS;2xNrS4lo!9crzAu3X-6?NiCJU<O0!M4oZ&s>srH`ME
z$zV1bbMHo?pr*$~UbcNUerIQb;@9pmX`UAE?9sgZYcapZwIIw?0NL@{ARq${E<D0+
z2VX4bEq0k#HdzCdul(yesyQiBcbg1VFt4Q-@7GA0?fkS5sbCTPHf|EsIl5s%u_(4g
ztSAYccoRhrPI;*-5ZB2~3Pf+`kO4FH$wwsb=%RSIngT}0r;TeoFvny0h*a$M6}+{<
z{ah3|ajGh=n9yg_X)ytCJ8j9Y9Xj@h7So;DN4NAY9#J1%+Y(0`P5^t;VBycZ-ZAXv
zi}Sg+8R8RX4i4S(^^#la*b~)k0^O>Y#gWY)ibPwDXn7ga>*r3)jIX|c0DD`H&*l0u
zqju$Q#N2NmAaQ?AV)&=CrxVXEipiEwCVOAd9_j9474+p~nzm*}=*MPA+`7YN)jcO;
zT1Ew8Y#b%RuO%l6Yb?bLs#u@S6$T&rb(v&U{Z*6y-i2{qmz}svmSA7NT)K(7IJr9(
I?ZJV62OSrU;{X5v

literal 0
HcmV?d00001

diff --git a/plot4.R b/plot4.R
new file mode 100644
index 00000000000..1f68633826e
--- /dev/null
+++ b/plot4.R
@@ -0,0 +1,44 @@
+# download and read the data 
+url <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(url = url, destfile = "Data/ElectricPowerConsumption.zip", mode = 'wb')
+
+dir.create("Data")
+setwd("Data")
+unzip(zipfile = "ElectricPowerConsumption.zip")
+setwd ("..")
+
+data <- read.table("Data/household_power_consumption.txt", sep = ";", header = TRUE, na.strings = '?')
+
+# select only the data from 2007-02-01 and 2007-02-02
+data$DateTime <- as.POSIXct(paste(data$Date, data$Time), format = "%d/%m/%Y %H:%M:%S")
+data <- data[(data$DateTime >= "2007-02-01") & (data$DateTime < "2007-02-03"), ]
+
+
+png(filename = "plot4.png", width = 480, height = 480, units = "px")
+# set the number of plots per row 
+par(mfrow = c(2, 2), mar = c(4, 4, 2, 1))
+# plot 1
+plot(x = data$DateTime, y = data$Global_active_power, pch = ".", xlab = ""
+     , ylab = "Global Active Power (kilowatts)")
+lines(data$DateTime, data$Global_active_power)
+
+# plot 2
+plot(x = data$DateTime, y = data$Voltage, pch = ".", xlab = "datetime"
+     , ylab = "Voltage")
+lines(data$DateTime, data$Voltage)
+
+# plot 3
+plot(x = data$DateTime, y = data$Sub_metering_1, pch = ".", xlab = "", 
+     ylab = "Energy sub metering")
+lines(x = data$DateTime, y = data$Sub_metering_1, col = "black")
+lines(x = data$DateTime, y = data$Sub_metering_2, col = "red")
+lines(x = data$DateTime, y = data$Sub_metering_3, col = "blue")
+legend("topright", col = c("black", "red", "blue"), lty = c(1, 1), 
+       legend = c("Sub_metering_1", "Sub_metering_2", "Sub_metering_3"), bty = "n", cex = .5)
+
+# plot 4
+
+plot(x = data$DateTime, y = data$Global_reactive_power, pch = ".", xlab = "datetime"
+     , ylab = "Global Reactive Power")
+lines(data$DateTime, data$Global_reactive_power)
+dev.off()
diff --git a/plot4.png b/plot4.png
new file mode 100644
index 0000000000000000000000000000000000000000..66b40c9c19c49a25a5b3f2bf18154329df28ce21
GIT binary patch
literal 9143
zcmbVycT^K!*X~RLgc67XLTCXIDS{A?CQbQCSDGTdM3hJ;C@3IhGztPDD2P;1f`Zbb
zKtK?jfPjirrMIA>^j@TY@qNF0@4D;0_n&XCHD}J=`#I;#Iy0y2XHKk@g)uj$Fed;2
z+@>Z5X8{0Y{Jq$bOp6((MLzR3W_8BKka-6HEdU?_z#gEL1Q2OVMGMf<0*G3Fg_$O4
z5s6w%d(t2iL<F>m08>x;Yx^tA4DD}{ltg3#XnRRoK+?a;BoTq6zqq8op1(p%N*er|
z&}d0CW@ayGa4>0bk46M&L@gS#mLx4&5;OgmpT?BIzbGbPk4D=Yr0wkuCTR^O5eI2W
zgG?W@C{y;BerCG2$9#GkagUb71pUSSwf!x@^pwhUbOC?_U}~Um6OuKX%|#wkeb_Aj
zB?#h9|HN|NNgAGIyH6dyU~11kN%pw*B490SW#>f4hM%t4S<_Uvsm*znz`?VVi&stG
z9Bq-Xci{Tf2KYEDGrlxJ#{`jW&S=f6|3l>fC)V~QxLRh$4T`$iEqk#ug5IWCphF%O
zEXRVDyuo_P4Aa~;8Mb@Vq}@`%1y2#aU<cs?3%owJQ}bh#Dz~@-!y`p-!FP>JE;wUc
zB`!Foa+YuTEG~3!EfkPb^f;IWW7gL#8+Vdl>ZXAh0p-)pr-45w0|{%4w0+6)5~pjX
zCkkG>!(_u5vQpt-xHw5%NA<%`Nut;L^ak=<3{KHIl}Chw8af&&rOcp9UY;cF2B$_W
zG{k?m(S2XRg89;#0mg4NA4llfRQ~26C7_s=S783VDOIjMqRRBt+Tt>CD`wr^^Ttr$
zzU25YC1JuFZHIG+`}aje+^;;CHx#^B<ONtx(eJDYYFDxUFDuvLX24az0^JXUzYDY5
zPV6{&nY(I*@x48V7in~K0;i+J$jKSX(jf%yb#DE#B-t1b@WU5xQ2Xesb3ZdDzFE5n
zyjWx8u6MEtrc}K?DBb%KIdXpe=N}`~L2sn=ho|EBl@niWa8vaCffrAmDY=akMfY{0
zG-%R@th`u@(E%xIM>y#-Sq7O^6064nH%7_-ckUz`y61xoo2ZcBi3~M@y&NO^_~5;L
ze-%dc?QdJW>M(cbz&%b))7f<MmF}9~8aYn?4F33TT!uRH<Tq#wKSe|@f_t0Yr8;ra
z26yln+P9cFIt3}P)rwQ62QE?^kp9BoZbKJ%;XtOAjucpV8A4#y3FV96_|Qz3;i+00
z#bcW4)zA1)<G2zh=r^wNi|uN8SU|76%EYj*IJ61RkkRT*q;yE!RYK#9q-*{c4k~ZO
zRqE6JE?3wue$?g2^YpuZ>YeR06Z~wjnOUa_+tBbM_8Ia6ssu8%XK_CTRMf=^8N|G|
z_yl!-jMYtZ<SEDKrA3hbOs8xhqBUU#FogAP9`}oyX-BJl-MMD^@S0HgXK4Ia3bB{l
zewFYPc(KNvI@?k8r!x!m!Oau~WL6eJr*yCtzlP2Qhyx}{C0SYokCQ)Hef`?bmp*C}
zMi4kJl*QJCx$PKtOd{sC%sHr~hO0n{MMjC`3n7CwN0s4#V+1#w{ziTbEwg9SXXb8r
z=^-4RPJSD^X7DJ~r0zG%3^vdQnlukmB~)AR;kyjB0H5Nw<NFFMQ)Hpxqi<d#72*@^
zzb@cfMX2G^eY5my@Mj4wsbw6jPM)F1vnr&-mzuyM`aO#q+*evYr`}!nbcf~q+g>2h
zQm_%f!tH@uEln=zu}IOpN!<`F_`b&W4a}T+#6_GiVSFw2aEQ2N+@bl3pK#v`*^6+A
z#`g0mnJ_9>`WU^f<E%~!eq8I%)s+j#jOg_VZ?I-$p%;ixlGf5?Y_i$Ew^PcUq{jqd
zM9!|HgL2ZUV_^+$k(<X(5cZ?f!o=l$FxP6wMs<1j`SsRF!k<dXU$qv?DV{BkkAw-G
zn<_lmZ@(e?$Zr&0w;QhACl5kji<7&hDlFiVZX!448bW{q*bY0h71_NVF{qRuwkEa_
z(S2_Re4nB!&E@vvU&h*+-+DLLi;{6F<juI6?H>DzBh&M@cbP6>3`Ezy*9PP{G{Kha
zYK}Ap{ov;s%(Y^5Z4QEJsXxq*;jwBnFDI3#%Y$<Vze9$ygijF^UF<#fCUwK)8w)CP
zhFsiKDl%0w1UPN1ObWw=<IrKZBefTKd3^kGhYMSe6cypnpAX5j$hNR3G*XFfYF=w}
zMVKQ;+CfFA^b>HyHuJo-sq3r!1FZIt1R%gph(n=df9Um<4Jb^}pY|Sx>Uof8Swd$`
z?h_A<e>tyWt`(_IqlV7E7ojGJ42(ghxNs;T@=kztTLkrLg#-72DY`77jJdouWSH)o
zC24Zv3-)i${^)ME<g>_h(PO0XWptoWz?^aW((cHCRlfX$p5S?O-v!B6@APqKJy?>5
z>e-%)hvj}7UOX(Erv|dcq2!6~0P?OC9CVoF%$cw(X{|rErB~<?$N}+FYz_ks&%```
z$n8&wx?LOVf5T@u^0T4+S)@g$C>p<C^P>vLg=BV;fS9yA<C+8!U_&v^ew0*bLk!+m
zY$QLLPSoV{{$_$%1AF+6>0<feSqW`4zM4H=4bw*P0fux2Fk4+tStzdCG9Xns<QzrF
zJSel^$s{e-NbthzU-Zx*Ip_|O6so=SCu=2Ji2LPc%L2iC)^+&TPv~eowQq@`Q_Tji
zPQS@hGBjN+IRCmVHnnijWW?cw6dcA^tmoXc#jsh<?FFiEhRJ$TET2=gB(JD;n!oRx
z>+$7bE4o3&P%rLJr7F3TN6v>LWY9!|(>fo!3SIo72PMvWtOx!^-IM>GxyFT<Sz*Y^
zXP75bRp5G1qqgXn;ZGay-AA*x!6v2chWB3YMPbGYgGGMmdiRm}CH2my^VFX@f#SYS
zltX_q*IK}tx-(|f`dTrP+wT|Lq=A{4Bfs+-$<HuKIp@O=7BGFZ+>M)1&$<4DPxv;5
zG-^N=Xn9;R0_cA&FMN5uZwH!PCnA}x@WOJoRr5rDS<@pC_=gAJIbW}6WsEvdDW^JV
z$o)oPd`Z-Wl>r>HU8YGpe%$S5dGuwY=6FXtLY}e7@1)4c`+c*ey3;`BPfAWjtiV4p
zSf0Lec|3f?S(|~}aOipkv~<6c{gl65#2gujHM_)Na>YqC!Y!0wL!oz_kZB>}9{QsE
z^EA|)Z*F&PBWQbQ(t%@<@usS@vd!Sp!W<<YagSfKbE^XiBb}Rl+JL`Rb*w~qu2}fl
zQ;~;q(Uzj5G@<JVBA<(K*9DWzCsSV5rd8okFiIVeiD-z@hdL248G(nPP?DG&jwE6b
zpXc$M`_vLc;sLnD-OjGrD0K=+a%(;Zs&5jczWxB$9G_rF8RN;XOWuIKs`=g$0d)--
z6X`l>`&9Jf);zCNcsCn?IwdF{%l^mn^m70$(?kWMBTSVs6e8W|KL7RGKNXO6l<Q%_
zcQ5F}Re%To!%W{>`ll23FORdTj1nUk+)%d9HJHOqkAlG6ASR08LpwDrr<g-#{UQ1;
z2yLy|BJYKeqFjD~S#!fuURn(wpj8qNMzMsev+S*A>pCd@qe!gcWhlq(PJ?w@b{A?Z
zxz$!*i=N7vR^O(1J@)ujjZW>KUSkb*^Xnp;&6>}ib7>Lya`hyynIh4ejA}@QKmsh*
zmmI?2TkL&B=dO$Uwn-lCz$wo71Tlns+E2XvX_7~PhaDs_56vky%qh(gmb!8YLrd^Y
z`V%vT8>(o>3lMgWuyYgu0=Dqvi0{PmLr&63K5kl$WB8!zUWcANvB-*wkY1+`-?5BO
z|IS=mm?--sloN=`YO{gsxvE55MIz(`Y}W|g<-As?dmhz;7R$s_VHgWc-z#KRRCYc2
zXu`|z{gX+To@?B*O&u_Bs?H;dh@2lV8*dS1rH<#7=b4E5V_2Nm=)WriBdFc2o9|Yi
z4fRieWDMy9VCBSChN;Wre%5#kobIUyeJGv*JjxiFRCiA-71h~bhV%8B+pKj#cK$vy
zVzDtSrA09F>3(5?MtRe3=~iV_^3Tv6?P5`WI%!wD`nq#4)B%H*=f+!vTxryqiT1&)
zPxK=5)KlZU4x8*>&bbyJUJb=R|5$*cDBqaTgXLa4SW7>Ic!7CSAX9GzhfF=8yh05w
zNe3>ykX@ZRi1Ymv^fvpF@JpMA4uA;G_c%rDN~wB${!4%s?LRH`G*&>&Zm|FB8$nn2
zQz~DoQ?d<ou#J3Zi_q*{=9&A?GsefP1AM#!i-dQvb8DMG{7z#-ylNuX<rPBX9mx#O
zcJH!~5ff+&2!eAp{JaKF>1YnijCetdeC-#Kd3jU|tSO#be=$Z2%&n0>s=KONI`8P$
z?rRlOXO6%L%SqstnNB*Y#xAqs=g~fLL^>cuy|<6`%nIYS&v|u@vl$aSWlDy;1ndkw
z^_#A7gHBqid;2$3+5qb7BQ|^<O6OfHEpP6)8A3q-u=mLj{Zw-w!GXUAR5fWA#5SE<
z7Zn>MXDZl(7yAu>`Ey4-un2o8l){B<ELA2s2sRTR!o1XlX46Y(*B3tVeSbtPy?j``
zbLsu3jEQlC#TZ?nu<p#M9fe6f4#uwk!^`im=(KB7EeR`9kYRJ%b%7=@S_(Ri*}dur
z*KyrC3FmPUhshVr;1CgSmUz&2zIg&V{lROKfNdmyf-WyJl!5pZsM9*=OY8c6K)w~!
z^7gHl8(wt;Pm>ki1_<-?*?enV=Yc;$ua%#l{a%3(xCCE|H-HCPubT-R=0RgQjJ|wi
zZk8jLYlpFdcwR4Q*qsHIJW7}r7PHnE&CEN;^Cr)_*%9<fr@YWAL1`ziiE;xo^1<S4
z&X-jSg4x}#z&Py&K>IAsxVQ4u!!^-Wexs$Jhp2dV_*5zRWx~{5C_;Gx;!{W}#+jqj
zzSDEFKYZKGV!oGaT{rMzq&U_$-IO4>Zs6u_>5NPyd`_cNPkR|5t&rr`6fAleA@G#@
zp`U&*OhkK5Tg9DhDL+>R7%3(fnf{2K9OMxAn0oBjC*gvzp+@#4!fP9tY~0zC=hC@4
zo0NBy<FnVfdbN-U=qAGc3#v~X&r2<>TWnxXk@>@-DYrrgJR8Yd$#kZZEsft_9rltQ
zz6tiFf|OX=V_eu(iA`-;qlvmfmF09fg3s3&^qYrgGS54Cu8!S5OaKVL0jj_*3+RLq
zfu>6Xc_KAT*9r0(9^$O{6^Q;$I`vp8ir_wF0LS*k+b+*vIn%I_!X>Io*8%dy7Fkp~
zO&^v6M(*}cwZYTb)z!~DW>Nr4-8gkIKETgVcBAWBF7*0V7B2(9Sd_ghiBC#ZuJ)s-
z3FcmmN2>FTbEfHiG*gMAjpv~IqU@r<OzDWuE|8XG=@}(L5Mf1AK%T9vk}S!C&YRK$
z;(pJ~%S{6{8Fw-6EpnR;hs74FcoNk<Iv)Su7Sx$ow#m9o16JSSBz~wdN!oEkLS601
z#;zd?!=!bFo>$U9E1M+KHB%9!1=Q<I7UN}xNdjw{3R-}IRBv_z@1VCOt{rgSz=em?
zhAp)|a=uOgo92i?5epJ<xz5Xj0+=dieXl6<@S8#VA?=K=T^5{ZRTk;-QWyBR{lVI%
zwn<7=)3Xhr<&h|tX3+65y~*du68}JSlylWJ_*o0bbyL3C_FmNE-Y9qDt<N>O@wDy4
zF4S~0Kis5yC>MoNlo>i)83N~G-NA%XzJ=Qq&(?i;favQiY6h1Zya5<DbthVZsQ$Gu
zk~Zck#yu0g?@)k^H|7h}i8NY07=bUa7GdP^pTAS;+3~`-%OJ>51>PaNsJS_Dx;6U}
znz0#ifMTKy9kNwrr`8$4PtO#UtreM9l>}EH=RWB#w`3ib{3cyZoRMP-<rk~YB0;Ni
zk67?QEILX_`hq38;zhI?Q|DQ^3(>aVbs2k3c)z?bi+#@71`sKIn#KEM{CT??bE=%j
zK;gmx?th9b3z*%*W^aWsLavRT7QV`#eT-2Tv2ugDUD_ISgHFkyvCOC(#8OKF6_W*u
z0zoCqfAb5Rf2=BQPF?-pEf`YGq#M|)>NaqCubiJ?@vk=Dnl1b&V~qnTuf&U}s8UPv
zCgZ&KNtfcY25`xhX1o5|(qH?X144xs%A<|cK0&`VR9~60>AZhtZLY%D;7;&<2(|}!
z+9Y#;Wj&H?S#PnVU+!>vJa}30-^yn}{9@*6|Hrc<c=$ti*DbZ^;hkXXiTnoNOI9P{
zx>et-V4tr9xG~*sAf)!_iRXslls-y*&rWjY_j?w^*O8~G_{#n3InKQArOEQ-B_o8M
z@09vM{W<kJ&+7fP;yuK6tuHN)wfOZbO`guYBl{Pj*vn#a6@e=qaj8|Bc~K@iCoUMx
zc_Wdw?#8dC1$(lMbECF@uKn@V&g)T~Jy9b&D_w5Szwv2Q>D95#PqPG!YiKALJn;^~
z=oN2DRY{k8`SEEeX3*Ovz0Li?WVL3Yctlvl-r|p3%Q%e;{m{pO>E$*aRwEK{jQ**v
zRk@g@UlC$o+~K$Xrw{(G4*8FY&I8wg%mj_f;U@lN4(x(~H+X&7>*1H4#dy&2nTvL*
z&$;dXZ|8F36Ruc{$~-2$CNB@(Ud}t9%-{&>OPT(s=iK8K%*6S>0Nw@T`NYS)?$@(P
zPs%0PbZ(lF4EbElT@<T&&gF{0mWAW4*LyjBo65Vxd<6?__1D)0i&1u>YOv{V)6?$o
zIZsrg-Uze4#K*rYS5qchmPI&7x|UiIUH^0D>;FTY-9bb%KeU~qv!{UO-tO>RkLqxT
z30^&`(NC@sp+cm5#KLs(uIt)VOADmk4Yk<OZ&4J_pt0SHSC&uA&<mBQr%`>PIewH}
zMYD^@Xl%oWpW`>bzjv!Uvb(EzV`%Su)N_~aUrE+M87IF!k)hlm33-03;IIye-1w0n
zwezF-@q7Nk_qE&ec6*T<(@_!YOFIFjkx^SqkN1iv_SVd086_C?Qq7sAXm?mS?9Yx;
zRNcl}eoPeqV8HIiPGZi^>iLb)%s~yMfVz!efBb}q!Wbe<nW&uKUCN2t`QBVP8qc|q
z`8dFB=Z|=R4?J48u^6v{M&kDM3KJ#aVqE0jq<B-CMu1yzO{~Ll8^0?bD#a|h7i@56
z1dhsM-2CI;kIRIRDJl$`>S-wx%ET6=ZyUiXdX+-f4H4aM)EQ-S>Zl}RiZ@L+4eKdH
znTXK<$wd=-X<*`^dfCmG`N;i05_5$Xs?5~lnm#~&H+wYV?k9dG7hTetmhz-bJU%xx
zLBQaQQ><5Z)^CB$O~GuAO|p*L%Z~`~>%i=rsmgJY%c;7WdL_s9CFVA?=AHG2YTcPk
zRrXCRDOc3sE|`D+GxYla@_zg@`UAu_F7XdqGuQ^fkSioJU19D}{*&bKziuDyGIv;e
zcF^Y26KQ3}e#4f}i*GVI7wMW;-(VN+c9pqr1kFcYb;pTn8+&a)O5B#kL48^LjET_t
zc$9DV*!DCZLR8l>q!w!2`Ed>*s%;sv0b!_}gYMoosvTXR#t-A#j~i=ryAvmLUDG2-
zFVlLB1u<0$-xfC#o`3W+xpLEvyN~YxraTDtxR7W!zalBl*!Br2uV|_maMNPE^3!@Q
zU9Grau@x6S*1NSlc-PQ06@%?9C{0uhOj_MuBRv?GtrorNjD7aqP25F}Q4PNhTNtV8
zRGyorEF(sqUBC7@`8d(x**G#X1pM7J{P}K6{jZ5Uh~q#!&zpi@FCFYv2s=f7{39r1
z1kP4tKU6{VN?SbuDC&mr2_4WjL!y`3!MH_2OY6Gqv=87sk(B%H0VK1|$m_8Ks&t-N
zek3Qh2Uv8FlMT!<X(tnP`>dw49iIB-A<w+5NYlgSjP1J|!3s?~l_4D!to9BA(V<|D
zJ)bTg!7IfBBba&EiQPXJNjY*O8TsOy5>h=SJV^~p9lmq1>=KuCKz{ZZ47IXz69R5O
z*kqJr;Kw|FAl=ishTUr_3=fl5GwZHReTNX6h<OBXaX(dBYaAW(9I2?t=@vlAonqE$
z#Dl%z4t#Bd#%s@okT_wF2eFnZSAcu9WP|uu^Uo2{)<Ey-jPhCk`B#WcOV~^3WW9n2
z=~hAV4gA2wLojEk_%q%5BG_;SLZ%!eY^sjoVf?$;)I%SDUm{|Xo*AU4sD`J~j-{<>
z(wliDWIxU{=`WBV57zHB;sr-3_k!2(1ocVBidX$rL^Ku-8b_z`o*%9e#x%*)eN};O
zJ7^K?;tj(hg8U#$zwcWe1yptTd(2maZ)n*~CUB7d$_8Xv9NRSN`}BSF8+ACp&mc2E
zo#mZgwK}|#fB7viau6rFusM+hT~tg~_)1)MxjoJ+@=vm>cyT0Bh;%jFAFjIM!rr?1
zif8;bn@6cQDdHbbNX)1I-Zuk^R^y$Hch<?klRAviqxpY4kwmH$*dj&e!X_2_w|hcm
zv*egB1TUAfyW_~2b;3(GwWA3rdrR4zJ00IIQwuy!v)Z4yI3w57^YhS?Grfa<YWq*U
zJ=UTZ61BJ>IXBs_2?dka_zn39+kQ1y_-kw0_Afw{Tz=3|MWJp3a;UEaBdpl0w*S@I
zyIrSfsBno5ITv4{0@Fh4yMq@R9!Gt~kcL=dO6&=&L%a9q$i_>A_*e2$n;vJE$5z?l
zVdFuRNuuH&j#Od@ME|<(#x<#n&HI*>&ZDS}6gb;|Pr7=%AL;+#2b5qvpb33d7^6zU
z)``X(&>*Fl?;MEI=sfE>ls;FPn6vfS`$Km*4sI^I-X3tPWssjsLX;Z(U7N@LQ$UWd
zpcKyn!>jDFK>w|{sl6vj1r9f}_^P=#9&`NZEsf-^J8udoSiurt$-#?|zPiM3Acfzc
zS9k?VP;?nB$?zQL3itsiuBTaes>!n<nB=<NyLWLn%xd`IlYp=A#4`${ze+$-T~B@^
z$C|PK@zsNwEZMVAa#2Iqg%v<Rh42%-pYsSmb&O7BgH>K100geI#@WNQsMGmz9h<g|
z7qX$}uu<ZO-@MYb55cBOfavNQu>!Thxm$R+1B||g?qTz}=>(jPjYcTGuW}E++UP`Z
zxy=3Sm}WBXsn^|iskI?}{x!OSQ?-|g)ME-6$3Olv>bs!htgKtLaR7-eg2rFinf74p
z`@p^J56j(BPA;a7+Jw=D1N?XvBwM-^Th;Z8Y7X**1%#sFc0%HmeF_gXl%N9tsr4Lf
zc(eiqVvK+WCLK8rVjs<qncb4E&Q{e&4doYr(KzaR49`B03XG%65%>GGrT<ooAdry$
zi(TMp1#8UQjiBR|`8*+R<?R?H_c=pLRF(GkIdUwt7|W<bOgnNh+(Ux*7Gs=Lm3yZt
z=MZd41a{E*{u|F^bQ!R{ow}=%Do)}m-mN`@Q4HQoQ*A!T2mkbX6br_`1s>zhWN<z~
z5(dvkKM7@+mG#X%^o%9I63A#P_#`UaF@kDdcl~uy1WA;@dhs5Uh2^nof+FVKO;!0q
zsbbWqqyrOllOMO`FT+o+zqZ0e2Ldu{j4)T#N&lcGXeVM}L0b41=-j>{qigvYAkBnz
z#%?j>z+R0}(?k&!Ks4_Yh{U`RV8eDHaQU$oZzTT20nKgkb6As_7pz15oX9NV_bqS0
zxIO;<A_0rS-)6Qi4ITPzhzi4p0H+ifBcjL>mAt`w*@9xf=y)|kLRoqCCDXkF;0vEL
z)F~}^c0?9lbBNwYWp9Z^+BVq;$63K*<!vF^o{sP{u4l#Uq!}&-A27FAVH^%=%eP4n
zsJGw=`%_ne`%aXLJQ!P$?5zgiUv=E+=s{xLl3BX<!5OD`P&1yn`fUoq{Iz%W?1zu{
z)=s=IV1dnQoq+Y5{3!AL`0+N2OuND!gr<oY0S}Vdsv2a-3!$W#lqvc{)Bb2@i%Ut5
z-1QgkfrS?RJ$1LN{Zp-B-pP}&w+0T0%}KbU?hy*`;0!Z&W!Zq#L+n4U=ddIJl`;t}
z<i#7E>y}>vKRN>PozaQ8%0v))l)Z@^<gv$M{h&+%K(4fGbs+QdaU_jU4y1;7L8~Eg
zi%n!Tna4=ZRZCIAjho8FDC&6iXy;*}T~DCrK07Ow*V*t@`G^rgivY+o!X*DJSiUP|
z$155?{^^s;JxT*?-Q6!9Wu@X+K!rSopMbp-;QOA3cHJ}*cHHws%tcP&ih!O-mJmGh
zKJS1*=BdLMfuE>*A}8x9TQ(T~R>^S>*nb0{sDLde3|kDjqk(Ixqh0&u6wkWe%`tlA
zqXs3m)3)H!L`QiyZOO4WVy{6Xt1y&<Dy+}^YTjn-?Fx%nAH0GTFw1UX$72Lo;OK$D
zyi{6NmjOx+36EdRtF6npZ*BqC12Zdx{%+sPcLQIsS0*20961#iyD5NLs_Ix=`BL;9
z58nc?;#U2De73emXWZI&xc0IxPcK^FrHUGiC=HiMjTD_lGJi0+^TL<ik3ucy?UNpf
zxE!-T!~9R!bN?x>2q6HV`-YBx_ju^T)<S?K`Kc*v2k>}8<#q&fJh*OP3AGp=Kmoh(
zQ9~;nlEWz+zo-JkP@_G>B!O;$h4jm;=&uL?G`3yYkZYYlhYHbS$6pi_mW@Gov?QcK
zHnyTWP8@_v6xSzSq-{ehkNrI)*6ST}qm2g2P{#;tqLlP40s(fc>IV<um{Tsd2Al8h
zB^VvD3b7&u&}pECqcTDH5Tm9>JCwo_-uta_*d^OB^k)%Im*J7UCu)ICe66nim$v59
ztA7-|wvYCcr9CK2P_Ou9<$UnLk_v(C3$&Hsfw)#|S`YPN`rayHk*VOQ1320b^a?mb
z)4CpC9st_CtlFlq-%huPE+Y)3YHS1Ng3fz`8J<U1q-z!~n|(O)%N}x>zU9HuS7u@B
z4_TIA){4&`*B}HoQzrDG3O!RAc=>Kz+hWNBPa$`|!vKJ|^Y<)(M%)~hE6f(>d4GK`
z_h9>6N|MJHqQ=m{vGSZTNUk*TGt_;Ez%m)iA(e9B<Y;HM6LH^HGg$^)apZ9!3+~;K
z!&BtmLu{gg*VWAM9~~bt1LqFbj>qzB_l^XCE91=Q`SVpPA#}*2+(+EAWV@Fj6l0j#
zcS$RA`lu4}Nl!<Cw9vx#e~zD34ib7CKm3Q&1sjN-CtDs$r$ZY6RQQXaYc=D>Npm?o
zWe@a2msc5QPl2W8WKi(3tJjZJ+IC*~TVmKfPN#KC|F~mX>5WVDonSBjLvttI-fjg>
z3#DlAE?gi-vMWko&#bq)ppo79hG$Rq&BnqwZRYVc<UOL*hzUGyhv~|Kn5(qiJXg)6
zLflp}GsYgF%<c#pCh*{yp>6|s;;pXUAkRxR^R0G8vl@=0siXUMwhV)fPP`SHq01`;
z;2AN33-tW+IV`;&D`O;8*2ieV=U<fB+gB^LO&RC7jz(=)O(cI$V7BMsEPeDm^TF5`
zE_5UXMSOntF4PTGh9%AY#{l{NB^Le#v&`!qB>rgit5j|bN3iKUaD<1$Go;FbxBo`6
zy=~J2{88%6DAt{l^>zKzVdojfw)&WkmmxX?A*MdA6}$RvygqPRuCvjI;}2!Mxy9#o
zjfJMA<9_6mlZUHvV@qBr3OY00+>HG0rTm)d{|>orLN1ThY{mDG<?jnK@|N=sD>LNE
z$;RRV(=S_^Tb2jI%vQ!X5?HF9$Ykqz{hI~Zj5@T~T397%Y5w;Bj;W!ALCHUaTmJ=Q
C?hNYy

literal 0
HcmV?d00001