From 1dda04e6d70b86cf346973ca6da4ca3a631f753a Mon Sep 17 00:00:00 2001 From: jrtechs Date: Sat, 30 Mar 2019 16:01:25 -0400 Subject: [PATCH] created graphs for fatigue over time. --- data_preparation/createWorkSequenceData.R | 41 +++++++++++++++++++--- findings/Fatigue.png | Bin 0 -> 23769 bytes 2 files changed, 37 insertions(+), 4 deletions(-) create mode 100644 findings/Fatigue.png diff --git a/data_preparation/createWorkSequenceData.R b/data_preparation/createWorkSequenceData.R index 2fd7fe0..f202b22 100644 --- a/data_preparation/createWorkSequenceData.R +++ b/data_preparation/createWorkSequenceData.R @@ -16,8 +16,6 @@ averageWorkLoad <- c() for(day in dayList) { - total <- 0 - daylyActivities <- subset(RPEData, TimeSinceAugFirst == day) cat("day: ", day, "\n",sep="") cat("Activity count:", length(daylyActivities$DailyLoad), "\n", sep="") @@ -31,7 +29,7 @@ plot(dayList, workLoad, main="Daily Total Work Load") slidingAverage <- c() -window <- 7 - 1 +window <- 31 - 1 for(day in window:numDays) { windowAverage <- mean(workLoad[c((day-window):day)]) @@ -56,4 +54,39 @@ ggplot(data = dataTibble) + theme_bw() -write.csv(dataTibble, "cleaned/slidingWorkAverageSevenDay.csv") \ No newline at end of file + +write.csv(dataTibble, "cleaned/slidingWorkAverageSevenDay.csv") + + +################################ Wellness Data ################################### + +fatigueData <- readFatigueSums() + +dayNum <- max(fatigueData$TimeSinceAugFirst) + +dayList <- 0:dayNum + + +slidingAverage <- c() +window <- 21 - 1 +for(day in window:dayNum) +{ + windowAverage <- mean(fatigueData$fatigueSum[c((day-window):day)], na.rm = T) + + slidingAverage <- c(slidingAverage, windowAverage) +} + +graphingTib <- tibble(slidingAverage = slidingAverage, days = window:dayNum) + +ggplot(data = graphingTib) + + theme(plot.title = element_text(hjust = 0.5)) + + ggtitle("Team's Average Normalized Fatigue") + + geom_point(mapping = aes(x=days, y=slidingAverage)) + + labs(x = "Days Since August Twenty First 2017", y = "Teams Average Normalized Fatigue")+ + theme_bw() + +plot(density(slidingAverage)) +plot(window:dayNum, slidingAverage) + + + diff --git a/findings/Fatigue.png b/findings/Fatigue.png new file mode 100644 index 0000000000000000000000000000000000000000..4b4b205ee2a2ad9ee375507a6c6524c733682067 GIT binary patch literal 23769 zcmcG$byU<})Hez!sdRUPfP{cBbeF);AT5G4!qAOK4J{%)fOJWhw7`(c(9$);(A{}Q z{XOsd+;#uHYXNKKobTD^bN1PF_C8-CHGxXFI8-<&C@8op%JSMMD31UrC}<>DkB}`Z zsy-^n1{6&-T?OPAFNU|?iqWMX1sW@ct#VPR!uWn*JwXJ>!*>=_3K2PY>d7Z=y_=g+yhxp{baczJpG z`1oGDc)`!lFCZWwC@A>yx>FE6j4prELzsHCK%tgNh}qVnq1D^*ohH8nMLb#)*RsG*^usi~=@rKPQ{ zt)ru(tE;Q0r>C#4Z(v~X`t@r=Lqj7YBV%J@6B83tQ&TfDGjntEH*elpSXjJ$`_|IZ z(#p!}-Me?z*48#QHnz65c6N65_Vx}A4vvnFPEJnm-@kWuc6M=b0f9iSuC8uwZtm{x z9v&W^o}OM_Uf$l`K0ZFazP^5be*XUc0RaJlfq_9mK_5PR2o4VZ`0-;%NJwaCXjoWS zczAe3LBs;cVh>YAFG+S=N>y1M%M`i6#v#>U3)-@i9C zH8nRkx3sjhwzjslwY9gmcXV|8`0=B&v$LzKtGl}!3WfIc^z`=j_VxAk_xBGB3=9qq z{`~p#*RNkgLqjkaY&4Gc&WZvvYHE z^Yily3k!>ji%UyO%gf6vD=Tm~e06noZEbCReSKqN1A#znZfMU9v&VY9UUJZpPZbWo}Qkaot>YbUtC;VUS3{ZU0q*a-`w2X-rnBb-QC~c zKRi6Zt4srsI)Lq>Z0Lr9g4g}$7q!p1*a`)O0Yyb#M%Np%mx-A=A%F7&v*%+Jz4qf0 zCDO-)1xBdUWXq2_r9NVP#47%9orCs@u!QNOHVOJ;R8+ettdAc^3drrW^DkUYI##b? zQUZy))?SIbzgSwV;x8`5-|~y43C|22d{!%Dc#86YZ`1w&1x22j0S`qP1&;FJ@&D_? z8x6?0vZZW)D~MV6F*}d!=7(|#P1|yer7&x3N4>I_y?W;L{fEjr9u^-xV{ZKED=5Hn zj(BTMyOFi-r<AiDz+bAA*n$3PsEP!pP(Yb!9ec_6} ze>K~T3@h|Z**nX7}WIBHI;I*TkcUJwZ+_J|03sAo&&CB$T zSMvF59)&r{H}w8JC2*_TQa&n=(G*bv3CY6oA%%}UNAClw+=BPWivjIz$C1QULDFVW z4iH^&O32Zb>>gjm!>5{N)N*ZT)B5vX=RA;A(xO79qU8%%Q%8KmR?p5-@8y0C9mId! zm;#Y(o5x#(XB6U5u&(c8)U@tvcqLc)Q_hYyMA&R9F*4D#9mv)jl(RB>j(W2^C!$9q z>pL{a(X2g8ZkrW-q`5|n$mGR}@Gu@Xe)-OA!R!i(JuSt+3;zT_jCfgH6}0fde(950 z=a?rYHYC&t;&Eu~r;Lys9~JoHYHSMA#y41qquhmoYHQZq9~8`iwAY8L+)nsyn&mn` zEmOKECcMCtW^P@GgsrGb=}mD%zz@kwPar#RD#LR-{*BOV{&SWElGkMo(v9_Oan6!=?pU6R`&q8j7kMs`w(HjMs?A_`~KSn`nk&lm5AL1cN{EG2RrPB%XS4)-A%5D{DP z-}IgA&%#&?UU>H&y)Tbko#V;|1m9q;DbNtvJh}E2LtniZk$9Bs%uj~-AO=68J_)FJ z?_(m-z5lE8=qdu9x*xbcVJCC!t(p;`9DCujPBOWkLjXFIJ>?)o*suYM;Qz6^5)koZ zET&yMLI7ls9=$qeMBLYCPzsoeeLDM(%hllDhUKq=S1XtgFdklzum_rlyCzSzu%@SHRq{q;Ubc^UK5Kln=J~!(5p6TNAo=r3aH3v? z8Cfs&D0?q_(-TOH7`n9&!Ei1ie^Ph&$>}3>)M?>C{}<=Fzn|V6=$##y3Ap^9?gibq>ZB9SlEf))JH~aj^oDw0W;^4e<;gqvld1Kc=rbe$bAws6 z30LhKQQKVPvLiz}ZhdO5#pbCF%>MN+uU)brypNneMxAvvv{fpXQI))XoI;@h&6>H&ec zN`M|DVcShVynP}PpTyrv;bPf_X6d)z_R=k>pZxK@-dLH!D6Y9aEoB{2(^>3|ln`o6 z@hcsSUJ|Z12YUX4lMB=guJW;f@4zAT5-|r!|9UTG6t8_!0?%9}NFMGNvC<--`Q8H7 zk4!)G(9BIj%++zR#L9CXie*?ET9=w&{R46J6wlodOCzSushabs+2(s`L`fd|R z%g%Xp!bsw@yfpf>JVQQSA}uml{0IkMw$#B3OlaEu&|uZEs&}-3VYRJ~JY0UmHktcc zg2*B;{@3X3wT^t(bMwIrH-$ZPAh@<0_B&^VN`FX5q}uQ=$pP?CtbFQxzhH`TY_xLf zH?CF@H)$GPhPcNJahcu>aaas-0ERe{zkiWUPyc`KupqE8kH<@#;T>%;thG)&#TJLJ z`H!z%8PYAb;XH;CVnP#s_<&qR_ka&?a7`VvAxTMj8q0)5ylJwQf(K^kXmIc&xbku< zKy0z^a#+TSqb)!hZG(Wlnt-tA`Ty?ki0!_FW>{@`-(>BD_ude>!XP37cE)k64nM05 zGituorhR_alu40RP5GBmO+;KbPEQh&NFtw!aDWK06B7nA1QK;1K8Y{dl`CIjM)a-6 zP_L*0%v(J7rtZP@Ea5&UUp;tGz*IagQMHb(uEARs<)*f)s>iQGJ|}8)ilCieOdi$Xeo_%ELdPv%Bk;T zNUIn&92uD)AH4uz`g&w+cYf~)Y^_r5tF~Kw{OTEqUs3#eP3_JYGEV_Vt!hbUIo&-Vu zc2KyzpYjTkrBxS zGN_VsajH5mYkUcsOJXYVl00cSYxo~Xmgb1|t@4I_ADLKg)Nd58Nwc>!=makp8#H&wpzqq0Q^X-9{`^4U;xwKChdP6@@0UQ>kHxC$2fmM z5fs3GF?&qb;!2|Yr2y6j4QABS{`Un4;-C3Mi&5Jg@^|U-MSxVbhu}eKf0X|jJc1|s zTrnE3%J z;P}T3EiPDIzHGCJCjVdMk;(5#YvAsqd_5N|5IhixN9wF@?Wp+IM^r$q6`0iYwOMl4 z@}UYWYKolBFf}D;+OjDbY^5am^0d(&{-ZqovDQsYh(YU^HSjPs^dF#6uDBQfKK)Q-5-IOW#|ZPP|G3rw9o`pXaYk#_=JwshVNh3A_02|2Ppz+G%yI1 zK8iEK%nOQzS%rfCZrBtggXQ`X+THBY$Ex?9{^Qw1bmF2sVd2~OlS}9hzSlLm{UmY&SiruZ@Dby>@mbD) zkJUxjR`HSA5Sof~Y@`m9Y+PAxpkn5I{3kjhoN+d4D)riL9vR-L8E#U{H>$4;=6#ci z)A>)fL^xsc<^1JzBJo~hJ(P-+N+a>TPxmBT3Yl%h!OW;&OZKchxOl$r3H)7+P!^BZ zi^1tZ1B(TQ?%*H)xnN*aZOtc6IVRIg^^_aR_1yx$Nr9f={{MRMq69Qv=A6E5$kL4b zwkJI3E4}pnNASr1>D5W`)%2{nxBx63wUar-p3vEDkRqrtWkdeM{|v88>q+rDA+gC; zVTbzf_|r&Mq7n1~#W8#Afa1@RR8Tp?U--XC-zpIz%SkndL_PiEjiw{L&M;VhwXKqmZ_O8!SV^@n>ik7jXW@DyxC&XeCDGKV5iI2B55eopf?z5hH^%%zxAa*~B&B z^)igM44n@tIVjL-V%~3XwF@Eq*Ka>FTfV)}!ajc#{BLz(dXPIaP&$=OKhs_b*W82k ze<-_*MfkLd5i+a8LAmsCRkX-h<1d|GlcRms<%RE0U)+1w`J~V?BHiL&Xb))aT6UpX z$}jKTMMx2=;Pr55!F*=^1sd5cN&I_FAA)AF|;y>aE1 zqOv(eYH<>&5Ec8K8wh?Z+&XIXKWL8%lFT%qhWg=udW-1Gi2y1o8l&qXLV14$uf47! zmiTz}E@=rK@AVSu^LenVxpgS_C#|F6Uq1TVMaDWyvmUp7>ZL!h2ag92)@1Sw7yVrL zum7|pqlo+3fCWk1Mhvu$?dfX5qojXdMfu<4tfiOl=BM(ytu)Kz5R!R!1wQ%k`hL#RB{10e5_3qnakJ-%oPO2LB>LJGA(@u&;4cOqA z*=I#rNV`=^gB?c^J|O7xU-@jW3&HWTNjjrmb?&>Ncn|?UFQ)__6?g*L+V;n>z{DD+ zfm!86;t`q!>OiHx>q3(_l{hkN5#k#9(m&$ME zh;oAhF0a4?m(*$Rh$n&@uJXCi^^&|M8tMeTBT%adFEzL}{&4C^5Sj#7m*Q`+DA{vti@PTA{5|>%X?)|7Z4^!9b6I-Xl$g|9 z{aJGJq2_VQsrio=A(4eik9v}KdS*t+S7SpqCwDVTtOD!0BlzMbd1MGn^yUQfO~(yv zlic11>Cr5_*(LXzaBA)~Bl)hEi1L2Y->&4#2Y=f54Lp?Vy3?`1!e98 z`42#wi9@Zc>^u{4o1&a?&gb#JF#E5~8*-6Cw5AS%RYhTmZ zzD2A088Z{iVoj;rH^9BpmVB%Z;i!Pzvi@kezq&@DTe3(j)KGJ6ynaW?03zIGWDfHt zBxEnj&j#GD%4E8}`GJRY1+CA3s=oZ(Rln?5V2`9e2O*?_z4YKQZr7A#0Rsnzk zkv0iQ8;|y`AZlQQk5ds|=e^J03sTQ0IuoMoe-2izkGsDJ46R^SI(zMs^=o@Ak8>E1;-?XwkbRmicH3k3l*S@Qw);k3!sI^R7oP;&Z(^@C% zV{>5y%n_UlIR5w%0RL`IbDCulMB^~efOlU@B&#qG*uhSzAP=!r*Br%XSwICrK^*|f z8Gu}vR2CPsGiw~Paf4-34SlW2;Y5d8=aUJV41WaT`t)xqNtcpyGWxtp zI89FQe#(DOXe-7m=3zUNt;8dUKyebP!-#kmB$aL+rSD zgUKFWNr`Y!h;=Y@?35FMGY;sJ}*G!EG{ za1^mQU=&6?2Uu){e}#rdd)4=A@EdWj$dJY_TCfAwE-l$ex2!g*)jcu?q?!QT!L_De zx$t`4!I!7g##!j* z#td{l^GAG<34#?I(1vf1PtwiKOJq`k9S3SR-+Z=O{4!X|Y?0jNEYYhm07zW)oRe+F zAsv}gK&ph%<#K!qq9-S$LC@@Hfo<$KTqxuQD2Y6x#@+NJbd|%`zGeNi_FfV*U*ffq z>xhp{56p;8JbKzTcANkFzU4#gyCpT(lz*XY*jh=le4#i?qIp6x+_V)}lKm5L&^s4T z9T0pHCb7#|ivt}+MFvL*ZII;GqD#tFs9zhy+Q`e0`;|iYsb01d-gy1mv6WByJP)BX z4G$hLeUFP8njm|u>!7A_!D?@wE@{u{Fz4vfS_rS|bo(UaJJ2wzDYDG!2v^f;KT6G; zr2;b}L7ekTEP1(GBie+}v0C61b)5X92;Al#`u0%4Re#6_08Rer!Mt(pP9RACYB?T> zrs31UeaXzPjAQ!)NN85iz;^TUZXtXGq>(k1l^|}jJ7kUyKdcJ5wuJsGgXE=Z_w*nbJ3d(hrxzHN%`L3|kam{R~Jn+;CY=ihW? z{3E1k=)?uYTImyQ(v~ggMj$l;%8q_$h#+ z7glpi{cl-oPKz(wKLB!O0(oU=shB5J%74V*fbf<)loHvzzKH*#A3lSxiB~{YU-qj_ zruoI~i;6};juSufgJNm#yySF!s7#G?6sw&ZFJT`5j4Bt4KHM@WmtBW2Y$L_-JMSh3;(Vr}r^`s@T^giD9;hMRaJ zRis<7H+JZbfp99(!qcg!?v3Z(w!AIyn4Y=K2X$-hM<5pDD8tEsjR|IKLSh>+>=|Zv zq|40;5@DB;9Is*x5}%67i({d6J5pI+^3$0d-0ba5L&o7H(kcRW)oJ(Mg!9pkfa6SA~=fQqx;3{Xhaq!N8C$rlk9AvEnI{y|cd@qeh5Yf2% zc5SLumW-JV)^_TDC18b|_f;i3{5e-Qz4PETw2FwmW#xsC5aYGBDq!qI;qS+Zzp$&Z z6$cPhOuDYkyL1!`0fMqnYWmo5785+nm5>4F3tYpfXk1GQdh8>|)YVl+w_Zx{cs)oq zu(jjZ_!j>CJSt?od6XA!p4G}`K;t=y^L~~M*97$4aK34Ws+pjg3#O$VaB8@Tbmb6e zukcr*D>DLHu>&&@-+rD6ukv`!6KAR8W1gQ7Hn{k!o)?=hIG-SG-J1O*5nE8Nn-KLy z-;B5u;nb2XE;2Jie34){GiEC>6j&C+2CvJ9zZPSEjC@?TweQNC`bxN-BS_pJy8ALL z>%ON2#^3QN9b5}(_?D0{+D$;91SuxKTsSR1cFvW~9(hK9Fy5<|E;z9^{AE9x{IcXk zioI+SX)$xMP!zd4)j^*am+9+E!;%X_291WI2GWX$_DGU z7C|0-x|m?`1%&onQ!)~-pq+M3PljQZ@MZN~6S$JXVdg33r4?ZUMT!p0j0Wx=#$tkfvi+{7Gp*NH+{Jxy z*!MRbbb0j4@%O2p#uxC(>u$<0>tRkCLG?oHe`$LyMwpX>%Z`V4XY}onG!4>GfO2Ia zZ_ADj883AS@BbzDUy2C$1yXIQ=z_<;9aR^+Bw~BgI{laS^P^8WLvPU(g`$xb%78jE za4GhFsJR^VPa5jEg}V6Cg$B}gk!*nmd8r@6O}pVHhG)jP%WMpBtV=pbZ^^D00l>a_ zc6)UE0ieQcPU~Z00+CB1;H37QS9;Lw(y{^@ff|th?N}ow6_5t$vt)shPnr9vzt`T^ z!uxJ7yBUM}=|zdwyJ{zC8V6BMbGsxIEhZMAD`qI2Bs39e5ppYQ38k-A6^Z~h@z=m| z=gsUW`>xC}obf##ET>2C&^I$*2TD*?2#F92+2>jRa~DA3*kSRffLK8Spa7FB*A1aD9zRwuY2U5?lkf@dR|%DbX>KIzfuYcnS3$5m8ssr#>!qfknPAj-mcN29 z$HN)Rqw*o`o>5xgbHv$p+%Lg}tQT31rxmZQkSc~1*F^o zOVx9vJ{LEl5F=5iL!~XYTX#zJq%OLo2cbD`y>=`&=e4~eqr`2CBCTM~^wroN3Xd3eb=lyRvxSbySAPUt{o7d@|N&z3su@|airIKk+ar}RhTrQ;{zez^WO zwjl=ojLw(L!2QKNG&xp7B2pxzOt^{Ge$Do_*}T63>Gy{*RP_{oaRVA7M$_*|UMxB& zKx*p=OY0WW_(mCkMkfNfN4YvQ3bay;8v-hW=dEeCm8RN8^8#22g@FFjkE18tnO`qN z?u)0Q0OkD`+LM2V;RU)j*tXh|_GO2@YR;%-6SUs7^Y@j{CO8Qa%BMbTeQ6oGYC9(R zP4B^>gDR?w7YMp;g9zNsKOQ!G2&V{YA6-w`B(OP=V@`f3Kr*7VC(ZLBXi!SK{8ibV zh#!?tn;nZLir>Po2T~**Gqx5!qiol+o*aX>E2tmIlNC307DO`*-pcEO^D@Pe=EM-f zI=hlAM&B~Y1$%_X>RvP~cN^bn0Z1nyaW{5<3B4*Bpq*?tNO5C>ehS!Tc)h6Q%hGX4 zwAtoboo|bjG+VNwHiP7WYQsv0pAs_>Sp&HCfdt!4Qui`F8SA%%-7bPfTR`$Dc2jiF zXRgm}mr3RRY8sdK^ESDIB)%*Q0oc1203urWw+umx*nX}yB)KF5h*q`XWlFAlb^EM< z4U?fAWhvJ1(vJM1HF8CzpJ?x-0-`h^ki=Y@N)%tv=I#9Ey9Vv3C}wd(;hl#P2mVWj zwk)NdawEruou3AS<_2#{t8K|_q6{GAQGlSag1$Ppebi>E9Y?4O&CqWgtjQxkJcAyQ znWiyrtTWOpfoGv+knGLIGc;3u8wR343Ezt6Gin$9ZDFk>mq=e=XYla2w}`40DO>41 zN3BJ^0^uUH>APNLUSGhhpm^wV;`Tj!xvfXXg*rXUJFzAtEcK2vAx($N-wChdZWmYU;+1*L zbURlf&=K)$_d~BPf;<9Y;sH14Y%uY&$}UywjM<(_*Ja`Lxt(&e`TO!HO@&~?yKj+f zpeX8fVYcR;(XV;)-^xNYc`G@paS5Ub-=9#SA>ude;EIf)gWHSa0wA_hxFGISTY8X( z`#!e$p4-L-?%M_KZ(tnI?4(q|e5u4Ge^9G93tq3ysZ^uQ5?NpNH(Dtw^VMeGc6m0~ z(kwf!!cvh7TC8}0UA4!FLB*GjxCiE=b~;)%#CD25wvQU5YV~q-_aZ99-z&*}{YTL( z`y)u)APUGmGV3KV`~6Cg)9_ZE*j>oWW>#}F4A9{^FXmlm=FF8yU0a*s&l{rp?akVb zT0;LU7g5ef&}vxYYQTDl&8PPRDIa7YdHHx}9E;&UVDv-1QCOqlo=cZw{s*Afe&F*s zrGgIt`z~erYyW@M)@D{`+2ik^RSYL(TrSWGw;3y|kfH0(l$oWQcK;@%uwolOsASHR z4xyQ9YdgNO-;N{G%f1mPL7i!ugekG+LnDgjQHXeySkzpZoMHLWAo~*CGv_iPXZ~LD zxt-)zY;tPh_w!Ce>s3V5i*Tn1A8EfZszp9oD5nM92%W-QT-*3^$ImXZz95e|gA<-m z=2tB3b*kMC3n%+_?XBeM?cTXKIcH(FsqD9Gi;pHD{Ba zrG~Iv7a2b0LTLh_#y;^D-cJ?z_mhe^^J7#}t0vo@Drn#I|Jq@e{8Uei(qe zBAOmO%%pqSIl3)F0NR|W&0S@UTH%F>Q1Pw3afi#x)66d8qsO&7#3TT+IKmDL=~F9L zN9TjfUP!ttn2r%Wn`#DJ&Oh`UEXEvgTYit*K({`ic8mqr2D3fK(-DvAK;8)X5D%bT z>l$5C1~ZSHz@#Ao@gx*v{us2IlTM|sW_8n*+$9frCMWPW{=02O4imdwlUw3yN{M-s zDzyfgb^1=?NGAWV`+u zQ7k>Ucv1+IBc3WqBC?a75Zd`2Q^F>2y`Qoo&qrMhbin3?MtIQQ0A4738Q@gZ&G^=~ zvyYZ%5dip$=bL2ek)%>avM%u?peL`N3%Y& zTR^Q|=_xzP-N^1)M*59@%HF(z{LB=sExlm4$*qTuxA<|S8~BDdf?-VtS7OV*2?JU8 znNJbV2 zI^XYXGCN$oXYcY6Y+`oScEBR?fU}I{n~fFpI+dDbh0UjSml*F0SCBk5O-yV^vvQdZYt8`1+R>k~!+0FM6Tur#u z9Kb(?i1_{=k_>n&fGrbEZdR*yKKh{;ibn7NM^Dw{Zj-|4H^VL5PCf(rAy$3fx*5qzJrjHJSUk?-dX+|d&w zY|OP^Nu`e|wpQsJH2C9PZBme^kwy$j-bNj++a#UkYpZx+1}bAX|ukr zH$awn^J}PVqL<32E70U1y$e2@Eeo*I2_V&5w!a*Y4JTk5&-T*k_g|5s(r{iUv2FaNINF;1*(hacvoseqAbv#Yl_uL%G0U-^U$ zEZ68<;(rn#hlqxb=4S)rhwd6zKADES_!9T6^bnG#2_jn(nQT&3k50vk)Ugx!$Ciux4aF zck^XatJCw|Sl#vCR(!~$hcF&W;I**(Yw^#&Z9ZFD#%DT2`|>+jygy^^QUbPN7aiKG ziUE>$xwJhWODwl|W*ZA{Sew`cspVSA>~#VO($_=Md-P> zImQ=H?-|hGkctS+A&J(eSg1v}H~6VJvTDA3I9fHDP4$?~!2m+)IS5QYTwxmiZCJ;2 z=}5LHx^eRZPbnB)6+C5Jozz*UD8oQkHX&4;8Y7>WG0z+^o|&4k_q!$H2*!``msI}v z3YHYM8qh&8NWu6Ko(WUHxc{BVK*mTE>d@%N^!ZP((DLtB+EeyF{&1LbKTfZI_4W|6 z1XJnkF1CZlaJQ}Rf7KPJlt>BDp`({>Mw`iuK>DHN7Q$_sx}Bx5M4{82*Id_Q{B=0z z0`BEyLCMPv_CFV?D;6^K@{Gam&w$k9cA;8a`wIoT_k_z`SpfVIXTN)5Z}NjD0t68W zs=YrqDYgSbPL$kwzw&_F;%I4agHgC`DaR-3Nfj?blVioVCgd(ekM0Y~H|tgL{NN4sUmuk;oQiUm|I^@}&7^W{n^gN-q@yUZS*Gd7c20Vez^X#MtocLbYK=Iv5Hm@Ju0 z6C9D&H6)S|c)XSLKx&rknqqZMm5efC7uha9-Q0y=s8bp8GCUbX$%0$Y6iI~EoDx94k@cSF}tGvMOCT@-U>Y6r0=!ao40?DP65%C6~@;@N5o zK?;j+LI*MO*(zQi+)^*T0gX*`&^~zZtJ%}UQIFeHpSRZM@w6O4HeP?oTqi8`|B(e~ zEblCzT0uv{J(H%1B|gR6vlek_tW|Pr4p5WG>u4E}&0H$LCbOyJ1ioPJz7%eXjJ9CR za^;ccHY&2z_`m1;VurYsq1Y&?)?QInt2j0|vyZ*40gaN9-#NKW0#$CUp{K>`Oy=gd zsu1hgc<%B9zAK*lDh42fQjm#*@1kNXpw=Pf{i@V4G_o*E74L{^YMIhTPz<|o8n?2~ z93oN*XrbZCj(u%DxJZg{sUO|CSOA9~MWBPwE@iJssZ!4(qsTzXpWI5C+mrlx+H#H@ zS{-%E8dmbyE+m9zMzdhLkVy?azpyC(Wcw3nR@-VJwIEi~$Ma4K`$o~(5S>75s^m`O z%>(-L{PCr=aa%&f!=~0Id!dN5&aF|Ig3IqMZkEf1)8WxE*R=(9%8C|P78Js>r^zEE$~H08220hnF}4ImIPvTb z-i+K43xKBOIhXv#8$`@8Ei@oQ__43=Q_zsElKpFb_!|4m8*Li#bP`{-O8)EqcEAiR zA?K=;&hLsFf^E2Pvf?w4XUEx~SF2bT&qVm$BpBdc2Uys&ck~Xi0X#t)vrIU=Sf}voe`qOB?5UMgWoK0U9S1qVGE?tdfRNJwebY5s@pPY4-6!@ga#dWw_Z>`|IRQDfhSA;E&Tes2 zom447?@kGkUgs*soELp~7j_W7C`b5a#DkKC*ycS)sBhX-uc)`+H{lauMfw?1#FJ|j zi$w|ej}Q32Eh+(hEt0>_zRU2;GJr2iU3e4+j2B%#=M<;XV`7*#_Nn;R_}d%~%-m+z;II`v+&#Eu@%9y?oZ;G;d2)P_ezA!2#F zA8Rw2B);s%Mk@b)pfWc@OJLW-HiFopvzP`TC zzOOc@dZ|Vuq(4t?)k-HyGicGwGZG_3atBHvjJQx*1*m^sBqKb%q5w55GHj$QVM^K`3@lZp&gV#>?1&Kgk^)r2z zp2ElZkfIx1K|VvUTwM%jd+3+`TOsU}nFrya8EUEf^6F}%t49i2pC zpGIYVM_0GNE=ys-t6+18opEjVtGCFT(*rT;Uf-UJGBA`DX$)!xW~Q#EA(-6-?W)s) zRowArf1gK{YYbkFG-jn)Rf+>YuhtdR`3~aE@9cW@i$2pGf&n$w7g)OU%Z<*z<&N}^ zW87$I1`MaL6gbZ7?Z&&+;mO9E3l7r!3I~?Azp(f4Xr|=6uGsg>ZL|l4h{fPQ0DXr3 zywZk~`4%BUcCUXH*cMP1lUf#*gaBFrxB$O?V4){xst)04g6gJ zD1YB}71kt6oc$3XlaK4O&HB&~TV6jE7Dub@_>^NbKfa~y0^qnktePW01bQ7Wys{r3 z93xwtZ^)PqkSgYlhhoIz52W*B>4`cTKpyTHjC9c8F4BF1rM^9#c@`mUr~LOLuOV(a zMX%$o3Og0;@$PDUg@(j5mI9d)I!&Kiyo_Vpa}xwj`x6vb-2KduI#M zyv@Y5>UYUoeMjX4zKTum0rD5iEOsgjv->WZ2jewrW_S+pkt>GM(7lBO36Qq6a0j6t z4GZ5s9+)^LLa6m&Y?&Al7k-*b{pL6=0g$$<7=gGt8`KaOqSoLklA{$bm%zD8Z}I+h z;P2;%nkmupO+`%7xqPqQ`U{ z+4NzQPWo|@_QKIA{}+T3~9-r(QZv>~eu28Z>eGYoM7 zHC#2dJL(>HgSXDgv09>O80Vb^`wmSDov#%srb^2<$9k;2zN%FUbAPEntKZ61P&b`T z?03d97eSWr2Q(aVm`vNzL5{VVX~f;XVS3gY;^uzCVoKJQLhL5Bq!0tIhwBFS;;x6< z(yt6v*N@_aWs{LNQ^FoSN}|6?l6q{fB2B|Q%~ANe|z#?NKk7({r zYT775Q*SiZHhf(uL@^A2Gv}A0xPG-738ZpzKu-- zQ10lb4@q^Yz@w!67nI%D4O(PGQY8zU?8J^D}_cH z{rJU6VOicu-(yQA*a|0B(%hy=>ipUfV`;vDxbelpNYS0Bw(`~2tRO1nYZE@wG_8$& zKNGhm5pKS@XLy#+q9OrxCk-LYw+Ob{BAOPr9KHn_L7_}%4e%=qypt@oetUYlU5_snRa=J>_?8Pt-gR~1tUGkXr$pC=(tBD*%; z@ViST?|4gU4QyX(;!jkxNUbCqUCDX+m6kPY{P*VrB_ifNZshUd*4+yEAhBDZ_-fUseGBY zEH6UtoEHa1O(+*C@DY!L?rA8`G$*HgHo~h}VJnPx02{5A*+zT!XPtzOO$D4Vqw1Q~ zO-0=P+##d-#IlOz$snvy4A8G>nVaBieCvD~^>gM|_GyV-Jw4StDfJ?r6LEmkm-nwL zz8M%pVpcrp?~NqJ3V&tv=3)ZPS75BFLOm+eN-M~SVh{<$7FwD_XKeufZ1c%LF+U`!)Xm$6vR9A?h(E-o;a)nUm=1HxNj(}5Rc zMbP)u6F=^D_tx3;&`hJ*O&S)_G_^D(~6-uz=WrJDtlQ5^ypM!lg`*V z*$Jk9czq=QCur>>5lz}y4OAH%b<{yGu2RhZW^V@Sw}aA!DW$$^V20(@*;Y7rtHYl) z{z%yit7Zp+R@x&O;y9G{%0#(**TkmG{%ObJein4L^l0|t*IpwIsW550^JlU8b zw0XplRyk9s181SF_UE7>Re$e`OA?C-fBmKT;e#s%{oVJ*Mq(C;^rq6sjd6v;Qa6K~ zKci(yUZy%~E+>&XT4gMimzgdXmw zCVaMZ$P-x%EnYLe!$uw}Ap})vI7HJ?zJeXz*{?S&Ok#Lw$hkb`1Vc*7Ut0Bu7~G9xEVKh62Z<-uPY;LK%zkJw0Z}{2l^KA_(n)hndu7ktB8-fsG%Yra{+>S` z`wc`Mr8UFF(#swBX2{!_9u{wC558%bC`Tn4t4YL)h(*ql7R66xVCWNPx`E}2w0yn{ zO)`(|D#S~Gj?4a3nvuouXvRg0gfk^M>+NE92oS4q9x=sFzo9^(19DX|;C;~lxaDa& zV`q{s@H87>tw$k}y|_l&S5tr!0oWBe?l?6M_Dl}^laFPZ@R)tDg*|+K9uRr4R{jL-q><{Z)zWgPA(4jHzb-AraSVgy67LRP0qV_0m~Vq=fX~xSaZAv36$89 zOMlYiLkSrVZQD;XCGg^+9XNrwRQ=neHzlBKdN^)3BMgm*xA&0BAei<{VlSK4B4E%J ze1ghR^6Q26T6c|v<6dNK*?X-pS1#vVsY>Lcfep`u=t+h!azFhrBCv(DKC}P_! z&U@J0Qmw~ASfDspV3p1V+}-<5*k5Hl%3nK?`Kf`&X)vyP%vjU9)?@+A3@$Rc`oAmn zszACkv531kHq*00YuHz9h3QPyV*P=+S)qN0dzVTJPN4YCc!+1j^N*N#pv``b^`{58 z!yNc*dKWICgx;vlJ-rf@5}>H^-tLHH9fg=iJ~U|c@@*d0XEM-*%4~X`-G^tZ+SN)$|jYE97w=UkBcj2PP0s~z_kg1QZn7rt``52283HG zNP8lUNiW-c--@b~SnWYB)?=3~d}>&GN0x?yLTU5o{{j>nKAjHRvIU#`=EmIoCGo7- zZj$o+y2`b<#=|92&MzvZewKLK%3ps7|&N5wWx!v6k{zvw?K`avfBSBoXItr9IHhe@lH^e2()=x{DRhA^v=VSRxf%uP%khdWBzq0%4LBd-0(sbL^NyZ!MP@zm zVbwZzy0;t1WzKOmj5;YdV%?MK`6AS2lQ(j+9Ht7Hn)s-7^*T8BER+lZzqB9Mndns6WFW1`<~siyC3(Qd`Rw0W+s!F|GhKw{2tf&l+qt7Tl53n zmtDQ_l7V8)%L(OW6==o?zL4eIR^CZ&+H-NOhLA2i`Ih>Q$FtzHj4^TYNsjf%&2j8s=rdGM9SZ zm0Gq5P~P)?OLEIlP+xS~kz!iQTqBF$vB^%Q+ZU!%QY*YbyO(`yNd77|Rjq)}ZJQ!hdm~8J4q!~{TcR4vGO;$RDCt=rEOXDx5bLPiaHjobV z8l>BE_X}Lgd73ZM8LJk4*DC8nX7bxuwCF^4R2;m4bJ(oJE6rOL7*_IbX~p|gli6+9 zcL919#o1Y^j?(;com;u=PwDY9q#<6jx|>fy7K(=AKX>bQIF#+j?WP5EYw^XaPfl?` zI8!8%F}jZ$9xo4@L%9Th-gbp}*C4UI4>7&R#AAMr& zrEf)$I@TNpCxbwk839z zvg1FiL2wjze^XzO-p}HLY*qJ}65x7YuCjB~XJ;QNkKST*tdg*nvV8v49)qtg{1#NS z2%Lcgs*QKmQ1eF;!>}4Ybby1h$q&b~gxapWH=%U31gPk7_B&uJ;L;xIa<_+m{aHnn zg2o2O=vgp#U-rF-0(Rw2JGw!}YsF8%@ea;&IJ;vhms{N8Hl zj*sh>b>V>!lJhNJU6)o%z22&{svGl{ey-P^oI}f$d-!L*nDxA$TiC2yFFviugvxNt zE~!a0IgNK8lf*4O(sc$cn;k7 zI3Fpi_2Ls>XN=XQ-UVReyPBUu$a-4V zu+8tL)AXgl5VbNjN}auwTU_l?j{do8NJ7s{rqxNm*Z51d=%+h_!!AD=X2Sz7)!9D- z9spia#ad54`n`NjT;io1)fVQ+_d79u%rZ_7l7@JV<;dAKse#@0>~c}8r<;cme5U{t zH5y{R;K;#Ca^~>XT?-`$_-AK+x&Ng36DW9YdY-#p*9PA*m@!iwEOPT-Z?dkyZHSZt z7uL97HY;b5`wN!e0zgWW{e=0))^HznWZ!mY+jf6xN;wF=7qk(c8>0R@=Qu znp;0j6ws74?P$-aNsiJxvMgsV!%LV4can*T2GKjQ*?8f1HnT#hW1B^oH5u$f;U8uk zScV%bPCIl9tB1)$vF2uI2E-n=HBHXbovt}p&+M2{sOQO+Bn-e^oMxH5Y(sP{Q%Z92 zhas+O^yPHN4Itw%TFHw0)!6&qah({0yzdrhR^__Q6q`N5`^bAjo%6#}S1v8oN{C&a)hlTY6Pwk`!zmwC1z8pH+qROG$o8Rnxu@`x>gciir2cX}|nbg6t$Y zniTQPo(1bn$2A$XUbGf?q$Fxd444kwdYy5nIrbVA2sPSyVgT*dAw|u56e5V;l^@s% zkJGdCARh>}HDt60!Y-rkw4~c$j;T0TFRzanPaYP!K!rur0y&dR*(p})5p@$p?=zR1pTjvjY?81ft7g>GzXFroS;A?3?STDaN^Uy( zNc&b_1w#u;@bCBl>zxHC(^^qv}jAJ`h1><|HX;$>ZI0L zw)=_^p_^A66Hb3bChRDl((ND&_jY3eH3QN_9reOQ4`dfijWf{U`IAH!ONdO+mg5#d zW@bpjWe?K|a=)I@fXiIz^5u+Zx-(+moGH{w5Qv6c8{&^Gf-~zrvQpT3Om>M396c6T zzpUe7+dd3XW8CFM%{MCC`TQap`dG&l1>JJ-&o~}Q^am;HGnEmWJhiLF<)8fN8txx% zRo#V16dip#vxyB?F-27@Ou39`hr_11)@i^NUL(5Nie5*5x+75=V|ggz8|D3))4XtB zJCvam0_-}F21Y(Qx)-!8D0eCPDg0?eQ?yq15ADk;wqXz8y6ZPG#)LZQk1?jB_{Nrb z?p`%r)`hFkJG|h3qO87L;Tc31f$azc~tcc$i-1Ux(q4ij?XN( z45FQ~4l>4rmr1dg_|gAc??35qk$K8tenC4W*r*U4{NhG{Y$Tal9P z_T4MsXSwTl!}M4xOJOAcMi&6n;(PSUEP6?K^#<K>1QU{ z#@RW>oObBJvk`ON^AWjT$wrKx)3Fu6kI(<*VJr@?)KsgPs*6uj%sQUyhvvM)IcT{; zbsRv-+)l9Nwny6SQUF7%BsZMhytzm+?7ics-QlT@de33_O)CK0hrb=Ei@XKN%r(;p zOO-&9Fs?idP$3zO2eA8wyqhEZmdS){A_INeI;-1lOo zMXPH&VdLCqtBf|w0@u#wik}P4A$%a9%t4!s&~$9-jo`kbEy9MQeGceF0IS8(UxCSYsFU!QZQOmvTj_M+fa|XhLjPn6)${eAd$@hm zE%YvPWz@GbrVx=TBU1+$d+E|G%{h5D4wJ}Su~(T7@;>7=5FnO3XP_82T$Lwq(-E#wU5Di@2`jD4`uLiP~+S3%CT_ZpRi?-CokSC1d!aZfr9 zdJOL4{7&fUo@#zAS_sr1F@bXhl=tW8pklPy{SEPqE}ollCoR7R3scL$9H_(<8yaJ% zsdN;-8>rZ@=Rn5WX?+3~K_kNCsOENeMPdI6nB`mFO`XDS-*?(g+qA}1cE96W3c%L3 z;hQ8&jy*TSGu5^C<@c9X7#(Fu4{L9O+-}H2c5ZmqKUc%I@qW7UQMI@su|4l>IH)74 z-nfC&;frH2yxrzZdA!DNuze(m3UQ3Y-pSMp&8E4On>bsN4vz^0Fo`8S=x(f9HTXL==(vdE5wxlz8B zBVqEV!s9gJcq$?ubZz10fjihIa6qY1?o)mbV(+^Fe zPQqQ3X4q#k#5+(?jwl7pb}t|rn1|0`<3L$G!yn)DuulasaWJrPn`2uQD?}Yv61J)G z&1b-P{o7xG5drVNS$J^#dgyN;%TY(owz`>*{rg!BWht|u(j5SRdk7LBiL4$DRK4@4 zqJ#aLKM0#H!c+d&5JEi?82aWizG>j}Z#o42Hz&BOck!QvcYV6Fi_C3sI!63vAD;no z3bJ8+U;l@}5ZIOA>yv0_>LG)0qnx_HEN*CBsW}*2E6p!cFoIOy8L%${5#|X`F>O2& za-y9clVVEi0%r2#4UVouoA#XVSqtqqECOSe;KQKvIn^0#Vr9y9Z6tqO(U3;6Ha z)lIuMrobiTB7Fq>Wz;u|Q4Kmoa^re)r~PCSwT|z#X;qFT-CLZX*!3;#`}ZbyL=@h_l5tfM{&#`*ducaf{YTwOQ)R@| za{M7}c0|)T7_tDrN`rC!7YqN3gg2$D{J}o3k>mf1cMwQrg10;PR+R0zKkq;y^3MnY zT`Yb(di?gX0H0OCEdL(~H?X)=479lToX5IwdJy4491tg$))+*9M2e;Jc}p!CYw&-6 zxm_nGE6)daJ5|+eI`a%j*`1{{?#~Ry_%_{WK-cd(uZD!u1T8qP-rzo&k>`ew|9Y}~ z&BUJ#VyCgZhpwlllb9Gn*Hbw>1D&v<$q<%0JE<|hFULO?;KevI@XjCgk5fqgYvWb& z5HXM-o3&5}J($b}c5-{I0;LAafN+a7kTRXdl=@;Wz8_xo*GN@85)z00Dzr z8?P(%rZRF3Ocn89l^xN!ofdyf+orpGUilTIBOV$hTv~hJRN{x|`_Gna=bp6lX_n{t zgTv)hiBg)2HNirxc&gg#GjR-s<&d(0DFN!^7d5vcC z%6h_F({vF+V+!d4+XhPJUu67~YzZZ_Dv)%kK(Eai`@oGxm(+(-*KAyE4xb+D0*CeG z1GqqQF@h?x@KsFyi9(g%CcRVhOb3;kW4}|+6UhmkUzturY03M3KgyxRb-^$;5uu*+ zcSm6&wgLC6zxL)x%Iz!s`D23Kr;S8u5~>u2nTE@o0&lyn)bp^-Vq5FW9ry!ouD+^!4i^1tbx>iv)j@-Jn6Jj9xxO(vVmf+~ zi?JACG0~jnG6np((mpU19G9ohvaUzwvRv}SU3{Y4Y`@XfBI(|>kzDYS$E;s5XW!y_ zgVn?-rr9R5f>3Sj6Y=31UK?bYXM4bO)^Zv^divt9J%$(Tu0rCYhc6U!la%q2Q4jQ5 z-#@Wwm_%<}ZrU4Ux;j{f%rofmz4Hd(6H|JDyjm|!HaV{-LwI{6TCn#Zxm1fS1}3u` zS-v7L{f^Wph%|P325^){E1SL5)f=6rT)L)5t5#OzufAE{_WXt$Hn{TzX(WadY{*;*FyDT&q9ON6vtm{YiL2Qpv!)uSK86Cq$3^#Om>ema zQ+nd!wjXXtCEAe1X2V8$Dm9Uhs>GXMoiF?o`!Gs~3RMbhYqjki zOSFtUdVgGSLaIE`Q5qXegIh^ohTcI8^h!QGtB}B!)Xg%GZgc>*B`#@1+M;3a7mW~! zJ|DWjv^{4d1loRyTik)s3yg2{iAkY9YXT~$Mlrgp2<@g5>$}I5Oc{4LonITi6o4ND zC(Dz@G$j9w4DV9q7s1uyoRelzKsAm~J0W3B`V@bxs=YD)K0q6P(mXcN6Is5d+{zwo zv8&%eV$XWt7;d+g7!-C?`hZCTGL6a%V>B5pzJ3HEtRKO~s37u3gICX69F`=uPu-a&_ZF?U! z?QW3yt=5J>GpXFob~uxCUvH|Eu+h5eqR9q{@*&z0##~264eQsbje;!3KFa$sw=8yZ zO$CQ;v=AS3ty);ILZ2>35k7t7)fybYsB-zkZp3zBZFq zEkFhp>8QN-;j7v8!mSxMmiZAOBUFhl??&KFYOsIs?T6_c0lKW=$yY`X?qO=$C}h*n z#X$xW`Cg=-HuFn8wA2Ix-!e^b6Z1#Tn$_yN$qHF5Hs_{=3pFj>jXRp%{B=hwiyL}| z?j4=7hh3A(!t@KnHRf}PyrPBc{kwoPr@n}SQ&QQxq=K+)vms7~5cmEgZAgbZtKdDo zMz1_Vo;;d(_W<}#uzN&CeDNGdSuJQQEf{+DDi&_&o}5ouwrVW$KRtH}0TC3O|0DuW z^2zgDrS>nPEjNow@INi40%;kFX|tlsh)$s0roKC8>q~@b?w)=73_vFMUzv4YRXw#b mk~>HBKWr=iyOHHFmk-me0lRmJ4?utBQ@1tX>Lsf8LjD7MXYBU? literal 0 HcmV?d00001