From 283de41281661fc3223bba8ff773731902548add Mon Sep 17 00:00:00 2001 From: beiwo07 Date: Wed, 15 Jul 2020 16:21:35 -0500 Subject: [PATCH] This is a second submission to replace my previous submission. When Pushing these files in github, I only pushed .Rmd but not other. I realize Rmd cannot be rendered in github. --- HW02_4.Rproj | 13 ++ HW02_A_Graph-Fails.Rmd | 66 +++++++-- HW02_A_Graph-Fails.md | 130 ++++++++++++++++++ .../unnamed-chunk-1-1.png | Bin 0 -> 5168 bytes .../unnamed-chunk-2-1.png | Bin 0 -> 4124 bytes .../unnamed-chunk-3-1.png | Bin 0 -> 6498 bytes .../unnamed-chunk-4-1.png | Bin 0 -> 6655 bytes .../unnamed-chunk-5-1.png | Bin 0 -> 10051 bytes HW02_B_Mimic_starter.Rmd | 53 ++++++- HW02_B_Mimic_starter.md | 87 ++++++++++++ .../figure-markdown_github/graoh 3 code-1.png | Bin 0 -> 7327 bytes .../figure-markdown_github/graph 2 code-1.png | Bin 0 -> 9480 bytes .../figure-markdown_github/graph 4 code-1.png | Bin 0 -> 8838 bytes .../figure-markdown_github/graph1 code-1.png | Bin 0 -> 9340 bytes .../unnamed-chunk-4-1.png | Bin 0 -> 16119 bytes 15 files changed, 332 insertions(+), 17 deletions(-) create mode 100644 HW02_4.Rproj create mode 100644 HW02_A_Graph-Fails.md create mode 100644 HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-1-1.png create mode 100644 HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-2-1.png create mode 100644 HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-3-1.png create mode 100644 HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-4-1.png create mode 100644 HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-5-1.png create mode 100644 HW02_B_Mimic_starter.md create mode 100644 HW02_B_Mimic_starter_files/figure-markdown_github/graoh 3 code-1.png create mode 100644 HW02_B_Mimic_starter_files/figure-markdown_github/graph 2 code-1.png create mode 100644 HW02_B_Mimic_starter_files/figure-markdown_github/graph 4 code-1.png create mode 100644 HW02_B_Mimic_starter_files/figure-markdown_github/graph1 code-1.png create mode 100644 HW02_B_Mimic_starter_files/figure-markdown_github/unnamed-chunk-4-1.png diff --git a/HW02_4.Rproj b/HW02_4.Rproj new file mode 100644 index 0000000..8e3c2eb --- /dev/null +++ b/HW02_4.Rproj @@ -0,0 +1,13 @@ +Version: 1.0 + +RestoreWorkspace: Default +SaveWorkspace: Default +AlwaysSaveHistory: Default + +EnableCodeIndexing: Yes +UseSpacesForTab: Yes +NumSpacesForTab: 2 +Encoding: UTF-8 + +RnwWeave: Sweave +LaTeX: pdfLaTeX diff --git a/HW02_A_Graph-Fails.Rmd b/HW02_A_Graph-Fails.Rmd index eb8937c..f76a0ef 100644 --- a/HW02_A_Graph-Fails.Rmd +++ b/HW02_A_Graph-Fails.Rmd @@ -1,6 +1,6 @@ --- -title: "What went wrong?" -author: "Robert Gruener" +title: "Corrected graphs, answers, and comments" +author: Bei Wang date due: "7/13/2020" output: github_document --- @@ -29,20 +29,32 @@ library("magrittr") #so I can do some piping What error is being thrown? How do you correct it? (hint, the error message tells you) +**My answer/comment:** + +*the following 2 errors have been corrected.* + +*1.error 1: use "+"" instead of "%>%"* + +*2.error 2: "city" was misspelled; there is a variable called "cty" that means city miles per gallow.* ```{r} data(mpg) #this is a dataset from the ggplot2 package mpg %>% - ggplot(mapping = aes(x = city, y = hwy, color = "blue")) %>% + ggplot(mapping = aes(x = cty, y = hwy, color = "blue")) + geom_point() ``` ### Graph Fail 2 Why aren't the points blue? It is making me blue that the points in the graph aren't blue :`( + +**My answer/comment:** + +*It seems the color command should be wrapped in geom_point(), and my guess is this is because color belongs to this layer instead of ggplot(). I'm not so sure about this.* + ```{r} -ggplot(data = mpg) + - geom_point(mapping = aes(x = displ, y = hwy, color = "blue")) +ggplot(mpg, aes(x = displ, y = hwy)) + + geom_point(color = "blue") ``` @@ -51,24 +63,47 @@ ggplot(data = mpg) + ### Graph Fail 3 Two mistakes in this graph. First, I wanted to make the the points slightly bolder, but changing the alpha to 2 does nothing. What does alpha do and what does setting it to 2 do? What could be done instead if I want the points slightly bigger? + +**My answer/comment:** + +*alpha is for degree of transparency of the points, which ranges from 0(transparent) to 1(opaque). Using "size=2" can make the points bolder.* + Second, I wanted to move the legend on top of the graph since there aren't any points there, putting it at approximately the point/ordered pair (5, 40). How do you actually do this? Also, how do you remove the legend title ("class")? Finally, how would you remove the plot legend completely? + +**My answer/comment** + +*The position of the legend can be changed by using theme(legend.position = c()), and I found (0.7.0.9) is a good position for this graph. * + +*The legend title can be removed by using theme(legend.title = element_blank())* + +*Using them(legend.position= "none") could remove the legend* + + ```{r} mpg %>% ggplot() + - geom_point(mapping = aes(x = displ, y = hwy, color = class), alpha = 2) + + geom_point(mapping = aes(x = displ, y = hwy, color = class), size = 2) + theme(legend.direction = "horizontal") + - theme(legend.position = c(5, 40)) + theme(legend.position = c(0.7, 0.9))+ + theme(legend.title = element_blank()) + ``` ### Graph Fail 4 I wanted just one smoothing line. Just one line, to show the general relationship here. But that's not happening. Instead I'm getting 3 lines, why and fix it please? +**My answer/comment** + +*Wrapping color=drv in ggplot() will apply the color to every layerl, which is why there were three seperate lines. To have one line, I moved the color=drv to the geom_point. This way it's only applied to the points.* + +*I also noticed an interesting fact that the block of codes below would fail with an error message saying "%>% cannot be found" and wont if I didnt run the library("magrittr") in the very first r code block in this file.* + ```{r} -mpg %>% -ggplot(mapping = aes(x = displ, y = hwy, color = drv)) + - geom_point() + - geom_smooth(se = F) #se = F makes it so it won't show the error in the line of fit +mpg %>% +ggplot(mapping = aes(x = displ, y=hwy)) + + geom_point(mapping = aes(color = drv)) + + geom_smooth(se = F) ``` ### Graph Fail 5 @@ -76,11 +111,16 @@ I got tired of the points, so I went to boxplots instead. However, I wanted the Also, the x-axis labels were overlaping, so I rotated them. But now they overlap the bottom of the graph. How can I fix this so axis labels aren't on the graph? +**My answer/comment** + +*Using fill instead of color will change the box colors.* + +*Using hjust = 1 will adjust the x-axis labels to a proper position without overlapping with the graph.* ```{r} -ggplot(data = mpg, mapping = aes(x = manufacturer, y = cty, color = manufacturer)) + +ggplot(data = mpg, mapping = aes(x = manufacturer, y = cty, fill = manufacturer)) + geom_boxplot() + - theme(axis.text.x = element_text(angle = 45)) + theme(axis.text.x = element_text(angle = 45, hjust=1)) ``` diff --git a/HW02_A_Graph-Fails.md b/HW02_A_Graph-Fails.md new file mode 100644 index 0000000..4a3186e --- /dev/null +++ b/HW02_A_Graph-Fails.md @@ -0,0 +1,130 @@ +Corrected graphs, answers, and comments +================ +Bei Wang + +``` r +knitr::opts_chunk$set(echo = TRUE, error = TRUE) +``` + +HW02 Part A +----------- + +In this document, I will add some examples of some coding mistakes, it is up to you to figure out why the graphs are messing up. + +### First load packages + +It is always best to load the packages you need at the top of a script. It's another common coding formatting standard (like using the assignment operator instead of the equals sign). In this case, it helps people realize what they need to install for the script and gives an idea of what functions will be called. + +It is also best coding practice to only call the packages you use, so if you use a package but end up tossing the code you use for it, then make sure to remove loading it in the first place. For example, I could use `library("tidyverse")` but since this script will only be using ggplot2, I only load ggplot2. + +``` r +library("ggplot2") +library("magrittr") #so I can do some piping +``` + +### Graph Fail 1 + +What error is being thrown? How do you correct it? (hint, the error message tells you) + +**My answer/comment:** + +*the following 2 errors have been corrected.* + +*1.error 1: use "+"" instead of "%>%"* + +*2.error 2: "city" was misspelled; there is a variable called "cty" that means city miles per gallow.* + +``` r +data(mpg) #this is a dataset from the ggplot2 package + +mpg %>% + ggplot(mapping = aes(x = cty, y = hwy, color = "blue")) + + geom_point() +``` + +![](HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-1-1.png) + +### Graph Fail 2 + +Why aren't the points blue? It is making me blue that the points in the graph aren't blue :\`( + +**My answer/comment:** + +*It seems the color command should be wrapped in geom\_point(), and my guess is this is because color belongs to this layer instead of ggplot(). I'm not so sure about this.* + +``` r +ggplot(mpg, aes(x = displ, y = hwy)) + + geom_point(color = "blue") +``` + +![](HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-2-1.png) + +### Graph Fail 3 + +Two mistakes in this graph. First, I wanted to make the the points slightly bolder, but changing the alpha to 2 does nothing. What does alpha do and what does setting it to 2 do? What could be done instead if I want the points slightly bigger? + +**My answer/comment:** + +*alpha is for degree of transparency of the points, which ranges from 0(transparent) to 1(opaque). Using "size=2" can make the points bolder.* + +Second, I wanted to move the legend on top of the graph since there aren't any points there, putting it at approximately the point/ordered pair (5, 40). How do you actually do this? Also, how do you remove the legend title ("class")? Finally, how would you remove the plot legend completely? + +**My answer/comment** + +*The position of the legend can be changed by using theme(legend.position = c()), and I found (0.7.0.9) is a good position for this graph. * + +*The legend title can be removed by using theme(legend.title = element\_blank())* + +*Using them(legend.position= "none") could remove the legend* + +``` r +mpg %>% +ggplot() + + geom_point(mapping = aes(x = displ, y = hwy, color = class), size = 2) + + theme(legend.direction = "horizontal") + + theme(legend.position = c(0.7, 0.9))+ + theme(legend.title = element_blank()) +``` + +![](HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-3-1.png) + +### Graph Fail 4 + +I wanted just one smoothing line. Just one line, to show the general relationship here. But that's not happening. Instead I'm getting 3 lines, why and fix it please? + +**My answer/comment** + +*Wrapping color=drv in ggplot() will apply the color to every layerl, which is why there were three seperate lines. To have one line, I moved the color=drv to the geom\_point. This way it's only applied to the points.* + +*I also noticed an interesting fact that the block of codes below would fail with an error message saying "%>% cannot be found" and wont if I didnt run the library("magrittr") in the very first r code block in this file.* + +``` r +mpg %>% +ggplot(mapping = aes(x = displ, y=hwy)) + + geom_point(mapping = aes(color = drv)) + + geom_smooth(se = F) +``` + + ## `geom_smooth()` using method = 'loess' and formula 'y ~ x' + +![](HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-4-1.png) + +### Graph Fail 5 + +I got tired of the points, so I went to boxplots instead. However, I wanted the boxes to be all one color, but setting the color aesthetic just changed the outline? How can I make the box one color, not just the outline? + +Also, the x-axis labels were overlaping, so I rotated them. But now they overlap the bottom of the graph. How can I fix this so axis labels aren't on the graph? + +**My answer/comment** + +*Using fill instead of color will change the box colors.* + +*Using hjust = 1 will adjust the x-axis labels to a proper position without overlapping with the graph.* + +``` r +ggplot(data = mpg, mapping = aes(x = manufacturer, y = cty, fill = manufacturer)) + + geom_boxplot() + + theme(axis.text.x = element_text(angle = 45, hjust=1)) +``` + +![](HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-5-1.png) diff --git a/HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-1-1.png b/HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-1-1.png new file mode 100644 index 0000000000000000000000000000000000000000..a6886f3f868d0a905cf65537ed2a8c065777cb0a GIT binary patch literal 5168 zcmds5d0bOhzK?Byu!9@QVo+qMT9_iTBm#3$h*SfSrN|QU+#&@DAP^7;b}ki0kw9q& zJ_>2jL0^fx#fin4BC;PA^_@QSf*=p2EV@TgggQGJ>qQa&pLQHkmDlUsLcD z3Z71(z&{p+HB47FpyTOuSlTMj!61~K$ypRUOQAt$wX#^l!>nOBn~Y$SG3;JBTi(l- z%UkLAR=K=42h%H;53?x4a{1)se0snV-X0QCdGeKOH}DO1Y(P}=TX2fv2dEPDYq+C+WB8C6ph{9w6ru+y6m23o_k`S+l_-eIf&hn0O5=Y()`6g z3I+rex^$W@UQLcDWyY?epMQc{^nH1K}Cb}3++(l*$dCj z{!_o}tRw$Ubu)J}lH1JSn3ifJ1R3%5?Gk=ln(||Ic6L;HMTXrQGe$PMx`aOFZ9g_d zRtL#LUPL{=t5}NQv?G|FO-xfhbwhJ!^9S>S?RT`-CGx+o8qps_i9RV5oeX-rO<9%* zbqo9dLz;4cpHBk~?8w2@AsZ%J!X8kzNbFd($FoO5Am2Lvy zzA!6oiDu$H&nhrS-O9qo1B7ie)%HxYu$i}|JL{maGxMQpYn7sk~b zOIpzblA9Qu8zDRaX@e8Ys6Sjv_SV&_w&{EDyjI0oK2j_Z#4b&hVv@fn$)#Q->fYJClm{z9*aI~Z_OrzGi{ z*G~L(X+)iW+p=iN5IL<)n*T0COzm?*^%&8i>!x8*j^I8Jk_ki7G~iwE>)rf!Lv{#% zUc346GJs9^{zv_;Gl?tLcoOeiOv0R^25&7T5ODO6+MR|D$Mxbq2}$$#4Q%)y5TgdN z?3_UBGDTCXacij8AQ8k9bf$@BPscaZ^rqB~faP&_Qaz<>AFy?5^PyPJpF($S4TyRO z?ROT1NFH1utp$c#5xFY zZRlaT98L;xv3CvMU9rCC#;Xf<*pcuYNu1DpHt!jGGU?HQe47bzLF_qMwzNAS6=SgY z3AnLw)y?6GC&gvj@q|tOh;04onk=D_`0|vdbhV_|wfw+%25zA5%jZg**8Molzy9Wl zTk5Fm&~CW9;?Q3T7W&uCHx|6RH&;7ldRZ(xd`2h-u)>HRJUP;#X9ah4vuC=|je$pa zn(h^}F&iwkUn3hK7Tf#ACneafF6c&}q~+^tQRT_E^G&e9yEgUDdB}oR-FP12dA3{@ zUqTQlbLJ6Esqo|)o`#(M5XNE*VCnG6{!hvVF4fS8d1{CBq91kY;$`H@Aefhu!aq~` z8j{t30q-Ev==l~(D!RJG)~h)S&y$)r$bb$QwwFD9iq99`FuDnGNm-oTm1l80{Xqbb z*BzeJ>^Yn{rga^P!QgrGsOu5%q|)NPh2r~XtwXP2<98N7+%4;E9`ZWk za`DJ%HP|>?AmES6!Dk<UlM{zO>+MH-U zGlCZ(-y^e9sh>YuI{Ee8rHtb!P7yR9qn;kS2Sv>Uh__qYx~li2l=mGrnzv8~)|!*I zFUBkkRYB;~L?UfvE@Ih!#eNI8l(n3!Ev@J#srMA_F=&WuRn>fUC~P26EdFIO!8rg) zbWEmjprTse{L?D0ZZ#eW5A7YG1(yQ@HtUfXB@}DzANS^JCdEoq9B!@)Tjs4(=Q7iF zD~Z=R?_51Q*l8fNukZ6nKOC=5=$GArx`lz+jv)|rKR7BBPNW9LKzB(mT0Xn?fx%&` zFdG0)!CneXd{YXx0*_Sj??>KpV>ArwFAG*(!XotihRAJJD%!3a6Vkm8oKeh}s=ZdF zxa)4R^%vptT{{mH0#0ev5}0P*@PS>P@%Vqi7EMc0;yDl6m^B>gKgHiWojOCD? zUz*wY?;OGM9Y_;Z9M8Y$(7351n56YD!tz^qYU>4bZ)~pWQ=10O#;*siWyUS+eXxZN z?N?P89{1E#IgDXBp!R;#fY*()G`3frV`>GaG9J3Je0k+t@5gD|998(Kbpgn%4jAV>J}O-?BAbQ1m7Ms4D2x`I%F-ivz`Kwu$sdpm=bK&$ ztpAGpRR(MPsWI6?{VUO|5CX0HB_V5*Y1Ekx6D7U#HrzijQ}miUs&0*&d-QV;>GY%6 z{9Q1*-q~L5N!!kF#_qH1WOCpXFx<0snXW*i7sKFv8~>OK8zhK4V6tv#M}yB9i>6@cN?_=yTB<>@GaLs=dP=7GNVn%8 zd{pTIt+RfGP)dT$$3LxcTrIo{FA8yPw|+6-30@^sc$S$J7&L^EV!NUC_uEl#vU&aP z07`A_oqlvJs5?gWl^zF4OvPi+SsI$pK7<+@-V z(WD>uxn9?KN6=au;^u9Tz23(7OQ`mv+MZ5g?f`y5tufkV^ zaTwVUAg?MuQBubgEeO9ASsM5r;*T}C^LzK`FWz;!u7sG|VTlrIjl4}lB~1lX6)(Tm zC~#%RU%*RNqfbg+SRrX^gJ{Vn_`q80DEKJ7SYA1>JZNFb4Ih{ZXa1Ct$#i&t&D>y- zvd4WmAhkYwe$O=iLZF1q{4R->+v#7Cp~)f{F(AucH=rQ@Q*QCt zLcIx5LazO@6y~S2K#6V0GD#-Av8WaFZS5XRa)WOhGhb+4c|2^Qtuf_9gAQMPU!9?k z1}3@VFI)W^cZBZgsT9p$c3Br?{CON18QQ*8{EI8mwNOsHmvdj5Qd=rre@OJDxrF%D zA2Msul|piZ%25~6g8lD(WS461OGi#|uP7(Up51%x?WO$N!p3pe#REqiYE1y1ylNZXC@7P5i`nUvY5~AIOV}qJhm;=7@0Mq33!WT83Bnguqw-DPNFhi zoOsnh4LJLG|6XFlNhWE?@`oQY)1b#8ePkxnf$Qomp4YI^0jcU@;RwL9zMODnT-6AT sB)XO)G_FOC>%h-%f1`Tqi`A;D+FEl>r`UN`@#W9c-Ro$%+kb$61xDciYXATM literal 0 HcmV?d00001 diff --git a/HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-2-1.png b/HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-2-1.png new file mode 100644 index 0000000000000000000000000000000000000000..25b98c27230839aad8c1119480c90489354bec9a GIT binary patch literal 4124 zcmcInd010d7LN&=h@=!z0SUEG5n2Ta7zs;4MHEYf3Zqpj3P=EDm9Qm{m}*5T1Qe76 z3Os8Yz^GI~D9BbVvLukFVG$5>LT%Fzbz&iqgM0nZDFo_i$41amSygt?&2^NXPl5=^i zIw%E?NJ$~5bV9sf5>GC~;;~4)zCKf;6XLD2B2?wCLPP82&-ALoW=dLbF)!-X*Sk4cJ@k6A zQPbwqZvC@69ykJ9s0yck*!$H9+xk>kHi8lWt> zqr1+TUv>nXi!`=s1}QW+=rYZpyhC!SK-B1S?ZC&c;;q!(tU>FjovNfcq*?p2+$rTD zOq%w|o5~GlyA%JS|DD(U|Hu~9^qN4n?Psb5x6LDvvQ9?tFJPec3GpHAw*bi3%%i!If6QMe8AJK7BQuGdlgqey$DXUm z`>w)7Yy@&TFI79>Erz%UfKhwSW$r=X5jxSUBM9kx<*(3ttHRCLbr=xrax-#uxx&6o zJ_(?5*HT(-*#`Q4u3MfquWq*8ihb&?N||HsaDG4nobRm=Mia$TdTH8zLkdGqA7Y;_ z$39CQdjrx>#CZLUkBT}K8VpxJHd#uvPPe&z&b(L9$BeYIm@rKE;{xOfxdyk4K~$Ec z8jj}{*DdWU)t+ddZAYhizxBx9R2Z*T z6io{6)h|+~@&&6<+vp}m<7ny?O6PKBZ8CG61)Qs_P6BG8)9=aHkHEwH{wiUHc%psc z#TQKT2oeL>kSxrYTxe_=td~NLO8A#09W#>iraErIv|~MoFMHByt;Ki~aC6m$^1Vi} zPuNuMXJAYIWKTU`JdruTtD2`+T0?{AT+%JcxtfmWciOciH8)Iia0R0kYbdrTs1GhA z1|%n-u}m=Q2Wl{3tUG4hBW7+eqII2P?UF-#T1h(7L64A9l5=`~4~tX?4DkDhFwOX_ z;VN#?3DAImaY9WLthqHcaM^8AB0t^c5+V95t}!Ou^CHIvoQQX<(YLAYWK~pH)ld|r z;$Qa?RNVm$?t+?>?>%1s8kxl)IOhziQ{vVi`>b-~8zk>9+y)Li5SAjM0ZlzQB#ITJ zo!((l5&7Mb*K;6wh+DNJ$Gc6}quUtc1I2EVMdin4BgHIYx6LzZz=o}EZ4_l{+|s(O z;h}}oA6E4m88XdVoc(~1PrJT+E4z)kRQfE2lharI_?BhU&vsT~*}<+%&C2VwmW?N0el%Uj+PLGZrJo3 z*55W8m1WOS6KVPX^ey$mAg;>~#4}qNE>E*xrw?_0KepC(r$|dO!?;X;N*u1@g$tv; zp9wxNcL9?*{}DJ%>wnQCAQ-Mr8^mS#flHj8YK4ZWOq3E_^apYAYH4276*601E8xVf zQmmVZ0JB|=RDRdt^Y~U)q;Ru=#QJ5vbN41YP=@(u8o_C3KCNGPoho4Gx_F4sGG{Pj z4%{dO6IUi2QV-|Xo9tk?d(_(cJN%bQ0*caC9JYA+sK1kky>@r7cZhnh_xAZ&E7!P$FAb& z_rzU=l6F`9C|`w=IBuAqp&{950G@ILd=iN~Z6?cn)c*8xk9nt>8>>w9JUJ8d)FNGY zZPrs2?!r=3#iBSSe7t3nCrTAB(#gQ)s(~}r`^BCM#>a1T&GFAad(2)U9>2|t4LdVG zawL3w?z0_WO7}XOz9XRB!r%_w_`5L}G%SMQq!@6*EUbx3DzD%DW<>Dgqqs z=Xa5-y?%_l{Y4V7TiA_Jj9|;?sgu`YN^-WL&qii!j@OvEzkMe%j(}Wi@pkRnI19uq z4_+%*e@6f%V1FyEL^nyPWi!}z6cg_V^pgcQnqHur=HIXkTK2;%M?e$fk+0!jsv$XF zd+3w`zWNvC5q+k4Ny7?_?oG$W9YVoiFY!Qsr96T!o|vw$Z}sqt)_h41+4QO-au^i{ z+5Gf6sP@71StF-owTG6@``t4-7(}D?As#EY^f&k7 zvf;`xVcGakG=@6s)~RCg8(b_*7$(h=hWT^P)B_ZBycNoPGl|$lVo9K;|HUwLN5y+a zgg5#Q_|4D=O(%zet{e&XPL?Xgys+C^$B1^Ns9$r$!o!X|b|0giHy_#&GO~^;FrtPu z5WXA`%RFmhd)3NH!j!TesZj8}7>d$+a`laalA9<6KaAebS@mf-(l;`5oACNfyD-J? zB+^&G1k??Lm%v_(JK${jpOpMLp}#X}twf?4*~d>67K9bElRHs%v@+#fwX?9vl(ITqT5>o_f_sCBVbQt$VyHGI#V;3qE82@mCQ)YRybc zM`?LBwYX>YS$Bl^ZBkqLyMwP|S8CSNJ6gJ?dq`6P_Gx|)*v-wc7>eQYm8*Wp9`_iwW z`CF6%kAAf>y6s`;_83ZVX@C0M!-cCu%xiZTq`Nov;}%+4?Rn+dEiOL)XiZ)t#AF+C z{^Gf}4#Y5-Y#e&MzAQ8@fgx-6 zz8n3E>STOPPinU!o}z$%R30-{GsFl2f>H_yv^i;EGD9}J@BpcYM`n3-@D@Vam~?vF z_2ZTup6~;q@B@p*W!G>#i#E%pdtW^ddhvo*88hYzp!Nb-0T~!sJJ_jZ#8lU3Hkpll zLif?5=#gm&Q2FVAX1Qr*A(-cJv%3#=4oP2#&`!OMK)B$sxhUsSP0tPef^^R4QDr?F vGWty}$`3=7!KK2M30OgUEq_t{4s?je|DM@hVhjQG9*zED~ z@#*R51s}I%`)){>{gwjpL2Ya{B)TR9F|yh0p5TlY2nL?ZM=Y*zaBQnyyEoN&WIJ+j zAhzHP0CT^46DiTbeKh~@)>Qc#X4lbNS$P|jR#A$#S;?i?f=)}V9xtoLM{?sRHe2uE z%2i_m33omJx4wX^k!4p&mY=}&Eyy^S-%C@q!~D)_Q=Ecr;xPHl5b%w+U_5mjS-2e_ zoX2c||5!BrJ)!Kz4W=qLuR{_*K(zCdtEfc5?X?;qAUab57OL8;2$z?0(+;VkI{reI z8O2iVgN&+nvsB4S)c5-OH{S+DfxHUy^qAdV(z4m)2&~3~|Mb<>!#)lSNH@8R;alFI7(E}B3%W#V_a)ie2Ab^f}5~4&sA`8tjHw03m?LV_{U|a@L;%6)O<8!-j z9kCNE+y?2o!IpW&z|_=qlJa)3z24DkvSr3OTuSO=d~tDck5Ya5#h zrOUOp?5ExD&>r_DwXs-3xK7Asf2 zFw+U6UxTmj! zW3Nff{OQ7_Z%+}KW1%xyz30=V$dh7kZk~K&kr!}E-~aS}qjIGMpBqwSckH6y{7c0r z+M;RL#a@8`uJIzn@VVE&8S0QRxjMn~Y=8CED>(Rz%qipbd8UwUr}7ex5)FDg1uhqR7;5^ER=*je;_apdFu@uvb#9Et4dsSWroznU4s3TG$m5# z>a=>izhy-))~cNa8PivU&?2%B@#8%IbR_9oN|Op0H%;;`gMVm?6k-tBN7|*PvDxhn8MMmgri679 z>;8{-Gb76(V18(D_FH0Fyi(DaI0i22%w$Lu=B2+h5f7QXhwX(QEm){}Jul%sRb8?- zo5BA98<}sJcxT^_)~}*SU{EzhmO&)FoL85QpH5?3dxlI?VP$H?bn<-;rNMKjfN{yk ze9m_};o+iw#YJj&0(?tL4mLHaG_4R!22c0J>M*^HKQ@$%eyesQg&NcSnn0mN^q%K7 zHthu$Vy!EZj+f>8Hd+J*)$^&$-UYi$hm}{sRB5)Ir)S!e?gMa9zr{HZk5)#b)tmaE zgn^x1Tw4aeQe5@S4NLhhulu8f=I+M^Djg`7=>2WFcSCX>{QlK%D1lES;sfPZwx&qsS7=+iZT6YxJFYd;RXI*5 z8?Q{dRkcrVhyM8P-d;*;FtaY>KRx^VAHP}Z?9F`=d~|^ZP7*&=fBQ5*bd&7!x;mu$ zh3nE<0Ma3!UiQ;Fy#sykN7Wp$pR~nmF0ZohV2BU*hYvo1tA+gs%qAE=E|x!BeDrcy zU#zf5LR;LMw(Q{7*m--In#OSkJ)z6wwzOH{-7+n7b^d~OvcGdLWy+RO+5*1ty?UCR zG{ML{=DoiR30NiHXgn5JTzB%_+W2c>V=^ugoW{BoMZf67%<5mHW+nUQY<*kc`%%ff zjB7%;u)pTe$2Mi251s-aKJefB;Zek6(fOyW5y4Yzz#sWob4GJVOu=`Hzyxr3zipNQ zj^1JsSRnE8sY<2SxMd!tudWY@pgw6UHZ8N4i=tUiE8?!G#P4n492&C;7K7d4g+}VD z8NcKz2EW5wRwS`-&WYrEuxxnjZBUc4?d!tjH?pI-#ZRvwmvRd>757h+1_X%d5$Imx z9;X;GfQK7ri!;-(-F)8}<4K3E^{5_5_IVJT|KK@Y4!*5-SYl^!w2(Q}4-6PISU1fH z-H6FH#ZXFHL-zkB0znPaKQIx2-4ZE|4uF^Y7sNT8$=6B^j^&d$xw+A#G+~`-QgqhO zAuE1%VQ+Das{GTYsDmZ~T3*sD9ujj|@0;V90cj`k0c1pI)Seqo#J(FOXo#1_^yIYF z_%y7F?X`xyihyMHl*+W63u>1s35LCP%DP`qFOAny?xRJ6TAZUJ(t1dDQcOedYJXu1 z=(|34(|i3nv@FZ>1z5Mk(AHBxsVqE7usFKB(L~F`RyDHn2U6|ukS%)2;?ED*EB`uoVV;J&0tl%%BZ6l0YelH9=MxB{Mn$;PT}!%Zj?6J+3y4;L$X)`x z_nq3f8V`Ae%0sBH8?;hCjL_0#2q12oDjJ005PV@A><(~e6CixY)nQW0_+Q^ za!J%6t3`&NP>X;`^`jBgX#~0I?61Yq8*%e{PiJnC5K9^*Sba}l2jW8deS2?{OF*gS3DH^WS_UB2}a?YaN04_+>aAq9~%*vkBHyzx6IGr`BFIJC_EyN zzuA_p#M=b1G}+R2LtlefDINPc%M>4qd7r)GSl@;kt%Q z%pQ#%e)ja(%0$$_FUv1tM_`VK*Q7`?BHKFp{oP(gAL4c66Ryg*LuQY0sx z8&V&A?KnLoOQzTgL?zsY?`z43t1mgc<|P?wHssScb#-?tD;D@ssU``av_jmS6|;e> z>C%;Jx~k&n;~(oCOBbpwy7zdmguQ+hUk8J_#;8ni^Tyr14bN>!E2{^})K~aekFNQvNM7;siv6AGv`W5t@fHJmv>zAPWTl0 zLcc_X)1FR`1S1DiQyrS&`Le`PkkKy5#Kq2L%=Fb3KxyFJ!iwSFY~7 zb?_jwM=YGl1qf|lyPRs%iuoF_F1|0hiewZE7Fy7eTDwNSuNwg5nrgpjt#BKh7XK_N zT?@sn))#{Z3j9>3fB#r@o$|wtJ$$dm_maHis=ZD?tj=Lqp7neik89$jr+38F@ zfp5LwHTHY(5&Q+fSgBm)9^hoe?@Zqnm5CfV%L^29O>ARyo8r;NP zFdHkYh;i1F9ICcVe)j{BB5{o6#7lzLO;xZs*lGYx1-s5UuSeVTSZY zHSU{WW?~H#GU&rZu~lTe#Y(I?pI&6R|ErDEwE?Pf639@lz!m1oBaQAYMyf3NBsPsn zJmnM|pLx(R- z1t6GT;}$Z4v#!{*f+GY^-Q!F9-biu+hsYqLke+OIw1qMR+1!hL_dX+Mb+?Xl7c8U= z1|f+|)_VB*d)mBvnBLjhsryEKraSPy?uQrOM=+6gFrowu+SMNDDDZjQ6Sv(>y4|`P z5GPw~2F{!b*gB^Z)b?#GiY8KM|K+=!t11F!NPx}-c4xa1d0@jx@5DqWK?o0F^<%pf zo2J$Np+Zp#vj|k;1P<_zgY^h#8=-?cS_f^$0lGIoSqTBdLoZ>Uks1;q;2)g-ROpDv zK*9XhtrX=_QaN)a4i8`lvX6Ia+Nq!K9JIf;71q*l9p0k>Mev-dexi6~K)?(Ub!fHW z0ho%#J^Jv)&FBG1C#nG6Xk%3*lN`q6TPl7!{iCImW!zKq!k8022Tk#GG-{Rj=22a> zcJf)P<5|jYGwnC;XLef5GKRCJ9h02aGK?>ygGi53D*|hzF9IVUGqk^o&VFgm`8G52 z2sEr^CyTUP=Da#1*b1J>w;MkBFyS zP+LPlyd_`a=E24E6Rn>qCgYwi9zgmy_&O>x)qtPe(spgTcLH<8ykO*MmfN-o6~*s3 zvo$%<5U@Zd+mI7*1_+V-WX;dW4w(?plv>m4@Js66h-&MrO5YUad_3Imto5v??asNG zBXb5;Ek~7x$}Y=ROYw6Vgiu@NGlb}g8u_j2G$H; zBjbV&0flyF>hw<-<)T~SF@9gB4Adh9+}Zt9k?FQseUeKGhn}zNIBK9+@bCmDh}9_67xm~tZZkxx*9ALg44#D z6A#1%1gz==J9buMvjg~n3DqV>%HOvH|1#Zw)xl_w%e_DV z+aYpRfNU21l_VHXGU*NhI~+<;arw(ZEB8?oR5>WFqN(X4+%dCW8}p3SKTp=$ zqua_fN)qs%Ar7ALsLRh>(B8FMPJDK(^hHn2RPEG_NRQ~}gZW1JnQuK~D=$x-G&k#< zSzOGLI~CdyXH9Pn)ri29#%KWhD%twv=qocP$?cY@IaBS{KF`OjhnuY@fe=fvUAPud zOYg^?8u`_+t8`Ijf3e@99&SI=;?wsgeR{H1zM1(I=5Cy^bmdVm0n0wIhuV?0W$)|d z@tzR^hw#k+J*OMD($seE(adWTb(~V{r>^W6^=8ri-%Ndx1q zcE=-soV8)JrkN_lO;|TcqvBA~Lf$Td-oIPB=Z>)B$#)N@>V4D=URwB0@`VH8oPhBW z|Ep{Q&(f0;`UvH2w=YZz0h8J#J$=#tZjQx!KXl>~$GP&6;Vw<`HhwZi@CTzJJY*bPK*U!W#f`bIZsO!0y;*A-c3|zl5}cu_ KLEhnW(p literal 0 HcmV?d00001 diff --git a/HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-4-1.png b/HW02_A_Graph-Fails_files/figure-markdown_github/unnamed-chunk-4-1.png new file mode 100644 index 0000000000000000000000000000000000000000..aeb1cea7cce67316b5df60ec8bfdf8b864646fda GIT binary patch literal 6655 zcmdT}cU%+MzMq6Z2)#%Vfq)>rh=S4$2%;z$R*Hy-iei8z7(q}$7{vl)2_PVQsRI_W zG%pAd6UtpBBC<#nL?s3^^ls=<%$w+Xci(+`+xxsf-pwbInRCwX{LZhRIo~AV-CZQb zRKx%PkleG|={o>GLI8kxFDeB0xP50T0^eTY_jx+QcL1;kfFQs+4G5wEbjz*qCx{Ps zSp(MAKoERcTf@I;)@f`v!H4MPMsXvSxlx`T%i{-qnHdDr(fIHH(TzxSqY#Pkw~Sae zK>0#SaidTKy=9cA{4{GI4dw+iOAAV)rKPdiX>5KO(XC7{fl@|sD;pRn8{pG|02-hF zl;ZZ3&u6Duv-xZ`pFdDW9N_cE$H!-8W|pGDU?P|T9)<__d;vL33sdp=d}@yi4ORInc)X6Z*KMPVQ+wl5v-GWl^EGSWi-pwasr!iJ+&-#g=cS$}&C zVn*T@OL>=TSLvM!=;~r^cU%$kQn?I1Wod+q^A@G`7@|D2?CF+i3dmAftiS40 zF~qCHR1>KaC%*@)50c0(`1vVSCPuI3e^OipLz-Qb(AADO3+^qlkgq1B!h7*Y3)C>A zq@{&gq*-n_XXXLq+{e>y1UdG$3(*uVDw41rp`f4(?POr6)N`)j83}7g-fch<`+Hgb z<(2+emH)8mJ^r!ax`c-109O|Eo!| z>Jbe#Hpa>9?E5W+qSV8%>C=IRAM?A@j@W8KXE;{LEr`g^ogF32$?@6apI7t1$i z>cT8WUz}-b!K_kYGTSG-jsKZme!A&L<{5o)NJ;nA=-L=hj8(e%v%SFYCt^{?()rOg zE_kFtXa22o5;)T!ul&;z2AnSqGSj@1^A>ZD+gW>K2b71-ntJYGD+jed`VwycVLtlr zx$<{~XLa|)I-mNugrEze8wnCGwvv8r{jFaCfnR-Xg>l0D|1g>US%~|Q<>$2&_XGIe zG1dG3*Ne~;haFsu3IM1+!#s#&f#Z~kc)I3U~$wefG+~qEi)iD|%Ruf+6S@?fITP0w+-dvd8&bX`_NsGC9q(l-~SXmPSyNW5yfW z3r57c>q3!RM}xJxOdF4FeC3U^k%B93Md%7G{VM+6(p^6f8nTB37iWUM&E{HpS6s_R zDM^A&5h~J%O8}=*l-Q!MiH*3Y!6`5CZ>!!C>Y4dDU7Hp*2bby(2n+dNmpvy2s))KB zXYZPR?xBjsYki~llUa`C+o2$xZ!+yi;Dx>o>LLgU_>!b{H~C?QPKEHFhlkFcna*CB zzK8vM@yzu8)MrZeQ7;XaPo(=h<`X5ua?a`MALDJa$7b;}L3>NRx2t2R+_qd7|K?Wv z<)G_$q_sL}tKIzDwLsyK&f>byL$8;yUbtw{O;Eq=_Ra%p=H&6~)1fA1w@$5HHh@;H zM4cK^Hb;}tIC4k8TFHupDL;}C_DxQBLLs+}?+aX*&5pO7XoRxkSGkJcB+ngvXk~x! zu(t8Ff@vKzr`h?O{m3=euV(T4=XyQc;%!V%|M*^2Uyui4h5$D5uVteF@4x=9|KOsRNndN2$vT(Cd+0;+y z;?^lk4MQuTkkSu4J5e_QFHPw4`8>?8k9IS4ayb(eA$X%-86at!zg0t@*kp`rst=C6 z;yZw#8JkYpw#4?4c_tA7rlNYubugUAqiGT-v25dKJ=G~w-8e8CvoeePI4dhN^!NT87>jyx57*EC#* zJigj}{Ra^WcBU=;QWWg3a-gEX^|<#NAZ1zekgR$FcS3TJ~>(Ffv!C1<$0DNA!_F?S2ts~T;8kF;B314+aYLwE%D zcrS9jC=lO5))gnOn2oH_tHd^A6S_}oce&&T;x$NCxV8&Qiw1FCJDaRz34-_#XU%*J zrUzirES;h+F84)Ti1hhCX{8(kiB8&)#h)6(~+ z>ivQ!*(1s_4d18rOQQU|JBR%>xIpBEbLZXwb3IGUM1~9A7spXFsldSDFy|5AOUj)a zu!T25G&J9yW``>aFWPEk(7Qf?7MEr(3RUjik$t7xkZ(I6p4#`wX3rz89WZHq**kRb z=BCK>f%GP#kC7dP<4yG7GZ@H)5UxZc*BV`0-s&f6@_0* zv69g7K8&N_tre)TN(uh)XpMz&U#MTkyM<)-cRG6+4(~@so;pPMr?0Q3ht{l|UAf@f za7mglyDRO3VoF8uTEQjOO&h#%6BBJ(L@k3IzBs-xUmX{?4^(lVMMaj0 zQmvts1U&@D0NEqXIvU8LOI)F?skT51Q51)h+-P@8gg*!A`@t)=W~o!kNf49@NENfj ze7qoXuY$W$uv3>l2t+Rjuf-g-6o_sN{j9F+4vWqJ?5wSytz#{8+OpszzKkK*t!GG& z%s<$nd^7Y(9(w+VKAKKz{gGh1m{D40>lVL|9KEjNgpbR1znsT!g{1eTo=iNa+qyMw zrS$nI@D-&^cg?2>_XI=22^Lx+6 z+#gFB9`vj<+O~2t$aY29d?rWxXDz~f@8=r3REWZral!X{#ZEX!91mm-#<)2$;(uZF z8c`fp$oKko1Nfhp+IpPVjf^Qi6&vze-3@RW?4$*`tc{{Ryde^a_V}uPNONDMMe$cJ zzDjKJ+xyi*9=wH;Q?ji5QjD-5Ked_0g~nP?%-|WzbCzq1GL? zBlMF;);eg&Ibvmc{Y|>BjN0n%L$G8j-1#TOKBG^_kRws``~p(d>G9%C{TJP^!*ALs z7R^4fv@k_v$l-Q-i>ozbSWEr@yHNUOoFHAr>4>G(#7QTwj>7OIA?966ti@Sr#( zMBRHZt=s}>HZ#0g(sI&$`8joM!&p&j0~_Ii?77b#9go8he4=%WQ8fV%*e1MhO#Wq*ty$b<1tSx_RzeZ zalFeF&Z~R6*N>;88YpgN ztEwVWbcrtJg?a9r%7|u^`Q19n7kOu*qHX#fYd|C>TejV>q=DV9z5$V9+5-66OE2`FJOC2t$7o}can(^RjmTO1r>c1(G!BF#-mX9qy zuFw{tniiluonuL+andi$fU&0MAXu7cI?bHcu)b_IVm_c$AjeYX`Xz?=$tq3PW~PB5 zWEbDtKWH?Hx#9+UE>Vnr8k~r^s{sMrPW8b1&1V+kdc_b|WwMVr-^+{mi+q`=-nF`q z1{XMaJMVU8BJy|Sw!8oOMgzNZO6q9h0>phx+&zN4urd~A#^+6P-UgF+C?PzXuH|81 zV%i`hdFrHHI{i-`l7G6NZmql=}YyBJY;ienIKkJqFS&=V zt6);1>EQ}`d#O7Qo7%rZcNQ-Rj*oRNufVZ2?(%Vc;;X|`t9$?Q-P6unUbB9`3HZfU1bA8h0?isztThd&q^w&ek2g^HN+HXVC(Y115G8kbx`>Lv+_Y z?tVj8(i2FO`?%ngOxH7T0T+5N65;>Rw{Xa#k}KPcwv*K<&uW~!Io^;7pL)H{K0D7^ zn<6?@Mf9wepr}>Xgdg>io^vi?Gv&9JaBLA-p{e@na}HK!5!Ws@OCzo-q(-QU8LKaA z2BX#;w0*MMq`a=JVKdU;_0-D-i}W#z){qMwgL~Y^3&(8|LYE#EYRxm!ZD&}a8s_{_=UEqP&1h%=QPlPFJ3``b(1r==eyj|Fy!>J=~Lh|j;+HGRtp zX67OjP+dg0L*lsO6u9KX827I20X^lb67w396czbGD2$n!3GM69~({p$m!eHZ|`=9$Ml&S}!ruH8Up$hxWx>w1s=abkn-!wi5}F@+>E2!<4oK({5V(;ra9t9VjVT9*-0= zcE<@oxE2Vt?$B=_-9J6_{)X|zMe-U$TSYn&Dob{Rm93SNb6}sWzTq~OsU>js9O}dM z$Zh`cy|1G67F>((ycBjOA`Y25rNT0~G!%1jZKGl;B*oOChT9-g44<1(PuU=@D*g-5 z-ybQi{yh2E=bDl_wx&jhkUy0oI!N<&Z?OcQ zpyn3ts1{y*KV%SH_1^hAukW-9#oQf|H~xU@Kf)9b;O&_lVh)xLV6!u4*-gpFWrsQN zemMb5p7C8X-dk{bfC6RBGUE66x5cK}GRa5!DhySi>dv4$^nq94ge^61c1CU=@q*)BMBu$^r^1UAKEq8Fn#du?=AH0w%bWuXbMu?OQE>Ls(TN?rt zOP0pb8Lb1sm?6`QR-bqo)_Z5%+W63t$EW?01j&K0Nf@Vn^veWVDUU-J=HA09tXXg_#F@JG%bXLqMc$D^13 E3$D8+Ai^b zVw5IQA9@w3((^6&yyd?4yWhP(?q)a1IXg3F&di)SGqd{yr>jX%!$|`Gpx3&nt`7hb z0st{Wje>i0^u^I|BNL}>paC}lzyLr182Aha1o$ihAJ#$HIZ*K(R0n{XTxn@(7y<(@ z7(jq83b$jJPr&E57ji@G@b>2HI0*- z$W2Y;@g_34IS%xPWBU8yq5AvDNe*L{n7leTtV zm_rmA*}8)qME;jR=xE`8UNp$9F8;AcEa`R7nP7<~mLuQ+BAyprYK4R(_&e+PuW5s$ zXd6HF@u!D~pNQIw!8arkIQH-v%W#pCfCeR{MCVpdfwjb@KT>@k2ZZRFR{!rr#8Ev^ zepmHI-(vOE0jhnn;-Q@ec8+tg$_k}{hm4CwiJ^X#rjNATx*~JcjdB@EuiGgu_%`q zPZO!3Z;NHZl|gP}3mwq`$+vA)B3zy#Gx?J$ifOT?F1HsFp5TzA=&bWSpT||+&xd3t zR<XA72k@-~u!&gz&OPmbjA1!tXKdKk`wV^#ekcb!H2o)DQUTl4($?n30L z-!`^p6<69VX@!tj}k+jRsLd% zs@CSUj=RZ3zYJP}$1l-L_nE}51&sSAHEgSuy^hkctCqMgO~HnWVkG9B%?Lz5A$H*? zl1*5l)UfR?_ii%d$$**nHo9r=EKlwQ`kpj9F1prgu*Al4AbklTS)6(N|D)dj&&KnT z!-rtx%liDl=-TN3j$Pf#g20cOkOefsob+w~=mEq}{LCn66l{|b>~S0xH}I_BLG2C< zAb|}ExB_>}!rcIpc>KAh4SNOKXgYUF?s2133FW?tzU24?3fOI=;Za6}Kg@qeWZXH< z5Ej2f&M)k67Z<$u33{U%K_&Oyf62~!J5if{8ZRgR6XvCj4X4Qx#6I{F{~N@ij0K}9sBU{< zXF`KX`D@4{RUs4&PMh_v>QOWS{R(~b-Yc}s=XxHyRidh(p#9^#kd^Toek$k-EK~;> z32A_}JpANtJOUQPMY=XRi2l#--y-@Cfz;$#A4raf*lG=dr->aT+ZOhCf}2uMmukAT%%&lfua##pL0;;KvYg7Prh4gHIX#5E8px|mf@xcRjY z3@V!kD_Tf+X?(9J{=(Mr_B5=W6Lb~8cFmV&+T@Xo-JQIxB`XgMD`toszw_FA`^lcDdSAV-o5f)T=q)2-N<5RGx3EPbAkg?~VYwZuI^P-gVnFntj#g>9zf`eB(J zuGfmd*0tdFv;l06KEfL^haCv~F*9BlU|E&HvI6$+JlOBc{i0aqfLHPzx}6^otXNOZ zf39NilkemlfSfCNP!}wm!dp*X$kXvlLCVnQny(jCf3 zV@v7N&~wE-G)-8p_6nV;`5qQmmaRM<))l zvbQmj=5-tP9YIR1qJq{;a)V#r(g1jnkU5*I^b9smY73k#1tq*t2LRD8)(q9*OiKqc zy!&KF=8J0hsSmt>uoQrXY3i%3G}9?&M`4v}{fkB%8#InTl)MsyfB^t*G0(B4&*^UM4hTrAdrQjF zYRwuZEpAjyL`Lg=omm4Os&tcQUk9ETvTo{SC>JSKX2uN64hQ=hE#=crbtxFu zTNhiiv&-6H?P7WLuJJ8;envlm^~uI^oFQY&(LCK&G`tp&#tLpkTyj34Krpy!kYJ-XjExyqYo9Lt+)36ph) zZK<#bAu&$USDy7T3-{$A=YRJ3b46)N9kQ%{WZc`k2tJWB=}B1mgs0**3CAJZq)Qh;Ps zLBSGw1=*#1Oy2BAy!WUSea5J}$F`P~FZZCt5g=xNm<#gNK(#cg`2K!eIh5!%em;r^ zII%%ieM>`ru*;1wiLf#8zoC4O6ZS2@ehheuD<~6G%Ke%XZ!Smz`lR589Buher&`B< zGODz_pQ$KVXD2@FP_3hzq?`8H9^9@o#@hArqDUlp`#4w;I_O-lBi0m#j$sJOS| ziy`9jM14i6e90?Bl9@jp_WTq)r4_uF;vNQdn>175<3cmt_QM)*VyNh)<9^#jM6x}N z(0KQe_#)vN11CYk4oh{po|j*ZhPX8eV=g2*duttQdB56Rdj|(H516(_1fa1i+yINn zFxuA(h++jf0#x)8`=(BX<)RhBXq7Sm2pEW{A83=7XcQ5QX16G|UffqBYSo>M66*x# zMF#++vk1)4d;6Hj`dq;2uIh#(9TRLMvyHC z-5zYL=>Nqly2uLl|_HMVt#HOaXA|^iHKufvP(<35T7kw0ExPwk4Z7 z_^ghiIADBf;!oGJIrks_VFM8LX;j*}fFe8_R>)IK0Sy&$$k36#n0F=i9H$?@#N2u- z{jlvd72Y*27&*Uk!&;fn;iVJXtAFUrVW9H$25;U~%Vy1^Xb{D`uP`%W=I%2)IeCKC zm+CvV=Ghv`#ypwzm$R>&R(6(#IusB;wr%S&e!tUQH! zPlSY-(q(Mpg~5rc+QLZ2LmA~yRm#16BdzxkL5+Y{LZ;loEHB_oDGkVx51ar6w-~s9 zJ=0!#{lul;XpgcKSFgx1kJ!%(d(E?rofFN#!xFJepL!aqmd!d2#qU0QM~xW@wDZj9 zIZ@0*;&#FT%r&g^HpknS+>XrMFUApk?NQamyrg9w3Se@2A3^#hw+Oa7xPHTV(7{X! zP(p?%lg`Qw?&Z@rz>l+7$Cu7iF?xR?abQ*)U}Cue&KyB19f#70$|xurRvR#RbqfJ| zL0iP?s%ma={P8KS%6`37JLLzo@S>`=$9@_9uA^(-pEQ5#q^9@kqy2tUTKk-&H%xDr zEmn5g>&93AO5Gy8y$w@Yi>;(@c{M#Vr>8EV!yH&wpL`T#53&BPPIq#(u<+pb1Ratp!6JP>qW2=FRZIrpHyncdQC?+!MlTU zj@&(hk;m)*Q^NZ_ylvWl;4Wb(SwBUXKzlT_tr`nqU&pt582h%S zU&O$C6zqT#B5c<3@-3`HB+ew6xR-DkvF7OtA3u&rExq=j=@vf@FbJfm54;+ZZ4g zRQ;u`<`ZHzk#Z`Ia=u7xd-q#-S>m;ZKG zs!8RCF3CXY!DfUGmz5UlXtb(25~D;!$}F;l6B8IZk`{M}>E#^ePod_K?i;d-nHx9I zk0E6u!Am-3F08s$nXBpf_=IyFC=h_d6iR!7ob~1$)aiTW?4`)1-jy6>G~`PMrbVF` z{2hE!Mfl=5kkAN-1cT;V>9zV*oV>(II9TEk8}Lv7mk=fvqKw2#Gu7#4M2tJYN=u1r zA)x{jTKiQ)MbPdEV5OLB5e?`I3MfbNLdLR}9bCHE58p-o8 z5*yI=EX9}=;iFKs3@wpRRai>IcSwUmYFPPVyS;#9C4c=KcGoLZmYO)(i~#M_Oa;@h zUlPD}KWtFE$Lqb3X}#-~C!j1|HY^F+BT)cD3)@-lSs4Ox`Gi*RgnISB!YSo#9x9V= z4mRjL%8Jq>IX_-|KgXfQn6WoT*yxLo_WIZVPM|H&V+NjlxS6^-0g9+=vv-Cn{Iu46 z3>mQj@Cs7}w)%zg{_>`#zklQ$IpAdtMAbF#T@xQ&nF|23a0QBBXk(sw~t>Pg2Lrr{7RUMOLE)YD+8H&EN& zuco-I#eb>XeM4SNd6-0G|9O=@{@r6bTq;~5SxiA=LwEr8^nU2a8Tan-w9zRlkAtx4 z78d~t(NaxMXzi_q2JZ({D|!(0V~@RBy?Du5rz5Jf|GziBI}qa3v3*3 z;Ivx-vim*6dO5sHx6vwElDymR7Qt-pCi+_&359Yaac|-LK8-D?$jj3Q-j)`nBWKi%8EL?6UMUs;s~EX9yV;vif-Jbgrm-zBa}ks=<4D#-ZE9x z88>_@Oh!uSfyWslUb^E&Gw+B5yo0J!v}Y?iBcLcZLQPVgaCL2jZXY4^_8rw=U}nlH z*5>hc>@?&s@o`}DocNoA0rAA4U8^ECaRiUc6MV%D-)HzcRoopPpStisMfjb;f%yq$ zpurUd*A^^N+F`BQ)+C)@9ZiBu1Of@p-p0OU8DKIGZ~BK|!~Ry&M)cLv?*yJ65s2vr z15vU7(pR>%7Ul$g$K-73K}M8bAG{gCo75lSgVs2S9M13Um7uYQ@1_h62 zkzIZ5E(j>+`F_T3C}M)8O*8`-7i^H{l?7CnVSTKa=@bG+-Y@o$gj;%i0r2FC;}D{l z#zzFm>%fuTKF0u?B?QBPE+;sDLu3pLTwi=t@H_MR&Fmsf;GS*iPD#xx#sgNEahJvM zPR@#y2F`b~i!u0=lK|Jaj|gY3Paua+%STC`X6<%G7zXN$FzqiZX^8flIOS_^)b6~L zmZRT7YqE&T$@Optevc(~-12-zZKBFR%OS&0wK9J^tyNw=aV%$z)|3ZDqH(+41R><% zT*|@S8sEvdapZPPq(`k}(APttz~&E*dk8c$*&sf2q|&GA^SQy<>!$$eg}kT@iO4;I zzmxh30j+c(2+}ODR56R(fTX6;39w@c&tT;=zrB?}GdrpUrkvoP34sn5{`335tO*dTX!E3xm3 z={R;k#@o*w$m(5KAJ$YI;Hc)0p6iJ`ipbd$}l%J)deX4uwgE5nwNO?Gt(MDLBu{F6=^BvXZ@+M+{HPwu+6s)xz^yv=L236 z7V$gHv>G>MsEHRMg3rMQHJ;Qi(^P%BLIcP=g+buT;;R|2{ld-P)tuvh0_J_P+8T;* z@fj}kG|DkS32&MJ&tMPH?LkS&T$uUV6g+!rmIy?`1>E~Tf$*Q6 zC65;rkbQ86;66FnuaORFIxm~A-8=w)>Pqq*KS0ef_2P!Z=L0Mh9cdVU6o^F*5f5et zh(^1V^i8UX`xQTwpPO}1g_&CeHFz$tPZchW8V0GN+z!8mU7HAWD(id|T1)q83^BC$ zJwrWf(^!tD-di`;o)|6sJ(N-%@C{Jxo`$fQ1?rL0PDX0 z3S#}Az>O@42DmIr->z3Vt!5Wa(!g`djsr>N>=0vt8X zDL|tk_HS3tGBNb5nWlE&^<|O3;yLAplisYU*9|#I&AM9@{%UU-tG4hQpHC{tU1mxU z43XC!5_kNyK?*qRaU~70J9uWez4QIb^W43PuGnWSObI3V(_STpFT|_NE*(m8S)G@U zi=sh(%@l=1%Xa(q{6af}RtxF-n=NgJ%dNHS%)jL`x6o%B$9>PAZUYM2=0#usY6I8G z`lBA*-Dch%-%e{0>P^7~3)=?|4e-d53*2c_E9RYMMuF7By!Ce%y=`g}_LP2Fo>+}s zG~H#q!7)Nl!DX$Bs`@KMK64m%EccU&Zly*_`x<(Eg*60>LE^}ZCBTfATIFE6OQ z`!==E$&??oLgm4#ejCaca&(EIltKv{`CL84_Lw@iNGk3F_duZ3tAtO^D2~7xqkHPH z!h$_oo>5mqxx3yh8}6hlJ)GU}sdAmNn_R69+EAejMG4>28H)8BLoo4OkW=y5c%7u< zl^VzW4O}K%=_aqT2#8Cr>{FMzeFI5VsS?5<9*9@Juxa8>klFHDP z>MZnph8;ty02M3h3hME_SHG-mKj*7PM@+wYVH+h#C7a0&9r3b#@l_|3A<1M+P-XKi zqhCzk)T!8{#N1nPjNwc>xh^WHXAu6x?v1Y;x8+n5@9T1Xm^}OD*{_1T&dSS90qs;7 zTk*nzeOgMdS}#VcM%|A=MXhm@2bc%dZIqxXO&zzpcq}~cpQ@gSEar`fjoU)T1YKS8J|0 z-^g4$h&UU6!N=_x!DE{(W-^6)?^v$H%!mUD#}v4HUS7sF3t@vIo-~L#cB*SYi-qd@ znc4(HBuVd%E)&YbH4NaZGC3W(F5Ho|;J~CU!%UF`E#bIqIaO88EXK#XWeX zZZR?_(5j?aK>1@zfKq{WkzT!O4+6*{FN}I0Z-~wIUe>6;h~{h5$VQttZ@u)a4iXSo zYdvAVfXrhp*rj2vH0VEZJ^v0O`mfe+?jHEE8PKh_HzD;oGAY)Jx38nh-M)|0LSwPc z_YrXp`pxV~zA(UBOvx8m!+48La@%=*afX)YU7chdxsI+8+-7;>_wGv1Pqk#?Y${{f z)VWQ~?X;IYRd0iCV$M%-i?sH6Gl=ygvwsGB-$v*8*M1UG!k*X*?-f;&nft{UMyhyj z$%8sU&EqtCnxY6zr2fz&DdR6*80d?f<=%>$AJ`I^OPiY=;=ZGkXtX@9;Ot+5%!WP< z$&m(WXGIc=8@myFhuI`uf_RstBuq2y%Zec=jL{%lT%RAw<3ze<)D6;-pX(v|5$*e6&nyuWA=`@9l7~e0nPjzV7m_ z-MC5}ntcT1d1q)>c3m7F)XFQm!%L23S4clII751r<8Lk4)r}ata=LftqQ{`Qk052|nayr!~S z6*E~u+`D{vyE8&zlX8c#U|_VH-rfpXGgfy~x_#jCbM@}r*{%G;f}WfdY0oly-$OL;z9!X)2W46Tf34aubHk}OFY zQdur>Pi-*b9(->YAR^G_f^H zJ>@o%sJa;U+KCU#e66JLiP$6Mg;;(Ss&W3|FQsyh=IVS(rNZd00RR3#a+8?mst3Jp z`EJs&p-UNYan6aJY+%^-rQ*laVM0u5?)QBXKCD#hxV7Q)3vf3?v`e{B8D7okPZ7IX>`d=Cv7J9X z&90i~^W51!%3$J4z?Reb0FN*D{Li?#g=1oFpj%9-Zjs!g^vvElGxMold9SBVK+?>J zf44;`0ozZ%s#wLWVPOsls53xipUc8GIjNU2;HUms{yg}2?!&>IM$v&K5A9WqejTsG z+BVr`Jo_1Si@(jB1;JV0LUyw&TCJ0PqndsHY3*hNb;Suz>XmDTPPnb1ZEiy;sx&gN zl-LX-pPAC1ynuc;{3KNpk>QO>Wi>?EC)XFRgsWI}^oQN8R{8Lm4poKeTT8qus?Eg(XUk=g~208Hd}|Q)_WFx zubsXi1X@@uMkEE~`AA3eK?ZIG!$|p=&(*{$+6sP@K+C@^s5{0AoJv=PZ|535Wuhh) z-H_*X<%BDN+qTA(ywzY@;PH+9-~Z-Cn*X*h!z{Q%pFC<;P1fa+H^w1wSsgt+;sIW6 zyUckw3Am{(fh74lxFVEF_c|`Y1v^WX>rvz4N$gKk;bZ5Y>eD{NdwhywjobGCfz+{dQki zZFi~<$}md`%IA#Qa?($CTh3A&iom_x?hT>sOdco2B!OQ=)JZH0E%6f8H~fYcLdkS4uPW?L zZl{m=MenG*nR&K{w;x($s3CBh*8kJ%B}}U4?OhQMIFJ2XEc@?q?Z5xeAycVbpg*f2 S<|hN-LrX(f{k@vSz5fC30xCNmrnw6pB|ucIiey+U{EeI9AOY63Iq^24d|c&5rQb;KB9<-NI(Tq&Uhe! z7!HA;kz-II3IgE>U?QMEAP{Z{C<57zI=eILH~W3Nzy1AoJJp@;s#pJd@AZ3C?^P$- z+aaVSwn~6NAZhDE2OL2l2mu5Fe-IM_YHS^KMSuq{dmAS!;1L8e0D)j2kS7R)27&k> zgUcWo3T$iTqU)8O(OfDUMbfzSdH7;sI6q0uljaHYUffx@yC z92i?$ye)=gi+>G(dR~6xN#p|103uq@6D>GWQ_-m`GzBPpfEr_q!Pw$47@&|aq~Xg3 zpv#wm(YW}pKzLg`UeHX!zvidHK&fb;z)}SmFab;|1^A^>Sg9;ZDvM9#a!D9lk^l%# z!rPKwlSsqEq+vb<4Wgi76f~NW3ZtZ=DL^L*i^2j5pTg(A#@oK;^WSi}tW+2)70sdm zC6xt03P^y14^ROY7N0*%!VL5I+&7oGT!5Sl-~yfbtW-XW0<`hJg7E=zK0w9y!#8yU z3Klq%yO{Gs#;a{dHscI8nIyH?`bGX?xycGX`(hJ4 zsqaG$Kl%QEx!B_4g*dQ#8m8fG$6fg?1k+?a5eXMK@=`!e4w6y1vTPw2#eL@2x=W)z z8EK%C`4jJjms!eEW6QfxMl9=dt?TL;IsZ-Gm-+YvDG#+%@g};#j0|i;eA}Zl=~cCd zCA)99?Z38kx>sT6z%nn(>Zj8K>f})FO$r;qz*J#EY=|w;UC{CbEzN4q`S> zesvPck7<#3lR~b|?pBLhVlYZBCF+SlA8$lOoIhWlM=7F*~q z4xg5C*WAD4x!5P>`|%z}Z!I+ zesgn)-cL5S&>%k%_C@Cl6CIw6l)ed-roRv>u;t?Wz3BtBtJNYzrt-0q{t*4;zPR5A zn?sp_tIe@%0~kpHt$D0u5tq4h16}XnfZGbKc$`E+Fz)^GHp^ zo3&F9i4uCjwB|FF66S;mZ;^rqhSrVuIE{` z_Y_qgd+E69RTikwcHutBE8q5%P4k{~h9+A3Gaz{R_)tWWwWFb&Z{`lhkz(7MgYB(mx9=T)m~yZq3_>9|X@8($&C!kfCLMcS+R^tXI{>%E6{K+uNv zz=C>~SD~VlgBLq-`K=Hb6*`02B@!%W|Ibfj$nvPvE5G|11W8XxX!8u&!-K|wg~cTW z3kT0*XGFw_{wmcL5G@bUz*JmQcfHaM!V{o60i=KGXJ>hT3nMR}0ag7EiGJv-tU<7l zdzvm99wQ$-BZ3eodR8_Un!KJ*BE%UTf}iGokX~>94jBA_aGJM$AaFAz+~xM2`UkLY zjQl^Vt`CAVu@$4oK1k!&+v}X*+Wu8-2=U#GgnmHwMsZ@f%-qU$&L1KRJ5gl%w}I2i ze`rESn#1c{-A#>pa$&kMyw{$x%-Pnadr7AMLkBK*YU1o6w)%JAvnwU0-JO7Hpe+AVUugjK5RcYs_r} zK@rQY*lC}oz3}Ga&(}<)3gi4iasYc7XDx;v%~Lxr-TuoEGW1TBO)2|DRLC;@gbe*o zUT0%AE#)X6WBAwic0`C7bLTA9a{L>oe-`K4i~T{$|AT70Bz;9`Mf=+X?wNp|r#Zh&#R(cf~SZB)GI=i?<|&kW~_AWL%_^``7Q%?}{9hP7~o@}FG1-T~aCw;K!@<%qkuGrKCTS%H{$W7~vn zx?Uc$fj2`S5-xgRsHE8L-lIOv8_N|=A zl9rcOo-h#KC$0>kg_V~X?PHPcyw2!KJsG9nok!1KCyQ?T=9=v1pEh?iBR&0`NeQ2; z7&U|dF8JzK{htem15UWo&gIMv`HahL`e=VI++!wk6ns5dLJ8icR{KR8_B;dZKEmWp z-}7ixNQ3(BpKzz&d3%2yRLu|v6&SCkcBhT*qKkpZWXX3EZU$#APWB+xO3(@e9)Gat zZ-ERA8PwZ7Pk6wnS6ZOcs#HeY`%?eGd+Wu8n0ACfq+MjF{z)D`nL5>nZ2!~ zil{UaECD}RREpC&5U3ogY?wwi`#x^3DE-#9I}NC44+Ij9co=8Ik>W5cm+euLG zs8^a0;%K|}wx~nvINJV&y^C(Qm@y4p35VHK)XJdj%~XX_tOCW!|4W5uwD}-5o*4Gj z+ObDD5f_r-<1sx0piQAxzxHIJuP(?i2N;V6-|zlxQi&OGN2Hz#^4eW$76iEgUYh{ zD`W0AU5~Y++zaW8F#2-IXt4M!#^NGKW#Zoc(SmvRCEfWeounwo+TPnZ&y`BdCZFXx zrN$A8Q=<_V+x0-)9_3tp)W|L9?%3i5GKo*Squ0B+f_HG43CR15Yp6s&?~_k$d3qyr zU^M|)92t<@_r}g&Fv_I;^&UqVK^k=$%kKh`uhzQGA_btU5h~_qiiULku*9p)9WfYxE%?Lh3^LUreF80rZW* z^|{ZWjM?xSe9a@+iwG4xlE>%T$>7Mw-`JOTB5hPZ;V=u@wOyB5yVmvejUkE(SyGpQ9~`=_fV~sZ7~S9PBanhP^dLed!4`X&2fO(!{oSQqvBEh*7LaQWWeIv5+Lwe) zaPPF*!=Ku9M{&;X3u3a(wcru2x!C-NMoid9UjhmEG@eYZVKaZ44;K2b)j}P~8kVaC?yyDnZdB4XAqT85kM>Bfd>m*mOF+K)~kT`~*FxZ(<@tX4ynW0EO7SPH7A zuR6T5_;=@%$BfR_j5_KQT0hShABgqUxwP z67KpKdKYKNsTT6{m@S1tmi)4t(%s$LDb@Gp z2>nvU+=icJ{k%|B#cTD~PlsDZ-yClFK()KBnKoflKCse%r26fycb z;F$_3>UK=l?md(j+!c$UKNWT;(a9ni)c ztdO8jw$jcFEnbKZ3|qlnQ;h>)Jv_1(?dBm*D`{u2lFS-o^7uz`|6VYS7?w=^hCFiX zA)a>TWz;4%?QE=8oMCLb@Wuy&*zwG-*jYl%GGlTs%>&{WCk1rdtS(DE5yVUZS_53O zokuO83I(>(A%^z_op|Hg3I);tQvq(-hEH6x4UKv&qy?Q&J=^>}vlV8O<>)Ov24Y!? z1y)h&f>=lT#R%<;{J?7wFtrGwPn|0whqspw@$eDPgS(q`my5&f`$j<2qJ;NUv%7x$ zQ<@WD(feb&C3_bOpGF|Pl8Qr+UcTW-HSkV?sf6~6>VgtCm%7th{$E~%59OLc4#Oii zx?T=P=9vYDN&AW z)}J2xa*(Cis2!S9nu_>T32q;=UTYlX~3g@ZR~eEeaghw%-U~F zAYyIlk2bX6UP1FQ{T*L!H?z)BIO6!s`dwb> zk;^Y0MJ{ix?OMaLO{4dME0OQ3CaaEgJ+HlCmAHJWB7?)s+uphtAF73vZ`+lb`FLJC z@FmUY^-`32jvil0mMu?TTqTL>gRQv=CRW*}l`R1-h3)&!i$t;mjJcclEkpo>&xh`r zK$x|$(zyN>bDZ1E#-Q6lQpp8ZJ2jt7c`r4w%vBz*qwAV4+4qk?V6XIi3)i9kgQgH` zqOhvHR#>rG-qzhgi);`0nV{Zv+M7;8%8%aK;jMG*x_)_H$7JR!g7C(Nzok$Y)F%W@ zxYi=^&Ow>$!P%Jswl`g74pxte?M?$GTAi?K#?8i8*acS~q_v#-tvv@f&6iB-cizEYsHO%i1LUz!1VC@ ztk_AbKm>bmRIOHDMv#)`{50WS(CI?!OAIyVp?Mp5@^q6y=Y^H_vwe47B@o3vT6(>f ze(ZCMck%Kj0uYNL{*-}wOTuhuT*f<4#OL84lVcJ3dx1oPcWl-j>sdDdieJlc200W_`x2wGHaa7 z-UnUf#dHa;H}Oyb8$6i2wY6tm5Ktex{nTg)|7Aq#hj-&*#4W-b4LfyKk_|a8n^PvLi?>o6ZBnum=a${sARm`HO`7%8fw!n`DIpCJeQ2eF~`L??!m%c z&IowVeRV=N3~$kMPyK76_vdYqAJUHX_IprJl=t1KvBUfB@?tJ+jR7fr^$+ih{8g5TsNVb8qb^H(?=fR&QwlO#2vDjCc!=D|Sb~ za{#@u0r^n>lKx=CR-ScY?U_f#2uDBm{?P|=Sm9u|9Bw%}dIJw7%VRWMXyd4lFGIHO z?Vu|!&{?WJ<19RBGSuM87JrKjhF}p!z%#moq+k#6I85zdw^)A2yT2=&o=j)VWfyBa z+ILcN@d{RsUd9>EGufYeXDX$-wEx_C;b3hTWE}WofBWMB@~B+G;Sc?jocVug#|rpd zz*fvCR%A;r0lLMG`74&9YCThp-UHs>ldn#2hC!%0D&R_>v2x5zCLL*B{-V-7U7u0k&A(+ow*zTfjxH?j=OP zGtt>%#7IHU(Aj(wBIIc3Y-pC_gX=)rD|$7l&)U$s<8e`$hKBX(C7g_WzJ8~+*d_AI z9WDANRl9(FG`~wH7NsE6%xwhII9%~AG2gar1S!tnou6Wxm!jpF literal 0 HcmV?d00001 diff --git a/HW02_B_Mimic_starter_files/figure-markdown_github/graph 2 code-1.png b/HW02_B_Mimic_starter_files/figure-markdown_github/graph 2 code-1.png new file mode 100644 index 0000000000000000000000000000000000000000..1276f90aeaa58a91770c30d06ab277c493380bbe GIT binary patch literal 9480 zcma)i2{@G9`~P`n#@IrZ5<+Dssfdj2(W0zP)>3#Y%OF(fwM35=qAZmqO7lcCc-1#1 zvVTibgpsWwly$O3maOxCM(_K*e((3ae*f#|I&*nu&VBB4pZnbBzR&%+pJ=kxApt%~ zJ^+A#>EQ#`0N_vnpf5al>=#RG4I=jCB-z6DAodji5&-UigtY|VjrKNNJ8SY zgb~&vBu-@tf5)l~3(-INX zh=>Yi+#1I?%eXiWQC{3Tb^-|`U_!Wqgar45qJ)I5qJ%Cs^|S=FB7(|f=J{IYaTvwr z#aZUP%gY-W$Qxi6xr3svgrY8X5u05RVN_9pF{V~9D=L`GcX5{Q*lZ^CG_xXt$;237 zzcITKNL^hRS8POA7n?nh=R3e=kB*N1yy%1RV!w-HcO|g9ia4DEd29|>j0cC1&1MhD zI`U)Mqm11U<)ukU~C)oU_AY1%IBiMw_6X*?)A)jmphoWQ z4(fksa6OQg1CmZ4;1-|+K#W~Dw3!R8OLQ`{&ez@|CZWQ{X^TqrPmj*7HVFP=nqN$Zx-@nw@8=gr0=;61Ld8^^! z*^oc(^HBt!=!dcwS5}^_>KhqMjw`k1$ zA#$es7)-60b;*sax;Vb4!P&XKJbN|H?ZxA+fVs0HnTI{%KhFoXXdV3Ew=+UA)cLn> zxew)cz-^v85?UK_N$7}c{EfgfP{Romzm>-2wvA)o96eMNXwjcmiK3KK?609e9Hthv zLd_Y%&waO}OD;}JtE-hhlp&2I_oJ&Hy{={xY0*Jd60{WsOxx3P?D=bltaxo74&e@T z5!InKrKMihbKf24$hCWhk4d4G&X>H9jcpl%^P|+Hil8&>kJ@A|{4E;(Y z??hBF1XDOaOYHUC$JzJ%I&h5hIMgm|rO>-{{;diinEjL!JdF0Q#rfbwQtPB;k2gA7iZk4uKWj2dNtLSjU7!Mw~}iyL-1h5LH{e2h{-BIqI;%>}a_YG6v^h}?fUTZRHEm~yE1>BkvMpAa8HbusxuU=&0 zQ8~@Wi&@;XKR#(xB^+}$EZ1|=sNA^u7nuw?ZOH11w{6yK2_r-B0!FI9Ly5{Ji21C^ z2gHzMM+;O``4r3rViQjNmf=GcmnBmE^*0sHr2)z*9BO$Npu2Xjvmn3~(F2xbQ1|fE zZ`;6#C1$LyhiCDq0M>tW_v1w$4Rr8(mLggUwDw^u&F5+r1o;Z2M#zAOE=yRi0E)qF zfS$)FA;ub&$r=?sQy`ZQ<4WDy<`)VDrhOoDrr6phglGfl0d80qpWpjfCkH44buKvn zBf%Chj!6*ZacIwh8drIaH1MC&xNS<{K|(|!24$_k@&FDosZSW;hP@F%%oYG$3=DE? zB8!Ix(5W>!RMGt_9L{@W$n$%%RMClDAG%!xVTh8`jEo#iEEDB5Xl-1v0|Bm)wno4a zYBe}OAFhWebl5JGAF;>gO2ny08u$vM549;-k=)oq1uf)@gc+*`+U&d`Y|E=fm`B|> z`Zn`8;l4FS4tQDM5JfR%Ge&Yw(T1?tfffz)n4E%R@sCq%(4r5YH#*qiHP zR<~l3^|554Jy9FQVMd+_x5XFNbz)BkKR5p_?k+~vfn^8 zpBQtUmx`^bSGEMLnXP7w#rDGk+O!?8+ET2Uf`7M~A{c3Yiwkk|HLx$*f45{}12&`b zE|^OS4gH;86l5*h)ehpwc;)w)adsa*IjN(XR2TRx?IV$X8i!s&a>ozO&V3E3I+|(w zG_);oHzt|3WyAQHD17IW15ZO65_h6W-p|vKv|Z+HkIWZzReJ4>ro(hWEP)mGP_8No zNlWtf=KnPE2<1v@>tEI2#x}L`3g~DGUOy-NB)GbzMo8^jw8$?iT@YSG5d8%Z#MTFxu)eUKSuvi-Z{2ya?&%gAI%% zeZzvN6=A~lZ#y}@g3?CMMPIrho%sfU*3y^zbr`ZOqzT23ow`ggK1H&?G<^+7pWn*3 zIm|^re(bCgI{RpgSNG%)Ydyz8Q?OmqYny`{Wi1@mapjBh!A#Au0$V6hpcBH*3!U*H zf<$F;7Q%-(DtsjF84bry1p&?%`Bqc!zq@ZASnIm5_?O?RB0z!h(Vu)VwdH%c!|CB& zg31lgFi|UEJsDj*M(x!Im&xe*?ZLLEox=!99CAqeb%=C1PFV%00*Vu8RTY3e!!e2y zT*EUi;Nu7=`~7jG39%n};*9#JkgKp9O+H$kveng(NnThSC3Li^oQ>P3H+B>I@x zVOOiVA!_=?v3V(EW12eSVON+6E@ZXEMR|AaSWr$>kc@Q4q0o&{BQK8GOCTF@sJ#K= z9KI^$R1?pfvVQ)%E0ljcUW=MB&D$TBq7E?{a5LYZdR~oVPJMK_l8kAAppFS&3K_7! z-_N)!f3Ta(z#?(S3K6|N#7CdJ?H_{FJzWY3D-P0gudVM9wdr1e;f6~a0Zs+ubLK*f zKgt`lLTc+PMdbj+9JJQ)(?0*aFcz1xf_z-|QUoMb#%Zha_3q~JBU%fUuo7eJ$Q?jA z0b0F$;hIDwuH^0pQxz!pCjkvK4>RvRS5?ZZpv;fz0lFK63O3*|KjL!}U{4~nVc)uT zoY@cWd;denKX90iyZGR|G%0eLON$nfk<`uQY1gZyqNNBVkKP5HC6l2(SAWWB)_r@K zT1V~WfgSQbOx!1TDdp(tRe1&@ixY?ZcBA=$o;MFt0=zR}NdGuqP?1_Cz14q3TTm1E1h9s1L!Tp#i!g<6}I}ZFB;Oq!&YDHO0lP0zbU(ZxmwHG*Rux zFqJrChT_xG$JvXH>=;=?jb=42%H=DY$xSJMF;1LmeENXkK6W<+#VOFLKYlj6mzfE-wm#gn$h2kpg?rd0 zSo#OdEh_ChY~|9^L3rQc5V*nRo|p@szsu{A#$=V`m*>|pi@svP&#m>W`?|@@*rM7I zd6+NbYF^Xe=*<(w3g~syJ%^f}3dzwWsmq2{o4^KhT;h56m}+_e9H{Zl4(}ZIC3?H6 z|DBk|qiq5GrX48(dCpg?h{_AstOS*ZUwTD(y2I5=xUeTbYt(J@hs0!P_8BjOPfNy> zRP1z%-%wX=%m4jx)of19P9<#(ICz5)x&3H_V9RGDj-O7pI>k%-reO!YaH5G9>l-{s zu4|!|ZH(zQ72#JkK3+@TYw-g|LURTUYqGbcAi1imZ|~k!6UwF1R4YTMT7O6%=RHsM zQW1o|`D8~!gVF(mI~({|30E@u#f*}_zjsa;mmeH-i*s#0Wt}eXV|{&uAvGUob>~S& zuOjR;?=8+x3%*1@BP+K7DJq)b5zuN0lV{#`C{A_dx9PF@*xK%^Y1$G!oO9P)6R0NR zX?a&5)G9XYF;gLwOR!Fxa{0(j2s^(=GJ+H+hb@5CeH`QEys_F+4Zkocz|$8l@#`R2 z_~TTQiIjVXk&WgpGI=d`s&+u+xnW+xmU6`X67tr%f*_DHP>T;KUk5KtM(SGl&-HQ7 za#;i0`1FwTqwbUY7u0cyWjSM-Cv6%o0PCqmE4x-y@TK!}DW!yp<>lL#ZikABxq0bL*ClJ_4TWnJfQI<^x+A);$D+%#O@Z{W zyIBzB##>0WFB#>E3vR1)p0u}bzc_BWr6g~&eb&Os7or!uwc#k|sBtVNbx>(stc9g` zR~6M_nURyn%L=?5xT(6yb2gDXL*<_FAdZ#>N}k)`q`8YZp`zx*INMfb`$2tRJiO;%wW;Q(W{bE(H}o6YrfG+%Jw@UWE5d zJ$P&ilGuVBUc=f=VdVJ~A*W&YXvE7xJl5uFT@xc zYwTe@eEMqJ6v_1Yh?Nx_rSXOi!(7+}MLK`~hIN#C+OmvCyVUu~Dz5{-Kj?dFIAZ4E zr{CnfIuh~leej&PQSjjVXw?<@gp#Q`yyp9sat)ETDpzYbbJlPZq_F)B0q#bI&Y2yS z?foF=Y{#!x{g|5Bqp5N^3^@ftYTrOrLX9uhB z?}ErWDAPD@s6pH)e9L>=nt}LP`9Y~80r@*38hjR{LR**PItPO;&Bhn|E=@$nZ4%0j zx*{X=o!{aOQQ0$H3Z#{Ep&owA@ws0IPg>RVFawW2H-~!@vQYY9%^#4x?4GL3^Rl)* ze6hRo{B;qL(^z~-%-)zK&YpIlR!*JV7?(QE`%N|7{>odTt-O%3&(>@%9O-j>!2NG< zBZg-*h?XE%Nr^s;<*YVhL%d{eJa>{^`DUR`r4T8tVa;)Evflf@FemBm^t0xMNAU$jAQ1#2g+Z)!zl-E z&9;Tqv&$yO#QeX;x0a1GV)vRf5$@I!i)wdVDIS*2z86mk0@5e^t(V<_Eg(Np8IqGE z!rh}c&Tc_x)5`$G(@csH=Ozg#epooz4QCn-41oanVz`Y6Qfm2Tbf+Hryn`0Mm=LOk zU8q7ZmoNE;C4ug5AOjrlX-hL+R$nv0bylRk8G_6z1bHE^F7$$@oXW@6!cvt9*N4f;#BNp;+hTtUN+~>-U@_w4xfzVNOk__l@u+`Nk6H zS>>P0&ti$@V{JAh7;9vkE=co8PzB=xt+_?}+_q{q?9~*F_Y>39yX9mxJ+m>dqFy6SB(aF# zpq}zhE}|C8#4%lnG5R`8aCB2zs{2_bnfoQ@-##^Lu^B0~bI~6gs$VKr^ZslKyEW@B z8d3_7#kZi5pls9IoC^Y;OlzAM(YG2je6rHlF1#6AaWAtqZ)o~v>AHy@TYzNP4z3O4 zNuJ~eRpaZQa?0I!wBT%$CR?TViRkr}_VH78}}w zHuU}QCiwn+d8SlIV_6eFG0}j*>k1htQ)@Ies`kDLFvX!Y?oPh2L(;WNry@-R;e5qU zk&3#orR`P&ot~Z2oB%>de{2h7d8~mmF-3$RU3=4KH^}9dZVLw;pweih)5D}8nr;4B zDf&F`IlWGs^m~0is{EfwdcIPEl%gP5*Ws9z4B4GQ3%?6>ru`Ix_e5jn+ReYqXE!#d4CnihB0V;QI+I$^7sjHdJNdPErCHB0T24lPD=786{TcAUH8!NowP=B>@S>7iS* z1&9I5eKxM}p*q~+&ygQvTM&k^hhK(UKkM$$VGOLYKO5;IBy5o#0rVjX=UhYf& z+1{HMZR)pN_`v7v@8%=vVJC5_^Q#}(!CLDXakf}YUr&y#d9pT!t#`=U_w;s;P*$pc zhoAl2eZ7*!+8$LGim;;0ex zV-28d91Y*#j-zj_!`-?KjazWRh2KDf2$&fR`+DO1s~l6{^OP|1V-!QzUP;8rgDh1= z^q@emqdBv`!vlxz*R&OfkW!1-z^bb&ixwb&5^13}gZq_@9wf9{JvbmmZy~@2F?^IG z*a|H1${pL5IhaNt7Z$;_d}L6YiAfv>H8}?_SwoCi1sEC0r!a(5uQ|0Ujdc1I% zh}};uozc<#Iy%CP&N9~J660t4N*<=WFgqk)rmm+~{=`PdM-X)?mm-xKtjF4&Tw@ z4t3^!Z6O5Mb?4?qobm6_joZ0j&I3oUxXlapWWUWZ%@-hP>zP#DK&B^bi<%L|j+?Tn z(wP|OsLY4vI~8F0pMt6g23P0_H()xGm=G&)coY)V6SDn6O8k0`@dRPle$~MV0~~`~ zbq{IBQkAr0etrZ6tj_coMD-VJnaP8YicWK*cOl0cp;c3{IJz4SZNZZcqN2Yve3MIg zDZKwa9>X!X(e&)Y$n>O6r72Pr#u39y6~2$hKs+M6|BWCmFS04lasR$EP{`^lo0Slc zik^mo>e-ML458End~lhsp9L2y=hYO388fjPSwTg&**@%d4`RUNxJDpv$l}vW#i0ue znP#sOp+WT#J9Q$Ql~!dE@OjI_TmeVhsZ`a28WZ_;meeN+X})_3e@nXTxcOk%!XJlQ z-K)CxgSyLXb>-Xq7^v{Oow}cS^EGqw!;H!;M*+k7Juc+@S!hO#f z7ZH$TCd*i+j)~QiG%tsho$dC~M@@#Tv_ht=bD+*A*C03b5r}fI`Ppyej2e91@mBHp zX+RSL(!=6kP4BQUjI-JjXx$`WiM<`fI3GTSbUr5mTRtT22WHE&AjDD7Ws}|=2)USs zVJO{5onB1TWNx*woWy2t^)%bIBWucTb*UL0-hI_%_e=Y{wj3`iVB8WX|6tK}J1^6M zuFzi{xf8%kqR3x;eeR1=CKs%Z3fL6ALLT-u&&P4cy28AqcNkFJ>T;znRn+8_P)svX zx{m_~e|GOYBS9}pbY9NYDYJ7SIP-(794WGHxN!=ad1&``0%O(kw!J4l*Cp4+OQ%x& zS*-@G%u){P!E<`*j$kyusy_&!|^V`;Z9b2`FEG}*WvoFn!s})S!%2blK8h@)TsL82ccO+ zJjnqSy|IDOzt2(@NQyGPtSDg^qx48Epp}{m!RFX$#>xQA_AiY4$G+?|!^#XZeVlU1 zUohQ&$|1E73tguY4Oqvje25r=UCJp_;L+;ck1-(o%u3NF45gQH{LqkgabVFc%S9W{ zIIU~|)L+bqXf;Nj#GvPq=5|QZvq~=af9{Hp6#86yAY(C>1Bxdn3n-go)r(9>`cGwW zV;)%rtd$b}UW@773y;U>{Bkx@ysYnkN|q0`p6xt^!P6uHth@3SI68e4M3QmngK%G1 z?@*00d{bwi#cq*9{0NR=t!$kC_ll2Bwzv?S&Y_kA`RYpoYuc&Wh1~gTjl$R(yE*-? zu+&lrcI-i7%RjgE9|a^DqCIa&_*K}EAbW9ecs|&C0q^4@!~bgsB+>DP*#Bjz|52A5 zgkf=5(dUV*FgfH;CJ^~oUF@Gy@S*!2i?9g4)OHwA6#eU&hXdKDVM^86OlAU01qN>` zp7o96L`PVCJ&WmneEyxt!^>oTrs#rK=dbXigHBt^R;tDCkex`A%UKU&*L8!OZBU5U zYPQ9@hwmIfz$?V;+cc|h_(=U76&^-^Kk<xIj832d<}sVpzMQio(G2 z+jz$7#4V^amQoq250z>tGI;+{b^HHS3I8vpJGNUu8UT0`&bt7AFFS4nX&KsT(Q23ikQA3!Kn@|u-`OIj^$RFQ*o>1qvlb! zggpkfM%ns3hUxijM37^sE{D?DpgaS?r}GM&)g`|_Q*D2vhnv1&A`L3i1x zrL_wPpx@gj#B<4Y;3hBj2qjewP4o9syPU}@q93KcEd6l5rB9REAIF(l`E?lia=*S` z8)3N*HR@_fSibT`Jos4fT5kc*kvr%=UX=Lt;zZ#X%yWLwcz)R9S)PzfPZg7Gz+Rd> zXng|z&rhG#q3jFeDz_dz!lA+AJG6o^95l`0rvsJhba^mZ zKm7b?kr&VcFWz6c@gv^lb7`tl+k3vQvqtXySXk*cuY06-`?o>chfY=bs$=ZCN#U!V zfSzhmVWbQy(jPq>76WYYB(PQu#7)Fd~zXuYgBybHM^u1y8kg_6Hh-^}mmnpL}e0CHeijTe&et!CZ)mFldl5 z|Ki#-Jh<}UFz@4U@}?q9Pm6*2U5QOMt?rx^17u%_+(JwI{(k9Du08ueU|K=#Lf7T@ zq5Gd1C7i1}V)uG?YQ)hV_eFUP6WN;%5T-xM39)}$l}`THe}({eN%GLn^3p;x$pnZ| q6q$?;X{(Cu2V!Q9|J#QxL`=TncX!P4BlgM-Fg<8>;OV~KuKYhLR3oqe literal 0 HcmV?d00001 diff --git a/HW02_B_Mimic_starter_files/figure-markdown_github/graph 4 code-1.png b/HW02_B_Mimic_starter_files/figure-markdown_github/graph 4 code-1.png new file mode 100644 index 0000000000000000000000000000000000000000..ca0b47a7976ca58671e6ffe30cac4ed9324360be GIT binary patch literal 8838 zcmZ{K2Uru$)_;%y0R%!vx~TLb5I{l=h!iOiLsdYK5>Y^U6Oix%0)kYf%7O@yP(-Op zQRzKWm8wYSMXL0C%X{DZJm0e0A-Ee6PT3_85{yn+5)ud<1j1|wVU}F&45@ZT zRwsf7C`)2>^*BgZJr3sNYI1codAyoT?np4|NO13%C3KKGI>@sfWb$|-ay-#_yc#?b z$H9KU=BJ4a5`oz`nLJBypPdEScg&J!XUSwzOX_@V^HID5*dNG_{9OiQampKPJ4+yg zU6D_@f^=jud4z_(6`Tj!hk91t5C~)Q=}FP&J1R?rYQJ8@2)tvaS@wUKrvDW0Y zf{kS3N+B`NnzCDt?OCrn`jB0#?-Y_=m+E&u$Vt($HurQJQ!uqqF6_a`w1hPVH><#Y zJf{5p6T$ca^ z`Sx?i*5&iofs#bmPqs&>yOC|MxyL{oE&Tx>y_`}byb191*zn%wg{3b0}M@rh42^o;aqR@Q**zR5gzoWVhc{68gA3 zdbq_c6)MU&6ZA)y0u^|p1SrIxs5%!#&&_+>^^MIYQnYuoG`Xl^Z2I%d0G+s`+vNX zeJn*P8mM1d>KNfZlp+eL5BaBm-U_(*qp-HkXqH36ErZPQoV1>MjB8B1AvQ(Le)w>@ zUHhA*=#P<)n^NJtwmE!3FAf?E*!h$qvTOpBysq<0h1PZR2}qe}n;m)Wt*#j#Y5Qvo zlIFhX_W6HwuZ(Bo?pTjH_-4OfS193;{a3D~&M~gI{9#MPIdZS~uR@6x9fZ-5?a(^e zzv-ww%{Cc0DR*kop3w92pTIDiy)Ztbtcs!>e+MNkhEirOb~!anOeEtDbl%j&Nrh^E zRq^>F-{~A9auc(RK2eS)kuuBbw_o*>+HaVY(sBW=S^jn z^DPkw{joXS?j4(HX|b2txqV%U6-xR5rON4Wwgk3HFW?2L zPUd%H&NLf}W0CGLM=4J+qG#DjH3FF3g**`$w>V<)RU1=xKj}(S-K$LE6l)w-3*E&1 z2Wplx6p+b+`M`EBf|_bae7U=q$3H;Jkod@~e$-}8t@JUFGBv%Y?f6bUxM6-%XdGh+09j`uF8T~lDMWfgnFz|(`RlxWvy4u8(WwAzM zArKeEloKXA0tD)AXRy#29pE>bH@%I5!a{}GV)n^VH0Zv?q#o==IdzcN#C>iyLhDUrCNna1xQmhY2r6 zkzL?OpN$ORJo`euyp3nv8YOqi7FZ*iYUl1b0HI4vZMszPuchMb_BUg=OvxQQzMLv% zA*|uFPbGZV`T{aMM`$dDZIJ8E9|2zrQ2_ISyV?-hVh( zi=@Rsz{};Zo+daWhW7tan%poty_<2so&-eaKeg%U4a)yiwFs(^-4&~`WvtgZ!!`Q! z=mMbsWn@)My|JG3Bkb1@3I|I;teD+-QO~gp3r5d)WiAAF+p!5=3x@XY%L!wnaKBR& zFH#vTu#w6JeW|D_^Te>J+Xg&1>$66vy9Sd_3tTZ9_?BA?`lw&1@}~gMTd9qXS7(J* z#hJr0Wd|~*sHsY$3V_UpJ$MvVj^j&N;U^K{xYHrxW z*m-0&j?m&1>GVSE6^7jPz07D6+zBT0zlIHns^G-ELN~J@(*st4m^08BNHEJ3N{v z(75!i+_5Z4G%Z3Zba#nzBc7sA<@|gqMLY&XJ6UC!^a94*_UD+6Ubeq3B{7886xN`8 zX$3f-m!kAh0C>8zrWfueD_s>Q3Q8Jh(wmg*vs2jhO;!&uK?4#(>?V^(RK4bp(17LJ? zcja*WF}AAm@5%hjGB)+gBfsHnY*DjUusLqTvlKsFn!#Z%wXJ{d1xsqV_X=1Xjc^t% zl3!rT1n2j48D3^k9Wo1uVV|<#oVjQVpX^MNyL~t=IbQ9(voQbYqqk>&_YQrM2m!v8s*>VZnSyb( zGrPLWAvc{v&~5KqjFMS6I2WA0%9Ope^Zu3F3Hd?prD;~HGQW}jzR`qoenvi-QGu&a z(#?)y4us-Ysk{8Q4;lwdw`^~eE48}!*|!xgFFq2fP81SN>GgbsqN&e(F|6qS;!;0j z6eHQ*q}-2s=8a)$9e44Je8+)N5nZv8$eUD*v-GNmhS=KMrGs4}>vmI=7Lmp!0rPB; zi*5TSTJh$yfRCU0)2#GXE6s>y$!mRe_|ZvNm+M*`^LAc97o}LYmIQ7|VGa))`<{5t zzEQ={_@sGQ#i=3Z6+?}0CqISjDp&Rpe(1-{a@*JaB^VXkMj*YNyiRgtq7 zyccX-()If*o&fmQ40oCUS);Cr+Vd`7uMFQid)U|df(I{i30uHGclJ&$Kq`EcelGMc zpzST1D0x}rjggNDy1`!fDluv?8wjG@q0)^7SJne~x+SJ?TB74 z#+_E~PZ`JZa_Z&B;W%_xBuv_b+NqKk0Dxny+hK)s2z%?JIqyvftK4_@(h%U zB@z`10e6kms?{*w?^fyz$<5-lHi7Z{bVq*=ZAuDEo_QYf}w8<9_=iQxjJDMzlem zc2acx776`!Pt17`1eW$4V8{E9J1&n^T_*IRv)INtA6JfdFv3jT#O07xtaa! zesUo2?RvHTB@XF}io^`-B5mS9hRDLsS}}SciCx`4O(P_WzE}}!wtERWX{DiJr{b*G zw@cHve;~jVr91w`LK<)AGrL_=pjEk+#}}V28@4s^oJW4;Y4XZEX|DK!_)esnZF6^E z#|7J8-Y8Pk7?kg~YtDDkti1OTO_P40ItWKj|1PN8wihM}hOVkvAw6G-G@W~ipBaw& z01fFlQsI7x63DI?eSiGt!oH)bD~h$_{74A1t= zNjYPHMod=V2fq@Qc@76t^ldvAc_*QTXRjIpPG%~n!`8o67-ZW$`K*Xv+xY_+r9Oz5 zyN(E{vpKkY^FUA>%Ly8zzI268}d*YDY4+JbtI^a z1ZX026~7vwJOi=*f@0V=x2A#E8oEr}^ST`dXcZmkWDQ5^8-D?tK4*>J@|fz_oG6yMZcC z%+zsCEHJuQmIPq44;dGoa-_sHECq$|ojMT??CVco7>i3lAq-#E3}<^g+vp?5E0yW) zrF%3TS1)Qq_A4Hyi@Dy}+o_rULR7TR1scOQ9Yi+9ns#Y%)p2iC?pn24+|pz0y21uW zY$6vg2^xEeyy?>NLL20tMSZ1q<>LcCIhx5esautW^psa}T6o#cWj~apt!pll;whhg6^SvfWS~P4 z1g+3vg%uy)-uAd&8X{R75E|KVd-IA6%HPnAI@3}wUXw_d!HR0I;&;7gY~D&Bq(uV1 zhJSE(1nO})%P~Q#5(^Zumgu}$>?yf(&m?kVRI^X_3Qh}+j%tB*vCgI%d#+Q*FLcsA zi{SPM5oR+LfLFSI!4)gwtq;@PxZ;@ol*N?SrKMIb25J&N#K3|YB!V_B49Ag8WcwP6 zM>PBNYh#r{8O3ZtS2&-CT7~?4 zlLfH^u^)XaKT<-&4zrJc*9LCUTlwho zF~D&Ljh@H&Wo5_tN5k3D&#U&NF7qzlMrEWkzON+D(NJpPu8jlfoYUf8)}98bz5i2n zUA#b%C3vIuz23(sADU^FvvU0&P{Uj)JpF6)qxvtQh-*J{6=kkWTQd8)NSdR$tUM{l zXTyUK`n~8uPEN1+AdAWIzJyzk=VJgEo=X2{=F4D0QBCNVkj%!-?Gf6h1gkRNlIpoj z6LIUGQkh_`QI05Wu!RJ{tE~OSvp?xCnqJ)JBa{YqpAX!+3>w+fCGqM#lGGe9oV1lR zWZll)JJ3fPtB60J+*likGxi8+7V+t-N{FLFu9;Q#@yen+h2J3OXoHUTTxyKZ+~<1{ z2h4>7eD*H^$%D?13PyHQ66di_n#6?57HHwZk0YKpP*!`D-d!|MH-#tvio^;3NLaXF zvu^%SnH5TDE}JTYKww&~9=K@oQnj;(62+=_`zlNNTxSYYTW0!%XtRSZiE4p1 zOxYY*+vbIA=?i4GWnm=h-#PZ)4Yp*t8nmTMqfM8k61) zhsRB-8_=|v%vKOzAmNo-wGlsIACznvKrEC=3oT9T?sf7ft=g#5o^-d@=eG3n%J3Io z?X~eUChF0D!UHz05yD>kBTT1e$zftSguJSqhS#ToDsXKh1%%|`y**kn-W7I4pEq!n z(HRsy`V|0s3(gum6#>U|i%b8C~&B-IR;l*5CO(c!dv+Fhq3Sn`)=<55b>< z6~E@ya-7s8W>st-c~GYfDx+ReUxO-)y*@(%AD>xJ)J+hd0AM3VjFtU|V#nVfqXHtn zYMs4V2tw_uyDi`#(9z3Y9s0EQR_|!e56OZv^D~3Hwm*yV+u}H7-n~Oy65V=6zOBY9Cs3DB66+!pkO|-R z$tqG-ef{wK@Qpbfh|kn)>-FS(gg9iqUTAS2r&*3#-u~D_cF_;tNu0db;l=EjwEV00 z8@JwTDs}^Y21~=$X?{AC41e|pcVoXDr*wg|kHo5UYX^pfs^QTg@tn*dF6h06@O6<3 z6&;>;)EpHU_D!X6lHMUUR!|Zxh{+#Nn$TVC$3+h5D5F$((J54EqZfm5?r)S|CiuL# zL^G04Z>Vh^Cum{XN>CI{xk=k49zZ?arN|EUWI#K%sD2ZKe`ceu#w_H0Lt`xt`NaL@ z<@WQaf5|Fik-mxR+trad(c76JXIZQryP3CxQ9viuUDRc5Wmslp_VD60w7GYGJmAIc zb%)te8@HrwN&L(HD`s90%l*h)_VC8m(|z2vsk5`%!_*As8{IE^W!5`EBOE4PbiP|BaafgPL)j1zQo_!bDmX3KUq)Z-U(AZ*hT`V5 z)*YB()=F?T3;Co%5QkikBxGRkHUXJkKV5~bHPNet3`1VF4ti)LP*7oq?p28cVvBTW zK!ok7qlVOPdHnZkWy2*GdgGjp_KDmIRB3~1sAd@ILdue<$fQEZCmTxKl1(qvl^Ul- zbWjc6ElF_rAdO!m`Dt#fSS9CuzSnNzk;7&A?Bf>hT6pfh9vcF&x_7-Xc2sIIjg$|< znkRoN%XR|ep~a~~k@St4!ARxh)Ip&S0~0FT{^(x&=(8~M4^h#;C&8q9?Z0dnx%qKt zQvNF9GqIDlY1T$-^1zB)x90n^)c;DLKwT&h-#b!1TY3)0Eo_5=S*uL4BJ#O{&(&M% zi(dI-Dh$@-up(wGF?9>ezju6T>m-!*eo&x(F)QrJnW3RWOX0v`0_tzzXIzr(E{@Y$ zQ}r<+Uhb_zF^778RYMI%4zX6wdTJ6MfY|RE{4byd1dZF%!98){dx~~-0^?y#!g4KNmNGN4W|dkFc=&GaGXuhlhrxkd#f~(5Q%fmza(nDkLQ7bv4+7wl)Shb zZ0xcPCkC9jO4NNC-1FK@vGzWCevXH4h+j9$)yZ?c@UaQrGa?zzrj z&i9i~%61wmV{_#GU8VFS9#xF(YDsQRIiH;x@1}*^-+=`0URMr;`k>nhUqhA2)45!G zkpaSS0iWg|pOu@P8qzO4?tMgFbJ({*LQZ&qIIB}xVe#Hm`UQuKI6G?`+)C{OPW_5^ zL6BiP07&{EbxXW7mfpus_M71oy&P?D*)LTj&f!L$zJVQ}RY~EgPWKSF5mC{$q~an? zp46D4G2pX!XoSa4W83G3IvT2^)EaMb-0%&kF>2U`hmb348Yx@a+|+FFNhzxf>j9{bUXey<70#Fy^b8;kBb7>=rXR4pdYmb zU&m}3wwpDQVSHum>)Sj{)WZ6@7Rr7r0hqJH`C07vewpvBQeBb4EUyP(X(%>`VOw z@f^S3yZ?W8*ZwOWT!AL;>F8B)Fg9w812xa|0 z&luQExnQoWIuk$dd)U=y)t@Lrsji95^zBn0u48{>|2e#G*iPWv5d2acAgy%!Xp-iB zdn>&dBeW_ef9K{s zw;`Dbc%p`*G@Y1Gs2j0$-c|2cpBNnPCXW6NIa%P{;LfENSJFh^d5mias9_3g44u2y zpA%j@GfWMmJBx1NBZ;KkJbEiE68uB`U0H)`L@~o9y1%6mTFc&5rnD-GvsEqs`F%u5 zgRAFMm+!)v+0r2{$&k}+O(Pm;YyF-gs6IhQlJHMRx-Ik+k0|iL*&6l~|A~dhN8)Bi zlultyZD6|DX&3|?G%)mujj)c4#I?Q1B-8}lVd0^o;`l!|O#jy~pYEo<(Iq}`pX*5B zOgR(^zLOT#fo$oZNc(j;ur=u`;RT+b>pRmuE|~SNKKvRz&Ur9qnr}D+g@(|b`OjSf zHYodY`0ds0(f+fmaWdNPp1;MH&Xvt(_FZE%TH;7Cr?sCu0IO=(DJ&T ze&xPjVm+po-_^+F0!`tr)7&TCpJ^E~hO0f_!ZV5jQKa0B)(Clj-?4#1mbgf6TH2K- zhJ5Lk0%Jqr8?6OKd@n4E$G#~!^NQm(71)hvyCiO2kPR5K}G9#srf;T(#J+S<&)$VHn*cr`4s&ndtCbU=K~WH`L)+<3W4UVhs05}J8v`^v)V zKw9p{!uK(h-hZ4x0gQVd*}J-2V=Q42h0%RF4VnMii}DR{7LJHV|MC(#SeYt(2=z_Lxlt~nRdNXHdilMV5&S?P^YmK)ko@6z#tV-M zWcK%V?Sf?|K_kqDoYlqJc+5Vm3xc|NW72=5Hv6|riYAnypu)}lo!-X8>KhJ&N&wZXV(O45*20AV}Dk>@l zeLZb+DykzO6&3Y2Bn@=O*j(l)bTN-Lvebbtsi-hiR5&UOh6)3nlc;deQN#BvQZzI{ ziqZ_Eq#UFSe54#A<>chf+QmcE5GjTVN8z9}sFOrF;h=L3CJ8!5RYPuT-t^X{wmdI) zSI@>95@8@^U?AmS;FD$W=9V#~xf>fN7`sD9iE%=^snkX6`5Wf(*BlO&IYdS}M3&+X zhlQiU;SQDIFiCmtwNNW;wKnjzRYDSYrYm!FESw03?rKLF|nB3gt+}zv}cjJ;nttFsFNl8LUdr8T3 zd&%^4$uzk%(xEiVr!)&9hqOWG(i$994GvS21RWH4HKU_7qvRTLO$~XphD>fxFm6w9 zZ=Wt{CzD5$Fr!Jh(Hh(+q!wyqh!8rHr%T+Y$jeYjEV6B#0AYpvZto zrc20>NHRqRL{27?C7#P0KvPY7ThH2?ii+_aUzABKg!@FUh^ARlpVkcH{VecE^SAE5qeTZ-Uhm9l7&~^Az0oC$$*y|nqx+Ifk zJ5Z0b5+mNo)o~6B=6}Mg6VH|JIo+B!#eCElo*w4%B=j_Ye`}=S#J;AeA%d4`{Ojz} z7xIOj@B8W9%n~mP`BIkEgEBle9eVsQIe9hlIZKiuOL?Rh)Vl#YX1a?u!`gH^-xQc9 zZ*=w}LR)exLiMKWfjfDpO=8`MV9t>6*#ykT7c397&$7*2TYW*jk8kAc7)w;q+VahO zXEHeCKs1r?w$I(r+dBmlkyxn=(PW6dB?xB=l#G`=SbPr~XmgW`XD6!gXZR1zn=60F zUzU?_nwNm1&Cqk)mG9}_Oj}pd`p&{}B=Hbu<;7m^H(?6WHs9BFr+a2DSB|V+&iX(H z(# z_4tMB?gCpQ`JAKIiQ?n%@#L2wAe($sG|IA6_857uxs7amOL%^&-}imPb4bR;hwd*V zZ&j42P7b?Xax8#1%6xP<=?pf|RSe-hL}B?kjMeypv&Zor2KOtygbC{1ou=tM^0wGj z@{8mjo#khwrgR%z(vpkAn5B4kMnXO6=(!fi6E4dO@bq*m`t_MYCL^7+e5 zqtV%p0Y><~9SY}Q?Ta1WXW5^8S5hre;a)J8AzXLfi>3PUslCm&R_Oe?OlHp!qj&Hb zDNoPz$O@Czb&nO|=sw)0p#aW?p4$cNcOD`LDcjjR&vD-Ut7>!7uiU z3rW{-6o2H!f4VG410B7rHM}3Jyq;@YM)-dWXAZ*pyKY}Nxy?<`_>%b0pI+xgDV#koKm*8%(&*+W&B%T?hPeOziBh~i~Z>-Qc6`s%fxcBhL0qsRf{$AN?)#-4$PP$ z)~~YOn)l;34bNiqAmm25qOCWptjFWYW$&gcg6%-y6fX0PrFIYZPgEVFgXXwQvYTDrO@9RzH&<>6gY$!|4 zvmT-Zu1K_L4VYS;U)G;+2F`{M^vjl-+uAeL{$L}YrnLXTNuuys6ljLodnOLJMNUMe zZ;(wA)7ZEcRX=(-;u9XGt*UpP?&s8+4t^jp4`;Z+2H0VJ6>$Iyw>JJ{N@?2D#hrwd z;jB6cr>oBIgy($L0;_E-_|vl7XH>e(^nofrlqodM{+JA3k2}hj7(@s3Ql7>v-ZWC2 zziI2Wng_u%tm9}Klisq;a$$e&R=-|K8I^C<=|`9R>oQ*rnF;AfzhjaZ)?4U!NI$+D zAX1Sxv?Iyo;J_QDr(XlEA9cBJA*S&9!+B;6@r^x~#eYt}n*y?4>1cya4@SCfH7CCz zQBoz~u6fJ;>w%5j$9{<|49IusEw6=xurI0>J88GN(}Tf2eW#|Z{m8eIbRBiixF$q@$Zt|P z^d6^qw{-7tfu4a?^Gs#>T0DQ!rQ_W%sMr0?@SVLl&nhhrI0Z<_xZJdJzTdUIc@|jJ zMYt?F+iR)cm-0nsRc9ga@6{tfUi0(Vv+uFT1dSNWorK#iyjO|#_$ZJY>{QsBicSbm zqfr`2j;Xksvd=&0@B)@p@(IZ1E8H|6NHRTr&EPxeh5S1CbxBKFR2lnzP3~fTu|SS_q49I#DhiDb7v$82$?301<6C=+P0^~Z&YyGBoUy=Dvb5RyPhJ${87q5-~3 zi!FfOkfm~9{`R~|P~qs0hV61`aXmY^#rxpe5~A^C>LQhnhU>ThKS2e>ia$rHiM$8? z)Wjm`fKlEf_&ORuKn!*(2#H)^ggpRJ#HIg{@bVsNDjlln9+kFcA5|Y;#O`D<@Qz&= zRN57*m~WJ6bbRrpKCyug;6(MClk&^>H(u?`&x!}4-HxGiM$HGeb~7~g-#G>f!O}Ic zhCohU0Ygq7vcrMpM;k2U$G(KA7FLm;kPkYL7w(?k|57Hm8zvp7@m!`DBuW-m-&>)R zTATlIo%r6?|4VQh+sd+9;P1uZ!uFg{or8dwCZWl@zgDen5a0MxHkTcgcYirB1H&EX zD+CCf4vR$sEdev!U%xWEHyzWc(h%e|QQTd(Fl$M*^R3g5LuU`WD1Q&g&uIsi8+PaU zm;vkaJF`MBnl^<`t$tNCbl?r#2+QDW)FOZ9Q(s-!y_hYSkdp5DbfZz!IN}^uu4%|Z z3pqLVk}u9GIxe;P?rC+?$3~UO+Hv`VDJLx*f|DgD-I9&NcQ4woh!_^2L$`Y+O63c` zmMj;wI&@3T{5?Y0ai4yMqaj(gDU(k#ex1`8A@ZHE(63OR^O^JC;Yo|qGgyjrn8?fv z2+TMO5~?TnA1|s^tc{jVM}j}M98DPnqQKM_2a8PpMc~w$#)L@2P2S{1?-L5yCvONF z8q@9EvOfv}SXiLjhq-9=^)KRw}jqOE(xZsMy2$UsB;MAKUaGJ^ftwh<@{K;+nrH+N%784t@ z_`xgt;M>;CY$GJs*_4*u%@?X2T>716-plGRg{fFIg>VqxYnM!G@b$E|klTeleeX|Z zkur#o;VK8#Oe=U=+YqiS?(o*7s*n#p&yL^Na3uVGEbalV8+-zM((Cc8s1j{?i zA45GKn*3Da?tWO6)kq7BUt$fy@!`8O^T@hWY4xSAIC6CH>YNEBL91>UYfYJ7j0WFb zocw%`%-(3*j*y8R_VPMAhVT);>}e=KP@s1-MGI)xnh!B$&EXt3t#`t{awrp?FzD82 z#(d93^=Ii+xcn3lUm`?;gYxfq|2LU|FnoVnRbt0pb?y^$9#}Za4czu>^q)Wd`lbGp zOiH4Pr7b46hntbYz8pm>r;Z9$syxa%UM^!haikHdJZOewQV0q1W` z(lJDuK=>kcV#%AWy&q3!5_`rAnC@6+BQqlbQeQ3k!E{F3XU4EpZj}|d@rnH6$3*;1 z@x~jsB0v!my|_z3hs(ob8UAe&|%c;3>!Bl~|c>J5H`4r8&uW@gjs$B-tc zM8)HHantZlAzN&UbvBn5X|ZMa)3G3a!WU}gmBi?dobq>k=@PR?&mYo|!g!t0z9i+y zOFn?;4MW>!k0#Cp3p(+>9yj_s`Nl<8NAf%Ke|J+5@mPLRHAzP3=?u8D5{lJp6Q3^xpUaB zTJjdyfAq{qM@+-R!KO&pTo8T_`u-mh`W-|Q*y>D1LE2Hog+GS<$@ezClZ&nqYJW#Z z8OGD^A9J63AHVtr^wT;gKv)*Y5}zYf9RnVta-ZQDAG!-6ZfQqF&@EWDm=5lwD%3yu zoTQ|Zb=6c3w(q1pF+CtY2O4_hUJLvf*?Fi;oMGis`06Pbg8--4(~qi^-RGd?rp%i3 zVMHAE^db^j46ymsy*BWmk<~n|k%K~6YLzl#?B{*L?r+3V)+jZyND(x-M`8pCt8NU6 zFE7BPp13x{r7D(kojnx7H5rQqSbZu7lfh*9LvBd~+FW6KX~jUeJ3*%k%2SZU+{e+< zq%QeF6azC6!%xtFR=A^=k9!2Us6qWlJN1|%yb|aZH;M5tqAgl z>CAHGD&Q-hb!Zz`@_fSefH{q!K62YE&`lG?Z7@K#AbU196Iw;r8|P5{Wy$gjK67%o zOt8ze*Nu{Bt9S@L27dFbp<81E@iT z*2Wc8f+z$gZyaKSa#t?Wt?f5dS=bbU(JP>Caw7DN)a%da0NG+T`LrumHk2<<&c{N!t`_UI&$9 zChm(Z9P(Gw7JkOht91mH3xtc$34Y=8Ig3BZt=}eNKSY}#Eh{obUvb0>I}L8kg8MDC zMWu2bKoyG%0#bhuObI~C``YdXaTCJ4_zBr}Vgr18pNMst)_x9LyL|Zsg=|Jlg9y!+ z^N8n{KJ{bGt$gcuo-@YW#WGTmBb-@M+AM1O2ax}E=^8vz5prB(+)jicP*oeChd2iH z%nQ+@^acYwrALK+=ym~Ey^6=veCbfHJm)B!co8-wGNHE~dku$ZIxHCg#6 zRQKIMsOPuN?1kgcuc`eqOkqS87oG+30HZA_d&EDdTl2q&kH`B7LvdgT+cyZmymN!4 z|G`7L;wP&QQ0x9e4X8B#6Y)7i994<&rm7L(LyDcsbGOqQ+lSlUi}Gq=DPG3`=+AN* zHP?!`@Nwq^96L0}4kqGdu0OMQ&0v-#QGg%(l*`-%Drmfh-S)mJWY zc7@-?va|ymuQtLMb8Ii*_#S5m#I=zwL0cVeY1q06xeNx*=8KKP^+MkNHymP2AvHGN-P_U!RE0ax9=Ys z|7S{=V25$?cl7k1a@}!jGl{OE!9&i-8HYR6Sshi|eCyFEN=TT{!;Otq&Z^A|?Rt)N zAJW-~xq6LMtVFlD3R_c#jLdrEcQbfW7FG?7*Ymi%+R{*YluL8#CcULLlxTgg3+ET0 zZRs#dYgN?;K22sipMf>J@(_d#Id4f z({k;vN_J#%n=xsKIQ3Ukvi#e7&gn9KL8^e3@1;9z57m3RYt3zu20J!iIB2s_+cwUs2 z9EKC^W<+MiK>7OwOzmzmae}5F5FjYxdv$vs=%{X{vaOXu&r{HnPJ=IS)WkBZxV0_l zQEC91eGt{p0mv>XQNuP2v16|Us9{f|LC2Amsh&!mZmq<=eahmD>K8$<^(Bv zS4josV-8@3c_mm{*2Bs! z4b47lTfw-__U8-!84Hx7)R%@9p0&LSd~`n;NH?@qKOY2}IaC#=tbde$t`x>LuFuY- z76BgRCpa_;&Y=oG_f*pG(Un( z6MGRT(dyH)Ifu5Sa1l>KDPsY>mCT;8MguTtViRElU9mkh&;#X;H|hR9`X*&vwuheH=i##O|eZXqE85GhzmN^g2wS{3XvugTEe?NRYYhKLb@;6a+>D zT?dKRmZAc6NGk?!tlJ=Um>CcXkex_gT|8qf+p?tRj7Oq1Z83P^XKfNVb8VWgPH7XN zKwq5WR~kC!DYOG5he=y8W+^WX*|l&`s{O+A=8#OJ%`qfK2#_m4Ymx8}xU>+%F(CE` z;37=$8}Xz%?1~WF|J8*uC>4|x)2RRf*ZY5l2bB!S>(KO(44{IG)&~7giV&9d(CSxD z`2P7Tim3U=;Zc?}Fa@k0cBU8e{;-UoMv8x^Ifl1^#1hz{V7UxK=X{+>d{F)B12as4 z3UCo6EXhsr6R4rzB&ebBOFbIzU$3q8R`td-DLw5QYy`?w=Vg58fLAW+bqsi~Yld+*_N`xgS-YN?}2Dq^1LXb0Q$;|D!Un#ltP>(zY zSF3ADi<4>DRG$Sq@^u(TW_jdQC~2$js$?BFkSsBmI{@ML5vDe7|GmrK*9@5aqv5$H z6gos5{46zP>!Iri1ga{(7=*Vq5li|Sdk;K&xI0k=1&=%v1ciVrJA?y7?JZL_byX8f z3#+DwSX}{#sS9#IEHVoYaR>glTobRsjzAeSMF}1v$U?xLJ_bWspbeA52SXf15HBSD z97*#36}M0evVD=PIsE`8g@*Rq+TMu?5)u_(mN8C)ega8h(oT$7+woo_a)VH<^6nnU zjJ(eApAaxKbI^A2ga@S0DAcf z0oPdg1(O)t+YrSXq?8p885)m2FoD6K$VS>Iqxz*`5N2nmBPb~6CgT^hG)e6A#ZS^2 zq6X-)T$o^&RRPoTO=)z8BE)^?5tC{goZ>+`i&Zs_*Gff=TcbH&V1et6Ab4NP-T(t08T;Ma;hx-mk?6n-@l^;Bv*_` zeM=jQR>1=NsgN@Bde~84d@(h- zTsd(eSCA7IkS_dUP;G?nQd&mJ-k3cpMg@7K#zirjLkEhMD?mgja zo?A5j{gZZcaQN2qG@Tx0RC=mGK;n26zF^Ds>A^)e)tZv23_nO>vPrEQ@#CryEs)1_ zIZ-!)rD*z1uAw=uR_+R;FV@~g<@M`}+qAS2G3$(K(`gd1%sQ%4Up|DcGp}kRM8B%- zB|g1AwSp1rd8;kF!xT0%rs&ttBfm%54mfg>pqGz4nUK4I@0e=-EHq=Vf$xpoa$G*r z2(F(IkNuWi54L?ih|Kuac>6PXZ~Wc$sR!wN_P=}e*)}02TZ?io7!|u4<9pJdGodGB9F{Tu|!J?#yfJJ`W=gY zM>}<}ew7X*MF-(LpGxmFSz05~)mNW>=x}UZu>@M(C-LS&Owv|j1akyiWUI_S)FISH z?mc=W?pF6d|?Y^_<%E9U}ySi zmDBK>3fM4Gyg2+LGo*ea9}JGYTF7_z+KgiR5&Xgg{%C4-)A)`#iCXc_iD(AE5GpW{ zK-kp`uCwa?LHT{w=+q2#nS=WNhS9x!r?M)aSo&gQR|_k5_Y{)r2y8$Ij($2^h%Zm# z@f><4^Rd3K%Uu)NtCU_g8MKOiWQP^0XT`e(;SAjRlh8Q1&!(i^#g6!8xl7-&-n67fL-qWY zNVH8BtNa3vc{$zvy6m6CKrh`uQZBV6+#@grKLH%!EGtZK#%WJT|twTTZQbA2$ M$3(mQ+!g$P0GQnd_5c6? literal 0 HcmV?d00001 diff --git a/HW02_B_Mimic_starter_files/figure-markdown_github/unnamed-chunk-4-1.png b/HW02_B_Mimic_starter_files/figure-markdown_github/unnamed-chunk-4-1.png new file mode 100644 index 0000000000000000000000000000000000000000..585d1e5da7fc305adbc1bc26af7497444de69a20 GIT binary patch literal 16119 zcmeIZc{J4T|3CbaN)g^Zk|HS*5$Y|*5?X8#vW%U1Ya#2{$1;`{Wl2&=S&I;3$vU=~ zktHN#9gLZ=WZ%OW#_+qQ_xE%E&biNh?sM*c@ALbk(==u@b6wBt`Fw0w^lc+uZcZUi z2!gn8>S>um(7q24#5Q_pA9!YCN$)QB>#&!ewJ!wmG_wA%wIDy=gP_yUO|5I@fvJn+ zkkqsOq04*5L2U9Dq)rP8>@N^Xay%wbCfVYeIC|jo@L3+cbH|(EL^E04k22>bmZdOP zeqQtan{Xrlt5)rc&;0-Ss-mY8Z+l>_Tf9V#utSS_=n)JfEk3$l^|)26AwO?TcO$zd z*EuKT9T{o48oaBG(4+=ki9ivtcxsnrY^ELrU9G%gumL`3{jm5b8`OGw-zg~Kh}i#m z`2XW|_%QwX)YS_=+$!ab{z@#M`NrMp^pXJ&&lV58Ld%BbZG2|jRj;8A-wEFExrPY7 z(BE8aiRpLT6@#n{`1$$spGCYmkr08^e>g$fz2!aZI_Y|sgw{^|a4-5v8@AGy;9eo> zHe7m!%HTf@{*wez+a>-`!&_GrM>qzIDuP#<48lL<*F>2w2a(Tn*k^e`*yY;MH)4aXB73yR{QOwG#UEW6=r&QAll7hL1X^a<(;Z%?#Vf&P^!lf$&-rpj&Xy_}gs(^0+VG>^z2<#~%+$ePVPskm_`%er8(l#S~uoF}QB0>bRXWZJD& z!G=WYVd$!A+^u@-9aPTXUkN(i-vpiKGp*OX1`5}MhLdSOzVB2%jnaEZ^l851(0kdi zT|QxKd+>>#KZ+rEE$dxxvQIPFjSgdjK72cLpl&9zup^c(AxD+4TWLNC+eZ7jU$;3d zZ|XhWGH-HJR)vE)XfN>ocx<@jlb{YS$wyK#nNpnR?1+dm!XXIK);T|FE4W(e#K?hR zo5ZRtq2Mpmx{Ad2u$p{0|gdfY56WGem2tQcCWh{j50D^6wh5!QEsCi zShZS|H>X}~W@WGCNku&zXG^79NA|lphdDU<^9==U5&L*XyHm_Puc+v6Xk1dtKjW`+ zadi1Vc~!BMdEt!%XvwIYv@CAMuOw|X&7t6ry=^&n9u)EKZ%6x&80%_D7k#W=^_5IN zjk@qe!Y$h^xaJlFncmyazN?&&rCpOuxpK}Y-0cqY$ZBz|c{}pCzJfw8LT`#rabv~q$nBm?TY#jR6c0XCe8eU%R_xbF zprV``ucP@0OoY~pfaKaK9s%znT7G3t1%*kY#i-zJzXPZ0*vA;Wt`f5^w>r2e1j~@z%XOw8JYcw? z3uZ6q0mi+;;In6bCVTFpc6()4<>&+1;mwL~U0<<7S2>?M)VJ`M_ojf7H@=WB`r#%I z1f9Q_&qmlwrkLAhg&3o|zSUkkHo*>E9M^%3Zd&#V_hNJpKkQWyrS9pnLr~t|4Qzyr zWXgI}NUu-%N$9k#j_PRAeM8mgX!?_DDU|Z#6QN4YY|u;BtZGBg(*xzsLIGi=&MJ0w zQb^C0AX;#t*i_$X!JYm&@kSmWZn&_nOo5yjR&(2_nO)gk=f1x$tD34&?VJ5PqoZAv z{4X_IlcL}??&dc*&-2o&s_mv%1QRTLRVAa&f#Ui>y%3$ULP8!Jy6@H@Zf|_$;~lr2 zT`$ICGHQ{;y`ZIama^&@T-d1u+TEAm9$|l~N-L<|HoJaxu?X)U=dqSpg|rWZ|1R`K z7bnrW9)fzRLcN1YCR3EJnJ?86I@aeVuj5{?CmK1Y1Yd5I)=(W{yB+0r zWfo}K=y${gSH`wYS&HBctDj0fNj9e~Mgj+Ey2&own&Yut5l%eEnJn%<4i zpA+*jW`1gk-_C1bJNdg_rihBl$e)`Q@%zz?VqS-XCHP&{xUj5V;01k6i4SBfEavBj z-`#%WOWkB=mC;lA4171||Uv|BtQ1~+4)Ha^Z9pg+k$zW_m5?q~OfMd1AnuYUD{{+vxbP+$g(q4Klt%=Xu?cu=yfHKVRykWOl z^|9n`Wra!fR_9*GuNA&CE4CV}FSt&7D&FjOd>7X8bfVdfLy3`@V{S((cr)ZF1YS$(aELe^9o#BE z#KwhekZjw3pW?69^n563zd5j+7h}FN|H`;ux@XJ&gW&gThGi4W{*UTQ7V+%w-YKIO zcaz7=G4V5!)GRRRE(hS(KTPauk3lr@MlxBR{vv~j#YMzcDQh>$*6 zpE$3ny2Xu}+*}mpLT)PUY;c&v1rtO>x5uBx-^x2#FAx)d{i;x$DJWiT`;B9o_Y*Te z_XYnorKonvBmA?T4=*#tMs@{nKI;-7@6A=$bW_nDAtU~i%nL>2imRKgGe5gNF-yo)YK@KHB)f9%+`DQH=#x&(KD^0~6S0gR?>o2JL-pi;1g$+SgyVv%{ZEKa zDUt*eRs$Xn3&1h`V;n~yx5wbL$=HL&-9swNdEeijcCxqlKsx{aJEX?@w5FRa+$sZ# zW@KOD`FZn7YISIF!0%A36u=I5jnuXn2n!45^UcD&ojulWEYz$J@H>x}&6Oi+30{k@ zk@M8CRVa{xdPJhEII&JvpJ>>!udw+kVg~9tn2L%tlFcQRMHqJ4HC|qFhJA@oYP9)SlqXJr1Zf;>dn9y3Wm4I3(+x zg5Bzz$;cZcyR5WTM+b$G=nvJpo(=xY0l}lbX@Z$jUg(tPU}oi^E0F#~gbK@jvt&#|5nP%4-PJcDH!CIPoI;W;$oOXoH$l-ZL>e1S+Qmfp_RNwHz?6xiO9hTP{_h#W}13xH5Ga zH13H|PRue`S!r+tQQ>1Y73^R|_eJ&_GsiZMS_lFx5LqrIV%zZcf%il|cHjsJ`7HPy z(LLIEp|Q>h7D6f?9$rTW;>>xLH{DLJN`T5V%P$&D!{FwQp)wP3jt*sUk*B@Tq(1|A z#v3tA-?r7#a?SWzK7VT(&DYCV>f5okcR3gQz%4+^r{QtWhS}9mLE=SIpu(=PQq; zx5>Yf4l|#yuO-P^c#NpvmkzMdsmC(Eq$cf41KYxt^(aebMn+!#ZZW~PZkH%6yrrn& zH_S!Zyb;MBINpx@oUyHG4u^R%vfPZBYOL}~!{QiO!WzY1P?T?HnUap<%x0d3CTJy~h?DWWbzFoX4E+*zwrWx8-eYmSx4LV(RlmiU7 zZ7c7{6bC5|fH4@SPlUSXai4W`=q)lG$~Xu?2Xy{Pv0E-G2i?`iKd;bL*5Z8ip8a!g zvysRz_qf9hsf9JQXWmkF?@_5-{om4Vgia6VFNR+K0~}{qU7WRk4Rdk4=RJRIHYHI% z1VG#opTr-VTz3$%g8i^Uz!L-_Gg<|CSe+ds#W!jaPNR1NL0 zL&Z}S>C;u7%i8GDF^@arSLJ`GWGIdVU{W@i2el>DAWrYNhmLXg>WOXwmvUl=ZZB)l)w?S?rTf);GhAfr-9i@&Y%k%eY1$zwUeZhMQn8hT z*4a{b*hQezWS!HambEu<{S8H3H$vU7ORte$9Tt_Nt7{$x8@dyDk@EL4$uIW+bg%W$ z{+;24+oGRl-8YS+J6Fpr&gX|X<;L-t0QOPKcZkmJ+zp;LM^7J5UgD;KO)=%%hp(v> zsBB;KSWZqrToIKY_#~ca6FTW*asK#98U#HrNU+nUUi!(iVUq&_kuIIdwX$zjhTvOm&)LGL3UZy@eAk885X@@*7rcxO}Q0?pP6(-zWh zJg6aHE%G`sF+K^;oJ@7_QL5RFd?FR{Djdbccz z^M+OfH2C}HU6kAANdWh{4KjkqIpQ(-yN`N#RepWXU=iMU#Ljo|T=S)+zz3A=joAzf zII~)lt`+pS_BVr;GQtBURv2Oo(x{uT<-~|*n|^8abXg6q+Vap8q51YY_;Ou=prJQ& z5%Gd!a90NBq}0nI3q{AU>cxfaK`kGD{NS=jfuv z+{-rX-w}_X#2zd?%J3pLW4GBLz4zuEJ0I-lLz)eF_<`an25B_Qt=>wfMy!=oE zyBwU2FkH0JGkcx1U_!F?C;Il>8sX!BBHkFl>x*mLaJ{J!@pI|tUse5ss8j*4BQG)E z!^ap==53VwF-=3MX`ttuh_v9S`uZRl;6J_fo?JjL59Eqwe%YQ7B$$HE5%j=e^~AR> z=2yw17F~-g|1)QJ{OaY2#ZJ~NN-!BP+!1|&B8VW9|1uDCDa^F3@o5ev4H%++%&e-S zQD-h#%h>n!-ronk6q7C*O`5YT8-K#6@x?O+xsfjFu19^JCcK_%dAn$XVEP(jRIVLW zG~1a=r9Etq8@Xw+#SC`rOj%z4%)9o~mhY0FVD4)XD6;BX{TCg_7_bsAkg&!euV6>a zM5Sh>A8{KIy;C)yuKVSFC&R6=(7i2mmN~hJ+WZVt@A4)~$c=AoV0QR3DqZgqOP-13 z0<1E^h^-A{Eb9U&QI8W+H6?4{#3+-x;#Tj_+UHt%{l7Ho7=72Oy75?}Pn2`P==MV-&*f zsPC9A58E%Q3u)vCesAmAru_)SRsW=5eVe~!@9HPpm-f`J#otpwvud~%emv#;vcbz^7LE<;H zLCqix2E@u?Hm;0{KjPP9MNqk zOwoR>BIcdhw^Gsa9Q9r==f;N9FgATOwR?D?41!s&eXY?STp1Sf_|xc}w#tYa(fG|bjbV@WkWzLN2jX@l_F^6r<& zvXukVN3A4}@9bIqJA6KaS;}-bWUYAG-Hc5AeRUu--Tv06Njraefo zq%FNb9Q&^}k^QH$Jmv(Qr7Fu~&)ITk6cU}cD6|kjm8$u8r)02CQ=WxwA6dQ!%PoIR zp5mLihZ^qJG=VeU$`+#+oe70t+jr=9o$=e6_C-Kh+ubxc6nI329J`=(aPATIjh0~D zn8qQ%0E8>fZ;x$UC>OppazNe`y>kwnd4pkgjipC|M+OcQhdfLla`5Gat`2`D@@9I3o#o&9;E5_W(rvj#d_VmMC-zIN+tTubyjvs}>`0^r4p zZ*n386M)R9Y%3_6ip^0k^FQbQKQd!^Hlus?F28+l6AUzCd@ZXP3xfm4plGd7#<~uL4MoTByAGul1zyu>X)V$v(LB315 zO0s2Y8V(WDw`^7)v%2(#*=dR>*xT>f@}nHx4DovGYx45AVsM9EF>%;hwCvo?KGlYg#4f3GcskI(y2)12x}yZ>s2Y}9kaa4tqf!A;#A8~abFefW~vnua=bLG_u= z&N!IyBVxo&n7m-84hb;EyNcCM!BO*1xYeq{5Jc$>re!<>87)&~vven_z@5 zicc;gs{|4>JmzNaaa=u9bm?LNyWq-Lfvxu=AA;A-Dzuc}e>heagUolS6tjN}ecsrF%wQ4j&)=`h_)_ zy1NeF96^2OBUk|J<{3_}o**zw8rb^MnZv8wf^Xn34dvZME*5YbexISaiwrX!gTiPT zdz;sKbMy1@NLrULb;rR2^Uw!D#oP96UuNr@|-7cE>r>H zAICEzy?qAz)u+0P#K*xQ~G_Sif3G5U8*5>M~;S{aWCq?CM~#eL07j= z{)`X};0npru9LmyV;Xu`#>2I^N(V(qnOd_rpFV}eUGHOudX^#%)G5xcgU|Tu7){5! z%+`f0B>LbxI@@ruBZPJ{n*XjEc2o_<02m~f9d!U{7?OjOuTkc4ChPAVQ&eAD+(?m5 zOE0UG|2;S!U+zq{RVA()?ABXd?liqPs>TK#x3)Q|%~4<#(jL5gj5akfmA~~1!+*`Z z^pnYzW-m9fJHe{~8yMeV4(T+Fz%<^cK^-*PF4*RvqGq3sHnpypB~QSBP;tAAgu0F2t$FvwmD~f*FAYilgJ@$2K*&af-9R zzY(`vd5xmE__0H+Z@PH{OF#z>y6_`H)C!*)cgfRY3f4tulIDNT9E4sTI6rt!vQQoA zbf?&^?3v+sAN^O&rbNi_3==Q=shc~(q(w>Ph>QqOr50}?Z+coRa|b5eM^(aNRPKgJ zpBS^JdeDaa!2aexH?K$O(s$d3bS`17r=ITk6pgY;H3?jKswmAEC3(zdX(g%Lz--LJ z*2>*HQj+qj;X8gmjWt{fTmJt1tyBG3M!6Ad1MYQETH=GP#vq=c(I{JBlDCuGjrS~1or9y}G#kiI73U=rdS!zETXW^olY;Q5HdllV5O@07ASiOr! zB4SE{FM(#TopWA+vg}X{|D=Wm&ZMd6?}&YG`D` zoLZ_I06Q#=OXtjJGq4yN)3~|VN4AzOH+pk-*q@vP6gR9;E_0LdJnFJ>EDX0ju=_YU z@zrGrI+e!C0-Og_VH5rMCyR$ji}S5y3QpApH4fx6YdWwu_DUjConR?rmt#~Knf)rp zHQov*XZ=zDcIef!djum)UoPIwDjBlSB>`Y`Jlr$pR_nOKIv4(3dbgU+f2|6)%lq&u z+F(@N@FjJrsCz8nmr==MGb{=0sf-xDaH|alL(HLH`@Ww*45xLnILk0Kik%{@eXaEO zD}|lywwA&+(OS;9G*qG5SP-k;C~6t#xpyr`L`OgYFtkHU;Xpyq%9TAe%$4-bO4} z_$Z_Xh^D+7TCgV#IU>Bd&yBM|ClYfaMDZs&dkTP`ocUD*SRmlFpoQlBK-xCm^uIe| zS1ZpB{Zsz@yHd3PckdDB(;GJ0Kk{e+n{!J~t!nh@(v7!0l|2^f+`xGI4pzyWRYLgX z+n|IdqbCF`H1|du0as0EH@4>f)k_M2|QJkjX7P*A8w(*l6{-ZBn#<*YPsii+te zO4#1l{CwnZ=m1UgbNK;u{8!T2Bo?2s&!T6?C|~nwt84=6yoGBMD@#FupgDE8JkTK3K}u3{o}@6b!Rr6c z+W|#YPbIt9A+P#u>CxJh{^Oq7`L&ju(CM8*yFX z3tSt{7|?G;FNfLEcO4?xrP525cnRwY@P5M9?gT9CcLrYW;7>Gx zXM9$XjWGC6oad|Mt`kL9QEE$sCj@YU+TpI{<0{dBf+hdbj~kzus)% zGN_9n|D~n(vT;rp=e^Li%WA^4=AMyzlc6!;eqi-HE7%9=J1s{o_CBoIf}{T_@SAD{ zJAH}~Z)p|E$PKgnAIq|XO?1iwFy>s2Lf{dH^qy0rSoNm63|6mNU{iq8!AhD$20N7T z+j}(}K-@xh7a#l+FE|TlL(F=>=lip?Wv4*;=(7uL`~@udqg_&J_g0KWu`rO7+vJp; zGAF@!$@}z2^?{&&;<7^$z!NjE5ggFz$A^Gb^LNz$<3lNUoaZ)Z*^8)CmBGX#E7f&x zY>*znMSSi2*45XnFn_^}>#A(9wU~d;$ra$8g-S+=$*exH5c$As{|*~^SYND1f77V| zAk{|2a+^KsVN2#tWd)P#AgVjoSbd8Wp3UkRSJsRP%q&R(p3xsf_2t$T6L`O9sYCfh zbrOp%2#1BvHeFk`P>z_x6V!GDHE+Y235`aCwa!0ylix`Bnxp?e{-#&7fpajvzwLCT zzJFIiRas*yZFo=#!6*4(_uNme$r@)K-~FrXhqg>fn zY4XFRQhuD2{8mOOSn~`JtI;RH8qFqBB8XhJBC8&dWJ|jDuT3Tw1J@oCOg(qZ2?BkPuVUa9<%?89#UO4rE+EyG+ z`Yk~Gsj6x_wherNMWFcAhX#P(Q`(o#L6w?1g1WOBPzfpqUhE*(XS?@v+Vu*^#+}t5 zRlq$D1Kgb6Hpmg*ccMCUMLo?e`55d=H|VfMwST?6AhTss{li5rp;uC5)y+R4F^4qa zw`_ihvG@0=CKAk^=XUk67d+1qu@B=M2Ir~*eg|QWDz9Fyl@PlFn6cyZH(Pn^)MyGX zh83;o0Ro9kjwQnTPCDR`f#38e6e)TK(emIecy&Ud$xKatrM}7K_eA#_zP85i9n@V3 zy7F)4Un!`{V~cwVZ|b6nKc{g2xZ=gcJjd0vv<8@?xut=XVJ*do^2+eRQKc)J-PAos zMm{JIYA{h|Nm=VYBZFTQOJQW8^7D5SiT1U-8EHQ*Iptz2Omxvw;xAY3g7$ z_nVfsb{>ain_^(1kz2F|728LjCA?IZ53ku2S^W_9l%TAh(l#MuDp7qM&xwGId_RD> z{UT`;EB!uwI?7#{DZsg_4?zR^`ul+C5vAf8RW8`-Py1FuYu?DOTJwIMRFIua(Ocu< zMrCfreSI=7=KvzUSHFJ}17m+NwyfeqtX|b9YWwF*O3o`wn)-igN0U5*d!;(h+75%5 z(NIP>$Ov;ZfrZ|r`5TsD(iUee^2q-v{g5YA;Chh(?{i=PLZ-I;idKAm_6l@*L+9_& zjw$nCTc0iT^v-eHM@=1TiR;MV-py7aFd9A2vWJ}j*+y)Sog&Pxt6G~Nl==ByvvUiO z{uJ{D&n4Y1hBpnlN{D{{&gUUZUjGJ`27~DQo478V&X|#YT4#aZkZYD<7^CgH`KiTq zOE!`HC|ua+P$qMN72h*EnlPLodfN&YO!#!nG<{zs7S(?WmZ>{_vpP%V)0(@Q{B zO#7IBh1*etb5)o^ykYUF17*pJo^qZxWBZkHUd>xYq2%WuJDQBkQz(}!JNB&ZrL{Wn zxiA~WV+jw90_qh`Xs#xxiVLn-xD53o*Bjy=*;p3SK|JnQczGA`WK9)EQ51NeWz*qP z^BRFUWsv6V!eTgVM6@ixbA-P1c$aF)8kUURodE)F+X#5{U2pkcq?#(}GJn?j_rEaw z1Eqv3MM?}N2@r2F!M{bZGJj53?od(9oHR>E&Wx2awGy#PE0-;OUDbm2s)NrOJ6%C*pvHM$w*0DOZ>e zmpW)mZ@xts2jn0=me`|E!h9fGV*jjBF1VkTy%q=j(%x3`W6@VYVzVBx@y)P1+#4dH zL9oVL2vv69;Wqlx@Cf`09S7;+QGVU7BgDZXQ$G2XCi2KMI(eY8dTe+af-b)5IldA{ z?jNYwdKm|lilTo6DpeEHqmV~^7eiMW$PoxSdGUN|CNlkqb96yzNt)u~`=@Hc$C8D| zY~7YDb{=|7d_!p#CTOaIRRh+k_Ahl?BY>fvO~H+d?8+Te08swD65PDE&%NsOZL736 z*ZMC#$5sG}r5P4e>Ux%3FROXoRl|Mh_x4cJJds!cG`-q&`>p-McC38ouiTlC7cUe? zqJPnpa2KcF<3$Kc3J&r6bc3gl{<-Y?|=i_Vp5t+)(p-I(7;K3FJZxkvv(z0vY+;dk8nk1W(3TP_6kHbO{ z{jUB|D0XOo2d8D}cyynG)+fmviGNefc+EOEh!NAAV|p!QFszR>zF)%N>_RXS^?@}> zTiafq2q!&79a&vc^q+fCtU3K?jRo7OcD~GLJjM$`DN_QOobZ0PZ@Na-o50K$OdxII z@820e6UqMBBHj-5=wtpiMQy&8M^zu_J=TQfht=dgVB@5;q;Dh;n0fhgmUYtt%R@e8 zEWa3QNx12_u`bkqo|R2)MjWyXwmt9lX}q(NA}Fe*fE#~*7SMR{#4V4@pMX{0`}ttq z%w7J~>Pv=czSIg3QJM~2m4EpD&JB=X0JcCOJ0h_~w=?DmAls-ggY_%>q0^x{N~8SG z@Uc&}=x^S$Qp><%XcF0=-x*2c=D?$q=($&~Bmjl$SlokpSWF5zM)`FIJINV6+f)MQ zOf7=7{5RIzHyN_|(EF+FO(T{mcuAaprBDGuVjHpcw=AwG({M5jkYuGfZYA7zo(4TZ zV*d+syT{SMhR^{aZM8p%WoLiq-MW&HNu~=3Vn?ZH(8Z{MLjO#{(cqBuw7S1`1K9aP z&QO47U3IjfC`q0q8t3gh7@t}*G0(VrmVLWJ5wtI$aw?|}v-LfXmnsNjP_Qf|r++TN zmE+51XHCQ0{HFQ`UQR)%W@z;9r5JkcU0fR zTy6#k9v0_gzNb`5q>P=EyknFmCsw*@7;Dk3YkAAhqYRr}(Hh^e3Y6dDkr9ZBhbdzh zcFzKv5PJW1JVG@81P|+RmlR+hxxGi8u{2=kS0L2X>-MxalJ&1!fIebbiMlA{bWDde z4Su=NT02V^w30jbux*8(5DKZkUQ`Pd&(2qj36Y~(pP|rhaXJJcur#Wy&W8=Bov2{1 zn&|UAYEcZ91GK)L2T~4~e;4R3nOZTQ-w4kG^%F?g6l2i|?P60_J9K%2k3iC@UGl36 z$@BhQmxq}ijdf!dTHE$ntiDlrS+t5JhI9ALJXPWXM%GP4eQeabj$;+xRw$ zymXAf()|$RRl)r`(w}@2$alU~olmr}2Vu1wiAsY1si$S0* z8TQuT*#WO_(+BaYM1ju7yn;Ks%RgJreM(#r6F`O48MWI0sC8eQ1+@$^Fl!Elm6c>w z%RMm=BR`j@@DYLvB7vcdqFMuFlz^1 z`nuD@2jgg{I!>Gu!)YE6s>QH(wr7A9VcdW4SY_;$=y}i)Lb|r_ph-AP7476Or)aqE zMmOTmBmLIqLA1z<*|d?&ns_fZ^A{Av#gZIYUATCO&K22TqB?Yhj`x`TuWe};_U9^! zXEWOQ^+D*gwvPH}En}eKq`e!{%o0(fX>*F=^l_ryf`8O6m>9o=Y?PXnsUhkMj3U-mA<@M|UXZ{Pgs;w_xW z;gE_-sIlO+T%^ak?FL>0=eBy(?R6psb^c^T^?ha+k`b3bC$F)gqU$Pe0-*M(m{aDI znW@wMn^H8ggj#y;?_>Q>B@vrL+X6tIyEGy0yvGDq5Mk9GF~X9Nz!t0R&gn$<_sWFE zE)f!pH(8%)>OeYpB8K$ta*r ze7G)D*~V=o|K@SB6DeBV4+!|XJC!<)Uz{r2YxG^@bGh(JtdsuEb^s$%A8QQXDxSa5 z{g@Nee#ozsgi888C!CH>`~F)@R6!#%0D|G?V>vNpCbDs05khUK=I(|zuYV7Gk_ejt z(0ABI!5xSUOMg(8{-WWEy#l>(dH!47U=EMFk`e)I*;*=r!pcstUd z0Iug;zd39L;Ebnn6A0JM))q#goaaqcq`?iPi&{1vu4x}MH0}aP$Go%wy%w^5y;=@* zDm^M=jjFQI!@eQ75lr$(QV*cjv8=zDI5YVjwM1L4ur1FCdMytKr#ZK%E8>?X!C(Ms zS@L(aArbE$Bpe(I;)FK+rjlFB}T1 zO^RzB<@N$|I?M0iPD~;4)p~zE{W z0W6h)NIgPlWOq3#id|d+^_8F{OWv*OQirg3Lf~AY ze2_WlI$LdzadT^I>8BzI~ynEsz;N7=Cki3>bI_{b6CRuxdb77JK zvRlyAw?Kpr*(R}&ruZdMs_>u;PBYpF+)KG|6G+To0Pz@?KO*!k_TN`qWYbU8MIE1* za-|}{^pLlCM5r?;uD<`-$88=gL>bF0_*IR7t3|XR3QGICj8CBxz;mU}U8jKU^DC@* zevl!ohNwomSeURzd4zu-kk^iXGGd3Dh zowqB2^z|QP_hphGt&I&b1;I+Hul_>mvnHP3VXT{8|A?*1kx-AMGL2LpQaJw2H3(^XPv8 DnV)AE literal 0 HcmV?d00001