From 5ad984d1ce8d136346246c1dacdee1cfbe0c3a27 Mon Sep 17 00:00:00 2001 From: Ian Kibet Leboo <88654576+StatisticianLeboo@users.noreply.github.com> Date: Wed, 30 Mar 2022 22:35:34 +0300 Subject: [PATCH] Add files via upload --- CRD and RBD.Rmd | 81 +++++++++++++++++++++++++++++++++++++++++++++++ RBD.xlsx | Bin 0 -> 8999 bytes chics.xlsx | Bin 0 -> 8677 bytes electricity.xlsx | Bin 0 -> 9100 bytes 4 files changed, 81 insertions(+) create mode 100644 CRD and RBD.Rmd create mode 100644 RBD.xlsx create mode 100644 chics.xlsx create mode 100644 electricity.xlsx diff --git a/CRD and RBD.Rmd b/CRD and RBD.Rmd new file mode 100644 index 0000000..3c4201c --- /dev/null +++ b/CRD and RBD.Rmd @@ -0,0 +1,81 @@ +--- +title: "CRD and RBD" +author: "Ian Leboo" +date: "3/30/2022" +output: html_document +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE, message = FALSE,warning = TRUE) +``` +#1. CRD +##Example 1 +The data contains 4 tropical food stuffs A, B, C, and D tried on 20 chicks. Analyze the data at 5% level of significance. +```{r} +library(readxl) +chicks <- read_excel("chics.xlsx") +``` + +Set the treatment column into factors +```{r} +chicks$Treatment<-as.factor(chics$Treatment) +``` + +Performing ANOVA +##Method 1 +```{r} +mod1<-aov(Weight~Treatment, data = chics) +summary(mod1) +``` + +##Method 2 +```{r} +chicksmodel<-lm(Weight~Treatment, data = chics) +anova(chicksmodel) +``` +##LSD Test +```{r} +library(agricolae) +LSD.test(chicksmodel,"Treatment", console = TRUE) +``` +##Example 2 +The data contains the amount of electricity used in KWh in three towns. Test at 5% significance whether the amount of electricity used is the same in the 3 towns. +The steps are as example 1 + +```{r} +library(readxl) +electricity <- read_excel("electricity.xlsx") + +#Set the treatment variable to factor +electricity$Town<-as.factor(electricity$Town) +model2<-aov(Electricity_Used~Town, data=electricity) +summary(model2) +``` + +#2. RBD + +In this data, there are 4 blocks and 6 treatments. +we are required to test whether treatments and blocks differ significantly at 5% significance level +```{r} +library(readxl) +RBD <- read_excel("RBD.xlsx") +``` + +We will need to reshape the data into long format +```{r} +library(reshape2) +library(dplyr) +RBD_new<-RBD %>% + melt() %>% + mutate(Block=variable, + Treatments=as.factor(Treatments)) %>% + select(-c(variable)) +``` + +Performing ANOVA +```{r} +Model3<-aov(value~Treatments+Block, data=RBD_new) +summary(Model3) +``` + + diff --git a/RBD.xlsx b/RBD.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..b02a80bf8f7e5cf0df948ae0807e8e75d4773baf GIT binary patch literal 8999 zcmeHt1y>yD)^+0$B)9|!?$$_f2_D>n26t$@3GS}JT>?QukOT-W!QCxL;}YE6-=5r= zZ)P&{{epX|*Q#gr>e^?O?0xp>b4pnb4jvbP2tWn^02Bb@gDgvZ7yuv^9ss}rAj7^9 zx3_aPvvW3h?e1U()?; zcV4QjVo7omehY=TjGH(z5RKF3mBF zC3Qu)a(zowQWM7#6__Ken$J*h3P?imh0^?Wx)rn+jjuk#Oo^%OmxYwq^5pC!jAZyu zCl_v`i-hsX?~SM7^@5EpW?xD#!_tmN5Iv&V!@8m)0DCs@w3y35uT7){(KSiR2--@RR2LP}_t?ViE z&bZmIx!OB{jP30~zxh_Fx}JR=FRr(N)g#<$mhma+q%%BBRT6(*@r11bW3(=?i_!2q zw?eV?!>xWoY)!%#J!CfQYBzlid?+-X=`-hCb}SKW+GLP^1)qkvFQ;GeU}W{+t)~@d z^-A(4qN?em+-aKZ>BQ`N-^|bTZcUqaV*o#W)*-1+6g9Tm+*MR3K~JlYpkXS@m0A_;8UO;6%l+n5>Cw-trA4Trs{Gz!cdYd9gSdl%N@ zST4JW4saaNDa@u*p4jTYy35@Rn6F*FK)mgiYQOj$S06 z`9BiQ61JeW{Qx5NP`KCRD9LX+jL5>1nd0qL1ZV=Ie2CElt7ywQF`J%#xc0Pr=kB8O zHF?pd02FI}lp0%E(*_fkB9rqSbpBjuFSZqIpn%8(wXYcIpg^X2uB?V?b z%Xsr$(+i!ll^)(Tdy_9}I$=9my%?tPtHUM8SLI?9V4x+TbJIT7l>9?(RSIiZ_sFY& zcxj{z9*IH1WCK@*5PxQXR``NgY@!;avv6^X?vwA7CPT=r_9cG}5WhlLJX6!Hf8kC? zW)3^QtkG%>mdYa6bu_vm)_O-&9c|0#DGh~=8-Bmu(#eNl6UppdEhaXwlgQv#!SlB+ zXVqknWGPG32W}79mdWT?J36r^Sl`4ns}#fGNo`4CzuET{`Xo{k(0d@TGCyUDO)B)a zxYk~|p%~VvH)x8VI+!MF@}Tte$iRLfro9u9`J=)va$(1(Vv%+42tP3%-Eo(^<9n)&OXHbaHz-S@&(2!9L{+gQ&9vqya$fWp#XyY(CH8yvhjY|^8jfC z9PGWF-I9G&jC3$gy>NUlb2cvTk1Ki_qR_lTN{O@j@enTSVc=U1Yw##(KQwO-RIU5n z1gY(n1yt46lBYA6Z#>qELoN{C2e^}sof4tQ2%@_K#B=B%*+|g_H$wXEq`Ywyot#GVg@fUor`GsD4|iW2Z(8y z)~Z~V?VQiDic7q z`w)L%gJh=^%SuFU1BNKkmsV7q7tdQ)!vrFO&w6H|Sg)M1dq=klX^o0=3e#mA`b5>xJIi$E^M z_%>dK!az!oZtL{H2}->$5ys~!tONy}q!?;gsOpN5ytiBhHuYO4r)uqE_nJ5(JWDVA zkNlpo(@{~gPA{>XWJ&bEg+?fHu3@$fDqS@ad`CN@ zz`cB@gGfnZeAqPB@^B81y{l~hlLS9^iHRz9LFAYrUyKC-jO1J0FFv)4M!ndcsL_tL zwO`UE!ZL^C-{gC>tea$3q%9R%v3GD(4c*^!)*DPvD*T99;qF){kWcs`hOxGB4v|0Q zT}TF{bLtn`atc?nVTKeCWlwY4S616rVrdgpQkr}Bx(&+rN(|cc=35XIdHVWvleI6l zP(OGH;HAjpxWlJo39R`Q5zh9n5>td_b`e=1ds;|l27`x*V1xo9)br;s!fyJA+Kx9U zP29T)+ZR)Dza|W8iKr97d~D?<$DMfV78lLZO%BiVJ-!DJnS0Q(T+WMhT_KD0j4b62uP+!X0Sk@XV%%U_uHu=2)?AjJ& zb}MC*z>L5mzc6{`x0L)(nYIyNep5sO0J_P4>kRyqsk5b-tr^?T{ZEDNX%9sb^We4+ z+=!roUGHA3#n3D+kJuzEP@85Yl2q61sc3L=#5WP+z|!!YtJ3Eeq=?xIC62#@LvKEd zL7}eNCL5z0nxQJ&pw6(7)p0?OlzwRb`0+B^$K%xbc)U5)Lpl|;JwDmsoAQZJX4Fh7 z^+d8Sh?kzrOX*c&6qXr^-8CxnogC!7j}w+{A9BwO+_i*FZZeq+AA}LV3ppgNuGO5^ ze~C7#=T$q^d;A^}(!j-3e5L}`GD52OEBydtWlwJo3aUNyBw1h2PfbcI>~Uh~QS?ii z#T7KU6>A-pVqw8sst2SLb0;lhMJ;yKUv9WzDuW9Z#32NE!$24dqHW0PN?Q$MD z>g5f+w8p?E+ilk47A4PyPSgR1Fu)I1m0D)C zuM16S6uGi4lAdq56GAhAjBOu+O>0>9ngLx_{pyRb|3e{FL=BK5KS|FpT#H!s!p*p| zPrl}kDQAj@oGn|(^WkXwG_*y?_iXFB!=SRhno-UUiAGKBU@FGo@&2A*(V*qwXy=$` zdy?+By|d-+dLX6c@tFU-e03g=?VI<>$#w$4lK1(hQVi)FgoHHph$6h==<|xnA#J3Q zKgR7bj7U}|P^>flCDxWp(ZN73to|GFo%Xlo`|S`Ct!{)S!4}YL1KDvs^}Dn$QWXgE zCQ&YguKdfz=>tbc4%zYx38(epjp3tlpaWLfQo!XVXO8Bo>TGnm*$?yx?C?U~wsEzV z3h^k?l1A~cjcFl{Rr&Jpvjfa8fngIg;!cJ%s;pJw#$f~PX5>M0Cqs+2Upk6FQ$k** zR7TMA0Q!V|+UOpzWL4Qy<&$84LHaGybe+S=w@sS%GaI#pM+C#^jR|v*+zvU#ZH?DQ5^}}~xy(c>3xen5<9j=OXfY@x<6Hw}2)tru1tf&TNt7$u z=W9`F+V9ON>k!th(-Y~!Zp?;BE1IIxn#l;91Ii=K<^*eIs)xck1^7=tCCxPwsyRn> z6MEJPgSAGDI0rWC$22JolSubuOPP9y)z32xVa(!-LEjmiQjnR!#So?nC_vCC1o;UX!9qY7-h-}0R*8LNF3Ffd9+uhjtq$>};P3A0VEw79 z$J=7_34P%&X2YPgQ=RVfi*r%yv?eeAe%iy6t!$;HiVaSR#Df8Zu0}CeZ}_IMC?sGJ zM5TeQ-Wq0@@+$pBD)W3I70a3x@??=mS z6;It_q9+tB>Ps8aKcOPTU%N5rMvJG&7H;VX9WItl?)q%KcGXTnq@SH2G?F(bR(VUP zVt^rrt8WpcKbxjC=BzcQypxivBjvd91Zazg=eBXNEZMvfDmo_`Vos8{X@d8$Dy=E% z^ONB;DUSrsPiZj9#%!GAG0tkU4UX>CZ>@@(CG%ORqMW}*1IK{@1S`w}L&>+=-3@7> zlN?I*#`VNboIBA^u|SfPbano;v}&WB0(RHc*2uMtR9v8IoGrqRX*a}rs>wG5AJpnx zh-9+uu3U|hi3ln~B@+2{6BPRq+2c|@6FXT9SbUSvxyDF7*fMGQVG8T4rN3k%%W%YW z7U*^3XrroKsW++~|qCcPu! z+JG$Y2RRh9n-n`DzJ67KRBU zbFpelf?WtT2JXvsciu8ST{etU(Z!h9y@Am+8kKah`qDGada$;^G8Bvz87XftNKn0U zv-(YU*30n_i#+SLx<5zT*2Oy5yjqAJzF9GEbniQVuzuN_Lv)XY@-Y&@qh=~}jJYX0 zyw#mUx>sU65MHDo zMQt(M{cx-3qEEtKGv*VnxH$nHSpch!XDB|YGU;|I;~>!sCS+INi6~JBX%WV2L!;U) zDlQt0FmoGW{?@nDB3A}My{I!Ar0`Sb?s&7AjzCc}&mps)WS1JiR?QvHKa-AL5p7ge z`4EdsjnTmnm&hbY&TM)uLLQ&KS%V_WLcDX8j(Tt*gfCU8J8z%J?abn5O`u>I-e75M zJeg(^zj#X-vtBT!F@5mFA^bB)zcR&n(^S#YT?%%6nnDr3?zAll(j1qAui7>p za$BA*%X$$gaPdxmUp#Yt)bo%!yT_=)Aq>^g7|#=SxmPWAggx)cOiti^l|6ZLfDEzW zO`WfVJ=%h_BM1M>n;`dw?}Y(-znwpXQtE=SvxN=crW30oLE zqy<;>oowvsd(j8tf2$^gk3N{RL22v&B|Gl#bhb2dGBZ_kcCxaw_{nP1*s+Lq=zw8~ z;4Tz+n69CzO&y)HOkgTPUX_Q=l`xkU@z5L>tT!V#Tt5#s8eG9bdfO8&{sD1E9pT9* z1-%>)+|ohQ9c!Z(iOvKt&|e%xS(i!&{@UaMv}>o{lDJ<+m?O9m1w^0x&c9SjW}qs_P}NgXRKeuBX^V1q!0R@=`);D^ zz^GM-An2?@sUPI@sLZVLJk)V7H2i&#Bo|#Ddbr&Zq@v{pV(2Z3*72y28EoqEf+8E> z9x);;{s8rbf6~rK1_d)5N;@oQiv{zqv@>#W_#f+_bo+hFj2E?s0MUXE;cm##7Kr&4 zl+pZ4jbCY=l^emt*H|bNn&ehehn2?dO~=%XP0o7kM6Y|g-AKqRknkIv#g26;hi`nq zMSv#;5nLp>%`E8o;334LR3Edyqg0zY4PPoDm#Cro!8Vt(&XBKs zymOvtmHW`l=9$F`_go4FY+p%bQ?dg&@{7roZCv`oPIV20+Qg=> zAy>&aAHVV$+Z0{-lrJY`Mn-Jc7#dXO<*_DZ)>?z2Lth~6cDupTEFtbZA1tqmb|k9a zv6>1jNJVw_b+gs{aAk{$m??WkD}WPLfe4w5s#bcXEz)%t#RABUw@D2#;kz6LT}rY^ z!x3zDQy9V;t&liw_QE|_bJI=;bPn(x_X3X#?3eMYxm~QD9N&Oh-0z#C|F@ed>Y75?`W h_*eKi>0jW#Cq!jA1nAQR0G>cUeo(KDBmeE&{{hXwsPq5; literal 0 HcmV?d00001 diff --git a/chics.xlsx b/chics.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..5c24696de3671cd88d4098e0fcb8a7d428ba1521 GIT binary patch literal 8677 zcmeHMg;!K-_Z}LgJEc*&LArD3Mw$Vn8D!{Y=u#YMkdQ8=OArtQ29QRO4iTvVq*35E z-tXRZ@Acl_U+{fr);jN*bI!BZI`8{Dd+&E|T@5sJG5{t38vp<>0YHcsPF5%YKngkl zKnlP{HCF_CcsqD_TN?&=IzTLW{oUOdU!tS37XVO^@Bi=kFP?$w)M4#jej?>_wI7O~ zd4P-ca@ZpK&;b%oJ(=#l=lzv-=6TM}w|Vj3i4+RST^`htj4cKU9({1C_i%59#`V9^ z$4iVD>^8EZeZcpAV2`bfk{ae^_VA#9j8;y7+S)q#Q4S#UaZ9hhu+o}5u$sn+oI)mi z4t1G7CZ&^LX>UQ!*`5J-`Unk>H1b^?c4L7 zrr2v!F}riGmJH-6>4-nzgoc(4!du0D4eTonC&tm;<#Rv4iI`ODRMO8h-L>ZJT3C`w-Wg;%TNkcQBq5VzY4)p$$+&v#gT;BzD_!Mr^;#dX@674US(Yj= zfZezADQ8t{d7%b;g+*oRNU4r!jMsz)hqQz)hC(_k!mMBG;WFsr70Qf)!G29lZOem# zo#$gYVYBI_+xW6^;+lJtS>%HdkmILU!Gms0rtG)3+(CV2VUi2MG1URKg3~awM&YC37Xf__aC)l-58=>6hVo@(g!-pQK9n@r%^?NS zfRqp+a%TM9`24_Lt{^bj^=I6wHnIfg@RNn)H{OQ-(C$J176Gg*W-=@GNSJ>WQeh~* ziq2&tw7^5s5bwl#5I;A%u-BdYdKQ9YmU6FsZd{_hb3yv!d@>gF7?PLDs)AA zU#33wo)lZ#s<48NVPWFhIe5#QX%?61BL%>dyijvj(3>vJzL9Z9Gc{Gwp2J>VSaWko zucVmOh`OYG@a~w;8*O0hk4e> z`Tk3G6i|;>X}*iDJ-ND=`C}$HGu9_bI#WrUF5Vw?xXH5!^up&gchc1g`}Ffs8mCfZ zCZ1YiZ9L$Zd+}w}PVFtrc1#uxy(t`V|Dg||=@JW-Z&y-Gk6Dw6g4*)^2`JhFLj17| z?lQk*A0GYmE;U=uG#0M=zyXda;bdLHQjo?|+ybESW-CZsNxJLcG(|{iE`Zk-wTWRf z8>lVZNoEl_b2i=OQbqG!kkkgWn|)J}S$v2HkCr27WW|9ie25>d27Vz<=#6bl3FPp) z$L-k}NcFgmiSTuYs&?`XA%Z2I_#k{W#!x7fkG>UN>oaGef!p5zC%3bULV-1kp1etZsX$DDL-&Fuu&m>=PF`9`5q~FoE8tt7>XiLPkRq)D6x<+ zC8s(VJO3go6lO`=<6&BNqPFpA$+~%aMZ|sYJ+>&;?A;=BAMTDUvo}Hg26Y%XbNdmM zWxfO(?swZAD@GX!0tsAY+07lgDJd-Nytb*Why!~aCl9mUIplo7XV@Yyyb4DL`GAk+ zryqP7@AD+dd8;juDJC2=_%LCYr1>cutIn56LCX*pdwRc-yWVB5Q(pz~Q=$dV`Ke0# ztuA;h;<$Cm9`3zeIoi_*TYoRlm)Ez^Z8$)8xOOY{#pP-2enxNYNZfP_jMepG*uf+{wjq(0tX5*k3&l7 zzx$}x*V5?YC+ft#iRJgp@g*nzx*=}k2QG*W+920Qx zVZirXgkT+w^t6YoJb?r~kksu!5(E6<_yZa?XupOYs)|8MvbVEawU0}X4Iyolfemu! zk%@h|U}vL_Eh=SJI%%7X5q25n_Yrh~jNctXI?mz7&*4{5275Ko#+DYwY>r2pw{40G zXPEiW0EUTUY8-Vb`~bkj*J&oMiyq}O>~9@E9%%)Py7m-Z;ce1YY0y`SNC(GwGsX_8 zGK6u!Ae%3<-WVOMc`JM$;^5B?uB9D zfluHEjE9mPLcy=j1eY%2Vd?K4f_KMN1s6UByM*84!{o6Cpi{x@};NL_GFhYKA=!yrIhDgLrLXy?jyOKsn}zklee>= z`ySL;#yiFL#8CG*`p#?LQ#`Ma=w$Q-Q&edk^HNaCOubZuBO3P)%Aafa+d`(Mn|nke zGw>FYy6|^Y$DT?lG!86r%%@y6sLcBa$z~QedXt?WY$IuekNUB)k04Z~<_~<_k1qoA z=rf{VQx{81sy9By@ai%5&p+-RP6P~p{b#E<;Exn!f8ujExQN3gcMl(;jbeEx)UA~O+P zzK+SaJcHRwn3P#nmplIMkU4bxRjL}PXlJ8K;`+-ebgDaSlTliBuvv8Swdw$!;x)TX zWM1+6tqjmeFJ->I4X}9?EW4EU@@F&75Ld(fG z5iqIK5?wV7>pLO4iX8aDv7F)3MmAT|;t9XeV94mi14_#d zZ@$t|Vr_9-^@SR%@>T-vem4c!!-Y-}y437fy%@lIarNjeOKe{dB}-3b+v9wdqU`p< zL*Du6E+j`~9;6Nj<9&#;wt?h!H*jd!v95}~NW0G=f!QU%Gs~G)K*s`W)rNvRgF+ zAwS(p_v1^S(DqPzPhtMSqu|Et&7zH$sX<6-!$iBm*l}k;!`W+qq1*aZa_BhW#~U(0 z@&Ny2QX*pNpt)UIcEF`zZ*u+3?AMtpOsiw-mDRF5zza$$m^5}ciFls-#Y*B_F~Pw*kl%t5!JH|+9wIxPWv zzDKPgy(1iF#R(QnC!-CwXk60isj8CClMV9ycDN1iwbr4RmI%0jEVp<$%vs9AHCuu% zdriVZ&fAW+_*S}tfB1Ynb(Wev;tRc6e-G~J8j?J7%hH#C9|=c(>ZauO*r%GT9Tah9gMNlZ@BD_+FE7f73jHhPLFzZKFd+{%mS0* zEpjUl^{Z!HB*lGYRDhVSn#_oL_d{ld5F^yFK3y)xw4mUjmU(IJ^$=0`S=CJCV$P%W zo@eayTsQ4^&uEwxv64ZA&AzXFn}nK7tcX*Z!3qkyBdmHYDNfZiOt`O^3sro1xy>jj zw6;UjDvc;+3jr>>)!pyl5u3&fr=5FrfM&zE_4pA3U)I{8SDK@3j{?p4E38mz6HJZd zo^7XpZujx`@_ty+sZxqhV%C<$+9;Sbj=nWh!H}El_{v-vh#x3OR@G8iFyZv}sf7ly zcnQAnL>lzo=;HFtrwmge0&Qb55;-JTs-Zx83^7h5O zlkXgTS|Jz~RNH8et9C9gEbgn~{cKrD7Zh5=i6+KG_avy-WnW=p)59X zcU|Box{;X+Bf3Hi`EGFIG!IWs>wfJoxVu*c8jdfwN@8^!?Z5f1?Q2CR(L50vue~(| z8C!zrPv&UfX|(J2su85KjHVJW+DWL=is_Oe@4;i)Ew3yePjK)b<9-WY>C&iKz&&eq z7-0(6740?O%En-7UKCW{PxHux@->OVB<8a5>ym97>u*xXSP6PLo~3e0F>>2q$}+;T zx0-Q)JhVF(*|>-^X$qBki$!p%s5eiz3#FD*e7lniXgbRdw)~y>>F1IO<5|QV&-hoa zR`nU)TlU&c0V=4UXPK07a5fU>C69r{I09}1oxx%{t~I&JB_3&L0ukllp7n>@2bG8U z9gw&ogYRhjhAk4=@zr&w*of2%}Vy>U;B{ri(_FodbD|3 zTu1QR7%#P96q{k^3-qVAX zDyitirdm{b90>cF?)t{3jJ1hJ1uJ9hIqAUjn0N@Y#XA9DeTt{jYj}WI!;?TBDbr?EMNxmm)kUr_l!z z)r@wF7lpGfLAC<&Y9U`JW}Wa@S#Df%iCwoth@bn7b+Tq1R84+Ib-%-AK!%APz}Q9- zy;$n>g6{|Qw_)^rQR~67zpfZ2U=)iX;Y|6s%8z~Y zbQbz*Bp?5UpqFv9^t4Br-J*c`p%vX?kO5wQsWbE*0@V70DKy05RlCu(LUYS{c)gP6 zkO+U3_gQywOO#&;iBx4XC3jZcQ^Z^jYTpMY^Vf)c(jRXSHkN03*zX|DPWjix9epi+ zm#7ZJIQM0;uIyp4LNr!WaUD%|V^<5_A%zkIw;5E*GV#}$p9%a#ik@%B`J>ufB90lJ zh5RcIZPjsz;*mTgMm{C_D-UfwJ^x2TB>#Rta$)k|1%ABf1GFm!yd_%kC0)FTYLJ@A zNv$mktl3ek)UL3eHLm*E-t5!niRn*)JISAe{I8VMm*^y{Pf{k{>&9=sB*Q?bb)`H@ z^PgL?3?;{a;WQly$gw>MUstgX*3Y3Mwf73gP(`m+(nvMdf9YN*)M_JMJK48Ly)Js- z;6~%PCOV%%fC{gw?@0G##1@&(*d}8y?K9G0z^^H~dvW;KPZO_trX{tbA?70es;ogA z+v4Jy94msg+wYIgwt~4sKT_M6{Fu6F$9X2QBoo&= z%-`MQ<%K&DW-jpLo+N2p9p=JxQj?C_L)rH~l6U}xFt^MYJMr^T*K=h)RW!=2ekL1K z+cmn!TZ3pfE~59QB>RTNj|TaVw8a)8z!H$r2Ub}+SNDVNzOjGzEZX3-H`*~+?Tx=H zw$*HajN!sZ`|?W+?OhrCX=$+FcP9I#?Aq9?nd2^gshf?H-qUY^dZE0RmX1PfD>wBw zxPQ1&6jUB$Z20$v`X9^n$M`SpbzP0W8~A(c?+@V5F$1ZIzcd1W1^(I&`4ifKOvZj` zj{FM#dl~spC;-rd^Beg8DJuVJ=hxcepO#LL6ZZdA8h^F&YbE4QD@n+L4ARQ4b&+2U z{F;XTX+W3aHv@krrN2Ud4f%gU8L0mQ{WSsj)xzIn>7RH202^7^`A1~^75;Y@_*Zxe d-Cy9pJ49U#4CLwp0C$kTaAfe-Vfgv){{T_J0W$yq literal 0 HcmV?d00001 diff --git a/electricity.xlsx b/electricity.xlsx new file mode 100644 index 0000000000000000000000000000000000000000..306d1af6db0797896f0b28396428fab10eacc202 GIT binary patch literal 9100 zcmeHtg;yMD^Yy^s?hqtE@BqPs1q~1^xI=KCK?e;E2@)*069{ez?gPOs1P|^I+}(eZ z?C!U_?0$d2yWMB{In&)$r@NoJb*pc+k{l3$0DuHQ0RRBh0OQ>>OMN&1;5`BWfDb@{ z*L`kh>ttr@WT575Zw7hw#LWgw^$`J{F#`Y(JO97sfA|R$$Mz|-vExXdNnbx-VU?XJ z7e(RO@$bTWtStPcJ*KnJL^s{a>MlLx3P(JX(3-alZ(zoQ^Pu0d+}5VrKe)3&1tZk2 z`-{3h882H$*EU@<@q=hb9qqjg0y0sK2L=Y=<|%+ghnhAOZiz)P*IZD)8s!YZz zb&i(_a!nA%TCOoe6Zkpy!1qwB*>Cem4NbfcUviU{7rZ+z)aiT=Vs7@-^L*XR7!i7` zbXotD(9(caH(k_^+JATgpacr7Br4&w9q?)wAr19lJMH+(p6kpO_ZJ0L*mZ?LRVXQw%a#hN?}b?7iy8aSGPA#6{6ZvTVh z|1bvsa_hy>FBRL^F#`9buYQCKpDuA1hvE?k(p0;a1SVWMI3qu%cZ`>EC|+#Gbs0MuJ572a>(1x` zjeJ~Go1ZDyGfyKmav)KLGw?){6cs;*Jdj8z$xo;ArS_ch`6swBan+rYz|tDtjLn#V z6rb_<+zm{TV1D`S;UvOth_S`wC(mv$^~nXPx~e6=RjF~hqrf9~15@yqBZ-t|{2NbJ zh1719N8EVloC7bq=rT@xbSk+I`qJFnc~RSny7znhLn-s;U<~z7khEarZs`L703H~X zVZ)w`8<@@2&Jkp6X9xPpTgB?H?6UX>ybP@FfJeU_1)?y-*B0ZV|lL0D_&=^%w>@KmRpx#Pk|-Q;tGB&01g<-=VEt6TRp z-ApTtcP?}`5?%2>(8<2CSv23d)DsmfUEDI zjaE+8-{0v3*e)&d1c5>w+E*2*pZtXOl1WHc3a2|&t}buOmP@sU zMX*p~oj7)QKkJ@s84@Z9V#cP~!?v5(XtReZV>qrKJG^(XJ1Id6=rPiozE0eqb1pXX zs8R9DOHs7_uGPg^qTP}t{Skt!)?auB(hHvoijQodw&%{R(|7rdGdvD7(K#C-N(l@* z5nOQ($s_m{Nm$ABWwAbmNQ#6%O26glrm>PL_Kzh|?1o?jMn~3I)@OZ~G+k)3Z%s;O zMtd5mai9q>l+E` z4gIVF-D}9ZvoZ39th9!1U*0|yapAZ~&Ni)?yM2LsTG>;dR%|p-z<)*dZ&36Tj!ig% zL9iaiSEK+GI2aUvqpZII@(=oggH@9-K>u$q#VRl5+SzfS=(j=at|=~rxRXw7kG9pf zuu*y{nWpKfxxA0($sX6g()upP2DA%w-|O#kIpe`v0^*;vFz3I+LwJo3-V;Q$>p$uT zq8RU#JoJBoh>y3uxmC1-j+G3-uM>{$W=SXD`*F@l_aG=M_mRYL-Ebhc^*45BPHV^@ zMK3IU_f@X=UcOP?F7dCdsi8_{GGD!`dp>=N^ugbqa_Hy*s?0M?cfip4C^hqWi{vTF zVdJ&=OZRV}maI#RRq`UahlM;so`FtOLESGXeVC#ls~?jZ)b|#h#IJgpnx_w0`i}R^ zS9-d}=3z7a&+P5YjUxR6mc1o#000u$8NX+5h^3jC6NK&8!0|JUr^ZZ2OtIqx?lGTG zu*@Sbi&Bx{YLF8-?-f=zK%ahlqc!1Rof1>nbfq9}q`8Dt65H1P(C6;@)b!AeJ9)ds z-E1rMQ2zs7eh#Y|v}dF5vwEz`Qb0a>rVS>)kY8Tp$Y%q390AZoB-k<%GRIw5C>u>1wgH__bCW{KGCM@X&(rJ_hly5(LgnQW`gP~ z$9ryk(!+=bQm8)3l5LaGFOG&B$%Vq#j<{vIWE!<@vPNVw_uuGhwu>c=JQ(-^RG4%c z<{2#V54gjLq53W&7J%XVC^foTWc<7Bbh`!lCe5%bDyvF&#%U>_1R~G{zRSaJ!9ko* zUo`Pl)^(=1nT>*%EgM-367mFA6~On>uUFW_7W1*T$ZabT>~_e=#c9yMe`sgC9<%oe z=X2Q$cq~5lX}80wH3s)b49|I~3Tq5r-BC;O{9Q#on&1R1dB8&9*CsYW*ET>DL$U_1 z%-3H?^x-4v@N!&{3!SF+?uF1`q-cR#TPl}*2N`(Y3jb{#VRWC)xgyqU4vOJrsC1VVx>Gw{i7T0*{ z4f+rv7Ckq2150FPbt5~(ZWH>mY>~P5fzIbr4^i;Welg#-zUn)7qpV}zP^H2Da z!i~cAJ~Rvme20yh)taSZ05W_W)wwBOR``iz-^6$@FyA+uS^mw8>6DiuVrx5n3hr`g z?QNfh|C@O0Er+z_suAXHtMZ)hiD{4!s*;?`@8`$Yp=Hy|-C&gvRjIJ&8^>tTDWl7= zxF!R_{@3x=6`Izy5Gma3TD266@HEvoRDC&9rk2~=$j{T|syY%)EDYIK>V6$7=$crF zNN4jXiqSP$lQ->#6r_JY_%b+QBAQ--mUf<5=DOQEjdvKGC7y>74t4&umy`Q6{Z%(a zBU80=J|>lVAZKa@5)RcDONS6#F4hfCBvHa0>J^qae=Y0seTFSi8*`Jm92>=Uhu-w7 z1p75}B;qkHDWVji|pL^iJv_1&)m>LjMJom3;=Xe{Zu7>Jr$*6!*I<|Z7n%p{uoY+f-Uw6aaxAk!b5FgGXl~HpRYe^|VdUHK3^kw9KuV1I1xfVJVobt%Z9!?~ zc@|sa83YEpZR2t~`bss&ASDSI$J)RrZ>y|b>!t`zTh}A-=P&}qpwUbN%I`6YwpCQ+ zwI1=V>V)lb3IlxMRcK|FdO9!^2T{svLmBxO+NbG8Q1I*m@#qa})tE44)z3c*``zZ! zysKvC%#M3y7@|d{a_VN>-XmXq&73jDOU0Hh{ptZgE`l2tP`R+jAq;zS9kgdt<@NgrBc;4$|O)-*U zYMPuPai2P*Z2!}u$sT>EkssF80h~x$JG*#$v?%VnOa5+OH@v3o^0{$v zU#l6_o2kS8Ih)UI`Jgc&Pg5Er*mbab2N$e%_E|nr-d5q4;NYQX3N>Bfbo6O?LH~)3 zR^s(LrlU&}mN#-g1cFXT#hTGDma(oLzG{COE$6sCTo+2h6(!^{5w7$MG9@3~-R@0~ zMJ*ZS8X!aL896B^A@rPFshne`2DQ5N#{5w&;)->0EJN_6**A)^#;_zPC9#u#X{g!M zv+9Ye{tzxffun-BsRj~Nr?5^Ej~Zc!)}Rqr-&);}<|D&6if!3q=I(FmC#i;TX3>S9 z?@W#fD9mPO2eCG#7IqH)ZbXbBxbxW;q!P2TulQC|)n2DXV7*-6fnTLu2_0b?M_gx* zZfKU-3P;hlNO(=O>-ox_+1sw7%g|s>Xr~F`fv5EYs?(a&ejH_x|1+aN6f_LtS^r?d zTRn-iA|3Ef9(A3s?dByU-+}xH&D`%PUp$#iI{a#qo-dl{odhvx?*G5 zDi?L^ZXaStgSe{~LgP>vGJF2Cay>(xHQcvH=gB;YEHkk*tjiAcA`F~Uk%JgI&&_7P zq`s3sQFG&>&oIdja%Lv{Fj#V>aO4&lKB8bzS6rW5fQ}e_;l`vF{yaf8cU?zlZ?0r? z%X?kTRXYKRadL#jNZy=G*_lMy085-e-{Ot_WRlj9lh%;ZWY*v~u zr;2d)VRnDwMHa#S_$%$s`lO&yPQ^OoIx5h6QC;GXs~`a9p|J{_B~eaSp!8c*{bYYz*fCF0Ogl;53Z)E> zgaQTDcyY6}wAh%DBSL&b0~|N|Is8&e38PjoT$c=cEyo+*4fDrF&gB1 z`Sf*2k(rW2aWc6jbL+{o#6sXHRB@JePlr8Rs4v|0GhtgnTO^w+qZSkU2Io9Z+Sksw#XKCjn$H@xj*O1+0+)y!_7_KsT znKl8=tQ)HDezE#}_0c`k7n}`ylT(3dlbFBJFT}|mYzFyRk7ujffTr1TZiOd&a4vUy zU6xr;tNVsWmDW2mD7K4?`$F>d!)PtOb>3bnxagA$R1bNFD6EY@24*2D!zl`Al_s5z zC7k51-jZ;rZ@w#f8Q3gL*n&Z`m0y@Y_|D92fTgKtzFDqh8vV4^>?^ge($hBGwPZx< z>KRU%ojBV>f3~Wp(E=06m}TKcmF2hZ323p}n4)5tpHZ=xUWiadC$Ckb%CeGeo+qR4 zo(d63mFvye#Xfan^|dB`X&F*)X>B~3WD-4h^(b;BXGmjw7tKE86G*>2!D-D@!O~p{ zer23m5*2khbV~3@HXD@#+y(XIQv{WyO6J(c0Xh8g?OK+!H}(qmKQuyudsVN1JNW>` zH!|t*I+g+C(#UCBLhodsO3bLVj0awoCd)oK4G=ty(BFBUx-#goN1NVdRAwKH?qE#l z0l(0#`hI{T3vD7J;HJ`!3hFOIW_VfaBVmUz`@(@!K=ksBd;RxZ{~qD9<@H|G7Heb) z%z5z5rW3Fkv_qc%A&)SRtR#Ow2ZM?M*vpiJ6X|`~JVre6DqM{jePg!>qfO}WC10{q zcMJJ`V0ag07UqOqpyVsB5bR)@DdKF!ji_do zUoMKqdDmhQ1(eH@t6PQAgw4;vKE{N0W}fdZTV1D4a2^OxW9t`KZbC}G32BkAX(@x; z0)6IKMZRjfN|JwVU1dqstDsF}=u>|$Z<|o0&VjwWe>%Pn=hk+zH(&JZZD>^~{6ka- z2?RaC9*4aa zk7$*-pYf%8mfP!bwu~tkWr>@x1tUy16Np8~zCZdPcKfg51iZ)>KoKmAM`1sL-^1C` z$kEJH)ydJy*5X%GOGJpFwf<~w_`9N1)D%3CpbbGE!e7@B7nl--rP6|_XkI zBG~56n~9yH+3)SU z{{$Dnu}+Bj?(Iq5m`*i_!6d@izoBt#ZX}ec>0y8XF0}7aG;4ENU0Tm9rCWhN?2Tp-)E$D$iyyCeg@L)e87ZqLVA1Cs^+c21TD~ogJZ5ti+U!iZANpw zFg}R1*rnvzG+S#G>}rrJMWHIx!Tlgr-L8pbdyr08zdZJ}KD_xT6W+n~q0qSVz=jDn zJB}Z=c+dp#Di73WqC{EDSiF@FbHpuyg-Lrbw$atZ=ft%o(4Rc$E+z2^V~9mNdPevD zm<8i+?|t_f!bk=cCj=ICxG(_+=dV#`WN-gp(7~eZ_a!x2%x;<;`y_TJyNn2rjzX;$^N$W;tzean$yBWcASKVB7B#m3_Mj*$ni}beGy+E6idj(YN&j)$>gdvML!-ku7DXEb4hfHAjSU6B&AB#YvF-@#QLqj;<)wy`4c zJpMATg5MaNf9_qn5SJSIZll`Jpgb$Yw7|-UfAHvi k^S`ISznb$t{EPYT2~kN75jML302*xdg;Dh>)z5$b2mZy})c^nh literal 0 HcmV?d00001