From 4abbe0e89d53d5c74cad98dd379fa26b9741b51e Mon Sep 17 00:00:00 2001
From: jbennion <jamiebennion@hotmail.com>
Date: Sat, 18 Sep 2021 23:10:13 -0400
Subject: [PATCH 1/6] Add files via upload

---
 plot1.R.txt |  17 +++++++++++++++++
 plot1.png   | Bin 0 -> 3889 bytes
 plot2.R.txt |  17 +++++++++++++++++
 plot2.png   | Bin 0 -> 4869 bytes
 plot3.R.txt |  20 ++++++++++++++++++++
 plot3.png   | Bin 0 -> 4146 bytes
 plot4.R.txt |  24 ++++++++++++++++++++++++
 plot4.png   | Bin 0 -> 6899 bytes
 8 files changed, 78 insertions(+)
 create mode 100644 plot1.R.txt
 create mode 100644 plot1.png
 create mode 100644 plot2.R.txt
 create mode 100644 plot2.png
 create mode 100644 plot3.R.txt
 create mode 100644 plot3.png
 create mode 100644 plot4.R.txt
 create mode 100644 plot4.png

diff --git a/plot1.R.txt b/plot1.R.txt
new file mode 100644
index 00000000000..05c07d58911
--- /dev/null
+++ b/plot1.R.txt
@@ -0,0 +1,17 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+hist(as.numeric(dat3$Global_active_power), col = "red", xlab = "Global Active Power (kilowatts)", main = "Global Active Power")
+dev.copy(png,'plot1.png')
+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.txt b/plot2.R.txt
new file mode 100644
index 00000000000..44d47742fcd
--- /dev/null
+++ b/plot2.R.txt
@@ -0,0 +1,17 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+plot(dat3$newtimes,dat3$Global_active_power, type="l", ylab = "Global Active Power (kilowatts)")
+dev.copy(png,'plot2.png')
+dev.off()
\ No newline at end of file
diff --git a/plot2.png b/plot2.png
new file mode 100644
index 0000000000000000000000000000000000000000..b25d24a9d620fa1f35b4780262f8d4bc6ec57ec8
GIT binary patch
literal 4869
zcmd5=dpMNazklB`2B8U+kP$-V*3Es4$|aXvQbKNTTTR)yOmZ2G%iAsqVW>znHWkTj
za-E-XdDWImRBUD##*~B@X1fbHQ~UQk=lpSg=XuUKf1L9??|RpFeZJSVzH6=L`L0A4
zr=!vv6gL0>AZ=%B<q7~G??)3C5hC^*oQi~9w#%`T*1{eDOaXuhn3@8n!ao%t)(XeM
zfhj;VH5GnTQzFq+2vVu0R1Wc{C=n1sLN=B7gQ_J`sl-|iv38wm3Q&J4P>BFli2i6C
zDo6OO*AjtRqG_#AnnSH!udQ8Q=TJ@m=5W?Iob`2~gb)&TLXL3MT@jNG0J2(kR)<fL
zbNLS>;y4VM*7QJsEk`diu5TqL@L~<KH(1we>AOmK!?gb)Dceuujecsc)rgqqe#YXm
z)MuNk-}Wl}{yYh8u|{}m5J_e)LwuVzT1pRvkq56O|9^r<MA$AAmqQ4y_D<%16=S(L
zFq`~I{r_YFtW+?k^FWQ&|7HPaFsl(123~P?Jp5{zjv=`6N?tJX7nGK8eU^nggW_I`
z2AeG!ylJ$m(Km&6TzkdYN4bt+t}*W-dubtC*>8T4qo=KkdA60-E-cFm^!_-0@L#3$
zEc~u7u;*}34VwnX>;$7bwbb;}f^SNYv9dty`sHv9L9@PGfU?g!j*_wktIT|{1zoyB
zf!AHc>i!n97u2>zFRgJd&rI`^9Yh?F6{?irg@bE?gt3i8&V|{J%WpMJZ7xwo^#bIA
zycT-`7_>SqNYt+L+H^8=r`S}?0?9nY8QBo}q~%TdC||<ka9}}8tLABUX1h+#1s}d%
z72dI{XKKIpgE8Cr^cX>DM3(2c_uTSJ8YZ)d{7+*myw$wIi6{!{6jfX>GH$ZmmMo1D
zs#X$=&rl4%IQ7gon1k9kAO5sgNm$}uiq^RF)2(bT@6pxog3^gATpGM(XGnp58Xiky
z3H_mSJHw1qpH+j?<ztu{ruWNkv42u;R-j%eF(S($q5DyHZH!<lDcFVC{&<ssqkEBV
zE2QYyh=yMMza1o<*Sr{MZS-Vt#1&&a=-fM>s(cRNdij+<6e1A@<NNq=&N<xM)=2x#
zMqFTBQ%MG#m1y80oW8~iB%FTMhg$^_<ZSUD$YX$1Q+cMl*dFDp+53};E-ew7>9Vp|
z4SlD1TIeL>r|RQC%?ZEp;SrV6ma2Xqy^#Z+S}e{UVL~%H&#ry!oxfrMP9NzaERDT&
zR~AgY2^I!@)=Ey9sm)a7>)n<~DTs8Bu<ZBI)G%18=*d%>l6Mq_SKQ*oUvfe=WEgzl
ztP(|p>ls5YkH~txCSr)5d`Jewb}@m2;_Q|m>&Rr&M^4>9PipkF-q2$4mC%2uwo<WS
zL^KYyAiKgFWZtpCZFEGKk-JkSMV4kR5Y`rgawNZ_b#6_9OEcufh57l0j{cpftu_ll
zZmy;VY;@Yk7J2@PYe0V36aPc3Pb{Rio(jjOn<Pygby?iDo97r=uMV9#TcOzSF}Ui7
z2*)a<hNA;Ys#8ENsm@bqEcG8)Lo{BcuMW$t#K_TiR4xW|*)Tg~={n^qyzD`uSe$Dj
z?0!dumpDk&+NvibNSY~Y8NSl&{J!>A`tFg8mV7pPQr2j|JIu8??wp)*=i|NQqdhy#
zYTQRS{P#=Au=}4El6OyBs~ZT)gsm?%0wMLn0FpnY-c38Ag7;^72(?*QLFGMMZMHdR
z)~dmKCjL~f$2@6RPb}BT-$d{G)}NcYh>;BX;jk|*r_b(dv_gU}$%{BSr)BC`sPndr
zNH2Y8Owr_RF*tn$T{`JH_|SMN6yZ#T9YvlqtR=F!R~5|i?)j=gbqo!t+kCJ8s9d)L
zdU9(P+@|)V{^a7W)EvLyu~<#isfgmK<J<ou95O~cgdtCC5$56M1W2C!NnCvU-r7=z
z*WtcY2bNp{(E}^C8x6?%kzr#&4)#b2fy^;8Jtjv#z56+cTe3?3v0(|pv6%-+(92G(
z!YpyN?v$V?UAppRR{7h0J$F&|6A{BQ@%u?~q*zw!gyI>L@9`%1!~>&x?+X$hn~nMv
zk0F(e4+|}afgBsOqbO;2a>;uu{hQ+&sE9;iP{VoT5TJZW5U#Am^Q`#5;zi@iue@N@
zC^tkr{oNQ0VMZU^3;C$+LzPcG9T@vX1gtoDt>=Kj`Mle=<mmg)za=oxhmaO9ucL+L
zU6-Q)S=arBCOC#gm}O3Eutc2-GaLOAOKRF5Fi)uzXGEBdhRxl6b$={y2jBQzKAOFW
zG-9}&XRQVW)uDAFg2Wk-OV!`J4}y^c7<9wyw9rz}V<q+*6)qyaZUCAGHN(<69abeg
z`hs>L%T^<Xu%j^&zXHK-YhV24T?~xP?MwqP?584~%?6@pQJvufh1iW^Y+2H%;G4y*
zEs7*I!Ppd;%ATQj@EwpFu%p5L?RJm^W8@xeop7!1%R)ZjP7^14A%@1h*GIg*Fv+Rn
z0;1WV45^)e(zi{^=V5V6c(yg*(KxP8u-FATAo*aP;jaa{AS+k|6}!F=-SkYWZ6rPk
z)&&zpR|OgCm)q~0_<DxYP1(u&KyL^AXtdjL6GLtaigXR$C(`qU$yGVt9@x<Z=^o8&
zk3OHK3Sv!C!#5A20!08Ct;O%N8D%GwZ!Wa&cpOj#&YKOEH62YTYqu~&H1!arwQo=O
znavv^e-=<WVYHW*vK8h)Fkc*s+vNq~%ytA8q<Knne<`>IYuB{^A!LKyXsBCsKu{>*
zQ6r}ZxUW;%_^+-S+k6O0L*q#UsoQrzD5si^8$3fPh$9+!zYXt(Iz^D#D79_;;OlD8
z3svh;WGC{Fvki>Qt-`Pfzlh<DRXYfbVgJv%1_)O@9;{OZ_1o_x1O+%FHD0K#6y+Fg
z6k^kieR==28kF^-CD37o3|=(8$kYX~542@SZEdf-SR0nYZgUkHzuR0mjw(;Gz#-!j
zg7M&o?eQ^b=z+*7qgVEIYK}lisPOE|2V0`_3U}4rds+>_lxYd|O!uOsR&qT&+emDS
z$muZrp!g{6G2CuiD9Og4bA!Za_>I9;x4WE+o?3!9^7(bRL}Gk-tQ>X}N0v{{33k-8
zHTZ=f`%cD4jAq380}{Mt>S2<c;Cj-+%A92!I-&;dK=Y<3OtHYB=_(C}qFB*pUu2l8
zhTi@%f=$36DOu>rU;R2od^LCleF>OAe@t%P4mrW2m_K00R-&GndT<4bG)=SJQh{zb
z_7`9{D8FZlGCNjwE@ik+;gSQA+*l4U#$X9@=XZNh3AON7J%;y58AW@BMYF?vpD?s|
zq6=s|NY=BI+$dJ1T!ocj;67hj!lD_+Orp&H9Y!&ZlMAH^c)l2q%_SgPmd<1~043W0
zm_TKsnK-0ZPH>Zd1GZLqS?vn}xT7*Cx+)YIg~I85*(=<w`qU6<9EBo^5Wufl`G6OS
zCNRaY4+0d?ZPA0M0nKSN<C~m3eF$Uif42%fX?{!#%IAA%_kolB_nd&>PT3ya{E38n
z=s*cZrH>Lxlr=XMa#`|yRM6>=G=L@@+5rz1yhW9ZeAZtD+&6v!-u>|pHKg@IonU%E
z#W_~>KI|AP!jy#$2=BW00CeE)p)jjZ<6J(T_ww^~e8y(_agjhr^<URtma4sdo4_C-
zQN;@9gePBZumGe;lE(9;8G~)!8ocp$UfB2~)rze=HS6Wi(u|=^_r7|07U{R~onU63
z`W|E?>&lxD%BdrAq`UM$=hmi@w>9e*VlxY(#z35+QOcDR6_Wp)$(K6Zr+T*oQ9)R7
zMk3=cy9a<5ghbtc4{J-NeIAB8+(bHY#1(t(J@-@75BTXLt!8LEG-~x66jTme&<Oc`
zsz?i3cd><69<=->B_kk!i<-wJ7`8`|;Dl>zSwX2g3g__mz*h#cMC$W@2XYe8T~ac8
z!3oX{kp@UD8J-WSkf3{Fgo$+CucCz7+V3L?W$y+{G-scAO4I+$gu{cxJub+j1O-x}
zIP3Of3BsiLX1;lM6ONBS<D+iESw%AkLcswOT`g$Hg(;$Ar~$Q}jJ44Qr<&}L86kBT
zz{+DleTR|rkFe}bdyRR|+yHcg&fPp2P?9gsICCKSI-K=*=76ghzNxEnEVm=f1J!G=
z0U(#^>=$01J|~tH$|M-xP6P#EFe!!ro@bw{isBkTUP03`Dv;4dJkoJ}_{GGhY}m(j
zSs@<458r})WS2c0BX4*n9fGwArZ98`@?)hvcwXP&k&~cNm#pAObMPs9IQej4`ay}`
zjzuZ^p5+`0zzofc8-%%f)I#Zip)@kAt`k+*uu;FV%z5DJ?Kz@Rr4+r`+|c)nSPZDd
zF>@Oq@Nu&V0|q8cII!*}sC&u=1<<mk?p-nu(>whl3>*kE+i3hQuo_MY648r1wvZTb
zzv<1<6I)^<uh|}D`NLvOt~A&z@679ny0t@u1m(bz&?ikf=13vOgL!?wn<b<eCm(Wu
z#M;eK-jj3XNq@YJw>+{Y)#KJ%O)Orm#_{$uQ=}st5bL$4**fBGna_$Piw~cVejdUN
zZ?p`&yvUw0^Y3r@BRD}Zet*uqM!`)WYn!8VH6}25At>NPzs~U2=>mJVYniR^gniFa
z(;Ye64zYx7>Tr&^V*^~meJWxtN?NPK@n)<Cx1KZ!7KsQbpakUjfEcKI)upzamwcoK
zH2Uh{fs}neBuOvq#dt?H&1ane>ARbCQam11th*w_4Wun~t59fN3=*8uaFELS2>oXj
z;E%E?rz1Z$+7oh!&(i0$535oLaaY1?AD^P?^A;1bdaG(iT21Cn6n;(gxYjZ<DAqhw
zh2>TqNi8Tg-?g3RLOZoNwot;DAVc?F%GTs9Ss|ex&)<iK<-qp%yzyNYsv7^gB5ubD
zM)om_c-<9#-;Cxay_P$W$i8-u{drux+mMOI+uBI!&QDe+Z0>$)zw~?&;uqI1UOI=w
z?fXJ)Onvk@DX?knds~`CTlz4*eR_yi)jLW(IeK+v$BHW|nv%tJS5oD1EOktrzP)Hz
zAl_<jDCJto?^EAhUW#o>Ebg!iGyL-6^1|1(t8kH9FOM9WJHfwvWa-|<T5+<g42m%H
zD6P%Xl->U%(TS39`^m(Rw+yP&=7XKg`Ka%!4WbZb{}*TM@y+hn;i_3)HP*>~Inn~B
zmo{;$pg87#_yUlR(p%j3Zo0&5w4^pe>+-fL>QJKM-EtHu;>Bo6%*yKYbaM)KF430t
z8!EQhd0IP2zsuevZf$6h^|^-?N8Dm!mJut{)q@&U33jZP;?K<8-WNF<crM_~72LoS
zVe4TOfva(HBj5V8opfyTIt63ww>zuQo{QH=lbGuEq0P<Q`*V&H{lS&CW6dC=yQ5bn
z;Mpdy$Tmr{-uuyfL{3@1X`w;YGbwfR)%ke~i$P&AEr~e4GhEBtt}FY<Sw>QZbYqTu
zLBH#bu}{-_MBFa0$ii^u<MP_atc1Mg)r=S!Q+O5~;IOXh`|>87tT^ELC>);~qBrE1
z7OBDeg%Q5WQMsME_;LYc4L`d&v^mLIC`DlSKDs;ex_{v8W*;5y8zy@W>HFMB!jjT=
zI9MXgu91C8)~w`er{$+*fgV1(#t!#+lO17FYx~M(mv_};ymuOhZdOjw8+url=n(D$
gSGfH59vRlf0`T9g8`0gr|9H-_vv#s7KLY*sZ;uYv761SM

literal 0
HcmV?d00001

diff --git a/plot3.R.txt b/plot3.R.txt
new file mode 100644
index 00000000000..b78f1b5e7fc
--- /dev/null
+++ b/plot3.R.txt
@@ -0,0 +1,20 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+plot(dat3$newtimes,dat3$Sub_metering_1, type="l", ylab = "Energy sub metering")
+points(dat3$newtimes,dat3$Sub_metering_2, type = "l", col = "red")
+points(dat3$newtimes,dat3$Sub_metering_3, type="l", col = "blue")
+legend(x ="topright", legend = c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), col = c("black", "red", "blue"), lty = 1, lwd=2)
+dev.copy(png,'plot3.png')
+dev.off()
\ No newline at end of file
diff --git a/plot3.png b/plot3.png
new file mode 100644
index 0000000000000000000000000000000000000000..d1118939cb9960f144aec139501c72ba8107dc77
GIT binary patch
literal 4146
zcmeHKX;4$ywvOEq0+Fe01eH;o7!m|+3}J|ffXp^1^AH4s2tt^VA+Znr;9`VC!q94j
zRzO;r0|Yb-eHv{pf?z;p2x^$ZAVZo#2mx{r_N}^o>sG&d@71kW@5ie;`>eIT_3c{U
zUUkl{y)(`^*~m!mlZL@yGPY;WxWHgLc-sT<C4|^XJC#C)cFy6v6=Y#BEDT0~!Nf2u
z7KSCjurwHf1wl}Ng%Pk==%HaDghs>CxDXFw5MTrXl-o800*yvsaS1Fj4GW_|R050!
zLD1lGX<RXj0AmrbEG~^DX0gO#E)DxT%oTIFVzC&i$|69hSiGHtfU(C+MHo!Z*Y=FX
z`2@z?JtX<T**!M4jLhkR*&n)R+k%qZg0bCUqp1txxx6o)N%AUw(J4kxZeTe-PehD_
z_<5DsN<X#@e+NS#f!tL5gocMP!cF%7oEx3VgQuN31-k2*sGY{yBU%jpTxDoTZ)aKL
zcRa6sfEiy4bE5Y}SRs9Ut9d=zxYeUsxK8?{1Vr4dHsnrrP0fr1iW}&7N-{kCq1SDG
zLu7OyHv$<QO3D*EWWV@rey-u*?TXsMWcyY!Zo}>*PMj!i?_YH^1*nBmRUHkNTG6P5
zz6C!@MZ;Gcg2(~8_^Q5`B@Bwt)%&KSx&4U{2{u^!<cEFP?5zUtp~m&G8?3hIS4Re0
zV?>JuxhnIT35bF6PQHCTWh;eq0Ar%mxuvBHzA=N#?FjIF>$;R=j2i;ts~iFU#Z8ui
z&pV1E(S=>Q<8JL#lv2}+?t6KCMaL(!K>lCZ=&YXfq(~`qM%GV>3a|NCjEO{P*+JpN
zAsoestf+$Qo?-4~_iyN}6JJ>iDn@e4b!5OKBdRd>b%5)90hRZvdZ&8`LY4-38jW_A
z#OqK?B)|*%fG@|P9wI7xf7MPnV}`ZXPH-^8<{-CBOBmP(YN{`Gl8umR-%@2K0Pnqy
z)T|n5r}o~WKn7s*diy=iQ7~Da`U#qhA({i0meee$?2bhRm3{F4q}uijYwaJ@RBK!-
zI>&RObj+|9gIm#b0=PW&7uCd=^C4P_jNT%xD^r|rOEO)KLFsfg)eA$Ios!))#LL^L
zCgv1WFO~OSDF-bsM_M*hAm~4_dE?UE-WX|F86Y>hp0{`}Q?xXH2cag>Fa3U1-BbPP
zyqEq*IKYmq;4vl7#eQU#??%i^cvnYNnoCSJpD>n?+td9ZclW94i9@VV9l&H{%rJx%
zq-5ri%m_lg#Iue#F(opnoy99RJBz{5kA@kjgdY<c9SqalRZ=CT^KD;PR7c5|tH5<7
z!GELMZbuY)dN>x=^_mSSz~kG(k$&Aw|FV#__Q6<c92|UC%>|a6JqBAgej@kUtzNc~
zAC}Pt+5MiMl2!!4n{>CQHYNZs+@l}}RjVbaTWeDE=VWO#?q^tS>#W(`G*8U^o@ar-
zraBuVsHem^SrV00&~#H9lTyt_q^y2SLe^)@$M5mDvWn*4r^z>^2thQ~YXHb?yObR@
z``$6pdyV>;*y!LQ+x~ekii1A>jyC@fDss;dYG1H?<BXiu!+q!FO?QRq(+$B&C3^^#
z^%mSfVNRD*LEF(OB{21R?d1tfZ1SYCin`Il;an}c&ngF^H4Xl#k_EmP$<><>*yTkf
z9I`iV$}Umy>u`|`=0MBnn)>B(jY&sT^J!+rXBpd!IQG<=E^=M;K7ftaZroIEx)ydf
zou^5hGe}tV+O-vta2p9)@`eHhBsWVbApPh1c07ysU0}mbf90pW=5nCrb$4dY?o&i&
zscY(xH^4*tpfGHQr{2WuZ#*g$!<?91>6`-zKl<o4%Ci}egK1JXy{dCmpYDcBu@Y$1
z%yDkrk%LDhwv$C+{F1Wu*sp-}>utK8%N;iq*uF7BNPm&41@WXF+}+YWafV~iK|W0H
z@bq#9jvV6q{k1*PBJ6Au2=nhaO_YHr1>FQhn+!d8|5PwCZmuB}AF-^}Sk+m)@kBL^
zcVBtlM)0)C_XN;0J*_;u_C^=+DUDfs8D3cANX#5wFAnJ@k@A-}#YJyD`e*5DUbEBR
zr{(6luD)!pbE}sbJ0Nn3ms2lOi|5o&7P*5L0wVh!{dP<0J;^&rY_t*&N9Dyzf)$TI
zcxzKI_ZV<*H1I1%Wj6cydLDb~;gQ)y@a5shzl=U~9Sht&oN)_Td6FsoHtg-_#<j+c
z>LbzeH+hvBYkCcT#75=yMhejB*OZ1Aj~az)Rz`@1HKn`B_f8xa>E5nu&7L^8cJwvD
z*d0`wR8@<Nic7l2>3ELQM~4c%>H_2S?oPSM>y;!bG00ur_dZJ2Xfzr{Gy;7Ome_r{
z$AHkKG~Gt!i~LV{t<GQw0(9%lJT3S%xDvPv^}ySrI%gk2X>QjxODEyO%Dajl+24I!
z%=0-dP{HT!$@8EH4911WX6O3NGy5EgwDryjOT{L2^YzKTOcw8JFkgLqhF)H>7uJ%}
z@+OvegV!ndmB=$@+m22s&)SgzUp<Y+fKT%kJ#ugxsNxK^v7PfDh?X4e)4*eZ!f;8Q
zeM&Kqv^jqoZvRNrZ))l{Hc~;aB(2e5=66qG2oSA*&RS%Fn<?>{K*{;;2PHB6Z`X8e
zs&{}ckI7&&$@mZii-S4g3%iG`8UVcZH_tBhPB77&3Jnjtl~zi(DCh~mTOa;Tn*Z*g
zGqi?b8F>HX0gP2OW5%=E`1z1&%JOPJu}~l0P<p__F8*p}RTO+b)Y^Xv*7qc*R=u$h
zl$=M?i~pfO2l#`We_KHPR=}^BYrY8S{PoE8pXz;OEm`vS=mWL%K28q!7(KSTYtO8U
z+I=2!EKlC2aQ}V0xD%4xT*C`;PQN6B$a5L|qqr+o`L=V-qY4nSkhh35d5Yrh0!m(!
z;yGNF^L;B~O88BnS)YQ}Rs>z1hK45RY7Jcf|KNYI2L|<SH+bk0-x&qHRJ=j#0DwD=
zcGTIa?);+l*!!;){Z$JY`X@s&t~iKIb&bXB``@g*Vx`~qDK`WtwnqR8(^iyCuMMFu
zG3iHm#Zm}sqC2$d{A!D+L}lRfW8mDL`MOyRIJuyE-dQmD=%qcdf8Td_ICNh7RBM8w
z@HkT89{Z_4PhSO`tTux>Ek~aLsAbj%FyeTlLlsiy1vw0Kz6#328)vY2-0U{dNSyr3
zv%|~BLZWJ}7!EpP6_X7g)o@Dbhixv&IR9+$_xf!)21xU}uLq|3Y_IIhr)Q5><Nbji
zmvk+RSn6oP(hr4$?_0g~DZC%x3x1Qrx%H8@I8S){!35DFDeCSXrHbb(GX}ep7C&~_
zW+xW}c#*9=$K}nn(GQ(1vzK1C!Skn5#=MI<ZE#s;=QAFqS5xGY)|)=yk!j{n)|H!5
z;>;v03wKrbsjk8Q>_j4^t(<lW1K!V0JVP#0P*F#)Z2r|2`B+x}>6zw<lVJXv1y_M!
zvVZ+mU4ZMZ(87uMz>ucB5(&y*ULKq+Yv64}KDd^pGa4Gnk1u#wcIE4c9zcBS;L--^
zV2{sW*UO&P_hJPb3gvJ_D{8U1$CS(1Z@v8Xw}Weu1na-p99@f4v!~RK1=OtYvsznL
zTPSGt<JqOUI0@&#p~;|f`gr)Q58M`wHA4{!Q?N%VtR*NdpC5z-l`_r=60eZ-C;34i
zt=X5OV>~=n*CU+12bOB5X0^My8<!%H;Ixh{=~~9<^o?^wl4@8MI9R*U;6KUkCv`sv
z82F!Dr;08Jw)P8ekYYbxeC-xT@8afFFJ$afERtu$uQ49p)faDWxrdfIXU4gf01Z74
z{imljP-DVr@&_C<$ywZSay&UpNX1(t%gKojUB~L)aU*OEy(hKoJFWUN{fCv2Iy?1)
zZ|4f9H7df8@6E*~N<KGpj$asjcHxsrU-KQs5_W%>Jy}lzrMQ!y6zksSUF8ydLfXjg
zh3_(n_Lgs;USEI0o6kA6>$qroZ1uxK=t`r#cJ<bs!mw~peE0$DBA(B56bXA)cePHm
z)xVUiKahNN{@q2<;@AYW3b!am1Ot>WYD-%w{WaF$#GYiMv!TZR&hZ~`d9}^F#h6fG
zRco;1`w%asWQ=;~THLJ1tD}vk66z8mdvQYZlO`0jWQ1b6$ML{>U)zk_;W0I;ECfFe
zH1mTw=@wpPP{&AKzA~83I8b;dS~ewuB^=dT*J#x9h}xqn!(QNoXZY^T=P3aHjhpTg
Y*<>w{UQz6b*uMMQS~;DmJdFqb2C&=9OaK4?

literal 0
HcmV?d00001

diff --git a/plot4.R.txt b/plot4.R.txt
new file mode 100644
index 00000000000..fecd7d731c8
--- /dev/null
+++ b/plot4.R.txt
@@ -0,0 +1,24 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+par(mfrow=c(2,2))
+plot(dat3$newtimes,dat3$Global_active_power, type="l", ylab = "Global Active Power", xlab = "")
+plot(dat3$newtimes,dat3$Voltage, type="l", ylab = "Voltage", xlab = "")
+plot(dat3$newtimes,dat3$Sub_metering_1, type="l", ylab = "Energy sub metering", xlab = "")
+points(dat3$newtimes,dat3$Sub_metering_2, type = "l", col = "red")
+points(dat3$newtimes,dat3$Sub_metering_3, type="l", col = "blue")
+legend(x ="top", legend = c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), bty = "n", col = c("black", "red", "blue"), lty = 1, lwd=2)
+plot(dat3$newtimes,dat3$Global_reactive_power, type="l", ylab = "Global Reactive Power", xlab = "")
+dev.copy(png,'plot4.png')
+dev.off()
\ No newline at end of file
diff --git a/plot4.png b/plot4.png
new file mode 100644
index 0000000000000000000000000000000000000000..b96711ebf921ac193c1d4968818e006172ea6be4
GIT binary patch
literal 6899
zcmd6MXH*kw*Y->b2`wl!NPt6CKp~2U652TwDbiG$)F=ol0fJH@pbR2Sx{5TFgAGN9
zL6jnG5D%ybh#&-MgGz4^5T)jg&-#9R-&*hg=bN==?%CJg_uPB-y34-SPI0ui6c*Se
z004lnwUzl%005ESHy+JHYy|8}c+E{mTPF)%3jh=V@CN`cK*<99t9SwhpilsR%I}N!
z%%b@FQ+RmRAkWAjp!fqkIqNs(U*(^b<<G;bxLFh+>p!Mh{y<h%Ro38O)*!daAE@%D
zRPpS1&|p>-x2lReSjFWIW>E&S{CWC8?%*Jo%jJz-<<CR8+}}zbpfN9M0|2{-*5-dZ
zF>cM@PK_ASxt7>|^Rsnpg}6bb#_s&kz;mG?F2OH2+giHyV#<PlNdV7Mj&4n|_g(u7
zL@bB?-jQbW9QnM{v0MYY*Hgf)Mw~@gqmCVgUp;^l4ugWZC`rx#nnFsREMA-z`3PTo
zugih{ZuqlJXtv?#HaCE=tdjIN{Q;yFwKm>9-RWs;^q}ywyFlJuf%)m?`pxw}hkN@z
z6FBz4mYxT<mw&9qU%1rdOz0eNd_zp8!nqrzwM!8NaT4^>24`{k^si<*#}w2M#=oDM
zf7)e!op%Xmp)y=O58C58n(u;z%gubGU1nA}JdAd*v%2XF!M^5Y{@r`uH|@dQp2N0<
zLv>Ek0(#!rzTLoVrk@%@x+<H>{OmS}>h$vhkM-JW8*UpYQQtqs62<9dchA#*jGBnk
zS3Y%!OQlaPHbrn%3eRmg!}`zNH?VFK(~y`F31wLHEu&JR@nwDlp{DYg0+n_rEvWsQ
z#<`;}RH=v5Bhh-9`>?htiKxzEXAu3i{z<L@DC7Yex18AT&|38Xn%us*@Oj{|9GQmw
zwe&qxBsbF?mt>a>#-qHC&4P)_FcnM`2K!s){;>#SJK<Dh$uuFNROEvuGW_Oh#$KqI
zPw2R!?KEz5AG5-BT@XzxoY5}>h<uZevsZld_wi9CG`8XcZ<wR2X6+P_@rGR>TAKXg
z?Lx!Sl5}wHy_}((?Q0-fhCGMojF)J!Ef#EI$Dp>8;YVo(^%X$051=AGdV>^$cjq67
z3WqKhBcBE^96Aw`wo=lNG?i0nufwoCg`tgmPAy-+b3SJMq=!DxO#KtLVXF_+y^14K
z*`j32r_!7&_Np+8pDO!SAa4fDOkTI0=a{1mYXnetd?qBj<(qcNrmmK!F61v@IA7TF
zb!)Mi(Dl6*7kJo1RN{6U$o8it#(x4AE0Ra#SRr030D~5A3X`TUyR|ZA*IC?rvhlX7
zVvIO}U9DLlLJT5xfL$4!=YMEUC=CnbDR;d*EyJO+^r^%yX#%3Hll$$*SiRFh#63fI
zGe}h&X6=TZmrK=dpB6xMzWyZ;&I-sR@KI+e1jfm|cy`1IkdJ_rhJJqpHAIJbO3_0O
zgS(?v=ez&L2t{MkB<+ml7Y?67^MDiRg;_Tf>ix)BOxkNkS?4iuS$Ws*j|sA@LBpUE
zBC`JdbnRb2OYgpit^#@|i@Enn;Xoo5Nr;!Gwg5uB;0#m{hUzSFe2ll5B8)v(z8_4x
zDNY{NCa{|<E%EfW;QGq|pA@wR?cMvNLFFE#f2X@5k}D@G4gQqe>uU(Ze7BazD@B2O
zON-svGAxNU0*BEpQ1f*LQ_s-!Kl{}0qV8iic-x3#1)Y$9AL_vi!A5Gg{JOllik$q@
zbw6Q%7I9W6;N4mgNvntKP)ONwGZtXV9L;rzy)Ji#kIDifnM<IKH6;C6n`(OR-jTY?
z<6SR6twR*g=~Yyf88JRUvinz|u$(;e@F^hpaGBDXj9x797E~_i2`}4R6d>LO11?sM
zML}^wdA_~tKTwGb_;#!$!gP5k)t#X$qvtWyBnP)*89EcsHK|m<SW!Q3EBk5{dk@G7
z&1X6q>Om!qEWF~_Yk*G?X*c?OW#ZEPyF}O-J=-(NRo)eTD`9|k1W(R;0x~H=8Mhbm
z<R9<Bb9|b%e+1ezjq<aVQFo%;fCYyG=UK<<Go8fIHR^@-V=fOC;}*a!!60oT{q$=l
zk$*rZ2n<9&umhVq<=~Kd=9x=brqc~H&*jjY!g@}dJHhHn29%k8*iQskA~N~l08l4?
z`mA9+^nFhP7%$JN0AwT)&q014dGZM3wnhuO!5CqxCM8@a!V_UXm-KtwR&u~3(V;zC
zao!>vPMT>KV?tRS7Z6iN=R(V6iWXquLAa`L`$E2c3VP^0(+^ELbbg-n{=kgToDHP#
zFu7CD3%^V-n4td&Zw-${Pqg~-F=__9;YPX(_I(x}mX@3P0(9k;Ub#rkT|a%{`nj#(
zqlr3grH}%iO$Lh|HSoQKy6Ae@k^L{gcpQhV-YLxf0LqWG{p`&!<Ab+vB({X=E23Ld
zr%E4Rpkzh%CrpRU;TbbZ!el?tvrDC;n)Ji`b##i5-kT6-_>ubaNrR<+%R0WK{Lwiq
za_06-uQ=-kaC&Bs4vy;}31>;siO0mLuJi5ho9*FBy->j8rwEod0mTo$+J3kHuxtz#
z&X7#+?;n>7F<qWP?o_Cu=yzNW%F=5jy?3&jU0Hfx$0(!dDnVBv`sgo3G~eOFu43@E
zRjZTB0pMQXhfey2j0p~nCGP-#Vk|!#c8$iR8RwtY6SvHUx~vGyS!8gxi)<Qj$Dk72
zIQbeJ+71_n$>!QqS9cKjS>uTU><TN!$kkQLgD94XnjicDtz!<atxiGv{r`5oLU%#U
zxlfEPsQkP2&K86&yaU*nV}X0B?+bPt|6%^|-pkvy|2W|0t|~~-qXW{USowge`2j7Y
zSi(n@YH1jgdq_@GmpmkKfci#6@1%lW)U-Nu!jRWdX;Du0wD>-`1>!THP@4MM8-uJQ
zAj2w8@<J&yGHcEBD!#eVd+2mUSr)fg*QKzfv|Afx?}Z=ndRB1L-cpGgay13AGyc7z
zKkRu1Y?%1~I?`Z|<mDuq@XvL3$Zi*vw>z8`pI_>gu{iXUx8{XZP>EZp)y3|(L)n--
zN3c+zDu%I5`}QXw;=cs&X}Fmx*D9h`%|k_?^ZQ;Z0acgGpccD|S(J`AoG8pbdre`_
zJs`kCYRd-1y-bMPO~tqI(Vn4#BX1wK#V>Cp*usrYVo{RO;GDzTA7EYUU8VJeK#<Rp
zO%+k%2WhSiwdcsp3r%FtL7^rA-kcX=(?s+h`mnduk$f>xYNZ^tUP888Ywpr{K#r7V
zeH88ww#dxJ*9{m^1@d!11N3VnirvC4ma|jWaO6G6;7zml?h%>GS90X(jn#rlR#%4I
zWJ$R#k}L)EL-T7I(vb8!OpWE&@ESnqyzZ*iwl}yDf){lOhHLx$(!uKhZbo$%b$J(P
zVD!@NfO&-lNIDzy9*FGN_qv153n0IaIgqGNJy>wea?2#QrLjN`a2U4Nu0loR*Ke+j
z-xzsw8EX(5wEub59%#eTf5v?;m8oWeMByIvpnqVG=9W+2j_hNRP0sC<dsc>r%ZOOO
zH(+?d&R`<O-B$fq48|-%vXL!q_=EgeTK)5dcz-N>YdG9a4JuS1%uG=2VYUQ{n%iM<
zN)WwLTd3Ln7#i5{Ei?smH%w(dO9?5X{TDNXY(QG6s^pF}Z!uP?uO?i%RiXBf2@s8D
zBf9YYi)JY5#5UW1A1qX@ATPjB@8bz7aLhcOJTMUs^nCI6a)!mboZw}_e6X^LPQ3gO
z=v;p@2C|;gFP4e02ZlQ^dDRImJD#Hm(W<-yoAvOizwzDR-64WW-FEC}D8g+sumwZr
zxe_u)ZB2~x5zq_M#4~gd=}3cG4?Ut~=}uPxc5E=nX5O&#DM(b3R=^tG>f$Hvfy!s8
zwiN2Z6G}US;#FQ24*b-;(4F`~)<cW)vd9<1Ip;4=(~g^P2$Ovu<-FVY(U7|!-6UY~
zd9T5As*@BlCJ@%~AitfTx=4w;pe%hdWNe4LQ}8%WNKAjA*{Y=tGcm!cn#Qw3XlcsF
z=3K+S#J?+l0XST8Y&#!7C}f3QrOeQF6;<rN<{9eq$r`U->4Gto%zxxNb@TJe2uUXZ
zIuccRLfBNf(&_+m{(N;nk4Bx9qm>M5B;gBCtz<By7$|iV9@E(RM>d2OvHL%-RdogN
zf{uNZ8vLo+AkmL9(YwzX_a9$=V<XLEuc#yQ9qPz1(W9*lHIiNt{{H_FBtbXl<o`XZ
zH-v{b$Ci_9i%pv1BNp*9F4c0M1|5a83!8d$Ztz?G6;-QWlXAQfGkL%%KZ@I1zW>0A
zZ2T*A<AzWuwmxaFgi@9HtK{b6vtlvpWAjCC9afejgPbyeq#2Vhk?WWLW7ouWH!{>0
z-DHm3oC$k##P3s`r|gV}o5j9Jf~H<Wx5bL@O-!}JidP1vpEB~vxu<Xr60{EyKz=%;
z=AOxamxnCRA8SZGekw45<VlYb1DawIt4$VFn}_{_ofUpfOeVE&1*yLJx5Ra$`TqyT
z@?WJ(|JUH0N9`pg?MC%mQS%JH9F&|hcxm$}H+DYxoA_@|l^5NOy0jKvknr@jXu(ho
zySg~pP#*Vdn-kkk@?=Cwu*$VbnkE<Do;>TJhIr+<I~1arvag*luie<O>4r-x)jdh|
z7!ttNKUBlkH;B_?rY?g;g^Fu&fi_^s(?^KUrN=TKx<<R!n;*xiArj&SA5OeK_m9$_
zWNiKAF97$xe%_aRZm>J9C+3Er-p3oL5$`xeU;B^%@%#=<%(Hi|CPjiHn=+L(<-7CU
zSHkd|ixP&RUtB?7f<GiB=FzoS^wK-!JBkqSLR-Klb?Vm#B|s}cv#2Q$={qgoWXNTR
zBz2zI`Z>Haxaj>(gt@->VLSBq1eI?x=5m-XSC*tlwug*JTHJ!jK*j6hcJ|j&T>;_|
zFDtny*tzW+JE#BCXzoVR498Q!#K=j%X6tL%qxLWAUtQO>!ve~z8}`5fdL(&NaPq^e
zz)-JsDgo7ha~$e@Lm3H&xYaMeM$XsH*xJqga&-MjcLjsFkBVI&nV)|av?;^6nXxf+
zr)ke)C#0eQ&(ZtsB~8}Wov2@)In5IPs$05Ts9<I#k%rL0DgF92Yb|`Y?!^1ZB9sbV
zzhGR=8H>^UDxLDczGA`x*zc@m=(!M5RA54bBV<Wl=3?y{3eX@%e(@viIKgEeSIvqK
zP42mSwi94ne7zCqw{K;W$qXEg;jb%OHX2$R7F%y_FR2YosqZkBEQcyncWj;+h-DVc
z96it3|MiVMKlH>Dk(4%l{L=3LXi)mRW*`RzX!W(OQbxB`MaiE<)4j$V0fd5+{~*}4
zXpU;djVih7-2iGnUZ{JUIE!wTsC`uo!1I5pF(vved}KJ|J)^%?^4S!<r;mrxsvgBg
z-QTjyNXyOPMZ_~Ai-F3s>yT^@GoWTGX#dR}=wF2oCd{kW5beHjl{AakfA8eJ=<}Ng
z$nNH@FS@5!Q?@AMqMT|K#B;g%g?&Eov`TY*9SVJMOn>(I-Q^CPZhqeNvQ`ln^U7%9
zzXbLQB2)arMQy7oomug+@3iG(UKg|+slG8Bm<*8GDH7zySH<=k+=SBt2yMAptEju`
z=+MP)ea(LGy;Sysg(6ZWhJ14g%UDBvuQ%mq8~S?3y#4NT6wc3~$a`LpbLX50LhFS!
zeN3H-*?Of1%XH%U%dfV%^5qrJPEs%TVTF1|KXg=ECNVKJ_6Lmbz0R}&q3#?Rp=1Ao
z!S3o)LJV`KRS~@br%-6QG3@~q!1RDW$Yz<1dG=HEo;*f@lQB7FV3+44uAaW{iM*}j
z8q^%=1|YOWoP0MSW)GwO^<Dc+Z!xl?r`FRl!w;dpkM*<98xzs;$;#V*T`#fJMGLjh
zW<%0fftX6ntx#h<8S2u?9zpUPiZdZN$_tl#MM^w<XZj7dZ_`Hz)HlM!TTG+G$3LEq
z-W;d4tRenOakAD<z0=)GKp~eVq&FBtznCM!Uh|Jv($6@i4|a70@YP?~d3$~fQF{4G
zU%Y;~gYV<ZsU^UtBss(R&d+$U5!xORvhONwA6(cdPb-+vw^IZHhKaNvBwNQvghoq)
zt=>P6kAo3bQ%^LQuHkQH?>+z|H`n*5zk50L_Ts20nH}qg+WYgzkr=GtDX)V#Ixh)<
z9yA)yxHp?Vx@HdEbjOvHQ5C?dE*#)cqmQ=1*%sKHi`dLnjU?2}*cf=H;PYR~QCXyC
zV4Y7%OxAJS*J+hJb#Z!~>v%o8)T6r%XG~=qA*v11;Md+7=tSrV6#D>-nRDMg^hfMw
z^<QwPASuzqV;42I;1Z`@i~A2Kr@E{U$vEg9tj>$<KhioG$WJ6eb<v}w3=y+Kuo;pM
zR2wOu)wKpQp&&^DT)7^73f6DEn~Ea+Y4my6oh`~?80q7Dwx_LCn)`%H-2(Djwue5Z
zU;LKtSJK{QVzSj?A0k90g1Y$qaQvVJ%NRb~A2(H^S(uKd6{J-gAx)RIQn#KB_dyEs
z$irk+`z#xPW}hTx(r|I(ZDOx>5TON1s^W-~9l;iWxEKALWSfJBYfxx|0l?!M@DM7g
z`iZUi*J=2q1_MKm*oCEWgG}(cg1Wkb@<$*uv;m$v1^$@?!c<>(6rVT;(G=!P6TH0V
zzE?ONfx2B?P0<E=)HfJnAI38_G-0(vLK>2N%Ea(R@a>4GwZ;m0!VT5m$^0Do#WOy3
z0;q+aPeq;-vn{^PAe7!g)^!vwQ)`pK<%6!Wv0p61{eTSF)DaxD=B&~aAy}?fs!@Zg
z(K(K~qaj7T2N_K+p^Tl!m)j?kE2d`AiF$BG0uqODa3&z@DkbubW+N&1vcENm^x=1k
z!PiwlPRZ`gWgspbu|NlV6KvKm(T_tFr*eva1I+W}AZ;@c@;ZD2H46*!ZN8kLmMHf(
zhw<~JofUz2WXtt*!!=4?i8!1k$l2kjj6`@H3_9oz_5eI0NW;{4O*iE^oNOp`A|ULo
zyT^I)r&{5L2#sAOGK@uBE;?`bE~K&Zh3t1wBwc;*dU#fC_P^04ZeR#MkpX@0SG%x?
zlfvqq^9m!9X?SAmRJMC}N>T1UesZkW%HH!4xsp&E$N=n6v}=Iab&B<{=P7W4naU^A
zQm=5(a~xa<S_4}mpe<t?)O#PPpsxwWEfhctVSr|M*0_-zx$)hOdHZDGeHNNS`f%;7
zDCeUVfw(^r%@<`t^trMscP9ERb}ss#<Irw5vP%l2AVr<)X+HpbO<gb)c`ikE7rzd+
z2(j9GNc3ghhGhGZk4?%j(}*%8vO?;sg6s}Z6P1D1pUTZS7=~#!z_>uJID^&^U_Z#K
zm;w+rt9UQg@s1%5;GlT~3}El5C&8D-X73(>HM3Hn-FMz2YFK)PaPtG;PT=SLFF+Xz
zwFPUK=2Hx{O{U}X*3TR-D!&U<%H*7f9VL;yg)DIlyP<Ma)DTruVhR{mB|n7HMOX@e
z&R&?r`;9`bH!2ZJ)gId9r(Oq$rqJKuJ=4_FqnnZHRBce`Ak4P}1WR2mx%7p1Y(I)w
z9_<Hd;^d{TseVcUCV9@dr)UQ97%Df>omK6)B+f#O;E*?`?jMuD)RfX3j%*>O;Ifl3
z5~a)SK~r>-t-wfi9DP`pvQNkG{FzC}Z2Dr(Z%VZqHf9VskoHhLOQITNLk1t+f_BG<
zbLd$W62q4o@>H=ykCkCk!%29waiB>837IedwOTG*Ly4`VM=qBe-P#;_Py5uQyZYTO
zaJKc?z<MBQh#hC4s*&YwLiN4v0&ieRq*6~|&L7x%MT8SpjM7m-6C9+}sg=e^$Sg>(
zm$E^V7#DlN8vRuuSlady5wgRvPs`pC(tDl|uLnQEpzrisQ}fM@Sxe=b7Xx11`aAmV
z_TMJ#0~I~`rNdgowi%b-3cRV+EWi_gLHpLgF4_C2jE&bDayN`{i=MN+%?3A71fRE)
zUj^Qcy!l)!PPVAO*c|bo3`%u;?{!WnOk6>inP-rVgamo0wQ>%fdN$x3giTkY9_INF
z9AW1nz)13!-~^|Y`?`ROt!&Ew5vuTTsp<Xywb1YdTsZW#$iz=zYfbifNL=XZ(Xc7M
zF0oDfP2#z~P#@bnn(f{%sp#bvM`$lbw2pij-4cHCYo!(3{w^0>G{ZJll(z|ZWXG9K
zs!n}6^W83dlxBh=m2#7PhVZ5TvD*&(!TDyzsf$|7?NPAIb`DWF|0v{y#ET*Q8f4{=
zRCnfa(IMmRNPSVyS%#~tUC1*ukFcmgqb4s>J-_7aZ=M`fPj5?l*C+7XUKO~sCKM7o
zVt2VNNV?RN)6pf8yD?~cCDq~SYW#nzj<T-hQdE=!u9|55E?!w%*qbv=sh9r;XfSZ>

literal 0
HcmV?d00001


From 5527a881f469899c7cdd58d8630c46b8a946db60 Mon Sep 17 00:00:00 2001
From: jbennion <jamiebennion@hotmail.com>
Date: Sat, 18 Sep 2021 23:34:19 -0400
Subject: [PATCH 2/6] Delete plot1.R.txt

---
 plot1.R.txt | 17 -----------------
 1 file changed, 17 deletions(-)
 delete mode 100644 plot1.R.txt

diff --git a/plot1.R.txt b/plot1.R.txt
deleted file mode 100644
index 05c07d58911..00000000000
--- a/plot1.R.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
-
-times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
-
-date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
-
-dat$Date=as.Date(dat$Date, "%d/%m/%Y")
-
-dat$newtimes=times
-
-dat2<-dat[dat$Date>= "2007-02-01",]
-
-dat3<-dat2[dat2$Date <= "2007-02-02",]
-
-hist(as.numeric(dat3$Global_active_power), col = "red", xlab = "Global Active Power (kilowatts)", main = "Global Active Power")
-dev.copy(png,'plot1.png')
-dev.off()
\ No newline at end of file

From 0a813ddf982455fa777e594eea04e7ec0b44e138 Mon Sep 17 00:00:00 2001
From: jbennion <jamiebennion@hotmail.com>
Date: Sat, 18 Sep 2021 23:34:26 -0400
Subject: [PATCH 3/6] Delete plot2.R.txt

---
 plot2.R.txt | 17 -----------------
 1 file changed, 17 deletions(-)
 delete mode 100644 plot2.R.txt

diff --git a/plot2.R.txt b/plot2.R.txt
deleted file mode 100644
index 44d47742fcd..00000000000
--- a/plot2.R.txt
+++ /dev/null
@@ -1,17 +0,0 @@
-dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
-
-times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
-
-date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
-
-dat$Date=as.Date(dat$Date, "%d/%m/%Y")
-
-dat$newtimes=times
-
-dat2<-dat[dat$Date>= "2007-02-01",]
-
-dat3<-dat2[dat2$Date <= "2007-02-02",]
-
-plot(dat3$newtimes,dat3$Global_active_power, type="l", ylab = "Global Active Power (kilowatts)")
-dev.copy(png,'plot2.png')
-dev.off()
\ No newline at end of file

From 9a68853eb6026a3bea9c28ffa1cf47a007909127 Mon Sep 17 00:00:00 2001
From: jbennion <jamiebennion@hotmail.com>
Date: Sat, 18 Sep 2021 23:34:32 -0400
Subject: [PATCH 4/6] Delete plot3.R.txt

---
 plot3.R.txt | 20 --------------------
 1 file changed, 20 deletions(-)
 delete mode 100644 plot3.R.txt

diff --git a/plot3.R.txt b/plot3.R.txt
deleted file mode 100644
index b78f1b5e7fc..00000000000
--- a/plot3.R.txt
+++ /dev/null
@@ -1,20 +0,0 @@
-dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
-
-times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
-
-date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
-
-dat$Date=as.Date(dat$Date, "%d/%m/%Y")
-
-dat$newtimes=times
-
-dat2<-dat[dat$Date>= "2007-02-01",]
-
-dat3<-dat2[dat2$Date <= "2007-02-02",]
-
-plot(dat3$newtimes,dat3$Sub_metering_1, type="l", ylab = "Energy sub metering")
-points(dat3$newtimes,dat3$Sub_metering_2, type = "l", col = "red")
-points(dat3$newtimes,dat3$Sub_metering_3, type="l", col = "blue")
-legend(x ="topright", legend = c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), col = c("black", "red", "blue"), lty = 1, lwd=2)
-dev.copy(png,'plot3.png')
-dev.off()
\ No newline at end of file

From 3a1369dd910e7e55186edabacb31ec645a98e9a4 Mon Sep 17 00:00:00 2001
From: jbennion <jamiebennion@hotmail.com>
Date: Sat, 18 Sep 2021 23:34:37 -0400
Subject: [PATCH 5/6] Delete plot4.R.txt

---
 plot4.R.txt | 24 ------------------------
 1 file changed, 24 deletions(-)
 delete mode 100644 plot4.R.txt

diff --git a/plot4.R.txt b/plot4.R.txt
deleted file mode 100644
index fecd7d731c8..00000000000
--- a/plot4.R.txt
+++ /dev/null
@@ -1,24 +0,0 @@
-dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
-
-times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
-
-date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
-
-dat$Date=as.Date(dat$Date, "%d/%m/%Y")
-
-dat$newtimes=times
-
-dat2<-dat[dat$Date>= "2007-02-01",]
-
-dat3<-dat2[dat2$Date <= "2007-02-02",]
-
-par(mfrow=c(2,2))
-plot(dat3$newtimes,dat3$Global_active_power, type="l", ylab = "Global Active Power", xlab = "")
-plot(dat3$newtimes,dat3$Voltage, type="l", ylab = "Voltage", xlab = "")
-plot(dat3$newtimes,dat3$Sub_metering_1, type="l", ylab = "Energy sub metering", xlab = "")
-points(dat3$newtimes,dat3$Sub_metering_2, type = "l", col = "red")
-points(dat3$newtimes,dat3$Sub_metering_3, type="l", col = "blue")
-legend(x ="top", legend = c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), bty = "n", col = c("black", "red", "blue"), lty = 1, lwd=2)
-plot(dat3$newtimes,dat3$Global_reactive_power, type="l", ylab = "Global Reactive Power", xlab = "")
-dev.copy(png,'plot4.png')
-dev.off()
\ No newline at end of file

From fede7295b782244068053ef7fd770fbb54edc61f Mon Sep 17 00:00:00 2001
From: jbennion <jamiebennion@hotmail.com>
Date: Sat, 18 Sep 2021 23:34:54 -0400
Subject: [PATCH 6/6] Add files via upload

---
 plot1.R | 17 +++++++++++++++++
 plot2.R | 17 +++++++++++++++++
 plot3.R | 20 ++++++++++++++++++++
 plot4.R | 24 ++++++++++++++++++++++++
 4 files changed, 78 insertions(+)
 create mode 100644 plot1.R
 create mode 100644 plot2.R
 create mode 100644 plot3.R
 create mode 100644 plot4.R

diff --git a/plot1.R b/plot1.R
new file mode 100644
index 00000000000..05c07d58911
--- /dev/null
+++ b/plot1.R
@@ -0,0 +1,17 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+hist(as.numeric(dat3$Global_active_power), col = "red", xlab = "Global Active Power (kilowatts)", main = "Global Active Power")
+dev.copy(png,'plot1.png')
+dev.off()
\ No newline at end of file
diff --git a/plot2.R b/plot2.R
new file mode 100644
index 00000000000..44d47742fcd
--- /dev/null
+++ b/plot2.R
@@ -0,0 +1,17 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+plot(dat3$newtimes,dat3$Global_active_power, type="l", ylab = "Global Active Power (kilowatts)")
+dev.copy(png,'plot2.png')
+dev.off()
\ No newline at end of file
diff --git a/plot3.R b/plot3.R
new file mode 100644
index 00000000000..b78f1b5e7fc
--- /dev/null
+++ b/plot3.R
@@ -0,0 +1,20 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+plot(dat3$newtimes,dat3$Sub_metering_1, type="l", ylab = "Energy sub metering")
+points(dat3$newtimes,dat3$Sub_metering_2, type = "l", col = "red")
+points(dat3$newtimes,dat3$Sub_metering_3, type="l", col = "blue")
+legend(x ="topright", legend = c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), col = c("black", "red", "blue"), lty = 1, lwd=2)
+dev.copy(png,'plot3.png')
+dev.off()
\ No newline at end of file
diff --git a/plot4.R b/plot4.R
new file mode 100644
index 00000000000..fecd7d731c8
--- /dev/null
+++ b/plot4.R
@@ -0,0 +1,24 @@
+dat<-read.csv("household_power_consumption.txt", sep=";", header = TRUE)
+
+times<-strptime(paste(dat$Date,dat$Time), format = "%d/%m/%Y %H:%M:%S")
+
+date=data.frame(as.Date(dat$Date, "%d/%m/%Y"))
+
+dat$Date=as.Date(dat$Date, "%d/%m/%Y")
+
+dat$newtimes=times
+
+dat2<-dat[dat$Date>= "2007-02-01",]
+
+dat3<-dat2[dat2$Date <= "2007-02-02",]
+
+par(mfrow=c(2,2))
+plot(dat3$newtimes,dat3$Global_active_power, type="l", ylab = "Global Active Power", xlab = "")
+plot(dat3$newtimes,dat3$Voltage, type="l", ylab = "Voltage", xlab = "")
+plot(dat3$newtimes,dat3$Sub_metering_1, type="l", ylab = "Energy sub metering", xlab = "")
+points(dat3$newtimes,dat3$Sub_metering_2, type = "l", col = "red")
+points(dat3$newtimes,dat3$Sub_metering_3, type="l", col = "blue")
+legend(x ="top", legend = c("Sub_metering_1","Sub_metering_2","Sub_metering_3"), bty = "n", col = c("black", "red", "blue"), lty = 1, lwd=2)
+plot(dat3$newtimes,dat3$Global_reactive_power, type="l", ylab = "Global Reactive Power", xlab = "")
+dev.copy(png,'plot4.png')
+dev.off()
\ No newline at end of file