From 61717bf0d0900c778f4aa5777852a903cfe61801 Mon Sep 17 00:00:00 2001 From: eml113 Date: Fri, 12 Nov 2021 01:09:54 -0500 Subject: [PATCH 1/3] Question 1, code to make game plot --- Exercise_8-1.R | 35 +++++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 Exercise_8-1.R diff --git a/Exercise_8-1.R b/Exercise_8-1.R new file mode 100644 index 0000000..9184e40 --- /dev/null +++ b/Exercise_8-1.R @@ -0,0 +1,35 @@ +#1. create summary plot from UWvMSU_1-22-13.txt + +#setting it to my computer +setwd("/Users/erinlewis/Desktop/Biocomp_tutorial10/") + +#separate both teams points +game <- read.table("UWvMSU_1-22-13.txt", header = TRUE, sep = "\t") + +UW_game<-game[game$team=="UW",] +MSU_game<-game[game$team=="MSU",] + +#create two data frames to store each team's output +UWscores <- data.frame('time' = UW_game$time, + 'score' = numeric(length(UW_game$score))) + +MSUscores <- data.frame('time' = MSU_game$time, + 'score' = numeric(length(MSU_game$score))) + +#create for loops in order to get the cumulative score for the two teams +sumUW = 0 +sumMSU = 0 + +for(i in 1:length(UW_game$team)){ + sumUW = sumUW + game$score[i] + UWscores$score[i] <- sumUW +} + +for(i in 1:length(MSU_game$team)){ + sumMSU = sumMSU + game$score[i] + MSUscores$score[i] <- sumMSU +} + +#creating the plot +plot(UWscores$time, UWscores$score, type = 'l', xlab="Time (min)", ylab="Score", col="red") +lines(MSUscores$time,MSUscores$score, col="green") From bcc5b560b7bdfef2615ae3b612dba92b9542ac5a Mon Sep 17 00:00:00 2001 From: eml113 Date: Fri, 12 Nov 2021 01:10:38 -0500 Subject: [PATCH 2/3] Question 2, guessing game code --- Exercise_8-2.R | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 Exercise_8-2.R diff --git a/Exercise_8-2.R b/Exercise_8-2.R new file mode 100644 index 0000000..fbc4d27 --- /dev/null +++ b/Exercise_8-2.R @@ -0,0 +1,26 @@ +#2. Write a game where you guess a number randomly generated by the computer + +#generate random number +num <- sample(1:100,1) + +#create placeholder vector to store user input +guess <- -1 + +#prompt user input +cat("I'm thinking of a number 1-100...") + +#for loop to determine what output to give based on user input +#for loop will run 10 times or it will stop when correct answer input due to break +for(i in 1:10){ + guess <- as.integer(x = readline(prompt="Enter an integer: ")) + if (guess == num){ + cat("Correct!") + break + } + else if (guess < num){ + cat("Higher") + } + else if(guess > num){ + cat("Lower") + } +} From a68ead65b07c9e0e50173affd4509765073f0826 Mon Sep 17 00:00:00 2001 From: eml113 Date: Fri, 12 Nov 2021 01:10:59 -0500 Subject: [PATCH 3/3] game plot image made with code --- Rplot of team scores.png | Bin 0 -> 23368 bytes 1 file changed, 0 insertions(+), 0 deletions(-) create mode 100644 Rplot of team scores.png diff --git a/Rplot of team scores.png b/Rplot of team scores.png new file mode 100644 index 0000000000000000000000000000000000000000..eab41cae5b8f25acfae9405c97c1245949503a17 GIT binary patch literal 23368 zcmeFZbx_pr*FFx*A}kTmDJ|WgG*Z$f(jn6Iz1R2q z^E}^~XXZEa{qOh3GqcR>vb(R>9p^shI@h_*hCfr4zmGwNfrNx~Us2)l3nV1uUGSHW zeh>VI5q{!@gapO5mX&>GBP%cKVC(Qk-Ox__jPw6%bJOQ?YhvKRgzE!x1)GD zarsWSgPHbq$zCL9e$BIdXduh^=%sw#I0lU-kq*=x9szuTy&Bi&b8cB=i3p0Ge z!SX5UwtFrN?HB#24iwG#a4tq%u(*tsZs5sRp^|h}`tL1)SH5*m7Hqob0@Y%xdAtdi zP#R8C*xn?sgyQDBTAzO#R>5Um-Gh5){>2)0M31E3)ExW<<4CgG^p$5b#pc_OpM=NS z**{FAS>i4Q!d*JVzxD1vzOLmp%*1f2XF+RjFdl7B&#AX(iP6 zJM6q+gV+M%z0YZBEjm5=@V!NZ499-t+HX9K50c%QAG1>)-57G#6ZSGngcxLEz3u05 zxjwmc)yzsmUrl&Of=L#|$gNR(^r+ugvzECK*RbxbZ|v%Pzsg+VH{_hQ9I~I!5~&mS z^d!59Qlr00cLcfb67d)jJdUHmvG&q6D)@jwwrQ2O`Q9q;d~$hrsgw2M7ODQ_>)ZaF z%`u)wMR)Xvqn|nttX|PKWBIsSmAH(;EF9@4con%769UgE=n~g?9?%xhBrtzfH;XbG z6Mc#;*q2P_Ybfw`hVI8bnG#?b-ojHwq!5x7?4Gix_ z2ilf6^0fsuE+NzdNZw!IP3V^Qbg$RXzDgz7d_7B`X7XKIT$fxK zcFuW|->bl$Zut)5zudMTHDkJ+ne?SLOe)qX9A zUQy}+U9eq~N6_9$k*klA#B7Csuk(?uII4-4p_hOpp;V`1;De>e*5|uN6K}Sv2C!G7 ztg~ur)3+nKzOJvCU{vt25o7&q&t=(Z+-#y4E5fc#vHFQr>B%S3>7aOfLo(<7-rPCo zp2#(`*qKhx5*MjWHPX;LsN}xq=b6sL>F$) zxQI04)nagWb>rcEj54u=)R23Ja>oeA>@l4h01iULTuaeHMFoisJV!@D4z)&tf@jF! zj|}`FAwhB>|M?H{ZZ67yJv+TR$%q>-Z)84EH zZVxT@53)uECC)O>nh%bBmYjdNE$zAASBH=)_(A`9*s8Rf+w53Tz~YepKK!2e1q`A2 z|NAb5v|qrU-_!hX25HFON5=;Lzt14pG}0Ze(u`w|@oA6|k6feU2md^yK}N&PH4@8B zu%i3-vd=0nu>Nxc6!d46l+P3e;{Uw|%Z%5(e}~hK3}uxXV3rT<2Z51LF*OQqUV8x*>L7Vci15p!U-raA&+pT zEPwUJ`&joObSG0R?c-rxDs=q4Qs@`wUv#FuQM_t%+cP|jGvD$V$O<-cM4TY@_2k;s z7AmU?Utn&p$atN(B{MC?_LF!g5N#fF5MDW88$M8v+{U6g1(+A z4S!Xlk!SWb0rmuTNqIqxJH#y=fR3XD=%@$&6XwUTc)pOp}`SdGyYs$>W)l93Bo;gShh`6(tc zX>;zu>5mu?gA(y;f1=m@-HJ}C?1<3djbD!duNIU-Sjnp^vfLLRRHI$@ zW{ts3J63z&A{-nI160EZ&()Z{N0gyvFDrZv+Vu1to7QKOV8c&J$s98K^IvXyO`(Xb zsuc6bXqet-8gIqLb<|6N4hZ6U zP}dCpf8DtBQ<`Ow4lb~aLiY1vF_dEYc5`)y9xa-afy4NQ4UV**G%I{21+)JX5t#8E zGmY5S9|dD*^S5*BHwK}gVN2^yrf?g|mFsfy;8+8pw1t#C#6vR5U~l^H2*%@_D(XYoT_j-apR3cYNEUHeLN*)0UK=)P&w66~vJ9(0 zc`NCR=31Ao4|aOE(&cpd$NJB~l2qf1dpK0KoJ)=HqkI?DX@giwF=CgUspy!*859@6 zbW*nhQH%2Gu?L7VM?(tLFo7AoL)9nX!3lP<S$-JFIL_;lgBt)b$|B;&F}i+){d7X z@aRz1@njd7umvUL{4(Yb*y0#nV``uCyq{D88&QW``i;537T~|K+<2T;yBq2cB@o6s zliaRx9bq|2=wOQfE$@@vo^q6NQ55r4_sn)@ozCER^i3bNbbMzr5Ba!>TuI;Zxcy#d zuuLVK*pxi>^9?1#$I!o5eb-K9D=#L{P179vy4X~czoKe@ zuzqx=O7Ii=+-qL>X#TYkse;C`CsAci8!?p2FZ{XUs6%XLy5j^OF@(Fv<5~IDoi11x zd7)HQLP+7dyR|mc-}HiZoz#y18FfOt%@W zPLBH^OL<|g)HT`oo+Bf{-tJU~>HZr(Q!y~1z1rdHDZ_>3E)p+K6RGp%K&zR`yr0rN zZqXHp<7Xrf*~Wce_BK%Xadoc4{z}%_{Yv{AU(O9mG5^em?}NSMlSnn&(8?`yVnm0# zTk7`Cn?+PB2?C1CZ0~RHMg0YoyQ=L$;pOm0>y510eKs$= z9bW)w94-^nQH3xpKZ9g^#x5{FnzAjGCcA)XRO(E%Ty?bUibc3o(uDHpW4NLl^Rpus z?3~=vOz7NnlRF`cHm3AId5ym^?P!A(?3Yz3l&7ce;3=Ui7%t7clLWRt6q*bWNpziAOVfw zJ~uLkEBu1r4WGszo#wC+&RfDkKaG>?{_LrZ{UT)Kri$q2InHuph3d24M)@nuactL2 zqmaLG`wO&a&2+cj!i&{Y4~;%m%&kMco>uQ5#;;@yrK3NhabvQvNTu^c5S7Nt=^kH~?SHUm9u1_aV1*~`s^C)@Nb26eM9v#$X zj*ZWzhZFdp_y2I{jr505V&Td7>968FAL0O!Qkn%e80RuYe#qb2x$S3ZlP!WbdH)tZ zP^=;j$wnclVMng3+|%K&i3AA83CgvC-}n_^`6^!+U+KXQ~hvF9k%~^&4HeVqP zZRsl8cwp$1{_lqAK-`DMv>ToiNE~4q#C_hj-(((^x1^=#L*qa>h|)fs*T(3NL*6eV zU;d;`Z)D9+Yl*i^T35XtIRy-2CahggyHXH$VN6=+w^o=+Kg|ou;@s-?mXQ`D=V|+f zwsQ)(_YwY2)3-#Dz-HtT$ybAr-zjfI?V5+vxGWN*#krk;UbyX@471cJay3`3PuwPGBOV7*~tNrq!o+~59Gk;Fgsfl!M7EYVq5 zlKb3Vv4mYyrp)~o3b`u`9(LV$j93mC=3H{OLBh1`pwHt!vykn~$z#vVGex7Xq5RKE z0~M#!tko;Cv>j^FL2T=Xo|?u^rr$ymop837IlaQFit*R=(!^m5$^hT-kQ>k<W6RNF{YZtyF_(C5AjkJ*m37^;$h8-O;K02$v^Eq1e(Z|WXGW~_w zJ&AkY1FDSW6)<}TUl0PDkNBiY90Kmi3dJ_5U>vVrcQBvmMvC9U7)KtKhPX0Fchs4d zjWU5_k&CYt&Ztp;rc?UZSvKu7O zMp_Gt^yZJWMUT#hq#>$^oc9sum>js08G%UD4WH;ucCA2(_@@b4=l1gQr?*-=NXE;_NuH%ijF!wm_zqdqZ0z>E7;pRr%>ALw)p&_>Ov*o_Du5 z#TsQ~SY6W97DLZ+rIAa_%MR4CM1xyA&rCK3(^3U(h>5ukq5@Dci@H5b(-de-V3{4( zKfb+*ncVY6CNZl!J08!biUrWkB&~8eUZ&kCKmq}U&HoDu>i`)1A1Is$g4=&c(P8JW-KCr>*B9f^s-#KSNj7KpCwyWgp%IywNLH0+?qIDp($P|!LDxOo{04P# zq-f=7&+EgQ*JuT=i5hTjlJmD?f?-(5eK6N|Y_BR!dNA7F8&;XY-ux=+@@dN@^@mbO z8~H~mxk;P;;N77YNZ{Q`!W~RxUZMQMBwkMx@X&`&uc8g(ten%aG6j}r}njZ^z)q{{*(dpXyb#qdK~p4<&Nu%wnNJjY_p)F=JCINvz5eJW%*7%=w7xS{QatarifVXGd8^dSsHT%~tx!O`Tx`KEm_ zR&#Zn%?1ark^meG48|nM_c+k1{Da>Bl7PUY3M|Dj6%=zyUYaclHl|e*Iy}T4dK1Ao{}p4@7Sh zuKC8;eyNobq%QlfdUuWD z+{t_xlXS;7{hO{pC>murJU!TiMQZ&{mHT5Tw*SM6o z-9GA#dJxZVsp>oS7s-c1W7g1T2NYa*lakz*4`|{h*dp*ISjsscZ3Bq5t#KH_}H`z8r!z8 zUdmhR^FQC!j>eU^jX`obTmsWkhTuIlDjY<;dsMfd8p6opCuXbGG2g)YT6>Db*{C1N zceaYkv(I7S*<_u23=^@(((SpZoi^wK&@}dFt*^jhDE-;p>R%(KbJVWe+2o3mYwHuP zvhKsFBeqdbj`jF882rIPA5JC^;3SXN;5&zXhGxn#HSDoVVOO>Wos(~}{ZXY=Z%-LP z!fjvMAa$`$u*BGkh?AM^OXo_bpIWJX*P?a}T1bDybtMyL@Ghg$6 zqMqIAJGRVH-m5>ZHP3o)RzNY$NL9@@{y{DFvuR(xaaYLHdKI~S1MP-66^Pq2aqZTb zkN97v?)iBhi{kC5u}+d-#>~2r#6@UK0*Z;5xJ!CFJqmlPp&C{$q;}hB#7)tub>5{u;oVg;o$z z_W4XPoN|e|7jGYGi&zpEVb1+Hk>3Gf2O`}rcBn#HB`?UFj*7&Th)xEs8W@rc1B)o) z@At)xTlvUjW3gotwlUs|&eTrq3e}X11mK*8zpK{e=9-_U%8V8pzfur<%}!rJAO;L3 z6{`Frv^_~he5Mhb$-Ib?1&jqPg5f)W2#yrUB`!C5@}yPz+$gY_EF|3-*9zKMaGG!l zAshZEJeJ|&U^df+Xw`hBa1Fp(IL6Lu+5V3sUwd~rT(y~c?8FxS0mhv8DAEZmL&B3~no|?3duw7|!Q7wOw5|0HR5mV-dHQ^i94aKA>sqQ_o_i#& z-!S0509Ows6y~S*@27Jly&5AJ$>n9EXa2qHx!bPKLiqxHBN+3rl^-Mf+O1u$mTccp zgKqMx6v#rRu^5&a5JUS|XT=T^2?F6h>@#VA0}p1|a3aAigK>h| z8_R|meo^Jfor+mt7QW8d+oaGg2XZQ*Pgv=XAgYXxgl%iy&A|^-Bjk^g7$<~jYX}+# zl~Rmia&Q?Z-al=Za1)B+%iHsDdwnxzZ;4?33$m>kVKWKsP81!UbQ6Xq80l-Uw3l_- zW|tdrv#$+Wv4D>sy(x`uitM`S`Ni|?-TjaE0nT|O17I}9x4}T@3sQdqkq8_fWw~PJ z6}%dvyhVmbS@ebP1uFFXA3EVT-=KA|Xb|qFsT;p!p?*Q0`T!R6UrCrqX1gLqp9tRe zgVeClBazmgit+5>2jedQ#@r%AcNM?nEfnJ6$45s4C`_c7Uk%@p)c?DP zd2R6r(`Jsb*Wsu$G<#dRvN{<0+2*P_c#IPl_Mx7?p`@=$f+p@+$U#;Bti)#a-cSLh zkleM2cTQsI`S&+WvuZv#ht9t~K3iI`o*wGH`tJegfq7D?sg}bh~tMLL44P^x9&O6P_D%0q8MPi zhYxjyu6)!%QAokwH;-hQqOCx-u(E_8NFGr!pKB2i6U{A$YoejHYReS29f@#UqUV&{ zE55Y#)7R!I6YEv-8C{&ZhGf>`LG$-46dVNSE`HNSdlfq?q-YEM z2$OW)7-Z3|VrX>Ti>S67nN1V3qes@oYY2<1dL>Ul_=vZeHs<*w%I5Eqp&w-E8+xOI zcixrf4QF4(`_ZF=aP>a{t=Uleq(?>B?*9a|qWN@I46vZcb|O6)OL3<1C)K98@OwDs zJS_(Bt3RO+tuf}8e9_j*SMvt5-Q)cV&;bwwM9}NnQW8#`pc?D%y_lY(xiVIxxyVc^ z=|QdDSH0w+%)p5tofw_wEAuJ^){w@iEhpqWL$x6vq?I-1G9VNDvb!;APlo^L4Iec= zI-&olwdKET70R);9Vf!N+yx zmof`c9^}G-Up&>4_z5FiibwgW(Fhb0jP8y{q-GkN3Irv+j#hgr3I9VBFEyudXa~%H zkv(`cR$&|^4KZfOHJv0lqNR{jd7`n2+<*#rskX zpS~E%u{t|lxcT_g`DY(gDLM2Sa3@PNV?DzU6lwC&Q+dq0VzfzV2WsBXrJ$c$vT$P7 zcj75;dk=p{w%3kWr)dJeu=Eua{ElI6pwe|O+{v_5! z#`H#F9ZS1VHbSAblK@HILU|E0mLp-~Log$)#>|dm}7y;;H&D1U3@RHP zOoc*}+bfI?W@|BfB1!7IMeP@V4y4pSRzl_Xy}fqgM!RV#@6b4!GQ3X}izXjK@ul3W z7Impale^7Yz;*^#yUOf{JQh!ZW&-Nd5u5z%E?8>pRbe9+6-F)W^Kbt5B&yR|I|-cA zR|Tw7pEnQh!x*yt3_CPvrxXpgRdzQ-_#b{y$*_nv4fS}F67f6g0e>m)4l$=ruGLun zX!706XH&o!!{$A9%HRhrXNRM*ig)tw0Ak;)Xj^t|a_YJ-e2&OOaQOg*XOL`h(&;c0 z&NYsD8&_I}{gbck9OL!v35oa#mEZF^ta($pUXtKn00ZGGf*DVLdNr_Z(Rz1#b@Y3H zTi3LAb~{_ljcd{O&U=%A$8IZxtyoL5OlNW%W7phr;~C}>MrPmy)5Y~whoCmj~j-J zZyA=oAbhvG!q=BO6&73L?^RgsN|$=0$p@ja@yUr^qvOO}9OXN;!{{lpA3 zS3g*6F*R5J_=2(8{dnW^FzRm=P?S+pDg=W@Nr&SzDjyx=RsIQxk6R)>-TMCFv-tpViLTf2 z#?a_gZJn))UK6PN(BAd_21i|2_4(U?w2*8GPaUPf8XIwo(Fg0ZPXIf@8r=?~Ao{=@ zc=Ueo+@8LqI7IS6)vgnRrVO4SOomAVYj~XBr0;nUfbh4_e^oE1{etCQiZ&qhGD^Fho~& z!AjLrG+3Q^EjGKGnwJ?2gS^sIB~JahB@OZi{DvT>dW zM~cfIov8Kfs6uy6H0`YEqv?=85b(S;y4DGPCQm22cBv!d9Th6NnQn6vEhej<)x4Qd z(#G8%BIur1yuCxR3KZ^i}d4~_CPK(3;6LX2G{1ekBCPq9qDX%Xqt@} zk!C}~{Fb%q?q@ za~n{MZ%>OppvOmMf- z6&e_jg-?Z=Oq&S}DG(l~%W5Ewo^2J%tYctuIN;AJt(_{rcY;rl)qLd{e_!3wA`l0Cfe&JeeuaUA*+BCBy}A1OpsUrMND=z0xlaS*072*szib#X zd+NcUmHZ5Wdf=+3Q`=F(&+u1VE;3U2GPbXz`^tKFBc6A*?sO8U6Zg_0GvgnMg@AmI z$?K?xBw5Po$L9gE`qLq-3cwHx&p4WteYeoX-DGakAd$v9!nn=k+&!`kdgzEAMeYzZ z_P)BUxEW+|xKI#ib&n@t7NSSWZr^5Gy~V~AHD|Ki7Q-=!*q|K@Oo|ZJoOY7bfXQ=Y z=gMz*!GfA)A#Q_Ljt=KPF30!L3#=Jng*=dOd|SKcz861J;v|Zm7s%bm>~J2DK(q4( zh)E!r*4RmbrUB||RNWxA#pN?dydr0YZf}9Cuy74XlJY|*Q{#CL8>AOz_=wzwcG(R} zmtfM#HVe;Zy&sPqhsbeZ^@U|j+wrj2*RLsOpe%zg64_Sfv|~U@I|rZNLcg~-%-vC} zj>+|dFA+gUdHuDUuv*(6e71|t4_6=%_Xsa?I1PH&-5tXbK*DMRT> zfrbwKJnL-{!O&ZWt*J8I0=I+3(d1J=0Ui!;w=G8tFCsYHc9$8vqteQ_uQZjE8HX6N z0~1xsGkyfW(|I3!4B97l{%!$pI`tD(a8k*^(#)F88_0YJj;mfGi1|~DdhD9zH9|MV z`eLV{XYuk>E26tLt3P`b7#(3LX47S~Rq!3}BQqhWig|5qR-pSImgbhr&P;xi@bIbqk=SjqM2v4bj``q_~$0|W}iUtRA`tjJ{9XnAkdOy}TC{@pI+&LY@>AW9IMo8EBy854Uz> zrEV*|Lar3tyHgG;jk|L7*VH6Vk|tm6H}z`bhnYcaKI5MiaNM>dbF^2S65D7O{rvbA zr}-c%z;m0S!BY9Xmi+Iofhw^O>3{$Ur`5-sy9a=3mm}Gj)HLj2uV@Y!NZ~e}{PgOX z;i?Ugu(S@N;D-r7ejVamt}y=SyX5@?1m$!*?CXuY}J z7z@5as&upIj8Y0$u&Zw@wG`C@emPFrBUpW1m0)pwH4uHQe(s~HPIlk2eRB^#3<_Zz zl`WKL!CEq*S(J5|s5bvR#I9)+bA`UxiefC_fduMaM)PkXIqlvfMt=(fqi^Kby!idI zphqY1IbPdZjF^dvXwzQZTdOic<;ePGC>G=?f0UX*4L$UHfHCOiuRDP zPaDOej6-LfG3QyngVDTqO4rx#UV!t0qly8c%lXaOQo&YnK@!j|Agf7UnEiPuFb8?ExO))@|j*$ z0DBl5y`ig=T?o0$>A{jiw7Si2kWF-79RE664!ql&Dj0agq?T>#E~%8*ds|LifkSY> zTj`&dZr;61=B+&ggLo>f+7rjqw#k@9twwO{!l8R_lQ$&}9r|5hic87#BS&wMu zyY6O18g%HYow2a}Jm48LY8!i8Ow#tJ-t%`JG#y9|Ku^4cUQe)ioh`Vf3fbx44w@u@ zm6U`O)uaxYOSS7&O}u_$y5vK8rV;qO`kvn29P<08osK5Ju1 zy18A>#agUXK3I~?xq5EByIb{9PC)=!BS5SyaCg2E4OKus>7si~ihR8Kq~E8OC*_W1 z_1Zg0`d}Wl;Hf!j?c-c24{8?Odm(UgGX$;10Xf2`qic9#k=S~%k#RJh%3@P9ssB-} zeJ#2>ks%HO^9t0i%5f>nO&Ywq;e#7)WADy#F7~l0U^a?^N;48$QYfuqK0+8nmjMos zHz!A?nJcGgb22^*zEVq3NSNX>eKN+d{Nzsz8Onhlt)s6bYVk`vx!D@zkw6%L8X_6e zRnR%rCsSV?m{l|V>=hCOZ8XHv2Fo_I7M*PeHV@N z;y0>*H z_(G6hPS}+1pOjS)@Ji+KcdHyt9(*)F!&Niee?_=c`HGL92{{yqt1xv_GPVX?PHLt~ zwfPC-C_`%gQ#)Jb)=tUWD*OWSwF0A#0PK$#>DIy!-xW1&hXvC5f;hMkIa>WSlr6Qy zH{{pKhNFuIae1}`{276Y-_-6Yp`I^? zP8>Q#qIdo5w_Dw_WywF?y2wL4Vk-pjrnY<2g|RD*Z9dZ9ElhwJv8MQ~HFgWz&iD!0 z%`&h|>AY&>C>~OY)>FDF6u^@AwVVuthMpj;l2Wpz=eQA|d zXOi>S4$Byo@LV=HCWxX7uHcqIRNir&pn$Gl{GUWYIc%DD7l`?cza_DzO8H9G%w_sR z@s*73Yb*BPN{_x#d>0aCr&c4`@gHw4xsN zWRtY#>ck5^CxJTcS+M+iO2E9`gcaCq=Oa+iEK33y$ZQBnvqRi**>CbwtJeh|0HEe} zcONm~M2(oGP3bAiyT9zhgrk^0dyp3QvoU(2rMLwVk=u~U4fqJI z!|QnLu@3ePruA8v5OEn35|i<^XyWY`joa&scrJa>m*sj77Zt5Ur^@s}VKNuW6}FS8 zof;%>mNx}RydUwh^SPy6Xm9H7k?GZIWvpIzAJ38>CUM}b52K##msRy%K8z5gmIBM~ zhX-_kJIUE>-P^H0`=c zZJo)7@mGzQufJ7Bxvg8lBj!;lNJze9Om#}+a${}z8w2-4<1Y>B)G6m^)Lwp|(D|g| z^Zrts)a_Z@T^=ZMj@rMj`-E}<7vV399M8@UO-l`lbws}!)tj9-t|YFfQ)|a4l-wN} zvFx0y7LGD;dmOD!(#CJJ#ZQY+$Al>%_Ld(c167R-d(#!vZ>L-VzgJp2Evl4B`x|{X zVd{@Sn&>HGQ7$1{gzi|1d8=EOUnAkGPa9P~55qq2g;_QAw&7?-7gorHHP0G{16N!Q zP8(F$GN42~39zC)Y*#=v=5)9$BmTReUJJ-zOKrRo-@x>`pKNVs+YSAZ^jk8EYRpn* zx_a=%QMVn_&VJ#Z15VmSi#fSo;AMx^*x+wt>cgm18iZD;TejWFbVfAI7RWs{Y&?K` z>~q8)07VOciA-JY0NH6zW3Mo4WV^$RzszcQ>8B_ao5)MWw4D};ruQlf%*!Trd!Hs( zwBfJk(F$BS8|oc`cE&accalyNJ_|4yc|u|cb`i`Dz?F!yVcAk@kUAjv00U9rwAQ|9ZQzszihB0%pc@cY&5|;JwUhK-Qm3 zw6CwbygmLP#CGc&us~@@9uw}&og-~kt7e746xPxA4{C<*3ig);jXR;@$AkRISK}pg zhe7l}{j*SvmQVgPA2QpocOYs-=;(jy&s%RB?AFVXO0DAeTwZ5_e7e1#paEvn>UI7U zacxCfKr2r{w#jxgA38H>O+^r~Gr^-tGUb;A-zLQz9GJ2FXp!MvoNq=oNIS8Mc(#_~ z%#$wY?|Dn%!Geil#{@1CM*)c;+Fd71J`+i7A2~-3e$D|_&3>M6GC?C=(id6oxX96$ zk4g^J$*1%0e1zzM2t_-1G_wR|<<>BKi~V>stGaaGo@h%cr9fvq=jpWDMf*7}PEfRR zAfhv36?{G>7GvZ`NW1nmC*_LsA=#pGoytat;T^#idp1ja_HS6!8}r00CWpVZzGnov zMxp5<$4dCf3o0cTujxzRcdAc$rX9{T3oT_&jiT|lKIU|?=rXZ><>5jY$xH|k5edDL zkzJ+dQE%+ZNjY^f3HV}v(?-zuxUdH$ThPh&(u~yHOq&>BX%Jj9!N*sKQWJ)jqU}VY zQ24l;4FY-urb}-s824P|RVXq9@5_BmfGu`mf)!?1ehkz*%u_l+GvWj}xiB5WpP2L4 z=0m=8SxmJxh32kjBspCy+H{ZlD^tP8;}HU?@Y;PpKEn>8Bi!4MQAXU=rGmb6sljYD)n-hXCt{IS%<+EDja3La%hc&d0UZD#ab3YkDm7)+NsXw)?j5w#R&|6# zDO!#YGma~@20O{eTcK0Id9b^V;^D%k2!{qVim^zjS5m~{7<|YM19j4i;*P#|l!zet zZ4aO8D_=QV1CjePow`e-|9sqUr%jeB9w^T@-;|<}_p(nR@X06u61c6MBQiokUlGD| zzhj^T%hI%rsnO~y8_Ln>Dt@uWc6HZlXcc*{KYX4vcw{+&`tRb=_|HJkb9jYtS}}?J zfzWd>&3JwA0efhoNKA5ZVAFGKSu-G3ro_Zq0tON%EdcgK0D}se=*Oy5ANB2X-}~6G z4~O#4l}=YZa9hms(`={llnDTNi7=;hU`}I`zbMv*-qFqQHg=r>Xi*S??&|qg#^D!X zP%^-Canh+^q+L+S@hU;{h1%!ut6uG9%>?un>X*$~eA4?@ihj=AZmxg(fVbBLpGPg{ z9ySH^>3npwR^SISA-F?xG+OsVjK2mPC%p=;M$i}jxjfKMP^|fp`}MAY|L}O7kJ5bp zM4a{tqJj?|;XwJRD$d@k%!Is$Z8*gx=FuN^!lL|y@uix@)8=Tz*`!MWb+b1+l4guK zIUDSM9DLB%c&Qo9F8(54vZ$#og2cDR)) zbYVT8Aa4=&@6`23Ks~wwliDFBwjJjjd#%M`t-7@~zQEg;^lUnon`{Im>|m`K{QcGd z>G`ocoPZfn?eT&(Qw)Sz&jV$Q4pz+JbZ02%pLFER*bhQ>&RTfvTLek9c~$nwbkEdsuS}7;pPy;^G1YM*&`2VGsLS5PX$7h<2S(ig>3dnKaJJJ(# z-g&)d;@PCj*_fhnAm{@E0Rf=UIt7}hvgDKeCy{Xgyuw#-$OO>ulL@qg9)Qt$hb8#h zq1kWrR1z+vs#ir{Y=j4$){O1vu&3F%O}8fGdD-nq2D@h083&ud=7LALB8c}b#$ESn z?B;}IK2MDosb-Pw&DM4mKQCaJnJ&Ez;!f|2L8j}Soh)mc;i4<6@V!PRWJ51dFox?0 z^$5p)=3+yx%K6gP z@~pNlIg$h=U8pYT2QJfBm~JJq!}7z-PFVaF$sv>EV~_dN%tAO0;;6*6yZlAi-%4#N zUp1cyKa)W?ddJoNwx7SR^g14u#+Ox?AV%HN5U3tLXU zfa~%3&rm=qBKE=yO2IkP(O$IEcrtAW&XBg3War>L`ENH3nX8ZU$aJ|eTYK{aAMi=U(@O1sIzmkPIfWQF=q zm(uwIDFw}QiX^17GHi4$CJ>vXA;^fd&F5;beyqk?eKV+9coE(OcsSfxx+i8|USMGU zRl^+e>E(DqWhuJ#9A?42p6{1Seb?(t*&dwf@TXJOt#zqZBuH zajLgFQ=B4Zw&|bh?`TNRUIv%+o^Wa(cSfEaC6|^^F_!H-ulm#&uA-z|{m&Um@}uvo zto=FP=IaZ3!H}5MvZGSdYvzM|&Uy8^mYU1??qX1^!bP=c*Cq@VRW}ADN4*h=#L}wm?yAL2hB@c!s95uwORgkU z4bf&Gqe5)6IFw?p6C0=eaQ!uvDAb`|bA{?5MTq^k`0mPQ7CzImiiL@+=7wt|5ia-_ zyrKvzoALKE1u`Z-5)5+X2L)&Ix@hGxH)d7ZwG8GLV%Yf=gUCyf`m6P}bl>Q$&zM>H z<-i^z=Evq=C_EkT8k-zphP9`=B7u) zCNMq_-{y*3*7km2ZXEcwx4@CHx(;oAE{OyhSJh9|pW|1U7T1*Pp0|Voy3Kgt@SEjn^w{+NdV-ia5CP)@1)7|TC1_&+P{?s4 z8+(n+)61~e9B)&Y6OHB7GXiJx`E(Pzf`~#^#7#h%0_bLtU%yEZh^6pHC_v=ePzqkZ zgC=T4zT=a-q4-Uc(?FyjJiuTET?EqrV__5bS zJ9jH~mv^dh_}mC50Z0x2=4D%oR4^6X8g_ofOxJ8!|9Gxc-_8-yRPiA8@3JHMB#>i_ z#fnui^HOaqHeBO+1m68)G0%Xy%AfA*+kX~MfhG*RmI)dtMC=yAqW*c`U1BS2#IaBf z=lIVSRQ;%vePM;`I#?anyMp?6P5hITK*vO22FLx&18C$PQukb z_nAQNpaoO5v3m{kgCnG3nKi20%f=hf_pk z*j5ojtBlu+|JP-i0ftH4o|&&A+Gsd(bkNDjMa?m$h*@!q>iPBGQ|Sl7dTd#Vj3QX9 zvVimbO%!^|VL0bZ;2tThs)D7_gBJrh|AII(0;3c->Gl%ES^T?_qd)3L8$Pg;joV&Qw^@!So!ykVjs3Hx)bJ(A)n$mBedU6G?IR4vb2`ClN z?-ANC+@jyu0pEs^x)H?+gANagjb(nWm53Bo9W{fd&uoNgJ7U_RXSjCbhYKH z9P{1z8jjguD&7M=va;le)$)A$=`=5jXrlwtn}H0*XdDD!cggEG9+ z{`|xB;ViKSZlQO?M7w~9)HW3DbWr)tF;i`c16Z|Sa(l-j0$L(5qFr74FO2R;on9$E z#*^GCmLu8ss~NwJ_*|XtvFJ5ap0xEFvT?Vb)9p9zaQTjPdMw1DeZwk29TYc!Tt1O* zTWMU_hgZzqtasr^Mb+8OrmQ@5OU5k()1_)ex4UL>hx5Z zOh|OG#+qQi^~#=HJ4rzOMZkw@(29xX{(D_fr^60^?$;K8sU||7S+*>87hC3j3&^Wk zDq50+iA{V@Ypj2zW~_Q25UAC=ILY$go;m0J{iXwxGyzao)XG6y`XxIODh6~E4-ir~(C{9F^?)xIP@`IaJ#|*ys1T>@{brYy9x123@0YAVC zKQvN8nl9BgJ(6_Wr=W6Q$5VO+G+&+w{gsAxZ7!HrV3i2i9xhwB)eb!q@S1B+Xode#IFMYnWD^I1?UY=YIFD? zK!kI{SJEl@W?iAA^pf$(fL4{+*Gl3QK-7Zn>d!qIZI7?d*J7uDxRrNjsw~4iBTEW} zcV&wN(_3z}E`RU(L725~e$0DEEFoH&e2Z`OZ`E~5g+6c2TJ%dXs^7Av0l^)w^LoE= zgi&9kOm|0;L(@izq0a+vgSw{gK2GXT$xFQkZ18gib`i_kr}IvIlts2{@OP}P<%wVy z(?Ibt)*L{C?`6Lgl)6Nhn%o@Jbt;P9p2_zCuam>t0xPo3A@$~>KpQVH{&5LBs=TEy z=)l?GAN{EQVbd8TYP@r`HY7KTTxfJq3-BWjLz)KejI#{2cfI5e0%%yIxZbK#^y6K4 zHwHL`n%#s>;VxVh4%r^ttks}YRfPWb?ddqC#W#}h%`?|qtjFZ6XusdjB~b-vjkNur zX09|I%C>#KZI&p7BFm#PHR(Z7wjpGRY>}NbMb@##Oo%LzkV#p}E=9!Hhf0WOk_n>> zjh$p)YV6DOo|F3Ue*Ay?f4qM)znQt_zV7QhkK;U!<8mczk(`Z41>6yxjss$d?GO^+ z6gW&xd~R}C`{$c}IgQB3U+7~>DsP+LIQLNL30n`Kv48D)liSTpJhj2$SW_1H`t zCVGgO2>{cQz3Axv7HpRK5n3t!fW})wWzfdLqlMR=gKA%j&?2ybqw&;SBhgeyl&D?* zsXPD5Q;2EE1|yUvbHrTM>24{U9DBl;GFon~I_y&Xc~os_oH{xTa)`SX3#}mUTSPf~ zJY*40Z#$C&W8=Xwd4EtTa(x{-brNQ-`D+$c4+00rC{MN1P{dh+>A7k4V*0Oa7zwII zM3l3Nx-%b(LIR`jm$@#(_NRXv`&a~83A8w$eE-n}EPy!^@G zyx|^!*4<|_JT@LavH9Qn!k6&N zduE#AM>B%@P|t&=)(;r2F&JwelR@8sYkAt7H5ypglCdQtCNePl3Nq1zZD^cT{WU9r zYsuQ9ddIlC`qE6V6eyned`q7fcYigKi0OMKf=F}PFE{pRuOb@`EQ5q5E3fJ3mA>=X zEW0d}`9LEd`W}OH#HQT5BZTv+g{Bg2%7UDAXTySY(Dc|&K1t5;7sM$ehJeqyjddO> zAn4O;yg_^ zr+Nn}q#U*#pv(QG+EwOx+3^gL< zuq$Qs)~}5l822!;D_)szW*gCXQnf}rsa@FpBjR*3Vy`Dg&(zAVL@!m=Eg5_HHQ6qW zt5Z<;W~TyD+PQ_CB3EQtVykJK!BZ8)@~o;mnLY=K2g|W*9d)L5T?Q+hh@6?P_4p-> z-q-~fxg5QM5H`yKGWJz?Ay;3ComK(ez}I_{P^m_mA7T;C_+qbw<1)zO5sv6gYC@@~ zjNQM`=PzC1_I`&^H~(Mg=g-Mu120%ikyE2M@aRxPUj zg@YRtV?9}#^%8B-VTP{s)$5+;KnFC>*}i9AELr6@Ou>#J9oo*{qPYdl4b(Z+ElMpl zeqLHVg6KhC!me2Mybq=oo!!v}kAi*fJr%~X-Q+8Z<0w-XbJNXLSOvZq#fW>A+?XBz@=u?|qXT-(u-TDfPKsFI$9$1m95+BN-3HY{GN!Kb(`E$vDNJF@Dp$@IuAS zw7VA8bV23yIdx-)2-0eAndAL%bCPzp_2>9Vg&aK3FKC!@^!A^&UpU+KL$~>ZfCn#0 zvBb5rRJ*yO^a2T?xvrPQW*=pI$oO@geo}zLN0*%#vP@5SY@wfV*gM`?*BtVytbIRaDEMC8H1SHYt#fe3~*QKZuHz49MR-zrv>_n#rXymC$m&3*L@U&fXEvp51zns2rq&uW6qPm0ngImu36`*Wm2`z}mWrvygL$S3Ti zFoX$7oL%b>yLTeDZCv9R+A{m!e%{%uHO*H86AC?yYvuFYKAIy_^DLs#8%|X|Lx~3G zKA$iU&=StmOO=;e^_SLhLhnzl1i zq&w#x>ev?V-IB)p%&wMpWTc^Fa@lYq*;v^7o`T=88eiO*(Rmc*{wvAey@O>(xxXfO ztKsrCCc-o}c$be}Kf)^~G}`g$h4S!flBwV@N4ssfWHwWuHB==;^`4m0)DWPBi`@7p zto7tAmH1O2dwT<2GlZF;@I-%I@SrUHJ;jP{DlZ2 z011}6PC5RC2+V;}mXXxo6uB@azzI`tbf!CV7oNQ#tP{=Z3b^;&>>lo!cKe?Szs zJ_HRoncVxECN~Hp)&Ko{fJ#pvKgXP(G9k+xlL@$g#(R@(I~bw?gb-3--yc#eR&|*< zjUuHh`~hvMSpeF2Vxso`rELNLWewW3rvAOA!1e!+qll#fw{VgY1B*-)(~ofu8Hl621c=ti|AMvQTgXnJ}~w#IQ=w!TPbUWk^YM zjnKaaJ#sV&8(=XkY|~QL;eWgf@>?xrku!LU+PH___|esZs<4x|gfmn8!pc`Qh4 z^pimXx(6Nwwmhf(r$+Y3dw=Jo7TQDufU*jw6<@vGp~(QdMJ6O7Ftt7fOUK_cJ)s7Ny3 z>6pdoZoA&sSSnuxD8*E(`as||9&K9GLHy@xZTjETm zTlXCS8JA@PdcyX@q2T&u2EJU=K^nsFOt*lT3LCW2^paclsv6{n6})58Lq&iX%if1p zx_-4KQi+X)aUU*8@<9mJc$EY-KdQQOGUi69#YOu4gt=M|h>trULG{QB;a)wHfk0o(rngdlq=>3SkwUWIssW^MH!^|h3 z4!KB6#tS}t7}Rq!aF!S@a>}V0U3;)$S8}a^za30)Md$jT%eU*a{Cudo^Y9+y*o}R< zq?e|gV2QKD1Sq<%hb8J|U&!c-@(0~I+(0DN?R=98HAbp$`E|WrYSfY;z0*Aqw6&+V zPI2Ea7jX0wO%L8_N6FG8P>E5+v*zJ*6fKcPFxw2 z8aD8)?lvo-$p76bgBUzYHJP#;zf-#UB;TT*3K+EL)~+sb={G%k3p@L1!P? zMdo|Q8M4}JE9@PFOfxPlm3)7Dy#bu(i^nrzHYL7Q!m7MD5f{TRb@fd|29 zY@U{n(p+v=#0GC;1EO|1vFJM1g~+a%_mvUw)HeEK5# z{pMsu<2aP0XH=!;-|0Yzfn)I1TBdw4M}C)(yC(1yYZLquQ+`*Vw?AqS0w4fL%zIg2<{`+^RJ_ABf%jHv9&t~n! zL&6Ns1WU2ltX$f_|KYzRJHFa1JwkA^rgJBo{*