From ca106a7bb1aa955e29ff9ce92b8a522e568be78f Mon Sep 17 00:00:00 2001
From: PluginRight <samueldanilola@yahoo.com>
Date: Mon, 7 Feb 2022 21:59:48 +0100
Subject: [PATCH 1/3] PNG and R files for the first explorator research in R
 assignment

---
 Plot 1.R   |  20 ++++++++++++++++++++
 Plot 1.png |   0
 Plot 2.R   |  18 ++++++++++++++++++
 Plot 2.png | Bin 0 -> 4504 bytes
 Plot 3.R   |  24 ++++++++++++++++++++++++
 Plot 3.png | Bin 0 -> 4051 bytes
 Plot 4.R   |  33 +++++++++++++++++++++++++++++++++
 Plot 4.png | Bin 0 -> 7449 bytes
 8 files changed, 95 insertions(+)
 create mode 100644 Plot 1.R
 create mode 100644 Plot 1.png
 create mode 100644 Plot 2.R
 create mode 100644 Plot 2.png
 create mode 100644 Plot 3.R
 create mode 100644 Plot 3.png
 create mode 100644 Plot 4.R
 create mode 100644 Plot 4.png

diff --git a/Plot 1.R b/Plot 1.R
new file mode 100644
index 00000000000..b0eb05d040c
--- /dev/null
+++ b/Plot 1.R	
@@ -0,0 +1,20 @@
+library(lubridate)
+
+if(!file.exists("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")){dir.create("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")}
+fileurl <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(fileurl, destfile="household_power_consumption.zip")
+
+unzip(zipfile = "household_power_consumption.zip", exdir = "C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")
+
+##read data into R and Subset based on the Date needed
+importdata <- read.csv("~/MyProject/Learning R/ExData_Plotting1/household_power_consumption/household_power_consumption.txt", sep=";")
+
+power_consumption_feb <- subset(importdata, Date == "1/2/2007" | Date == "2/2/2007")
+
+power_consumption_feb$Date <- as.Date(parse_date_time(power_consumption_feb$Date, c('dmy')))
+power_consumption_feb$Global_active_power <- as.numeric(power_consumption_feb$Global_active_power)
+
+png(filename = "Plot 1.png", width = 480, height = 480)
+with(power_consumption_feb, hist(Global_active_power, col = "red", xlab = "Global Active Power (kilowatts)", main = paste("Global Active Power")))
+dev.off()
+
diff --git a/Plot 1.png b/Plot 1.png
new file mode 100644
index 00000000000..e69de29bb2d
diff --git a/Plot 2.R b/Plot 2.R
new file mode 100644
index 00000000000..a72991b2401
--- /dev/null
+++ b/Plot 2.R	
@@ -0,0 +1,18 @@
+library(lubridate)
+library(dplyr)
+
+if(!file.exists("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")){dir.create("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")}
+fileurl <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(fileurl, destfile="household_power_consumption.zip")
+
+unzip(zipfile = "household_power_consumption.zip", exdir = "C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")
+
+##read data into R and Subset based on the Date needed
+importdata <- read.csv("~/MyProject/Learning R/ExData_Plotting1/household_power_consumption/household_power_consumption.txt", sep=";")
+
+power_consumption_feb <- subset(importdata, Date == "1/2/2007" | Date == "2/2/2007") %>% mutate(Date = as.POSIXct(dmy_hms(as.character(paste(Date, Time)))),
+                                                                                                Global_active_power = as.numeric(as.character(Global_active_power))) %>% select(Date,Global_active_power)
+
+png(filename = "Plot 2.png", width = 480, height = 480)
+with(power_consumption_feb, plot (Date, Global_active_power, type="l", xlab = "", ylab = "Global Active Power (kilowatts)"))
+dev.off()
diff --git a/Plot 2.png b/Plot 2.png
new file mode 100644
index 0000000000000000000000000000000000000000..d60b38b0d0f071dd0480cb7ba77816c971057081
GIT binary patch
literal 4504
zcmd5gXH*kgw^0*;iEvdyP(v3aF$kg(QK|)y8j3V&;esfF5JVtSLYxSQh+w4(N)c%x
zf|5uPM^G*zdJ&KkN)(VQp~Op(o;P~e`}5xVz8~+$x87PaXV<g$p1n_*a}sTB%p`#w
z00M!KG(U0N9)VcL|M`k<fH@X`O%V*}wpJ%iV2D5v5eP>Fk%%C|Ed$|L0@E--L^u+O
z@WUWFIuaQSBBRssm!2a6rePVw@h4W|SR!H&5sY7Y3`QrTQ&i%JD1il?j1o~viAdDR
zAa?#@cZx)?45ncKvtjC8$KwzLVsn@I@gpZ`*^~E^B8RKDnBIIEa3(7};(qnt)!{gz
zNAIiU28!AsVQ}M127<miW*J!iN5*B^aYh8r@_}|S&iKnwh;O@B7qdwU#XR=^4!t5y
zQWaAHq^_!+`Zqz^tOFNKBrb!{LkbnYO%B+Y@E<{2T-eVSt)n0OpPhoJ1|x;{AKpYS
zecnPWwT6_h0ER}26N1lQ7P}L@f%lhfAw_cV*tAyHwB{p|Vt<U>QL1c=YYf?|%)o%w
z^!A(sRs1u~wW6!<@SG*&`m+4&zxaG#klfW?!aR2_L?4x)v?aRax8pgv0~iOYlsGbW
zrCv{ZA(wOalDtE3Gw#0r59{|ndr?Fs>FAZ&VXkPK6$D&G#zsdyU-_}tTgZIG*H4w8
zN7j}#V%$|;Y4)wmUie+sL#6+Z^=5r0y!NoL9mSksg3G!Vy0H7}?v{*z+zs}@%?|AK
zQUUA><C8SNiQ#cTcOoyWh4tj0w%_`rTJ0N)-!8f@X7~tq_3Ai9YAnrCQucF-kOhM`
ziYTZ8AL?qZ->=TbstYTtqkk)sN#cL7o>Xcte3|!sC)?G@`;I9?aDG{ZnWe+?cU9-Y
z_2JKOXKKmMlC^67iRzMU4E-xzNP?Z<7a|K9LvWUE)bOOBdlRQz-*3wv$jefzb$Z)O
zVL@9f0}301K59??Hy41bbwLt)(}Ni2!ybN4H~$sSgY2EIy?bh0VQnkn+@(sE^8_9(
zMV}ot^zF9j?JXD+EJRsFT4Pbm$_9#o4qlGt5S=Rd3HEYf)6W)LC1VZIZP}W=&+L`B
zwN=XB9$EnN%z&SaTOgdIySFr#zWu0}$cuvwvY?uuW^b0odd235UhB|qPn;qc-3q%{
zUv>)&HI7sjRHU%RmI=D(0v};%l~)+lyQlV0Wq|JyvBQ;a;i10We}L6_Rll$kEjv~|
zOyx@C%EAGh_{2X+j)qh1>v1u&q1PA!s6WFq{i@YtOBEj#zrmhR>3Kj&fXinbUa35q
zzloqL-rEvC%}NR0{7;d51E_DM*D!L(X8weO1@S}LqhByV+|VeCELy(z^@<S+O%#L4
z*h`|hW<p!NIYy&QPHCYs>*AK|zow1?SSKk@ru2Zv3Fy_^%Rbb~S~S7MCBv<~0~p_q
zmdTzqkNDZ)=|=VFJ`LDZLU?;|4#^T$J_1S`p1%ji-L+I;N}__DrR13oEC{3VSgtPX
z&R_mj7>!cgF50kvRaLBgA{e1+C4AfA=N#mo$CsDzV5TiDMB3?{Vp=CzZWue~z_uKq
zHRovweke}l4HsfQN$O|$cIP-QuIX}CO(4C>9-p^w_;<)zg%rC1CCEG%jv%kbvenFc
z)8N&)c+g`!UShs<`)0S-4r~Vxz_a8*roBNvm({=*cxyCgHK2YD#GYanhd(ppz2-6!
z-ll}_DThhH)Xfi*XE1d;AuxAf`7AJa^R?P>=q;gZ|24r9+Ge>x55Rspe=jw|s^==Y
zcsmkR+jSn5#go8=DC;mEP&hT1x|2tA3L{NJ29_>1PM*o5jNTdF{yL06D+bS5%w7Ld
zGq)Je+xQ2v=tW~Lhzi?)RB!l&BxmUP<F{t7NQs_MbhH?tx?+pB<onTUQuWQZ?1hv~
zHc=)C+W{xHYgF)zp`Ef@JEqQqGiaHa!QLWkzh4{(FVz$I`{G<%Ijq1pOC1uVaj@+%
zxa%~)s^|-;H%o^Teo}bXA+ICu9%vGl<iRAkIB|Nkb+1wOKYn0-<xXV{;PKS#XBrBF
z82qN#FEL8o*qsN${K11&*oKYW&7W%y9(CaLh86*L2)dJ#`8QF59RxdSgyZSF+me{N
zjvZx#kINVOd^5ni20k~Sas+TgbHP_?{;wsjE8t{BOjj;QVre#CsBcUKWjcb?B&FSl
zGM+B$xMKQ?1}th8%;7=*OnH))eaxKwkgs`OAM&(iho1tlMI?-VMs)wG%K_9-K{8&q
zMRBy}7<+zhRvT3zuZG^bvPOHdJRY57gd!Ftt8oo&Gfdfu>RfY0YxcRprBa0e$rn?q
z^0y?a$3a1`_09}1z_a5z^d0F2yvV2%DZaV3M|WzQdp6~VDXQty_j1ZH=n-$9dpcw<
z#A~CHc9|uW5Bo?=?X#nvf=D&|uDGvhwTm99d|z@+KHskIS+%C(#XWwKQ)#a2z^>Z0
zuQN=b8YAZ>)V7m7PvDYqcEV;(S_jkM@Sx{oe2+cV9U=$M#Rer`$c!=^w4&P!e|L?A
z;O!+%G~ZCNubN^BwT&e4ZqMW*oVNt#0iHvg*;bF$>jau+NU>Y{PKX5Z=XNf5J}=G1
zXk0Ji8<zWHjW<DEx2M8mO%o>5V*NpDS5SI&&MvBUB@BtHO`r_a-9)L^tm`+G4wOYE
zSemQR{6TgSz5Ej&BX$_iwZvIdUsaiFBeUEfW?&}hDE8Tu`a|Sf<B@Lr#%We}C+dS0
z2Q7_H2P+CLDRGl`_6!1~M*quC!MhPxcA`!DtoQjq_rN`$f<C_cbUqObz7;At6?#XL
zHqSWF%+HcT2Nz374ce!h;~dyt`Rjk@(SWHAd$z9NiyKOuwB)n*(@hN^JVS0zb+VQ-
z+q5#I&q>(-Vk>HB#DymCL@6q=oK2@iN>5c#5lIblP`5mPIPG{5x@bFrmZ=}OQ?P{p
zn8a62YqO``COzVR-F*7mvAb9+;fR6v>-mY3q5E@K{3X{aOLA7ZLY_{5$Ogp`q_ZeE
zJL;USu=PW4^Mw1P*Kdx^TlHsb*1*~gA9-CKsH|<E;8^<%uD#9SqryheI;m_D_pE5T
zNxF<G@0bBPpIw?B&VA%Yi6HiriNA=^ih|~c1HxKAhSY#V75vda6mUaYPtgnHLzX~z
za&XFq!9xBcUII4I66-##<RCm34T08Uex--d{?kW=Bbg`emSHB$4uNfx=)1GGhyTjw
z?MTb2O1%fxS4}B#w=)Pd;+hQ#2S~NlB=En=1A|vnRD1gCY|Y7#!goxa3a#{r!tMOm
zny;HN{lOy}M^aR|_e1BRg-%R;cmR7`OHrY*g;s9ImFun8k3Si+3n@R!=GITVADJS$
z*iX=rJYxv`L;{s$czt{Q%guFVD)I0%m_h<MUhhKSi88NrQPMLqN(@p)Eu}qy8J;aQ
zsy&;KVlwG523z$>)2iHMbrzp3hS^h|UC!sXT?DXiH0N#|1U>XRWT3|U<1ysFmXw`P
zZot&<Kd}8RI=2P9exSdOl+Tex24kO}fr1=Ks2`|tS#Piw=>{Gg@4w0S3*fX&>nl{y
zmE%F{n02+cC{?>@wSQixRFRlxulZi6>p2fGnbLn-*h8k)Y#nAv2f8YAA5QVh8nWB6
z4UZ1`cyQ*@d3Fktv;7U&?DG!Z2SjzNk8G=2O4Ya-`KvM-w7xCrQ*ON<hJrYH5-(Qe
zOeBIDIs+~>o2eZ@MeMI$E!K_b=6*Md&n^6>unQck&casR)1tBGp5NgNHHEpgjRZs;
zhmO5wlE+nh)}vWtiF>$7;^{H2?B@YcS4!KHkJqqm)~QuPN>G~~Mqhf&_tg=$SHM$0
z#m71C$<XJ*R3uq!L&`=wY7VF_W=G&=q<{mv%n}RvZDp9c1B$3x>l<66%s@$$;2yX&
z(8({AbQL7H7?E-)DH~idWr|T`FgX`qF_f#~nrzv7r#z9ZM+q)r)v4(NNJ}4r%fWas
zE<_s{rGx+5>8Zv=8@TQb&tHLfmu+TH>1}*ZEQ_rq3mvQ-#mJr7tp|Ov1)Q>p8fVoZ
zPOv>Yn#F#A2ghVLqL$laum$ix$X+hLuoi*u35L7D1-26^`O$%Yq?)uvn^r$6NpKqW
ziU;|Hr|l$2n2E#AE`R2LJYI`)t35l&c0IJexJfdPUxwmMeODNj2v2$=t)CroX{Kh;
z8qy4nL%rTyck?>v;Rht1QruK}NJYZ4I5U~Df5w7yG8)PvqwQq$)6+nMnHm#<L=b6T
za)IUM1G~>wI!_oEX2cwP(AjU}&11@_z(Z3j*t-QMbD)=4Jrp8{_?XamHJ8$HMy{?*
zJsu#1SC(D~4RdsBKO*!UkwaG-gKe~JiAuC#%1hJn=P~V`kCOP_eW#%?pCp;U2^Z>e
z(@1KjUwY}Pe@$HMGUG&ZrzLpih5cnP*pT^QIH)M@=q|mc@YaXRK{m)N-uu47JKqkk
z-@gzs^XR+R$$`%*0cJ)ubZ^^k6XDY%tGfeC&5B?3kg2?WXhXOg)V9>6_Z{D*>C>TA
zaQXh|20E{JS-nXrSAj=A^NyRYJLz8ZC#lNF<YX$}DgRsCJb1pNVKKb0@pS)ct!rUT
zGBy}mwa{63@l-4|-bn78hPc9w1Eau{X(^7d8(fYRNCbJ!#vJMX@`RG68M$woihsE|
zFkbQPJdx{M{Dco3#yShn>i@a5tYr{fhB%@NyTwV9X{T)kUj@_f>LxKYUae@A6TZ8r
z{B{}^$duc2@9dHPc|?W4A;nUk$3_j8nr<!pIzN>R6_JgyeOjch0Bf{J+-h~T!J#6$
zRs6zBoo(5C?S)}tGe0}=xs3G%r5wIXMmVye9pkQm(GdIJ(1d<e<zJp9C8VS2EEZv5
zwt4Iu%HWcN*QS-iNLP#D3R&`;vyDWSeBDOpuxqZS@}tidzWks}KB=7#IRlCIezmRF
z^li~;ix#y88;LmAvE9~d3-k7Kh6%0X`l0e87&R!xi`CtQ#V>rfwMfz$_O73Ix?$8X
zIcRcF2kq+KwQa@LJ~#BU?>n+qS80km;92CsZ1oRmTh@|otmsbO19%o1Lq!RK58aJn
zK14g&7<u^{c@K>ap#WBOo>mg~+>DkM0m;kPj*Z&=dx#94+xOdx8&F!|%Gi+9*jP+;
lp84RvIc)z2?g`$D*0~@PY!m4fXMf(Xn48!fXC0-0{{;}VLWckV

literal 0
HcmV?d00001

diff --git a/Plot 3.R b/Plot 3.R
new file mode 100644
index 00000000000..0f30693a3f8
--- /dev/null
+++ b/Plot 3.R	
@@ -0,0 +1,24 @@
+library(lubridate)
+library(dplyr)
+
+if(!file.exists("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")){dir.create("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")}
+fileurl <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(fileurl, destfile="household_power_consumption.zip")
+
+unzip(zipfile = "household_power_consumption.zip", exdir = "C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")
+
+##read data into R and Subset based on the Date needed
+importdata <- read.csv("~/MyProject/Learning R/ExData_Plotting1/household_power_consumption/household_power_consumption.txt", sep=";")
+
+power_consumption_feb <- subset(importdata, Date == "1/2/2007" | Date == "2/2/2007") %>% mutate(Date = as.POSIXct(dmy_hms(as.character(paste(Date, Time)))),
+                                                                                                Global_active_power = as.numeric(as.character(Global_active_power)),  sub_metering_1 = as.numeric(as.character(Sub_metering_1)),
+                                                                                                sub_metering_2 = as.numeric(as.character(Sub_metering_2))) %>% select(Date,sub_metering_1,sub_metering_2,Sub_metering_3)
+
+png(filename = "Plot 3.png", width = 480, height = 480)
+with(power_consumption_feb, plot(Date,sub_metering_1, type="n", xlab = "", ylab = "Energy Sub Metering"))
+with(power_consumption_feb, points(Date,sub_metering_1, col="black", type="l"))
+with(power_consumption_feb, points(Date,sub_metering_2, col="red", type="l"))
+with(power_consumption_feb, points(Date,Sub_metering_3, col="blue", type="l"))
+legend("topright", lty=1, col = c("black", "red", "blue"), 
+       legend = c("Sub_Metering_1", "Sub_Metering_2", "Sub_Metering_3"))
+dev.off()
\ No newline at end of file
diff --git a/Plot 3.png b/Plot 3.png
new file mode 100644
index 0000000000000000000000000000000000000000..85619ce7b899e62ae912bb22f4e79061fc350977
GIT binary patch
literal 4051
zcmd^Cc~nzL){jl-gdhYIL|Ii7!~ixk4GAJa5R9NKLc%5jeu}7UK@e!x_~Hr}x<$ce
zODoWkASjD~5X?MjL5;{7WHIr9Vn9Ox1;U<r;Ouk0bLRVF=FB<YJ5{G{{pwcT-@R4!
zs_Lqn3rPv1i9sL`N{$EY-4Td2&`L(j!H5&ag#{OP+zyc);1YqrArKS<LWaQM5I70~
zM?+BH#D-D0jzdszI5^R86gaVQG#ZZ94Qs=C6a<CxwRu&dtbA+=TSmhnXkR-}5Ht#n
z24^;n)-7XG5NryL4Xbq1*fKU-*3Fj5x@ov>8l}5?rM+7wlfgXL6d0AsRvKYoB-XYE
zflwAZ+S`)j^2YKNQ*xiFldkg5jm349>jV#!aguxniae`o{NKt-Z?17fpRbGRSgTpy
zHn+WEZBu|o{@Mt)nl)V~vP}^~K;XO0y#%y{GH{LlUnl126X<GJcFd-qZgJWDg#qm-
z`u#YXVfTL!fs;ZntWV5zrR<!A^~PFGV<dg1FgteF<>Mh-es6~6HE5^vZcffOsq4J3
zk2>b2KS`wZP)16;;9m0M5RJr~r_0>6K;bVtDyTK{i{j*ZZdE{KsPDDKPhU>X9V8OQ
zMP9r3Ho3zY0p*W{jm9=hg{KOzi-RJO;6xQx_A81s{J?imyKTNi+?W8qzR#oUE-*(w
zq`c}8C;y&nq;=zdI7?DHJhpW5C)9g64ZVU=@`jGc!#C@mRlaHUpO^|XYve4<i>BXx
zDaeVPZ2dSH^usJ$#c%l;Dzt~YHSW9W?WQ&ojSjB$Yotud<jPt%y{!H1v+Uc4UML`&
z=}+24DD^Ln@IE~FB+O9cgpHq=FIl(vd4MaaJzBlk7$0;Gbwu4S)Ir2MT04?2I^tTD
z+d8;=Ht6t7k55H;8JCSb;=Q6FMp@y%7%z-g^rn^{x{1ji_KYUREs;YVyh_FSP$Hx^
z3N}Sv#SBP)B5fmtaGbKEaDKuKRvwoX1ui|VPcM1#$nR7+Z9LOXo9H5sEkNOqE*Dp(
zQGF``qe0Al@7e5e-$~_72Cu;RY(qCMqm6iTbDdtcbuL+3dtjMlOI2fI-u9Q|G+XA9
zr-tIU+uatuJb`ZB*-PIToY~_l^<Pyd=2pkoNlTI7Qr$$~w%Wy+RZ-kmB*#TFnu6L4
zTGRG*hB}ZgR5@CA3Nr&=8Eki1r7%jq0<WyU@OpC5Rl~H>OqhFuOuf)`v7EoyT)GY^
zeOJj+lvbSGj+T%pgGKr5(?wkur=Yuj^U;H!V}iB7!*x@mb}qA|4^LQ%JbUI>e@vrs
zLGe_wX+nLwLxnN}!%|ErYBU7%Ob_Kn@3g0?b(W}rhYzsqkfbg77**|ye+AKVt)9VK
z)#6_rDliK>(tiudlKYo;Xt1KtKP`dJ8PNodsO69#$vy4khI8YmDR5Lp7@_b}jjZHn
zPkCU$7HjdU?-MkXe4+<@{=~C7aw~d<6X=nf3i)5?b*^VtTye=#(ejblhDwY!_pkQf
z5|g<>DmK`D@UCE6JoOH;*ZJ%v(LMV5i-K+ch93zd8yYLT-mm*xhmEfSurT<V9xR=+
z`I4K(%Ad~g1fb;EX=rGTc4<pQD=Kno6^T>uw^6sAolp2;tG!gXvN8&^e5w+a5<Q3v
zeR4HClk~DvD^!yK4eOcfDtX9)1(1F7en9nZB{0cNY#`6@WNoR#rpoD@FXW#_OXwfm
zwts?DSHhzbs*MF<W5#z#iq^dZvB9R6@zBouZG)?dat)5n$8<uqky<UT6Z1w5%S%;f
z9nvASiN+JbbEA~l=Q=>wA7b%F8utV~c2vxc_=!B-J$9VepwF*UY0$PnTt9)W_|^xN
zfn`=X4p?PY^G+dI2t%#(rro^+?dQK!CRL_4{bc-(x{bG5J<`!^``|05r<hx5lKrW!
z*n;3qu^J5ZHiu}5x5*~Z=ofEPo3BO(Z@?oh0?DGW0;L;^ds+zhm@hz+7BkhnZwfv^
znQbGzI^0l8##Km-5R1#v%_9VlqnM8)6hNatoL7EluaY-5LTMj`m-OW-c~OI-UP0e8
zr>rRXhHJ*s>SIX5)S<))=Oc7?vG`l?>QI71OS82KXE<FJgFn4|*$QcRb*O%1CZy66
z`_$~?4^cMouu$z4VX_ga{S>^NE?<V0%5ZsD-7N~bBe&F23^Sh}?%xX-9(hxGYrN3b
z_<gh-5-(iV!RXFd`k=$VJA^I3?Hb)n{qB<Lp6)UnjHE+P-O@%Je+PJ&?P=fbJ;%qP
zl`mD4okHr-AsS~NSbAA2w%_X!hPaPPe==Vb_A)$?IVF%4W>)lzeG~O-h`$7#9PU2)
z=x7vwWMjTsVX*Y6W8rOvLv5li9V5gWr%dfkCIbRV$7e}UonRZ1>2%GoH($};!gVgS
zYi12-=yBZS4(sVAS)aT{N0?sk95CQ4*2=PpSGO?*=fWqZO9whTCtu0q(?U};n2!j{
z+VyX1EDW9tikd~|p?OjJQq4m%^nPl<H<+w;7Vj7+&y0ihR7BFLUNw0QS@(;VDLeyK
z#)%T7-i7%?EcG{*<?$`gJK7|UhWXqWm$bm~nHRG)ktLX(2-^gECK7Z%b3vE$EY<2q
z^5!}-)1zSS=NWbWrokTpycsgVS?Yq!ma2SY?AM1IDPSpTjDEoSjw=vo#D_e;2O8eK
z7wf(e3DuGK=Hi`kv0r|c++JQIA5p)nZ`6?Bv>^FVf)NUc^JDH>K3d3F?(?64SUfF7
zW{)M7{=f!!q)ozmx~32HIJQ)2Zh8_fUf<86^Z^aZ>S#)Sr~?#tPke#`m<_qpSBVO6
z&3gfq6Y8Zy<>VgFy}l;LtyNXL_rVQK|A}AT5>o?>%$v_M)^L;5V5iarMSqftboX@E
zW^DC#x>l*ID;XfE8W&fpn-qtXD)6;IW#qw<LHS*T>*_@?pPM3urB&z5o5S5>tB4(j
zw(#i5s@7VcKLx@4_Iuk`DJysGp@2(!sZquN9-ZYOr)XM`IX!x=y+uL44yXRNykJI0
zk2v4`fR5Sh?WAN92kmOMdvN1L`1Kp*Wd`IZq?L+sG0f|==X$m!po7kGhfVyI7CNi*
zA^*Y|Mj#3(CL<4y_MfpcCq0k@-FE`T(P8GdbM$-92O9mI!QFSE;jt2rtLSis4l_{t
zu!xa0AX9y#ZAAndczb+Jr7&ypEV7Gk-b&h0_pW9G65qmbqt2d&4f}gjYYJPcR{}Ei
zx4d<t@uO1?U8_SvV^Yhh+!`HNr^)n=7faVY75dO?hEXP({L38wE+`HU{#~K?e`4lW
zi=3@>u3f}2RbzUfnRyr(VR@8Z17K0=0UO6PZwBZvbzJe5s{EYgnC|zp(yTK%w^_oI
zoqaD9Oi_GfcB=u4m8Y$gtBo&BLOfijk`6uIyb&y;tGv0j4$O&0E@Vi|!`1<BKNenI
zzvx-px4o_yjnv-=qG$93A-+hi6=)K*-fbeXJ{ziKH<C`7-!+<jz_(KMTeQ@yJdGx5
z-{7-&$_Ak?nYWf}N|XqiDSHBk*83{uMAzgTilKi5Lg>C}<=7nU??dJg%C_GD3qT;!
zYoD+RDzq(gc#Zm5ouhLjh<{<90@2BtM4iOnfri5>f)b{OtWAKHZE;KAn<Sf-2PCl^
zCT=0`>js>$!4JEHJmSVb`;GZODQB+-MUd(~X7pOPUvPbqKN^1^CeK%?-F`gPW>aI5
zw5gYU^Oo<$bC1K8qPTmpm$q0Y=y2lO%jw4stmBL*+x@Tao!`{f8mYKa?-i}72>2do
zK><tuTu$u}sVsgybCFso@K49@pT$?}ImtWAjp~+@Uvtb&!d?vYkEdlHHxdfI^%lsD
z_{{WK*TpeA689%GdqqlO>-%0xV<(l3XLtEnnD}SB&m72lv^dG*zm6pPWpU;g{fv`-
z{UJ8|QDLp)X0TQ&QJz%AJkDnn4<#mf&j_DP3V2Z3$XEj7{kxq#ApW@Thxf*n;-;v{
zGt*a~@EGg3J?h!UHXkkphaXo2^V8iXhMJeGa_g^^DVp37^dFNv{KzHftF2uA^&$^{
zX%QVn3tv`=SuKYX{a{#(YB)z-Hj+&Q)hBD7#A$YZ`;X4TSD`=q{T~pQu@~tLl-dZL
Qb1RQ?M+X=Ca=Sp_kEV8rbN~PV

literal 0
HcmV?d00001

diff --git a/Plot 4.R b/Plot 4.R
new file mode 100644
index 00000000000..b532f0e0fd2
--- /dev/null
+++ b/Plot 4.R	
@@ -0,0 +1,33 @@
+library(lubridate)
+library(dplyr)
+
+if(!file.exists("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")){dir.create("C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")}
+fileurl <- "https://d396qusza40orc.cloudfront.net/exdata%2Fdata%2Fhousehold_power_consumption.zip"
+download.file(fileurl, destfile="household_power_consumption.zip")
+
+unzip(zipfile = "household_power_consumption.zip", exdir = "C:\\Users\\sdanilola\\Documents\\MyProject\\Learning R\\ExData_Plotting1\\household_power_consumption")
+
+##read data into R and Subset based on the Date needed
+importdata <- read.csv("~/MyProject/Learning R/ExData_Plotting1/household_power_consumption/household_power_consumption.txt", sep=";")
+
+power_consumption <- subset(importdata, Date == "1/2/2007" | Date == "2/2/2007") %>% mutate(Date = as.POSIXct(dmy_hms(as.character(paste(Date, Time)))),
+                        global_active_power= as.numeric(as.character(Global_active_power)),
+                        global_reactive_power = as.numeric(as.character(Global_reactive_power)),
+                        voltage = as.numeric(as.character(Voltage)),
+                        sub_metering_1 = as.numeric(as.character(Sub_metering_1)),
+                        sub_metering_2 = as.numeric(as.character(Sub_metering_2)),
+                        sub_metering_3 = as.numeric(as.character(Sub_metering_3)))
+png(filename = "Plot 4.png", width = 480, height = 480)
+
+par(mfrow = c(2, 2))
+with(power_consumption, plot(Date,global_active_power, col = "black", type = "l", xlab = "", ylab = "Global Active Power (kilowatts)"))
+with(power_consumption, plot(Date,voltage, col = "black", type = "l", xlab = "datetime", ylab = "Voltage"))
+with(power_consumption, plot(Date,sub_metering_1, type="n", xlab = "", ylab = "Energy Sub Metering"))
+with(power_consumption, points(Date,sub_metering_1, col="black", type="l"))
+with(power_consumption, points(Date,sub_metering_2, col="red", type="l"))
+with(power_consumption, points(Date,sub_metering_3, col="blue", type="l"))
+legend("topright", lty=1, col = c("black", "red", "blue"), 
+       legend = c("Sub_Metering_1", "Sub_Metering_2", "Sub_Metering_3"))
+
+with(power_consumption, plot(Date,global_reactive_power, col = "black", type = "l", xlab = "Global Reactive Power", ylab = "datetime"))
+dev.off()
diff --git a/Plot 4.png b/Plot 4.png
new file mode 100644
index 0000000000000000000000000000000000000000..fee0c99af258535a976b7f47c4f92d1aa43c2773
GIT binary patch
literal 7449
zcmc(Ec|26#|Np%+%oxU!!q_8AAx316ciEDq!Z5O3TNE-RYo=R@BqX7-6(MUw$QD;B
zBwNU2$q-SLHT&|NKA+#8?>~Nz?;pS4y^nj&xzFc0kMla~<2+v{=8T0gC%X_k005jO
zCk-qC0A&3A*w9Sm6uU(}GpapfW^Krf0YDxANC2=4$io1M1ds}u|MGymJV28F`!GXT
zo<x!-F~dT67?y|on7K)SJTog3CCS78iAW?8Gf_x_VG_&?`$&bmusi_&r!Y(cm>iRU
z;X>vM_w~VjyM-j6kR)HoECb6kvBEyMaJR5<x36$_w-1)@gGv9*)wkQ%x4XN`w6BoF
zBzAZI@=O4X=lli$B0?qx$E`!se`Vm@hSe@dwWQQqh~)p2EA0L5Z4(q`P}EmeS#V&k
zbbfc&2A8=%#*H$M%+|+9CjuBie0)C}yr2Ax)l?QfT0$WDD?{V1$lG^tOf0xp04<}4
zF>}B_tp0yT6atOIXynh*n+q=HPk84S`Xje+b+`65pHjlDZJ9>QxAfjOaWR*;6d6;5
zxk~@-Qs;Auob()ZwPDj?E4t{31c!9}3A@(xt;MPJ-(A7ZWpI*1RSaKB>$g9nt7n2V
za?Cpv1fa6$5ivVM&rFwCCtV$ps`0Ic-Rg&-)EQm}_n(vBa#I=Oaw0)FGxtKNrl}Ej
zaR;zkvw}`-lWeB%#ZTu8`-iF9;w-+LrBvgKa*6hr2EOb|xx3`+pVcU4?d}fb7i7Q0
zC{&7bO`Qckk^&3LfrL9mR>Z;3R?Fvh3d5l4&8&Gg;x3{t2MrKT6n|%_A6Qnb_pNdC
zwDLL<KhT({&@@%oHP^V~x_q-@GAP5msZHax1p8Whi_&mx=3pQ4HJ!BVav3%+KKyFN
zhg~EV^N=d#Er^)--1?Gc@YJoxP~6)Ii7D1DnjXjTY-&AJWGuQYEUeyyuek6bL}93)
z`Q2)^2TqZ?_0OL9_G4j|(vHaZ^0w9Xfx!owvyyO^-Z4T1<F7%z?%M+MM-s3ik03Lg
zQBbxZEjn~BWAMXWm_zj25F?OeQJlvzo7mnDq`aPHk$wmsxL-!b#lO082nIdAE<YGT
z<1d4{C`h1`$RHs7Lj@S(N7l8gtJXWQFW<qW1boOTb1Wenh(r<2vwS3}ezNA279)Pd
zla)pv?YsrN&j(6@csc0geMlSHc7F-~1&i{8xb^~3pTm75w;kTAY-e14a1w1ZWG=;6
zsQd|_g@{${mx44KcMH=Ne(CjQ9f9UC_#)8f!JOH(ak%bcrLC{<jZm;k5iqnK^?!xc
zdYcPYz03CN41<UCWucCxia(SI$>1N1R8BQ394Id>@HpT%N=ME8m`I(-x<};51CVw|
zjDn7`19Mu+6on}X7Lo|@7}R^2rg`&Aj246ItkrYQ>t|qlXA4B%Qx9?4bl-#Vc_c7G
zbi^@w$}|HXm4)SN_kH|Q0~p(}v-_k8#IfQ#l+aLenHP5+X13CnIUH4?J%<^kS;;)K
zPH%y{m>0no!X=6oJ<|IPzQevt+1sGEwy{1Ec_6|`RX6Iu2%aF_Uhl<62`6ep)15es
zh)gs4wPYNISj<7mJ}k0d`Wx#Y)Gj6}2J;0UV`M7JLjBPw!WJ+yDr0xzVR`_@XDG+b
z4v8y)5M4<;z1A4ZOC&PZLh?9#zU1h$Dx86jo_=M7Jl+@F5sE^L>34t1gtJ9jeTNT+
z2OfkC@eC?=T?C}YsUFEmT;Bd^{i-SW+E=MGwKOyX7Ou5T5CWRn=3AQq+B|^A6NKsa
zoM*&DwGcPz4m@;<oE6<^iDx`p%6`e}Gn&)PT77<?#tVqV(Y%0!!T$I6Z=+`=*x^6w
z6%h&XH(_CpJIZ<pgF~Z7MqwTJ{Gq|v_#$#j$Q#MX;q~w6XA22*#`o1o(Qis$Mplk#
zoq=6=5lJ!1V{>vh+>!9-c}O;TAoBimC*$C=x6s68kOR%|7ZUDz!%j8;EGlrOYOsg#
z&n>al3_)(>2~Zl5i&k(2WCw40_#?M1j0-N-DEu}(y9YKtAewj89xPH0?Ad(P)b`!b
z6R7@a_)S;J9fdbS?nEjvTynl*@l9~jr8ngw&_C!E<-)BhR1^id5~74$DY~oFgjx6T
zzorS_!p%b;FPuYQZ1J`E)$NmpB;N@@1Bwn8N4C$@vRoX;f%ub1)G@8AdX|Ztj5X2U
zLrv1s0ooAH40?7m@y=bK<u}ETML`l=Mc)O~WsiZv&T4BB&m@JBYSG`m>VfDG@`c!)
zHtPM^Tzxbl3bxOT{OS-Q+dgxEZyi`szNj(7NhfVffVNZj!4>wuRh(Y8180&ZF!&(k
z1gKCCh%e0Dx8Wj>hKkBH<!|L-9bQck7st7)r=61hK2XkSLbg$+@4C=gT$J#H6U`wE
zX@HVA(!zmCKYy%(pLQEvym8@o>h;v4Kv0fdElarIQKKpzXdas$cuNm2POp3vbEn0p
z>b2I+^@v_&VA#n=9<tZz1y}as5S)yllN>}r8&&mwJ+u^Jc8V6U_zZ5sk%>?&9!{WX
zJ_#Nmfsw3~0eK5faxp*cSibI|neY?n&$c~E;#pk6%fD;8uZa$UzoT!X@$0A{Bb`G~
z342A$;f<M`E7AIRr4=?xqxsQ7Zt^3bZ*?D=M$fp)Ne+74AvRjUpFavsMo6UUI$%?p
z#ZM!kf^_+96bnAf90us!Ib~6DnH-hDFP(*liTrqSYO*xQp(!G&jWq|0ZA!He^C=Ea
z!oIkOKfuu50_z?V{;WwfSvz)_ZJ=>I6+!@v6e9}4hRw>e(4w<J?>RGH9m47BaKd9=
zg(1d_=L<D5I%L|M)yFiEoAFbL8!50+t5{FpLmS6((1{(_=&@C@ssQbnycg09@O%BG
z|4BWPuVkRJ7gQVR?ANv$eerPuBtNtJ0<$Qj*YG_wwQPAVwx9Pxq61kYI|1u+N`jwq
z#p5O)Z5lL^D)*0>Bi$)9yjgm{Z?W<m5*0{K*AkP_>vrN(g-&v<U5%YRVefmGl~9W|
zkUU)eyXUES_M7JP6H16HKz8dArY+Q&yyr2J&3&vKc2R4+GvqslxtR6S40NDPbEOBm
z(VwzqQM0mGXbhwaY4XxeV(AUW(P}YH@UOB2AoeEwEkE(IMfa8y3v<5ww`8SmrA*Ja
z0v8m5%VTnv5Sr896<uLs02-+xu54rt@W9?L$x!h)`0D&803&_QKr-SMi;u}TI}qEv
zGO7E{$cqj6;3ohD+xplcC^R_)ZBy$m^uR@0qhI!`(mvX^vTlED#lmyg&=Q#}Rmluj
zzZe&as+ts9a4+LWR?>?>noIos-OFRva1)RE^X8KVK#{rM5#$_a7RN}5`DPl(U0)5x
z7J%I1+;1{DW=8QL3|3aM8Qa>Ea6DItV)3<nU^r~L{4I<I=f+xs>9Q_($dsz3SA@MQ
zp`r}A-Q0jNNsEr3F1&`53&W-x#aJDV<Ep~SoOsL~3cz;Wtprvem|H_8fe*Tlxoh(5
z#YrILcCU}@u*@65`cQ7SB@Gl_U+?G1opa!j(rua2L%>W}Pbts0>SSw;$jBVuHz0p1
z8=cVY^GTmzPe4jLTL8+)$fvanr<GU<E|Dw{0rgqt<y^tK=OSIT_b{Vjl-hJ2IiDo<
z2Br4k^gF8|`~g7ymD#Ae9nz3D3tRotLcd1KGB#Qbst=b-0pYo=AUXK+?C1ff@Y_wv
z>edalDjUQ4p839B(V~xWz~*eJydnp!lNF@9U+$xy;E0&c?+jFc=C;cWbz!txt5{Z-
zC~b9z&fKdOgx$MP^tZ}<jHVqr!HNU;oOyIp>Dqh0d**1`)DGQM4iTd|N?a7^!+Z&{
zmjX6_B^;JP&A#BfQr@kW3f?tM8~*?+UoV5BxnjU@-?46^I52%VrPmk=HYp4KHUY;a
z)Wrase~An<Ln>U|f;(jTNqvLRO}5%}s=Y=abvQ);>ktvAa>@787W|ZXE&;>+#`f37
zUw7m{Td4BCKFDZ-J?WFnBX5oq0!kJt1BKI(&-HM>k)3K~fp#M3iu_uC0E1|<KUQKK
z+*Irr%<rA{b~W#fy`;GKoVzH@hJXI?oEs-&AuZxeheoYllP_(+GGqR^rT1f}K<&v6
zT=nW_r>T-F*K6xk=f9wRGGvKn&!X#JQP>jXDnFs4GVjhl$#HQ*>0hpGxPYZ!DmHzV
zU!VH(rg8GQA4OiQ3S_yDiRzK&gz)~bLSObYWoi4&MaROudq}RibMA*k9N=5i?_Cq&
z%4JNm&}{>mJs|Rais2SYRp%-T>tGAvW0!C0Z;kg$u4Gq+UYV+RO{uHZ@hUSi+t>4>
zBlD6-afAN2&VPcC0Bmlv#Y@<F6yy2y=71uH9oSyDMigrDch}x{WA5f%h)VUPnj(`t
z(Os8<1wBJp&wFAWI<frWTee^K1f`b0gDZa<3UJh~eNP+Xd*}#I!s<-FxFRu<?P|^P
z#57jOM&{o&$U0a$DxP_X_Z>CNDk0G|Kk%GXwEd8JTGmyk^oNG~8ylpn&FpIN`A4Ka
zY~L%=G<vhz@zDIslsbMs;T2_D!D{pNZa}pKDT>?A`C5EK&goH-3A3AZbW>(5SJpYv
zTiaItOV3*8g*6{7(M-;IwADNn4#mYj%T;U=oKmm8Lp8fU_A~x#UMsDSDxa2T+Xi~3
zj}nl%Oyk%K$C8Q7#x+mZskZdTPgs~Z8=|y2zcJPCUY%KS#`?w!>emdvvdw|I2NBeD
z&Ht66nxD8h<zJbUs&`EGandawbf!Z>b6fk5^LHiQ!ukCT=`H;hPG8$Yt>1|o;!=`I
zUWHdvOD!y<F**hD!Zi}^+MzWX`=T8eqFJ`Kd)I?xSL%LFSRaCrq*FKK3#ZR7mZ#%z
zLqhZBHC;1Q+l+KMR(yyhU+&9;b-yMi-P-(tH4VpY1;TvaU~|zc?vV+P_1r7#Ew-$b
z_4O;I*>*1fK4SmB<>ddpRn<vbrE`btspqsrP2R!Ue6YCqL|5+K`<6Sf1jj9hSa#ah
zMU|&p7$CDd_{c4=VPxy5Vv}8;Kc0|(z^7C1n3VF-7le5^GxK~q(3IOZ=bkvDlr!k4
zUu*04Y8Ix@vBHN?l^OGN99lPpwAeYY51r|Jyr<#nJ<;jj)yOFZy_G=II5_z|us1{R
z^%s7<gcpyosi#Nw{#>`v&ZehxiB9vl>U59cTVPSG*Wsn62?Stg%sDo8d#x%cfLl^5
zEpdW~==tN`-|R+L;a_Al$m32`Byi`8`?>UL)NhVvXlxrdQMqY{sXm2zT+9W~5U%w)
z0zJ_6pJ}?m6|z2;x8^S_BDTpwT3+X84?4=o27b+WUkzKmrat~+R8L2QV<Ot|?2RHl
zE@3+X0oKNYtI;KAFj?b(@XNiEkzneepEuITFMYv2L;LmS=C{<{jk+fXO+Qxw4%-q>
z`C-%D#q%NV2+r*^_gaW!Maib)S;^S)gTfP~EPCQQ3*KkV<j2cdQm;LSYgmT9k<pBD
zf!BN_Z#nzVrJPj7!Ku_j&Zv>~m5rJ$eb(ZtCcK8>tb90EDKzux-bpE--Kn#BciP)@
zfd{v?Y$P+)A32n-uu2nM_e3HD>|SP!UhC%;d*XXYtX!mx{b(`>*|lZN>8ddHTL}V+
z;tRo>zUhbGp_!+2o)^i%<(6@V?JH{=f}$lhn=ZyuAmhiL7s8bCGB3?e638wbTUz`0
zMN)#{3t*m_u6)h@PP8(^&+Vv1+xzTXt}*zXi+&}Guv0_mprww&QGQ2$SDy+uzNZ&Z
zVh!jLzLg-4wzBE%_bP+e|Ehf!hbrA1IW0<5bAVfq(kf>L!!#^RpO@xzT}32CIQDDm
zq_F5=3l<=Y*@6@XBFOb9!SFOuDeMAb)bRzgYT%;~7K&6$C$(xnHZG6qln07SvSWF#
zZVx>d*@MyPPcNPXXGj%B(KDWNlMlY2GJTwu&w;iH(kg$llRn0NRS$X-B^Qw;g#5?}
zumI?S(an==X+1m^5yq#TZ&<|}4ltU5P2Hm`0GEd-jw#)z;_}Q|>o=5ce?~V56~)Pn
zkpuD2oEm|%dTCEp&0A|&KbyTEyEo2ouE;<BQCQD9Q0lZM8zWbdlzd*HR%C5H=5t9X
zP{%96LD&BQ$_mG(l;X)#l66W^>ZiV%;ARbF9|^q1-VSs0`Vc?1kC&#URe@&&+-u03
z9q;>)8JYS}AVU;-F*5QUs9!9b-U2qgJf!LAQ9sOB!Ke*DG&Uie{*N))k}%)B$_^-P
ziKIKd1rx5SFrMXo2k=$;euz9_`lP&V#fA)SGc3>qffwQea9lmu`g^k`eFNm_ft;6M
zR9QG1w0)Oq&z2wEEiqutj=D=d_LG&6f^}%fJ06RIB9d-00W`r9jmhy#8*@80vQL5+
z{`00mtb>R0w3(IEljvQR2k7WzHL$ofs+|C7zY=+rm9*56si9c!$lcrLd{QMC95aT_
zPJF+Z+Ln`~8f3vQh~QF66{KvJ6Kd5Hr$c+Jfqb%V?L7x+awDBfS*bR7WQqm<Q#|Is
z@Qv)2kFhJD!@8pigQeYA;QrCD-T*tZqzCfQ_K;MqFNJn!AM~dlO-V>o&h|q3ErLs1
zFnzI)6@ch2Nk=Z?L9y4MZ8#}j=Bud3f;1gt{86%lmv-SvPWrw2B`n?>E2120%}qYt
zAwaw<5(e|33$*MOkLc`J@K7EWtbDQr9dxmcSJyynwWHEBx*8uix#G!wNh`omTs5|$
zrlNWM<o>XM2A$bUQ8(eC)@^OOjh3iI9B%XBgS`xzNmK|T$5h_OH;*Yp1xrdsrw`f-
zpb6huhHF~T@#$(sc4H+9iz|Qfmgwoin`aY>V|@0h#;URq17XvfT1d(0*$OqpZ8T*f
zm880uK{<zHD}=m6uXG2%5~7g!SwKXsyJtDe`Xp!XVmD{?FOF3Z%}=a=k1I1(_7ToN
z4NTB|(54k!23LLaQCBy9j}cy%KmD!1mr9OtLX(5fagev|U+*b3qLvy-@JNR!3?T6s
zqAL7B9}AsPjsqk4DKknaN@CggwVGg*(LP{iQi$GzjxvB<v=GDh6Y)nA?KRw4$=b5*
zM`^t`&diuAK=Z7_EHhlqrt>ZN->L@LStYOx8Rw3+GId{aOHChXd1PwUxut76{(1%h
zfx%%%jg#!vTNJgRuiASMXI(08hPm4iL(nU{tjIV`^I_&@$KFvv+Wqgz=#?{a$PLiG
zQ<<S9MTER1O$BWOG`>Iaz%xag$Rv&a0ZY4Z=f1aC$a{D)QeyE?3=6a^r9YrEUks+!
zwHro&I<m;dz^&3yh8;RZnxLLyh@v?SV}^Y80LA@6fW88QhF^ULx4;s747F?qZ*ft&
zgW&I2klCqBe;!M9n9rKltZi6{xhrxExyMC(i!K!t*5w8^OSl_+5c9O6utn@}P+{Lc
zAC89zJLsy-V(mTFOSsP?mr<D0$hrR{ue|p};~f{%NflIO{#Q*WUf*Ct7+^JP97<sv
zm`N?gZ?6QX@4JGqN4Xe3zw!q?OfN@A?Sr>fbUw2JHc$+;LvvbZ6Tk>S(jl(Q)?CC_
zcRg#?hK^u#xQejF%6VA4*lVwmfK$KB&eg)c>J<VEF@DjalL&*8UNQLliQrH+2R%sN
z9`r79RfPzE8mkaWaW|gDhfA3sL{fyq*qA<5Nq)+mgn%<ZvDH3?m>~;e;doabJ2?bg
z>6|AEa8`3$PK#LEp!KM5xCNeWzY*GV4w1Q+2!~%c5I)FG8Qy8jeGZ5f?m~qq{t)Di
z07aXc%Q`&bH*I0l$2Fa+$U&T7CDfI7pN|EgcKYURC0@$FfuCr8H3S7RYk41MSS0cO
zgE;Ni_9}sR7l>UMUj<^B-GstxAi7NRS9Y}dnOYtr0)cq)QhUnDBA>a&R8Zj)p!j=u
zeAhsJO9eAKfH{q>o@|4Y^*m<`xv9z!<|7;@D@f5oOd77fhiy4Dq?+B78HPaJVms`3
zPLPp_#ial916*ArGFD(v1@e?c2R6Zt5mwg(;6_sF_|Pl4@$s$x*3te~KWVEo7a`M~
z2FrvOa`v`&I^-OFjGc;8Alk=o4T2n#s%R%AXzI+QJ8ZAaz=3tn0!N@k6=-$l1V$kb
zyXC8ebPn9=1GH0^4#U(IeuOXbE7R|hjZvuPjK|ClzPT;}m9U}3s!X0d?7Iq0rWHqE
zKZQnqFxk%ChD^IGewl2DZ~hR~d^vf~-$|91xQ4cI$LcKeaA?f#o%24k$Xg#^-ivub
z#?yb@SA2^)^|kF>4S{Gx-Mmq9$^`U$dauZxFx`6Myn}?Tq~vg4mFwLf+Q~iVWh*CD
z-@|+th8Q6)tp;5YdDV8<*3C!gB|hZn`#k0U^J52`_mKS8%aT-aMwseOVA8>r-n2LA
zTMrYuY{D_3eXA^4_eMWlx&03{!j$r;JW$ZW<N4snx-d7TyUvNYGyl;e-wr$IwfE`j
z8ayj&n;-i%GiE%1GK;X4_TZ)+qWVa79Q~l%=mIxhle?6;Pmp@x6-Lv?(%LQ{KQXTU
zrr{^cRL0#UVFyD!nKsH5V?Qf*^2Nqv^WLHfSf$es&j{}7mrA8bf1F>aZT<EyvSpTZ
z$wPYW=M?kIrL|{lcB#Fq>3?-El(QV*+-Y%1*6aC_Yf;jqwbw{`%jvG13!=HB)|by-
zRAvxf56^uVN%evK4AigLC0-IrPM=YbU4FI?9p6)?`1rnu=5f2uCtv%Lk~iVi$@@{C
zj$7o{?r^Hzif+N0R0hldrp`=P-$cezLx4`bAvJ^|g%Qd5R#p5gm{qPVtTCzX`LEzV
z?jDtQQaYmtj|b>%wQo+z^|{#A#8llWHRGEa{T)B_VSz^{F$-*YF4u&`k$JT)oo-C&
zD{A{-j!UU5OGo1>o68(BtWmn75sEiXyml>6XyTiF)7Rm=dwFT?jAqop5MIMbX?3Vv
z;`b@a_2(JI!!|v)>~SP(u1~!SS*MWkdB34S^9oqrN=bZYeQtMabxI9-LZGCt_$t+2
zj2vx9)MHk57^*=%T_$U`25fCC{rWTTM!)8*m$TBoVo?3?AET%u5kX@6{(qfg|9(?9
avkOWTaFCwOR@D5x;xsX|Fep6%-S{7L<%_NW

literal 0
HcmV?d00001


From 47df13d4b41f7171ee54b4a6aa68d9ca3fcdf78b Mon Sep 17 00:00:00 2001
From: PluginRight <92850480+PluginRight@users.noreply.github.com>
Date: Mon, 7 Feb 2022 22:15:11 +0100
Subject: [PATCH 2/3] Delete Plot 1.png

---
 Plot 1.png | 0
 1 file changed, 0 insertions(+), 0 deletions(-)
 delete mode 100644 Plot 1.png

diff --git a/Plot 1.png b/Plot 1.png
deleted file mode 100644
index e69de29bb2d..00000000000

From 6cddd9e5550a741ec2820e2e73b0e9e45488f29d Mon Sep 17 00:00:00 2001
From: PluginRight <92850480+PluginRight@users.noreply.github.com>
Date: Mon, 7 Feb 2022 22:30:28 +0100
Subject: [PATCH 3/3] Add files via upload

This corrects Plot 1
---
 Plot 1.png | Bin 0 -> 3889 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)
 create mode 100644 Plot 1.png

diff --git a/Plot 1.png b/Plot 1.png
new file mode 100644
index 0000000000000000000000000000000000000000..4834ed86a72563cae3e70f27c1a72d5b45b63c2e
GIT binary patch
literal 3889
zcmbVP2UJtp){Yt=bVP*_5JaSgHVQ}w5roh|qVzH#NC`y&ks{&J9_9&35C~-`A`Afr
zhOQxEEW-~1QbG+S6e*zuj9`?KcVXUJ>%BK?{`F?=I(OfD_W90P`<(Ob@1C1xYi-KQ
zCBg-PKzI>m#`X}%5$eGWI|h2pxvVR|2gTOX!32ClAaDo-34y~QaL}S5NF)S_2VGzt
z4nZEc;h;sskw`caw0Jlg4M&5Pj6CcHqLBwU(4r3@;Dtsb(Rd^Xz=MT_hC|SY{n1DW
z`VjQbc03x5C!@)DG#RukJQ9LO!trRZAn|xI*n$V0EIgh?#<N&tG@Oh^lJQ_UgoEuY
zu#m|t77GFaJA;S=;DO@+4!T3%S&Bj+e8&;SmmQ)C)(W}vDOXQlZK5b@P?FeJedK3;
zP{}e%Y)US3I#TkTj^jS7{cpJbAyG<Z4MtsMQP+PY(^P6lCof;|A)sV-!u8uR!<Ms-
zVo*$?XPAH@AMoySohD3(gEafUJDG6i;H9~<Q7=b>FAc7A#G-UnlpG)2ox7*1(0;<8
zJF+FN-p#W$uW6@br^AJ`5=PA(5(;V_y{E#HK4t;sxPjT$|75a(tdmby$)VUVsJ=M4
z-5t%=Z#@HC`-7Uy0RPx2Hd2ELBJ^ZinE6~tw<z6;{jzF3{b!(4qyG$R$mbK`{FZOD
z_igUA7{u`A#Q&vt@2_GMpWWN@josU~xBDrf78vn95zko6p`S=DfrmV;VF+oijZHh$
z*|CCk$IIn^Hkbzr&2v05JKsvHK>eId7X)Bd(w<mfc{ks6EYB$qw%P~VWOL_?+Lx4{
zE6Q*6SdFf6@AQr@Td>u3NZp99wMxTWk%iYxUBQm$sVz)}7(82MC}@8e_wl^$u4I|^
z;hH{bBsFyexX~=9FEdpAutDA%A-YPV#P4suFFrpiWVkb}pj4Vn-HNLJCH1X>oH`+m
z>W4weujFUU6+M(Ki6|%!-`XzTMAlW=XK?PT#cj7pSV(Ku5KK+RKCp@2nfB|jK!iFo
z7M$`k_p7Q}28$*p6^~D7{hCuL-NJfdaWcDV$wScqCv3NIdnY4IQgbbWQdWNLGcnMm
zK|E?cdJb`_@G*C9Lo>&#E$>_WnYz+|j+Cej(RH2fQ)6F*qspzoD+(1`I_2(-ICLo6
z<pu{1E&_~d)CHF#qu!DhY1DNlJyEZJ(@kTb$s0EvjPbJH^~|<<m&c{yye1%D-|;Fj
z&}B{X!nd%zyoj~iK@GbKo6fM_`l)ig?+GT^f}~KdzsSBn;Aues>1)lVUaZKiLUYol
zE>1Z}eW??m3OoTW)k@sm2Rv+nca_13gQrOf6e?9<E!I{uWBawluAc$yr5sGCg6Jg(
za3Ep|6`}l@+bIZ``1vf)FlR9t$*8~eVT2Y7Hs}V)3DnE>fw?|@4wHkOMs*xyn$J51
zC!qIiK~-K%a@2;#hb>hJKE5gyk%9=;_`Jjj69n{%5zOPONB)^%1vIY#H9eGx?0XCR
zn~)E;$zwvK#Imc*OSOEuJDenOL(#vMk^iwKmFn+%6VmzwR*yt1E{$G#A_)eups3T0
z{RjuAMC-1<BD(th=hB13=fS=$!AkSJIUgoRnpL$FOm%P6TudtR(};qCz9pZuH>wCR
z^Fy3h?)iU-MMZS(+l!)Y<=VTt4Wz(;13Z%l^`~XzKZ5?f3Ry=mab10ZxiG5&nwEAh
z_zK48kXls9Lrej~gbAg3Wom}kzt!@~eS1Yq7Z6lDn8%XIfv^SeVy_-YHr6`atzQ?W
z-15<FFUEe9YDz)$CwX9FlLZy6Yc!&aL|2u5TZZ53AL4a8F1>e3!^3Dpp!0P*7f^NV
zLvi(lh8tLyPd50GgS6U>YJrK%IWb4PU4SpUGLGJqa8A;d^MQ#5?Y{Nv&0ht9R2cDA
z*uX}u<%($G_<N8rWyr>u2Rq-kvxL4Qxj#xWcpm5Vp@&<&xhF?J*LYxqKoQ<{eR9o@
z5(EyEWStGpQI>8Z(MqcRwRsF2&MdNYuIx^h4rRdtCVsAxinX>|56)Ks8Co{OFS{6$
zuLQpOAk|QHa=*>XpE-9glraatAJiwMBdq7t?s!|-`B7}H541?z5sW9xBGj03`01_0
zL@N1xBuJR1^$ohuxkjqMVl1zw@s`*bH>;awY4qf-i%x}l4M#{sTRy)=dXk#-Xh_%0
zgn=b3;DSB$i;-4Am3w@UVW`S#BT06jmf^|YN>$|~#l2ER6cj2%duXk#;&@@}$!Z0W
zFZ$=>ZAzd!R$ohXQV_s=y9|myi`s=^NJIG_f2u`PSic24`G2}-ndh_@bKk-k%rX&~
z<OV+9Skq7y2lsHlX!pqL@%ODhWzjI}mYZ%k<xv_#NQ5MAJ6B5R<Hc@&eg)1Whp@y)
zB8EQ4tP4zV=MW;;z{vHH_ofba#cZ5?x=4F4=oi$>B&wwSJ><=gzwOo`g*#FhZOTFb
z@$8AV#g-&zN_IB5H-}Oc2Jm}ab9#>QKiHi^2L7q9=2^!ATIhw-l_L%**h-$g@(TrE
z_JkaA8ry01drn^z{Vz_Z+=(OjMRGu63?o#&Z9v6g+i2}V#i!YVtMG`|&v8?+#&s2B
z?#1Y~kQ8ZX3<TufUsPBg+YL#P*a4O|yIgMOq|EQL<1kq(w1bE?S07L{DtTO3*G`{n
zwNiL9%(^HlFd+lV4F1jVj!zjZ_(XL7EDW~5mEaBI!ODH=5Loh&WPZ2EgVnz8dkml?
z2`Z+)0;$qryJRB8gn>FdthyY~KkxckQec9kN!w{NcEB*yWrhDf8&sm?-*r|$KHwNA
zY`v=fKd_Ab46bvKa>`QO!(CQv)@#%;e}{>4>eu}^Et~=T<ztQ<xBe5~$6|6_fQ{R<
zV&*Y6(z|a5b(r$-CCt3x<<MVVI-Td>0x(-W=d^4ET&qKbIuiiu4{;4<d?%s8EBPk3
zi_f+?{{LMw4UEpVMiWP7kH_wVqtnx9He*a2@0nWD4Lb#cn~c-bI_~jWBzK3&Cq?D^
z7e$LzoKMA;K@&L~BzRMc#vtOV)$GTd|A>f<vdq`ARK4OR+oH0YXe~FHcvib%N6ePK
z{#1NI`WISUY#Zz78T!x;Gm6EgJyrE(b90|NyzK^kZf;L_DXMm=qhm)!wU}rW@&{sF
zkPQtfzg%%wVw}+DcV?koDfsEC!WU{lzt=v8ziAz>wOW956*0(Nsd=R+QndJ|K`FTc
zw<Y$8NGOHyW~60u((^?<hs~(}ad(6E6;;;28bfa|ow|j22EXYxfZE^O^LSBRI-;^q
zjW~r0EJ|nVU?6hFOtID!@Z_{$ewoFz2QCd-@8zlV)lkLpt$WOVc7kA^^kYKkbAtCR
zM$<Ha+8ev6@*=Q3J2(|lGK~x$nWL7WBjC?nNHT^wxL;E)I{k^0@4r@|O|Xp%@N87_
zC??#|v1oo79*1|@`uef0li^TR`}m>E=H9HWOw5;19Jg%7ES5U7^^{=PV!lD^nP0}A
zndqWbWv#v2_=1u8>O;?(`nxt!mnEhvSl~Jm@H+Tdo_mVO%di`RGIw*z6VmC^_le=c
zcz2?D<<#WMiyymw>Z)~(SPlvfei-LPcXgdq#GYJPysKQO71e!xb9cdecEdlQWpKVT
zeI%o5emOmd(77rg&e_ZTAnv&J1h3u9!=bfx<sOSnEogQAbE4Pa^RJ#=C2lyk0{VcH
z1wy8rJmzBBQ*_=W`Ux@OCNveRxFTDLDIB-)6f~WjK6;N`pR-q_RjpX#wZ@NL3sR?o
zPF7!Co_UlsZ60Qnc{IC`)PTxM>-;i9d8{;xcrdH^J<wj@gVVKgTUFD0+q~SHnrs7D
zQ6J`4nK+jQJ(3VgqxKCyO2b91)4JzF%`l^wc!G$wS@29Z9#F&ftVp=G6ZU4dyz|b*
zQLYPY?k<)$e|W!aP5YtZD+lFVD<?uUh`ZmKQ={tApp%`6PQy&KD=@cX(C#SI<2^;`
zz3_GGJ#(L8H;i7-qME3UDUnQQu@%pxj*_e#$1c>HKX4po&$!S~Ze?}!%-9=G_1nY}
z%H7WV$7fDH%g+*Fg!d?zjSq!u#p$3Dd)f;%G;Q2g$-8$#CKUY>^Swkrtju2>Diuc6
zm|oskRhDnuq}PaFBL}IBe@?Jc`Sv|-`b|yfm=7>$=~_FwmEiVZb*)U;O-$P6nyij`
z3{$oJKF_jAOox`A68nuSp!ii#W-Wz2^Zt*2WcwW2V%?DyMuAxezrF|)YvZ4dJb`}z
Da$_+c

literal 0
HcmV?d00001