From 390b3f2671c9f9a18410b1d95966cebcfbf3b7ae Mon Sep 17 00:00:00 2001 From: joonyoung23 Date: Tue, 27 Sep 2016 00:30:10 -0400 Subject: [PATCH 1/3] class7 --- .gitignore | 4 ++++ Class 7 Instructions.Rmd | 18 +++++++++++------- Class 7.RData | Bin 0 -> 6790 bytes Class7.Rproj | 13 +++++++++++++ 4 files changed, 28 insertions(+), 7 deletions(-) create mode 100644 .gitignore create mode 100644 Class 7.RData create mode 100644 Class7.Rproj diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..5b6a065 --- /dev/null +++ b/.gitignore @@ -0,0 +1,4 @@ +.Rproj.user +.Rhistory +.RData +.Ruserdata diff --git a/Class 7 Instructions.Rmd b/Class 7 Instructions.Rmd index 5ae641a..1a7ac2e 100644 --- a/Class 7 Instructions.Rmd +++ b/Class 7 Instructions.Rmd @@ -59,7 +59,7 @@ instructor_data <- spread(data_long, variables, measure) ##Now we have a workable instructor data set!The next step is to create a workable student data set. Upload the data "student_activity.csv". View your file once you have uploaded it and then draw on a piece of paper the structure that you want before you attempt to code it. Write the code you use in the chunk below. (Hint: you can do it in one step) ```{r} - +Student_data <- spread(data_wide, variable, measure) ``` ##Now that you have workable student data set, subset it to create a data set that only includes data from the second class. @@ -72,10 +72,10 @@ Notice that the way we subset is with a logical rule, in this case date == 20160 student_data_2 <- dplyr::filter(student_data, date == 20160204) ``` -Now subset the student_activity data frame to create a data frame that only includes students who have sat at table 4. Write your code in the following chunk: +Now subset the student_activity data frame to create a data frame that only includes students who have sat at table 4. Write your code in t?he following chunk: ```{r} - +student_data_2 <- dplyr::filter(Student_data, table == 4) ``` ##Make a new variable @@ -89,7 +89,7 @@ instructor_data <- dplyr::mutate(instructor_data, total_sleep = s_deep + s_light Now, refering to the cheat sheet, create a data frame called "instructor_sleep" that contains ONLY the total_sleep variable. Write your code in the following code chunk: ```{r} - +instructor_sleep <- dplyr::select(instructor_data, total_sleep) ``` Now, we can combine several commands together to create a new variable that contains a grouping. The following code creates a weekly grouping variable called "week" in the instructor data set: @@ -100,7 +100,7 @@ instructor_data <- dplyr::mutate(instructor_data, week = dplyr::ntile(date, 3)) Create the same variables for the student data frame, write your code in the code chunk below: ```{r} - +Student_data <- dplyr::mutate(Student_data, week = dplyr::ntile(date, 3)) ``` ##Sumaraizing @@ -117,7 +117,8 @@ student_data %>% dplyr::group_by(date) %>% dplyr::summarise(mean(motivation)) Create two new data sets using this method. One that sumarizes average motivation for students for each week (student_week) and another than sumarizes "m_active_time" for the instructor per week (instructor_week). Write your code in the following chunk: ```{r} - +Student_data %>% dplyr::group_by(week) %>% dplyr::summarise(mean(motivation)) +instructor_data %>% dplyr::group_by(week) %>% dplyr::summarise(mean(m_active_time)) ``` ##Merging @@ -131,7 +132,10 @@ merge <- dplyr::full_join(instructor_week, student_week, "week") Visualize the relationship between these two variables (mean motivation and mean instructor activity) with the "plot" command and then run a Pearson correlation test (hint: cor.test()). Write the code for the these commands below: ```{r} - +> plot(student_week,instructor_week) +> x <- c(1,2,3) +> y <- c(6913.25, 6240.28571428571,5956.14285714286) +> cor.test(x,y) ``` Fnally save your markdown document and your plot to this folder and comit, push and pull your repo to submit. diff --git a/Class 7.RData b/Class 7.RData new file mode 100644 index 0000000000000000000000000000000000000000..c0f1b8905f08d02180ad32091683e409d3869a78 GIT binary patch literal 6790 zcmV;18hPa(iwFP!000001MOW4Tus^cKfQ}6YSMV-IYrV#3eiQBl0uEfFY2mG(MvZ) zG7`o!r3aOyheD*}IY}k2qLPqaC?<-K#(1R1|LnW>Nq6VWy)nP}&F}X==QGRq?6vn^ zd+oK)+2@?K)@|k+*=YB$=|K>LC?O^$LWqiyr{bdIKO%%UAw!~sE5~y=hakih$O5SC z4bZTW;2kUip)^4qyn5CJ5ndJRy#4GEA+txa&KZ#~BBY~#b22!N8Mf&^*-idu*cvy^ z$*e*FAKbx(&E=9O^1Q(zQ_^dxi=E>#R1zag=(L9;+l#HS%#-cP!Q{wzy8CFjk$fPl z7nrR-`A>U$dn-O5)u{7;;yxVCN_4K^%3-^yy4tZFyqvu`c3#e|95qxW53AhC3bvQC zyPF!xYs2J=tPyNMz7D;)UaK8BZeDg^Zg$#e9i-7TdJ_>*yNHN`szgN62O=Upm83Kx zBG;0LxS>Ks6iE{iHNiy0OA{jEjV2K(9ZN(GR3#!+=D)*<~Vr1)q)hQ$c0 z`RCbz)mXpBSpWJ+a71;?7oXR^8R6X{+D^bbScGn85CbhbZv;({FHZH8Mm%A5H)W>KnVPcL^b@&-i4>0-dnHwhR6 z*{?5>qC~w+*l25NP0-ZR*1{RuI70_#jK>+eIAa3N(8C$}IAbEl(9y&hn5N`EI71s} z=-`a;I71g_Ou!j>I71(2V5)0tY2pkm>guI#SV2dp8=0R^(;k1s2|Dn0xZFe15!f$gGsKKvAm+fUo^@dgEa%liyl4tB{RPCc(GV})f$bBbVENQZ#QzcE z;Sh+azajaPVf$a(U^&nUjXx9O^~L^tdRH9dO^tQ`bPf+IHzEvxSZ)aAmBpg+Kv=F+ zr0QY+a#h6NgyiW#tdN2H@^y$`1of!!fmrDX@qP`&^0`R=Tv#rn^w^NYr+3J4SRdm8 z(Fazub_PQXMdetu4k70u9`Hl$Vj)Hyf*2kKF&MSuqWVB+F4lg88!Qoj4U&h}H#`F3 zI#j=<8u2$1e0mp*f&5#0;XLD}!g4ZvS7TkPfOr$_-q+0`-Z%s?|0Tqn%Mh=sBYB<> z({4h%bOvHE+KtboK)i_B7b-)%-V@Ek0OD0Qq{lISy(hy0YazjRurv`G`SbG^A)E#I ztV8o58l!TA6~v`1h?a;y3X`vea5};f2rW>1OBO+MK)n-2=^mZ2D4&(kramrFW+E#( zZ05=v3%pqeY_!*yhOK4AE6L?@R%EdfR3%LkcN((dZnYHE9=pU!()r!mc#$?MKD)kh ztM4gR?61}A>-%+CaW6{iq%NFgC7daAGp^ES#a!N6FZa=t72BHOn>T1O>rnVf5w)Ag zSO+gy^uANJh!uM)rdP7;39@}y=<~6ftoYEK{YRUhWJQ~avF=taV?~uVnp+QYW+ndN zmLfZ4WQX3n(E8*W@FvR2d8;p;zlI*w+QfYeD*=>pf{O#8fm+tSCh4eh)I?*W)r9@mc(Omu=<^%&OQ2 zvE~NPFsw)ZyoRjOOjs^MZ!cw02+@A|2<=zD8QMd%hyBVYLae+3+gJKPEDuNWU15C% z((f_6(O4Dmk;8hp2+B`G_j6e^zuv@`4~maJ_XM@4J~gSM%L_Dx*r#2*uV^I4ust^y_L)--UIn&TQ zQe`1tP=J_a1Tkj_)N79>zuwtnVf}G*e_j~|+nqlE%Ne~PUROhMnjogtBl*P;Z-~Ht z+5KQSTLoh7M##^pfOz3G90d!zaBfj68nC^ z(WAh2ad3BXcX4*GTgvg~c(RvsxRgVO&;LMuLb}>HyLDwty4txouqn5Wl&c-ri{n8F z>WPYWI&4?OQgXF}pQ;XQ7k5u*4%d$B!EvMd_u|^IdEc;|hmazfKJ1lLQ5F?DH=%fL z&Th-8!DYDQ#2h=T%C&O@pU22rWNEc$XFnD>j*IhhCrTH-PwLKo3)(O9u5KEQ`D`~w zcUKKAhvNv_i;|CUkx=q{&7*y9pN&bapOWW&@${VJ-2M;EWH`%n_1c%jx&88L+64Ks z6~|9yjrw7pmt0R`)##HC8>}kSOox77sW|=G^N~S^c4Y*wyd^g@VauSUng(uck-iJu zul2HOyk~54yIn)wqGVeyty4RnUU}mDaN}bAfn4{eXIVdNY);#tuyc<|?z;O=yr!4D z_Bj%ESmiKyK{Oi>W}6mitfHq_`p)9;QsXV`&p`z8$XPkr(4-F z%y#0I^q1S(?x{_faQxJ&XdkVF!*1$L%lkAMWxO6P73A9V;D~bN-ME;j<|ikAo>@6$ z)WMidnWJ9aR8C7gTeHAF*LKzIt3zYG3)fHON>|NZ%U9>_R|>28)`F*b=%&g1ochZv3K~~cvijLaIpqf=+N(W zD#}MZf<(ku!gkBvXE7a^kr;hMp<$6^}AoFV)1okB&?o zocLa=Y|xG|lef&SDvu}Ro%-tP?$uK6)#s1MpDz<<2bXACEO*q4^*!wVT&&eD z=)jYSUQ;*jG+ooEl=XghVDD`o({{|?`8Y^BBl1pb=9sWi?P0me*3$3HT{ah7%^g*d zG{_-($-c*p_uJy?6V7jcn!SIpdF{s&ZXAtLan%4fz@Xvn}1&7RWI|f zr`crnGnad$jyG+%{Zh(3Ri`eoVq1W1)gS5FAF3vfHJP3L?0nYN-p^QNbusftzu2ao zu)W_TL*+-?<7efp4v5?MxK`(#h;95{jzXBRW{-X=eTsSwjyN`A?wLe=uFIkdwXEyG zW|Dnd)*ZG8TYoig`qph1iHG*b4QzI#ShkRt2sIA_a28JE>RcwYC?`Sc{DaN0ZjDH5r>c1&7eUpsp1?@ zhj}SZE~y{mV?U#{cFuvd<|oc5JI97+PAd#{)R}o&99rSg_tlyawmr7$ z=Nxj0>U~$c`0_*|bNP$Xu*3mL0S@T{bIMn*GBB!Y48E~7dDv>Dr_u{{Op|?RRuVmH z^sByZD_;6XH4Ik#n5Lw9J8a~n=E26rw|11clz%!reofudkg-7%?H~K~nbZ4|d$noh zka)N3b4QMv_1tx=Iw|v9v6*M~sq>A=hn0;S?>?{@#15OZYVsxz*Bo(!c*!w}TkZ36 z!&VU0(@vf9n~@SzoSrTjpYZ64YEs{$vg75rnO9G&*AD4xm-BE@$oOFS0eMX+hcYe( zz7GC*;k^c#OqNw?;^2_}7uKoNiU$@{&Y4^tdPg)@!!1hHc1G6mLba02X#Y1&4=lH9 zie$MQI{N&1>r38ml}Dajv$te=y*H z>>a&p)mwgQT{_4&{>X`mQF9EQ-1o~$S*g8p!C;R{j{`<4hkq)wJfi9QW@C~jSHDN5 z-&!fFAwC(?d#R3z-D2XDnaHUr9uS$h)Ms93-8_r?1#ZnsE%}EnntB{G@Xx#O;cbwS z*S7QhM^37*+GKfF-^FErZETq8(O>6}oYPj_dabx%YL-o`ZA)Z;c{wUS>@q#4PwhTH;tY1q477fbnvFtGz@&}7 zd5y;F(su7UWqLts?63n*70#M^4)AkIj!>M}tdl)MZ}w;-=Uq-slE=cXw+}e6XVWhp zN>hC&d3};wFA>Sru_zT?Y+}B-_-W?5Sqf#%->=TN_+WmxpLy&%@67Gx++7z!w;z;E zyy_k0JwRPiMeh5to*noZLd6K zjmGFcSi8C5+3uKM9>a4Fmc=US91ogDrCryj0He`SLT}OJcUP$T=rKNU9lA7=JNtcrq zGZsHAK0;xP_61AltxAF8ZtKky`B92}aQu>90W;mV7X`(Z)Jczi)G|u{;@dlqQhwBx zh)xN4KUd4X{!m^1Y=xVj2AQuc_`Uxxi_H7uqBG026x|SqagLi9+C|e4V%pvH!J8h|R9KTf8IoU*5z5cAeyK|!JLzO$uJFZKZ zDkK@8dl|SPfQt#ZD~FH-+)~q!Uh@PdywD+Cdz?>)iWqiR4qXC{p#FmT z36g{BD@boVF-Xw31dTk3k0%(>l?CzX=7EnxH=pj#LqNh9fnAS+yj3_~P`fVjr2o7f zuD`HewC?hSt;g*sYmh8vZhIx^#usqi37tqtV^@N@9tGVe!tNV?71GJa z^`YxWcOQOhf4Y5zE+LYxKiznA<9Bylx_wH}{)qRZYcK5chY(Qi;ys7gV@IMVO6=@N z9IZy!Pymj?j{AkGueG+e-ZXM`m-~+5KhfbGw27#7SU(D>ai1>Z9bM$&`rvvLV{&l0 z`1o}4D0|S!r}|R~viSTcxpec#^`geZ%Xoj>F8KOU_4qpC>w()7pAXKb%K2y;YdeF@i*^fG?@d#>vl;`i)s zfRE`%H-49W0B?^!XKD5i+VKUw-{Ip?_QLe6u@>o5t zC!HO!>w}E0LddfMl8H>2G$ z|DYc@2#y=45?$lQGQ6Ke`8YdLzfO~YokYTU4np8G<2en1Gq9x&I{1Kt?uH7_c?O(( zz`@3I90JE6aO44}BXA6YUrPap+(77r1P(c#Qx7;CGyHi@K;XRNIrM6Rc}}{B@*JQn z>_d*r8v{5CflQzSkPG?)=Ou6olH>9md_WGV7jWkB#sGR``154(bOd9Q`T>1-^1zrt z1}XQ3t~DGF$Om&E<&g4VU!*5+V)FU|M=7ueaCia-Cm09lM9Bm?MeTy)0b4OPWNgUT zkg*|SL!PbBvjqzx{GC+rH_@HHffySyHe_tb*pRVdN1&PfZh?Vh@R7s&I~?en1_XgY zAXl1z0ag$U20>U^;`3i&kVBt!Ah-(xx8QpSxKu#k76g7lP#U-}K+qTjc|qV81dBls z7X*|+pjL%|0c{Y#1%YJ{>;^$=5R?W1ZB+sWjzK^h1b{)H7zCF=uoncDH3=Bl1_56X ztOfyN5ZneqWDum*Ct!da1kgcn7zB(#KpX_WL4cY?z(6qwjDvtS2y%nqGYF)EAiD_x z1K=RA4T9t#;0*%TAdn3L^p*q+mNPbFY{=M= zUDTN-n%yM|PGDs`O978Y<576JD4{%tbXgK~SqU`J`z~1#*!;TK3)h>#kTV+xqfh@vp3y33EQ47drXi#LH+3D2+BSaRxUx)UfA*J^bv%( zd|~a1mkA8%^cIlKLYs9Xk0IWl&dzwfp!K5bC+zhpNbm0U6ZSf!5T7UAcy!|vU)diY zA1~95BkX#5@o@y`jq53FHW}SI(q`w=TyGs&tT>-8dlj#zvSIP;VVsZ4tH-iu zDWvO1)#F*eR2k>v{fjaE>#%ZhH~Dn}5Vu$Lm+Ps6RxdiaRMs*jmqIH0xLQCvD!ZAg z$IBEx$N0Ehs-EIM$Fjh2q{gYEX3m$ZM}0~O%+-_jW_vn!N~x1_<*>P{J?XxX1pXz} zHt?t2zMOaG;_kK_<=sgVOl|}dPi1V#*pRUyV?!o4;vXCfWNgUTkg*|SL&k;#lN-V0 zM*Q>WKb=?bzd--#yn_D)`Um6|{I?Tun#tiVJSH3B3sDBV9?t?$#t@IL;q^4*GuaS- zUS_f(gd7i-gI|wy^@8LQH0^~QpH82zjSdSN<)+F6hID$8wu0NeU@cwjm#_I*G z7hOMLuTMdGcekIg*CB=YJn6=x8=v^f{`mNKnQk0m@9XZ`r@PlXK2ID4t*0RU=$;D% z)*h>8vLU`KPgwn#YzP7EY39#lLty3NZu08{Aa1YfFV|DY|KDr~@FgP>-X#lyIb+V4 zGv Date: Wed, 28 Sep 2016 00:35:06 -0400 Subject: [PATCH 2/3] saved the plot but not sure... --- Class 7 Instructions.Rmd | 19 ++--- R markdown.Rmd | 39 +++++++++ R_markdown.html | 171 +++++++++++++++++++++++++++++++++++++++ Rplot02.jpeg | Bin 0 -> 23002 bytes 4 files changed, 220 insertions(+), 9 deletions(-) create mode 100644 R markdown.Rmd create mode 100644 R_markdown.html create mode 100644 Rplot02.jpeg diff --git a/Class 7 Instructions.Rmd b/Class 7 Instructions.Rmd index 1a7ac2e..9cb8d83 100644 --- a/Class 7 Instructions.Rmd +++ b/Class 7 Instructions.Rmd @@ -2,6 +2,7 @@ title: "Assignment 3" author: "Charles Lang" date: "February 13, 2016" +output: html_document --- ##In this assignment you will be practising data tidying. You will be using the data we have collected from class and data generated from the instructor wearing a wristband activity tracker. @@ -10,15 +11,15 @@ date: "February 13, 2016" ##Install packages for manipulating data We will use two packages: tidyr and dplyr ```{r} -#Insall packages -install.packages("tidyr", "dplyr") + #Load packages library(tidyr, dplyr) + ``` ##Upload wide format instructor data (instructor_activity_wide.csv) ```{r} -data_wide <- read.table("~/Documents/NYU/EDCT2550/Assignments/Assignment 3/instructor_activity_wide.csv", sep = ",", header = TRUE) +data_wide <- read.table("~/Desktop/FALL_2016/Class7/instructor_activity_wide.csv", sep = ",", header = TRUE) #Now view the data you have uploaded and notice how its structure: each variable is a date and each row is a type of measure. View(data_wide) @@ -117,8 +118,8 @@ student_data %>% dplyr::group_by(date) %>% dplyr::summarise(mean(motivation)) Create two new data sets using this method. One that sumarizes average motivation for students for each week (student_week) and another than sumarizes "m_active_time" for the instructor per week (instructor_week). Write your code in the following chunk: ```{r} -Student_data %>% dplyr::group_by(week) %>% dplyr::summarise(mean(motivation)) -instructor_data %>% dplyr::group_by(week) %>% dplyr::summarise(mean(m_active_time)) +Student_week %>% dplyr::group_by(week) %>% dplyr::summarise(mean(motivation)) +instructor_week %>% dplyr::group_by(week) %>% dplyr::summarise(mean(m_active_time)) ``` ##Merging @@ -132,10 +133,10 @@ merge <- dplyr::full_join(instructor_week, student_week, "week") Visualize the relationship between these two variables (mean motivation and mean instructor activity) with the "plot" command and then run a Pearson correlation test (hint: cor.test()). Write the code for the these commands below: ```{r} -> plot(student_week,instructor_week) -> x <- c(1,2,3) -> y <- c(6913.25, 6240.28571428571,5956.14285714286) -> cor.test(x,y) + plot(student_week,instructor_week) + x <- c(1,2,3) + y <- c(6913.25, 6240.28571428571,5956.14285714286) + cor.test(x,y) ``` Fnally save your markdown document and your plot to this folder and comit, push and pull your repo to submit. diff --git a/R markdown.Rmd b/R markdown.Rmd new file mode 100644 index 0000000..ef582d7 --- /dev/null +++ b/R markdown.Rmd @@ -0,0 +1,39 @@ +--- +title: "Markdown" +author: "Joonyoung Park" +date: "9/27/2016" +output: html_document +--- + +```{r setup, include=FALSE} +knitr::opts_chunk$set(echo = TRUE) +``` + +## R Markdown + +This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see . + +When you click the **Knit** button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this: + +```{r cars} +summary(cars) +``` + +## Including Plots + +You can also embed plots, for example: + +```{r pressure, echo=FALSE} +plot(pressure) +``` + +Note that the `echo = FALSE` parameter was added to the code chunk to prevent printing of the R code that generated the plot. + +```{r cars} +summary (cars) +``` + +```{r pressure, echo=FALSE} +plot(pressure) +``` + diff --git a/R_markdown.html b/R_markdown.html new file mode 100644 index 0000000..05d9d2c --- /dev/null +++ b/R_markdown.html @@ -0,0 +1,171 @@ + + + + + + + + + + + + + + +Markdown + + + + + + + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + +
+

R Markdown

+

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.

+

When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:

+
summary(cars)
+
##      speed           dist       
+##  Min.   : 4.0   Min.   :  2.00  
+##  1st Qu.:12.0   1st Qu.: 26.00  
+##  Median :15.0   Median : 36.00  
+##  Mean   :15.4   Mean   : 42.98  
+##  3rd Qu.:19.0   3rd Qu.: 56.00  
+##  Max.   :25.0   Max.   :120.00
+
+
+

Including Plots

+

You can also embed plots, for example:

+

+

Note that the echo = FALSE parameter was added to the code chunk to prevent printing of the R code that generated the plot.

+

summary (iris) plot (iris)

+
+ + + + +
+ + + + + + + + diff --git a/Rplot02.jpeg b/Rplot02.jpeg new file mode 100644 index 0000000000000000000000000000000000000000..ad8f919eab51997016cc730f49804486533feef8 GIT binary patch literal 23002 zcmeFZ2Ut|gvM9XBB1jGb5+qB`C?F#lL>xpV2g%?FC_x4p7(fXU1q2inl&mDl8H6DS zh)9;q42VRT0mKo8;a|AVcJFh}{@*+I{P+I%zVCaDYfVjct?I7oUR~AIH6DICoCg># z>Kf<*BqRW!5B>p%8^Bp(H!oi=A2+YteDYEH{_lwY@e7TUvyUSHkQ@UmyqtU- zJwO-^02I$0Z+rU!02K>}KkM&%`v^Yj1B*As$q4K@gt2>u!4aZ!qz;uciqI z3j+WtzaQ+n1_+CRu)d48?sX6b`H*_M`RV@-r{8nCW(MNfKzzHW!)55-p8e$LqXp^` z;0N(UH)n$*{qg_+8K1ka!8H&D`H-o5dzl>3gMA=#adOty0bvOcj)r*|9`ym_Nmk=? z_v#V;s6U_XxoI8s^9cX`ru{`@5atA7jPotMBYLncGQw?Ngg<(A^7gHta}?|w1*x~6 z$&u_}TNG0E-a2|94DzHfcJ{n}q|YPxE?`Px4>$u}fCG4U1U!KQfDbSM^Z-rp^ETiO z*0=!fz%3Bt4Awe>7-#U??=+G>pYs7=Al@Cg`?Jmmyc_?d{O!r#Y54$G5bFsn|D<&U zw0QCWKai6funuC~e(~f3w7_qEAkOvwh0kw&S@|0uFLHKr8FG2>QYF7cexCd+`8j}( z972A9T%BAS#GWHp{l(iDeCBtFj{36#w(=XFJ79~>Kj}Nbs0s77b9Wp_!2U^B?%Ycm4czTSxDT`!7!57?7L*XMp=3 zE&kmcxDNK%9q^^%m=YQu-sY9tvsR8g& zicy}Ul%>3Q1podnQ;L9f=fJzppZf;Rk6#pjC#kcqGyKS&09szR1H9c`-F*4vWMq{2 zG(gkm%xB=~C?&yXf9n?C&nh22Z)YE8@4L=UQoxbjJbDfQwoQK8LlU-uKXATA0C4^* zxb}Vg183<60L4B4z^?EIP83`#S+fA3PRY^F`|fZ2KttUR06s4AazDS5&}xF~*X-fp zHn@&aB>})e;^EB&}AtfWHprkrReVhg)sAd32Nyx}Z$;l`vjvNY-Ag~@FXQW^{EvrGve8rxM{|<{> zXyVIb0-EJ*tR{n4L3s!7FzVxM>?b)mg@i>!&xk1~Dk+~mr=q2;qpPQHaPjK3>!xO) zc#claF0O9wH+_8l?)t+6?%jV79uXP!FghvuaY}01lc(v~Ik|cH1%d!GGIFXTxkyO;j|68Vr#LN3$)s_G%Ki>Bzg*}s7R|($5H@KPCIu1PlAOB>N@UA978B#(?x^AtNOvqaY(AqoAY!3*|A&qjK!{v7hDm z-wN%|LU&Z?f0aX!2?@x9oSd8r{Kr5;O~ddXE{8J!Ilyx`3DA;}fRl-g5r6;(gzRWh z;J@J_JN)?H*!JLmW7|XjjcpJARohEV_6zj%a2iyttvK%bVCAqxtb+mD84>Sc{c_!h zEMi;wn*y)-`77la0Ktz`hB}Bt;1D=*4x3E82W!P&g0&Lv>k$;bv_pTalpX?TS@5=X z0th1czl8r+J^y!7{8zmS0g)j@S%Nw~<@HTVkq4WeP9wfgJibbKlqu}bs5phKFMA>WCPA9|xgGj*?-+Ru(BBAoF^j5PPM%JuOuMK=W~E8fZ^#(eOr7ayz$Qmw;M zv&lLlifhz5-?Y{KncGHr^J@JCKGr5i+&wQwcmpzWRt8&|H($minY9~N-MnuFJ#mm; z7jNO==^>OZ;>Mlm`Y^hO_bC_a8GhA3ML2!9+6kPz6+Y1&2f@6bbbj2xmgQ66ZfP1P zF>ZXi1)jOOidn^+6im`(&`s1W=kIFlk&}M~4SqoyE&4BA^jSMuKU9#c$WKqvhrq$v z)zKXaaPiDN1bT+?MZ}H)`a@u)+qCS(FAGd|IQm~dF#qZR{*6u@IfPtXAzVKM99$z0 zft`gSvyZIX#NjLVq~+hZL{bIZM-AgWU6NX0<4mUM|tN z+3HxhZl(GBaJy{hur;Oec5!s?hxqQ}VFWB2UyB~-N}!%{=X}6Jnssg8xwNcEDz+m3 z)h)^7-ufhtY}%3!3MWW%eAujTuMTMesWDKycid5#KSoVX6;h1s~F>jbGz%Nc?KE8CR587aP4^ z<>9K2V@q@{TV{WA)6yl6)?caCbV%YOl>9Z%Ie|oKGd+{zZv+{0x-hlwI9v&@anN!#sv&pVVp+GO-0g}HK-MRzwOU(HlITYDt- zK6-05e!U$&he<<8N4UF6cOyvd4)rOay`uoM_K0e+7jRUVQ-?!4-{aOpIrQcso_` zd)&daMo!v3&&#hzm#G9I8LCHKJ@@Vq{uH0ZaI1ynM;D36vl|CEyEDYe)-A7l2?vpC zXAXf^bXga8O|R&%0RPDs$yR=mdJeW|Au_s!Z;gj>RL!6O-*|brWc}NDo{y{SN_G>N z3wwx!Y{Vh>7q4vB7E zzl1#mh|m0P?veg75|E#sem#^!X8{&>atcm~Y45w1uA}8s*e!vb>hNjMAUEQ8+D&5I zck*0Muu^TOtr#{ktZK#-28n`Hmp13%Gbv{z49nc^UDW)tG%2Cp%OG+|;^hZOOfwK1 za>Z5^n>vg+pArgXg*QTRyP-bh%AA*L$!R8eY>;r_4VV58T%eLJ@imWk5S1@ zul)LW_o1cvzGgNJ9>Y_wU$whB5Od5HGGC(YLhmx-zZe~42cN`8cFb`qp1*1q7`Uw9 zVQ5@G!uZwML&}KPB#gbbI$rf|I0H5RmWBSE6v2?-8n|KqA@IOVcYDVk-J{;=)o6Hv znTB#}T&eAau)tzgvTRZ$@0qFSW$_O!^b`2;%Xp*tM*4^HK{=f@lTukcWv4wpZw}2+ z^s$pi2w#}6Z&Qoju>?f3%fB50jBsRox=~jvChqdM-moO)N@Rag%8Y2V zdF5#J4~Kj^J-oKs`vbZ=3eNw)5hS?$Ll5+Q_kg{Mf6*WKSN(?H>HZ!6Vd&ruzFM+B z?S7VJwaQLh4(NJic%3MgyUFfO+iN+kCnJW_KbxXqcIJ7mlK3{W0d6i;?qdVyJB-m%`jjFll#u4Jc3MJksO@wxK-k z>QeZr{3$puDywpOmV8uaruZW~!7^F5me>WeSV$}_p@{43e_zo>^>vi>%0tu}O^pMt zGSrMbdS>z7nIVJ@cDu_CJIJ(JlMGs<#`x9kb(Nca9B-Ib2b0}TDcyxf5JeC@e95;H zpD6~TL7(KG42$i?0+I=yfigAyu6`1m@+BreT{B6`)yMVLpp<-b`j#6@EG}Gd-=RhL zpjiDhLU$~f#(Je;ynV*%LS>pYwq<`RPRk%&v}SFLwlQgT%i!`Z3FXLHLFUjT0HU>= z9Sy!*|M}OyV@Sa8McI1@7s3{o@IcMI2<|hl95=VnzwZBGT%DnD2wBzACjG>^^Pt(O zT*LV@q_-$=sp7VLq8%JziDSlVwGCiuamV2`ul7*ZJ9@_&R1*u zNt&8A#V#oRh|DF9UYT1N-y3*v2)IeAqAYKvrQe@gfnZBZh0+xbpI+C+OV#KPc}#Of zc)V>WVlyV$n?e_DxL(69rM$u?Tq1UimTvH+Z=nXPvMQ_%PP*UNeng(u>wWcJ2p7jG z&Z$x|v~GPdJPYlApJ0Gtd9G+uqgKBKpg2dTTG;!mG+v3o?Y+a6Uk%+DKJ;Aurs{JW{de+WH{nD3@V`cb?UOC;k z9`%A=4d>OJFyW7(jFf%=?V6+i#P!2tw=Wl;|6%Am;;P{5L_^yBuH6f^0jM|vd4#jhush5W<4S*ljRT?iG-FF{qs_~ zOt#wlAKZxiOS?{x=fAUI0r$gY{q(eR1QT3q7{Ln{X^0=BM;Ss-+`RX#iHEypSYd9x zS!7>n3*Nh$iJ-qDSj%Ic?qU{8#6H;zLmIAaNngP`d*HrzH+<=sW0*roVY8xqOC0t( zt7cqLG=;0XYxaJEN<%l93=5}zB=ym{i!sxoxK77bJnA6ZL80kmt9heZkE?Mk95{6E z%N+t84N6(BtS#pg_^ld!pDvI*JZtJe8PIJD8x*H%M;Y^+9HJ~Kv|1f+|1dYuR2B2C zrarCDW?PHxhmxLvbE1FCD4*vor%huL9hTp&e_k}~OwD?cHD!d1*_=bbe&9HARjc45 z)#&5@imeRD^Dp z#CLajnWVn@%~7@8rA}6LigvRwXG}UKSVVd~J*(zN|L_}<>!$jds@jGiNAr|1 zgObm7N~cde(Z5ldK%XThDxgN(mXNod099bt3#p>Ubw?6~2x9m&bnEfeS;@gBX{8E9 zD-V{b=ApcAPa>!oplUpB^huhjHz+TBAOZGXSWji#cN2oDNp16>o6anpT}!x^-pZ-a zdf$`=YlT8GDhx!lELx<;0!OJ^M8eqDBp$ zjjuNYtXo+dMTda!_rgQqlTUlr-lLUo-<<#1*#&|uexGOm$)8kzv9W0Ri+IGZT@}eu z=%K7joPM&_`rw%&Ju5 z%r}_2l1RP}TJiafewm|22ow?^c(eIU(wlpsqh(F1IiK8zXPKarLRGc;nU`t>Wlc2H z_O{b^I011?>!cSH*BwQaA+TX1LkX}#JpY@~rPwBm24H zHB>FEXw^pwGmi>aon)hSPKij)dF{Gj#XhUy5;Qnx|&w;WKR*^ zx#@~}xWtvYOQ$2c_oc3dDb&W?l0KGO(7UP!seJtI3rN&{B`_g4;%md99 zOBju{V3RV3a_!dzb4VY2Br^ITGy|!#dh17`?)bs5ni|+ILqV zdangMbo@WlQ2>Jurvl3TZw14TH(n1O&km9ErLl47)*Qaoq!pZ=U*zRM>+gT3ZP%&3PMg%ilwshr zc%1}upa&IKyu9VeZ=re$mJwgX`i&_ADyp*r)hgir=ASm8dlfBL52}%iv)_34>EKrn z0TXWZ5cT5!qC;J>zp&YMkQK<5FH!6eD3?ba0(*Bxi&~-xw zy){2XTmi!JAh(I$k1h`9idMyE^RJy8S7Y^~=&X!5J13Qelx%)~^3)sMXLPr_V-I}( zDh3o-8%GGp!yoUR-M=>c%|=JcN%r-Mip^3H|0DUd_z!0+*bnjn*Vv^NiG$bb@@}^B zcx6aLRRSG8pR2Lo2gSv?jZ$fTM%Fie%Sp8$b5y`OoX^ufIh;fAIB-DyyF&kyKmU!< z{nL5&U)md1NyOm3G4XxNiG%zmX4uO$>{MsTvOi5=&YZQTr$9}esjhD-L(kIGheCmL zIo;2T486s``Npn9{E!`;bvJf5kj4Yv#G{@5%%tCq;bMfx3QgDI6aNP&+H)q}Bvh}; z9!ntYTPLKtV1b{4*_O*~tSaNPPT0Z%z0Y`e#_6w z>J_2tokSnYLpb$teKD3eYQ$N3 zc?1_p5ZVmu6Xo)xe7bvoJ6<9f^(=US^*fZHaH8Pg7?1oR(8e;iV9i#&ZwrU%;#BZ% z2zlIRV)2**Hm@MkDOIOd?j%ZP_M{Y6_fG8hejo@gAAfIX{2c^4zMHk97c7iKOM*vW z?0N*ngMtIbxrbSJL+ByU`H^aT#O!|nm4(W{Mm2c;NIxOJZ3Q#ew>vc0UC04G?tM24p#&aOn_e zw?q=9LeyLS&mfc-M0%9b<71#UW;%E%j(=-#*1V$}?qb2v#H3(yqVF_^nXZX^8##}z zxEYa?I82P%>=+;j6&wPXWwNzZ@kL%dY#+KO(8>(Kre+-iF**M;s4$%eHBIV!)0td$ zV4RAHE|0arrn;3NAonAinmfnhctA!?sxC=+mhd|hw)~=8f{}f%YlSe3x_<3<4d~wi(Ry5b>jwBD1&TY~O zT4c#3lDagzeI@;R+^N(Xuhg7sWRv5ocl!TyX7U$@^GEi#3`ihePG2B)yhH9R2n8O< z_a(gFz8i<1YCN@2D!+1p{vVBW8E}vfS$z5l`DtRl^}xV)^821+_o<>99XdI>WAA#O z-N!Q~{_|5H7qYhy7v3KNHFmqKxDN8$PD>CLxhK9|01#nG6-4s!9s|+ zlOBNwvJ3IXY&vu#C&J{x9)2Tty83r5k^TA5|4#ywp@R8|gAf`b2Yjuam$rICZ-eIy zu7seZWa(Gh<0-)GM3eDAqU9P8>!ntXW_@#KU8Som50BJu8Lw_ET=(5jqW1Lk6uME4 zA{VnY;7%a9t|7Qf+M<0>h){iD4v#_eM&0tAf(2c@j!!^;ZfuMfwD`(K6IdN($j9}J z53M0ccW0~-IyplhbqKgZV|XY(dgf$w_}em#ibS`cW0^6aPvrmXKowwi!;$Kw#GUbI z;3M9D|03KF!~W1Wim{Ao7B9@Xqa zxym&z7{SL=GlHHm3RZ0s{6%l*>iA@VZ98RR*JMj_c5t`dF|X>PPYU~v=mV+Kk{vNj z0ZG}p?)C4uo=08hHsGUkBYT01+>p(OyLRslpq|se4Hm~`=AoBM1Y6TID{AU$Yn2O~ zB9sG4U#j+==%AQq98lcxd*0Sq6}FNMr+ruI_?U#>lVkEN6B%73`LNi6Qh8CM%QoO46wY6G;rFW9UuZx7HV|gRzs(HiJ{4mXA?Pjy=IQ9pgYId;m zOQA~juB=U*RZ7c3$?F@m+j1%$h&d_0hrNh4*et@L2=1kU?J6mScezRKNUD#)Vt#mD zkP#}@w>5plpkW-6Bm*ytAu_HG5(jx%2@u>`hkt6i(tY$);JYSz^k$XL!At%*ozDZW z=d??nET&Gggw2t6GRs3gbcj-o@G`eZxIt*<2QjS`&12OGj58UM;s(P424!Uh`kDTW z5*0d}#dmZE1e5d=U+~J)#`c2~B`Y#mVp;j#SUAOOmU>#CdPd>O-UCgVDVnug0go<6 ze|Q;IQ75_{8(UngLD>?7&ntDiN*v;?9FMmjDfy~){;t~9JdMCp?{*UkZ71LEE(@6$ zH8>?$CvD1z}FhsONG9|R}9S#IW3(l7_JKBvKrG}ZgbU*i+VR3 zt8)JWug#yc9?W`)=MG8;^z(5(otzGE7#NNmMjSVWCzuW0a;zJ!3LBL8D&m@X&dKei zU(yvXmVCu?w@!tA(?QVS8oSf|J6oCY$-6dK$|8Govy`y_ZZ66>mCMJAViC6FzI(9~ zvA_RBrsAS^DlW0ED%=T1|c6b@5^vJM&KRo70jp)Whayfbe+;#s}=C`kNm3uExm z-9zBy(qR5zFgLtaZ?Jkzr=@DN+K|glf@fC0Y57T$ze(%nwYV%1!T6Mqh>P|3JNXC} zod5m!3WX9bBWy`;|3SLW=;!#yV@cYzGH)Aa+I4fg?!Iwoa!voi+{RV|`cT1A2#SwH zI)cGilLxwt*L^(o`{dmmEWbK7LyOdnYzGXJ{7R}K zZ7Rb=cJ`B@Z!XuQ)v)h7ZXh1+cnP)`24A&hvjBsS9qp@p!Sv6H-fIC z;yuB_@XhuHZek>M&1`%L+f~0X80eg1*Lhqvdi5l2tck%w(v0viL+y%JOsst3H;xuR zGu%}ak{zMygQ2HG`8x|g4+PJLKh2>QZO!K_Wh_d*#IhN$J@PK@?QKhm;u}wg@9*Ye zMM4z&11~iUek-wqVsD4wV@!uVm@p`9_G3bn8?mp%Z#_)4&}O_i*rj#W820WEa5RGH zW8;%?;%_J8YhguJZt6;Pl?fd~`T`!oU;rbU<|*xmuO@~gsdklhF~{!mXVW^=(QklG zEM6Xs+=zJzuUHii(mn5L)0{MGN@`J39mh86yA?C~;LCSelII`t^wf;0R-C{XFRee@ z*NRTD2t5-H3v(w1J#xm6BPm}XR8=Kbns~kWIC?wXn5)B8=aptxxFRgjHF1Je(=zAE zbbslc{_sx;P=B^-BBmb|B;gZE_4!jbMU3hV`>y&NH`)y>45d~(T3#bg+uTNpP$h%e z1MSM_K@2knoi}+1cvcsdt3*D^f+>Z*&z>Ggknd$;+E@0N_KDrLx@Js8hNcg5tcrtNXh5&M& zu6iXra$XtRpB9#dx(9;?8p&|kC``29D(NqJ$S12&*#|u{YI**(62tNNP#ZrMk}o`b zcvWm#XXcp-+(0yfHG7RmVEArOhDp=##+RnZKGkHWq0@e!0<3u-Z^^(0m;XKkR8Db| zepy{?u#}*R2~wIeAF4j~-V97K%Ij>xWxf(Lq13y&{5E>qi-tG=0T7I(llYuABrQSq z1x(3`I1p5@JZ4&J{3FT{Ddm=JX7lcS0lBjQRT%7(=nFd1?`XaD4ZSu)>=>v8r@XWz(|MNvW)r}X_{s(ecjZ0lZgqi z{+yd+aN6arV~>kq@>p|4G_a&FK#rH!X;w*1c(Jm}9?^S3q2CL}ViFWFrLI%6V~luG ztMqQW+WR)8(G9#b8jQ+DeE+^zhMJ>vo8@R8g)Dpxl84q-CI$OD=!LVq88|D#@ulRR z+F!T zfshEh6FcC`u@cN&j?GW@%63a*nE7Ph?MON~X+72Yl;xu)vy->(A)ulX(mNeSuSnO7 zEkH*`H$e;F;~hlCAw?v^3P5vS_iH=#*Nw2}z5MCgQcoQ8+fIrIq;D4fdKXB+^@#re z(+@Z5>6r)`SoZr;>$lYGF*fp=^`l(Qxn|!VP4?Vgz&lvj7-l(BmizHWUFpOb>f^0) zr}93p?;-YTa!x0EeJZ}v6vgFswf?J!kfX`9ThT5bjKzU_My%UZDCA^9dn+qZ35KL5 zaOK-T^OqZ-yHVppW?_?CI*m$6dTvR&w1c|y_f=}zS9@QE%z(Ln;4c)AIOg3H95`<_ z)qGy#?a&@wt@GgC_ho$bYiMEqbA@a!zlH`CkK#vX8yPg`Q{C-NZ(N}kQ2b^ZTCzeE z{#Z4~YKI-wZvDW)|YP2uYX}&GF;)iVw9p zrNw*H%@1x~nTn~YomCsHl`y_&R;c+lq&rN5JMISF5TlIRbMQxkjfh z_j6E%ouq>WecPZre^;8OCC9Vj{qB&ho|ChN_wJyIo?suF|C7;09al0p7vszNM;eW- z!^dHF2Rh%tDK|Sgt$9T1ZE)_;K+?H)bu%e7(o1i;&(RF0uX#%GRfQQAy<$6QZ}Ro4 z=4-LoR0lXfXP`i$$cnKGb?xNbv1P-KC-|PQvV8vBvAk+j(zW64L&G|A$HZqT*B#!{0fN{Qz&$?}Gj=3S z0KJrgDY7G7%@iFfCKw`KZtT>T-H6|Fb_{W>b!B=Z^76PFSygtOGz;N6-flj~vReaJ z7OQ}yU%i*9-UBPV$+nw3?X1ZVmb}-Fj3OatZ!$*9@^yN zTj(Pv6Jix$b}Z8yTUAf}XnaQmXXP3tpLUcazH8q$!DnD1QBaDTd&o$FGiF9WV^qzOpt+>8N5pN*F=aHj?+z#l3(54LwO(wnFybs8?m^W-&$^<{p-gn0Xsz0OQL)`r z(nx4MKO8*M*T~VOdoQ|eBv_R|Ke%3XU}%buL{Etu*$Sukx_^V6&1raOo}(r)6v`h- zVR(j*LC+GvXLV-^;(6z@;_bM3cV9-ln}SDP9AdtZaP`9GE4RTL)bKdCId# zFbPWF>UsSl3xWrRig~O2J7UD+q&Bsg@sPKb?x~jdpGwUS=foIm(Uv+ru6p#r$-wG8 zqSn;0XK%cHRu-$*!L7XS(`LE!9Al);5o_l@{MEiGT=)XDot&^A9c!q-IUvDu5se+V z-{iAEPfNIo%`fAAKj~Mp5jOM5@YL>Pcz6%j#-i_ZX}Ps_k^tFbKj%}bVI+$TVg(z+ z-md{NbaNfxOSbP|xhLJ8sf;a%XTF}?o*sQu{N<{$iqXmiR8LE#M`im|NT0wdCb{#} zMKvvFu>FMeDkYWX=N;*^nU}N6r*)Tl?Ic|$Zjt78&9<6^on)L$sdwawQ-2QF`UKOW>0nbj( z!G|$yPv^ZNXE~lq60S>jzKcEtY_cMQ#75}stL+*CWKs3+WkZykgCp=}7+zF~|1~Hj zUhi5>U1Rl7akX}JtqH3_-%OvooV{j%r@-k8=cz8pnyQ_{X`u^Z6`QqC>P$G##F8~m z1OBbvF5>Lc(x)O1b>AzhYH&}w`E!^$G)`dtL}W)yon6-+ZLmT!+oVFOH;nBNfX&cW z1eo^S9Cj9zd;j+J3x5Za59|Ps$G$GX1P{r#&bn{Mtw^&;1&4K7TG!sehkE4>6)&bw z+P8Fi*(VAb#yv^y6O<_b9E^NQ-%~r@!e@sUR&RB`oG)ON3@ZC-IJwd!m+hlPeHELS7B@%N$FnFm`@0(B#$=*sXVXBWnz_wVw0ix^&f z0W!NnRMN!&JoBBSbcQB6ho5S$WKs8mF6rp^1|vG}i6xf0CM= z+4D%TzbhJ)K^dZYQH(1lCQvoN^Xq4GzEF$B#7|=UqJ8qR^T0X5o!1SQOY+txuV*&C zoYg9HZ-|who}8X~SAkMv7KJayYYW+M>pS1j=L-XE>v8d?wYY-&WeTbT%#*M&X1Be- zX+58NX;&1h=-oEB+j~Skq8$93AIVajWcb843Z)|G;Dd1VMi~}Zs)swR%IrD*|g}gV4sArl8?o*4<>QwI3}c zKFFrTepo&k8&By*R+C-N%ZRvu<-Jc($&|)5B#_8y*TX8r-! zi>~Ju8-n+>Gr{eM%?YYUo4Z+^SyXTobZEy=nq|)2G?=TYBG%H{-STqw7`vRc?SsI&uS*Pl z5>}AA53=QC`V#8IKie4YUc|cOl+ImL(<`-t8=8)pbtn^A<6&Owux0}nt7L)5T3F(# zU&exf>GGaT9n6IN+~i`uSGv=+%X-Yg$jetXXduaWq%tGU;s_95ZKH z?qB#RMmWy9BYOwM&k+IpPX5tUNYQf$f}H%z&2I?tV0=B4(tivV+-6y2Isi*05twcJ@SHe!o5mQ#H! zvE$g@kBY-aVNbR1+6&wW;zC0sETJJtFQ?J@5kGD)Wk)&WTVvx?^Tp4lf^WxsH^q*b z(VSAkinB(a9lgLIS^v;+14$2YNjQP0vH9rN*vbrR5r= z*;Jv)DXF2iug>z3p&^rB-Zq$psc{m;u(c8E<89KI7-<%GcZabxSAXyam?7Rd;8spX zMSz1c|9k+$S93IpH>nx2ukda=dnO=Nj$QfhjqNk9wUB2y!&pdsTtd@vaufbW2M+G4Hv=MN4lP)HP)N6 z+`w`6qzmdWtWYj5Gf{30!lQo7oh_aHzSlDiSygT&LsK7TuM0y9p!J(#X>kf2>dTk+7f{;@}W z{Gt}0f1HDu6+Ue<2s)oIkxx(ErXE)Ut_jfCCS{-e{@k9IYjP_EMoP(gpII0uK3O(w zB#6B@YfOD|<(eAFz9`nBb0!MD>$(sM8EL-6@*I#~U_gJRum|ZSX7} z)VWhIK>FG$PURRn{^a|NjGkoLjEF;Etn2~tBo2C?!07c7K46hyJ1WpHBCKr2%=Hiv zlhIR9^Ds}gv#E`&n@v;n$5{XjwsjyYL_!e;B`|vBD8(u0ad_G_BbYh1y19cUXO(?* zMW9F2jq@{;>xFF{mX%X++j5J~LIScjcwZ2t2D!R;xUt<44!E+;f%sHAhw9<4Kpp=v zkML}pOV*6;1(UP}0w-SPzO(L~M#Sw~BXqGRTHC!Cf_sQ(@S*OW>MVHSlba^1%Nju# z2%~U1r1C|)+|;aSlwtk7&F3#KT<+1>U$8kyEdBr>SrLA%Y&33P$1l|l zv$2K^Dru41xeezh@?W;{+@g_}?GYR=hu6*%Ll?3hG-S0)v(C+~vNd$Y@10*NT%zAN zm!z*2S?5l!ZkCB!lHjLq%qHms5S3^fpLQhZ9l6^@n5CwrW(r|jvanxFMt1UbtzxbQ zPlo5kb*zkDO6;PwSS<7>dsU`=kRT9agdONWQm?$@8$`%2Y%-avy>QU&PAK6H?k-gq^X3Ln`vXyj3Fb5hHSCZ)PT+b|};u^}ul zz#*+qR}A}1Mf{A(xoY%4=pNPmCL#0y72MErbSK7!>N@dLCS2<3hDvouf<&!=Ny>tw zoOPeLfeZ=tjmC?i(ExsP;R^~HX*mf)R#LScaDzbsJBDgFL9b-BRPBcvgmxTuN4UVp zdrrZGLW?{0c-zCSj{>G5eMI$T9%Wo)hu0*8$O?V1uI8LO=XURI97eVOI`f8#a|fHS zUW~5Er-npHSBv*1iVY=QvZn<@zqvf!=g>kQ_;fTJ0^u#P@NKO+oM(Z0NugxP*dsQp zR|6t)?ws{z@L5uE?>AoGS8WSN{B+TG+mkJeRv2^akbA1V4Dk2jfOT-$dldY z*P6z+I&V8C4Ura?Nyun&ItpLgj!d7I=?WZs~$NTo%66k|7y- zHRr;{%r`y0=BQt`>U|`dNDWcGITN`H!^0fskt7I}A*RjCABo(nyXiBrS1uKgv!{AU zydH;&sp<=+o2F|XuQa${M;k^mfOp)r#%6|NMGWzrimLlGOlv+R(<@gGA{NZ+A3v2w z{K&q--|cr={YGp~06fmZ*rCN7Z;xx$J;;RI;Ehyy(Nr9asCC z^AZ8qN!mm7yDtKG@p+!m1qc7)Ge z*~TB)%52%a3yezZVGLu{6{J!PuEavu^Uwp-@R;_=v9bkTMtnox+nWohbeD1;56R3_ zOW{x(M24G7rasywUb#NWR7Z__PSM3}uDmwH7uKw5WXA}rwWS*LLvGAK+OH1W@`YJ} zX~3s#YS!*zyX6DQ+k{ZsWj!V`02L!H1I$hdRX;-r#`?dFLDH_=H;kZGbHq#}^|Gc1 z!U8((`Q`L73wdsm8OW$L-IhzPPJd1OgrxP28DK$(;a?WsR0$tl%2)vNjX#+y_DN;9 zwqB1lRJ;3*)iU6EjY1OpY2eya>dd#&huH25A3^h7qlJGpsw(4o#htjiP6!6{MQAWVsgd?&13q3nV8AbZhjJp3#>U-@#^<>D4x;Nr z$k~$)%^Xk#l4ZXw-VGsaD+bz;#Y2#3z$&QoG*n_cCY!%a+wwD6TTw4n?h6%XImW=O z$(aokTV!%y&7^;~Ajo2#s!N&Ud%0cQ2+CeBXUvWA13KCicgAH5PrQrldkfErzb55$ zjtOA#5UMYWo+H~yi015$RI~9aT@7Z!**!@Avaf7D#6#l4VisL=hdgmc>kj#wzH%DD zM5W_lxu-r-y|s*gg&8Qu zP$1s$4hxJaS5r{u7_+AafR9{=1eJ|AgQe;kctDiGjz?ByG4N8xd816R9z~z>x{`hF zDXbN`#5-*1`OrU2xg#J>Io-&iUv?AklD>%=NU)}*ABbpSIqkK=8bfc8jPi8I~ z6j)72Hg|TV6&A;w@)!U7TFpDWy@$&~qw&u75~^K$>?LYUUsjY#ejbk56jzhlz*A5N zOYr)l^!R1_M0=|7B#PE5*I)Q7swy&2_C_ub*+F`h7bQM(xQnwpR!wU`(oA6YXJ_lQ1F{GwZxT@4}JuYu% zrZX?D&$7GlSjplP#gs02f>&LH+vwwS#=PPw5Plm196SO+(N8Gv2I0N@F@1LAt67X{ zXL2k{D+5%ly7S$~COs4v{p~wreXn?SOkhD`aF^n-=@5D$)`m6M(e7~>8j@fWDsjoFe?}A7C z9xj;gP~~{5rJ5wsRIMfM3cj9qORv@#@n)UiTED$-IN<6xj|^|&$3h7LD!!>o*)#_Z zqMh9YqoI#a>hIQ>OFRg-)bBFSmKz@-iXA*ckYExXs1&r>m#*D2jVxXpS2>ujF`1Nn zKWt;$Q>fVZ)WhjvNos&xd6m_h@n5WKui36Gy~;3b7mtq`UA>XCwha?Lvo|GPwgg?L7udLXcsy;6;8H$1zQ`YI6!l=AuXDqfmwq9 z-Ga89!{456Y>dxp3dlRlVu}RZw*{Y8rxJzNo(rifkxtC%YqhUGbdgSTZ$u8l!;ah36kT26;Hl(A~#SSukpDJulicWOn=sVOU zhsIIFljT+7!IKSYNtgKEgxBh}IG$5xo)_yPNvtVk-8=-?f|>DV3%saB+8?SY#tgumdRbyj5~1%be*tJ1T*|* z5@FevH~V2eucj=^Qod{s^Cjs^jo(Zb>$=?OG6^xL&YCD4Hy=ivQN{0f48l=uSsqsO zEI-DKiqur@duGmlwj5aZX`eDChk2@1@kLU^=|h|bB4rS2$!~K^#<+~rtiThs=S|w4 z$@^aW@Ea$zJ}@3b%!KGw_G~q^KI*!bc!5V1yQb&GHjN0zi{PkGoX|)$*YnR)x(b5O zE2YerM(js6gyXyRPL|Snl)hA2uV9dGQ3%=y7g#|~G!S@`Qi2>p8NdoP35I(+SeJB*Wm%+8CxGmGIZY(w<_n*fiVjcWh^ literal 0 HcmV?d00001 From 1dd5cf6b96b74aba9b8b940e61806224f0724a99 Mon Sep 17 00:00:00 2001 From: joonyoung23 Date: Thu, 29 Sep 2016 12:34:22 -0400 Subject: [PATCH 3/3] resubmission --- Class 7 Instructions.Rmd | 2 ++ Rplot03.jpeg | Bin 0 -> 20055 bytes 2 files changed, 2 insertions(+) create mode 100644 Rplot03.jpeg diff --git a/Class 7 Instructions.Rmd b/Class 7 Instructions.Rmd index 9cb8d83..c17d5e4 100644 --- a/Class 7 Instructions.Rmd +++ b/Class 7 Instructions.Rmd @@ -139,4 +139,6 @@ Visualize the relationship between these two variables (mean motivation and mean cor.test(x,y) ``` + + Fnally save your markdown document and your plot to this folder and comit, push and pull your repo to submit. diff --git a/Rplot03.jpeg b/Rplot03.jpeg new file mode 100644 index 0000000000000000000000000000000000000000..4ffdf869fc12491221fdf182d44639259cdb3a01 GIT binary patch literal 20055 zcmeIZ2|QI@_c(sI=9$bggh-|`M#juZq!8kk`I^U&;Yt}Yh6ho|Tp4cW$Pm|%RAzEz zxR(gwUP(8ud;dqz^Yo1G_xJm~|M&g8-|y%1-JEmRS$mze_u6NjwfA0Y9nw3}Jiu~R z-$)-IBLe_K@DCuZ1EdQhVU9uvV`1j+;{x+^{$BC(>HkpuJIenG z^zsY>W&U0S!81dE$3WvpoL`O!N&rV-CV% z06;Dr= zgLtBwv(dr$3IG5^2o`8`34}pD5DkAH^8Y+hjgs6y$oxQd zuq{fNYyNr$APn-PG;{X0I2g|Z_&Q)ob`5X_d;kaV>4-gLnu79r!0MBOMDSy86S6U&!6~uZ2AHUN&0y+Yv zKoH2u4fq6N-G1;C0(8KuAQ0#J5BU7tmz7`m_)u_BoS={gkJA+ADAXxVQK$ey6q*!T z6dDw|AXbIq^bg)<;61-ebkLs_u$7k z%Num;x0+~wD9mv%75lrff`NB>{GgEj!-$&xpT?YWk@6$uIC!3-eE)-o5al%Gd+=`x z9Gl-{@%gR(mr*`=QZVp|`uu_J&(GplDs50w&+m77fujHeWp@6Z%+kN-(HGvz{ab6} z6wj`VGW3PJc;Dsy4SO&O&T;2=&I8d>zhO^Io>)IIexmS1$%!>c2BZPf25E-0Kwbkv zkQb0nNC%`Bf`B~#LH}Rr(2r*i9Q6D^uMYZspk2R8`1`R2HJ0fN6CaZZlP;4W(@~~# zKd6M5xR_2d88V53HGDsw+i&_U^n1y{aj^zl`*nQ&zO93I1@?mz_zcJxK@EWY*5V&@ zzyjHv;iTi<5VhC zC#lXJz`wrBRN`Qr3V7E0ecwR+_(AapNu2|oLk{K>K*z^7)F0;R7APcl;)Jr0HaPV; z3mJJk%18-a^Yj$@UKJqZ?;POlf8E(h1~`~E5AFki&*tCfLo&|6-*AB@0HD4B+P3itYi>YGEz4HPBmndWZ%m#i~%xo z2n8h-H4QBtJxI{N0+5qIAmkJfO3H%;1z7}G4^XgDvK=|8O?BwPHELl$cDb8rg)|~( zYC1X0hq0pa4*t=!bevq=JiJH6#E(fFS5Q<^KBc0nqpPQHU}$vq;w1}9D^NT~CubK| zH<)`sV9@p8kkA{qZpXyN#otLt&-f`bEBjtfZc%YbX<7NB$4_eO>KhuHo;A00A-j8e z`(F0H8W|lMpO}0%g+gN%7C$U4e_UC`ZGGPUvhx-HZTCPfG63?kSm60*$^Il4D<~H^ z1qFnH`amu+^56r(St%%woTOsYzCeA=?~t(EO&azyX@xbNv?B86SPlpOVLDDx1@uwe zfoR_)`@a(``k#{QhhV?SH4RP%JS=xDwdx?c*z_ri2g zn12)!$b<~!K|w)54gRyx)6%p2KNr#rKmiDlPyhpj3{)lvE1(JN6N(a!0snymLK^xH zwmtkGYHiLM>qXU1=ql0kEfS|D4W%_NUngpOvf~PG;AcE|F3IBI^ z{#PmfU9UoDTomynK?9%p#N9^x_NKSfSl~Uc4H++l!rqLkQ}jxSp%d#Yl3wn#j&Q7* z{-x*u`vNUW_6y$+LDJY?4FRHn1i%KriKfHf1t0}?BWe&2C6`G6Du8GtTCj5%+ea+$ zbc1{(*Wyv!+KL?GbzDiqZxUJ7J;Rl3YYJW30EJT*g@Wg@`^R>z=X+;^Q2)n)o_b-s5;3+`A*rLf7P~ z*EyGWSJWRV^=_LC<>);NrvvsZ6SP1lKy+3V-Lay7>7fB1fiJEQEJ%QZYa9vKUZ}7d z;`mI=AOYg07{uNoHBAyw&TrEm^^iQ_*!P2(H2&N0RYNeEJ(}Q+G~1LoY;cfJr!1F>+{@f5NL2+t;hfu%^nCRuQg|zNJS3 zZs%Gyj<__A3A3E9oe{G^X_4PsqQQT=``GFf;1k>7u^A;GG3lwM?1iDPk|O~YIbNS8 zFOMin3!Kg=*f3y6#niLPH=|jUmec@Kj_tNcS9sSjZgAb%OSZEI$Ay$uJ~!qZx4!k! zUJ`68(IP~;)ad;?RB6LgBc{Q0*MJX#4@7g#?JEo9;1%IFbOcL%8LY`(q$ER~x5;n@W2FE8}W&*^J~);i3mnJQwsX)-dDFATH@AqJ`MW0 zPo1oMo!Ia`&WavtZq-8q8c0A~gGo>;y-W>ykOkj|UN8Ny5OT{9`?~HZVM~qsY39hR zn^^9wL@<}`-D?Rd6h|I1E8vzgFq_FOUQIU%Dtqd0=1nfyq25r(e|fCn0srLEkgvkK zI&}H{mG=WuS0mRiSa3f$O(7~c+(J+v)!?5sD9RJ>hBB);gR?5DOa)9iR&npy20{Z_ zR#|hOOs0xQDGllB8t;P%ew|LMOv{6`+TZ~EG?a0~80_w=SrTC1FkW5Ma<}`I(Qt#b zi`EP8fxfco_boEivqALv^7)dBsVKgkXe?D7b_n+La!CI0he>gw$0V{o$2exNloOr&V2f8B`0w)3IRU0D6erLcY_X&v1FYsx4G}A3dxX0r* zEG{CYSSh`oJ$9;Wa>K{r11G9q116j+SKFtdE2d=WYOnQGFkXYP1-Bf#i2YJ1)35Xt*CPk%Q8Yg=5`a0j8+E@s7N=QF5<=P za>XzN%VipNraK>bcl$!RZ^cNXnS z>?B|;&h#O3#j&CU;NNk4BLPMvAfp^-wSOmH5HwLKRZuOfzcD30rVq`7O$egbl&iBe z#9%?J99<9xt*1o9)g!2FLh`Le?jy5pl2D9gbz!a=2zJ$^bB!ZytxM{KU)7&9vyrod zvlldhb9b|wnUUboh!4en?Y3vSSx<$Fh|M7Zw1G`6oF$Jj5ohR|Z9MoYENnk}W1l9k z=cS{0tP?)pWu8opjpV@&MiUR?ZMy{M?p?vdbw@r`)_>EDhANHBvZru;=8AhCrG!Sh zs;@OwGoxLjkKkRg16@!iuT4R-#4eOcN>-Dc@8`s0Y^+CkPDwYNdQ0Vds(K5Q4?&3^ z#BufI^G>LVgC-R1omXxbQqk)_OCOf!VB|PjIsf#wiCS$XGVg0cVuPBTVf>WJzCRg>z%(mAA$Ld78?&q*$2zjMRc48m7q zwdg9SL^NS$WKanrs$!qI7Y3WUPO=W07G0zZ|32$^GJxt+xW=F+#owNYAmHoI@_Yt7Kc=1=!UEv`cw8K^wn`4Kr)OP9%p?EbaQl za}lNE48-& zK8nf0{TtHjvJ~_Y!6oljCPqzM>dJQXTPTYK9CZh_CO?gXA{MMykN~l-k4V6~fUbhw zyDMKdW|fBs&ec=4o%4f-NI;jY-{F|j`=2h@f4h_9IW0jJx-61Ej#FO0Hs6tW1KR0v zf0H%bfH*z6FsUZHWCM4cwhg`Cuto`;EzYv5)bUm6Wu}VK)cN?|$ToqF0>o`KLEOci zD(txy#4Um?7H*C!8D4F9&~p7r%g#*?>7_jBvGi$|@s06fmhJ%-9?>VUUX^E4pReHt z&9I0U&uIt&WyE1khHxE>Pcm=*>0r3m>V7w7>n=;pKV9gY~dB(H2B)Ev*;(N_pQ#}E{qKeoHZ}3t6RUgoh56wZiH-) zhah@3V|bgo=~J2U#hvYvwy3^f?i37aX?%*}=~)hA%D^BeODl5~ zfY6Oq&qkVvT+BlD2#DhgFderBFk+04u2^5T!OM9Wuakh2*`Ht>NbCEASP3?p`eqrr zbklX|$WXle&N=)VSIivRpj$J6*Q*a{B%8lvCt^6viwgBBX;$`eXbR?%Z?$}LL?}ru zTK+?2!n3}Q&VQ?@U!23s_uRqtP1~v_xQ!|&mZ(Mm5!U~Gmd>O5W4QbbjCwFq8D(|5 zVF~*dq57z4%n~J82ccpxO*?T69d%s0k6P%~E$DrF?zn~aOl(t63o;x&5oD*_#amrm zzRJZ5zh!kHvtYftiP=>Y`L@|u=LlQ<@fF$x-BkZ>%E+?GMdf(n$q*m3Zo4=>bRLdk zLU!ddWt)%98aBw%tOn<%Bz@M>tB8C&CSkSde zjS302z2A+xq^cfm*Q@RijwAHOv&3S`# zDB}uBJ*GYPv!p1(mA^%bS-7P*&Ix$xd@f=&`35J?@bGfovZFB@+!fDjEiCqw?S6d4>GV;u)&BqPZ1F zJWc{?kPxB2XC=2@ z*PPo6)fie?t<=$<&UlTQxet32k+`6Kv3plG)~7*}>Z1q7#9_vwYI~=}_=s;XFtFUx zQb=dS7fZ|i@~y$5eFhfV(^6ef5i-y{S7$Pl9p9?`Xl^jbUqg76_uR!R{XxQK27Pv3 zZxvD*Fr65V0b}5TpxLJ*@c3bu(W$rF1!q=eD+bY3Vtpp*TiS8W9;et2Nl>KIXTGHs z&o^4LTlW>DQvmf?kiJzAjbN9OsD!C%6u@pYj+iLW2T-;c980l{ONX(j-bIMiJ^gS; zG#wC7^h?9515gjHO@>cZUu5Hn$46QvV8KTccp5xD zN;zg}DYF~o4ar}11u{}RFg_^cPTYP0!4+${jErQ)-$y40TRoptlet#+bfU7l+L_g3 zf=%OPQD$CaQJoSs9jzKfOR#Y4->_9Y*na*q+eOe}gXrfgm|Dgd#D7sYFv6E&d*K}T zFeF#L#H4Gi-I<9H0u-?pEIfBES2Sxrlyz!lndhF~;$3n{cB&5B3f$-!Y+t8!knF)y zgMgRBL3$%k5@*LzUS5Ix*EdkasZD1OgT|AYm+nZv_Pc$_f{&?dAnq#j81&XGKTiC% z1{+?oD_^cnHKn82ttBYG(EqKIyxsJ4Nq|bgfOn9%-{Kdw+->*8RtQs~&%7y@EzR^!@(2lVs~BXkcGs-S zYI81gM}=2@&9cf$yP~+?JpEHsy36H-oD*lMkEfjHS%3sZ9D<$-_r+&chsgGJFsPk$ zt+K{j8R0AuQa55NBG~$Qj8C<0j~2oBMN+~rbRvz077LnV}0hp}1F6;rU)v}ajdKvu9>xd=my{F^5Gg?&g zP>D!X6dbAHt_FYo%fj!A*MIZ*bYednzk=yt#>;kQp-4b{P_pCM6vp%2wmlDfc9L~2 zw8%3{nkJC3zd6?IlQw)Nule*4ITBNl)N}$bi(x88&z#0^^+MTJFMv0DtzM7h@)E-^ za(1m6sTCi~ALfSC5T4x~kkA#Uj*fh>U)Tujy3A+e+N{Y- zEzTZ^9|hP?zJFyQa#8e&PBTrhpXTvx{=CrOPI#OK8U7-+57|zOcV(b|c-h)k>d*@j z5^#=O^g@tGH~D~Qr%r1@_xT9PF*l%6@KA^?QbS?bJ6w5zQEc?eh!2Z>_qJ|DI* z7h9hk5bX1?PbF-6{}tCd+kpS8CzWW&3!mA#nakY(1Q)&;=XwDjs&NZFNQ-xYbK{@) zm|qdQU#8>7@xbM@VR!bS_jV>f#d6;|CMsFuYH`WI110$Zipn zgUDJpkA*@#5J%gGq=zcb42SZyl7RZhQ8M)NpA^V)LUGFr*-`UQR)P!O$g3#iyo96e zjIjZZ-KOH5o@9LY=(Mqi%NsU%h@|dY3;$^vs`fU-D?W*8MRik?`u#H5NEyVf#rB2^ zg7Kf~ZM|qe$cs-|UChvCRL&apq&R2E)=hh`#T^6w>g|{u&;0A=b(`#q^Dm*8Uqdqg zieCZk1)pRAeymS?cIQNkeFY|!h5kZ>dTgSb_fkW>%dw0rZ2gDN=v%T%Dt$YvnN?MT zLxqU*-m%aThvFzm+(vLuqv)qq5c+wcu3^`BVpT*kM+`qSWywJb-{DlVpz^Pe=M{9q zAt7-uh@5Sp$?sZ1Eq7}i8QToX)3uhAe!#^w;E|-`AkaIrGG3<0xkIjv;Os79pMlg6 zEa-0Wlr6_oTTViaBD{B18fmsGn(@bdX6z%0_zjkDndD4 z9ar`d715Stg;V3YNnh)UaV z!|0t2K_=UextDCl-(cQQ`4r{83iTRZzio&RxgUR4u8__3gHNr;k|v5zZTOUVUR!k5?&q= z(t%m-b`!_y-wgI}#XuQ9&T>Tvc57T~j)_FxP~<-Yuk(>@E+?#9m%IhEg4fgVfSn zC2;Q$=-WNAHZU~RRH@|oS%0vj={h{_)H27e;9uR5T7s6p1dM(S9Q~_)$^I^2h$#50 z7XJvKz)1(5$5$laR?{3u?sU&}A{QQwHjPvD6cC$C7o?k8VRg4s)glf*s8t(TRjLJJ zBqx>W=-BCxu?kAM2|nS#D3gFX%}?kj&@1jY3c3ntXYK6`KbxwdIBus8NZqb`{``!w zJe!f|V!jD*BQ7TS8@BgukexZB_x9BEx34=jG}4<#wc2vQ)Gug zNTLlkt{WONY2%MC?>uC$z?u6ZdrxC$mMAEO5l?3s(U##j7jRr-F6XRVGsotb8TFEK zbR&0Fb4bAt@QtdSi>I@f4(vAAh2I1ngwr_;W%$qh18+n)Kpx=bi{b948n{ z6zvJ}*kL?Bsy!aA?%}W|7m9fF-mbKs&GuW^?WaxmoXjmQ)lft>{SWok|1NzAahC+R zZyvJ$$ck5;w#QkP&zr{O#(WqFNwgb*7zB9L9-iv{YJ52MEp6$`^m$65CqjX9xw~8K z*Y=CT!!VmntFu&C*%*R}cdPuQMe;oGP6NxD0Fz*w&%2{*wW&nzOz)}1)_mh zQIv+-IJo(RcHMCf+mk1R;HXnHgp7hb74|9BjQue86qVAQjIOmb7<&|UW;cQ48 z`EF2aqWuNwXc)>}x@U^zCqG4`1Ub!H!1HCFrzi8U#qu0mBnP-)S-K?{ry;ar{CH~m zZMNkn(RBJmk9(c8>TTT&89K*fh19$&$wW?xMQO?s=zWxtGfZ&QU?-f0$oElzqJFGA zM#?L2Ij)E0on9m=JmctA2Kki@a}wZuIZm);ZprEsV|e2H+`F)ya4a-_vWIi``r}Hw zzHmha6R7o=BA;`+B}0?gEXFm#C^Pm$x}FR5U4Jq}HRzQo_-n=uvcqjg+}dLjL4(ZdlSI0Cy|$Glz5w&hXl+g z_~45Fc=?d|;jx33&=0*dKWgC$h%{v+fLHU6m%uLhKgnp3V6|tBhj&pMrCz{?E!

_0%&o148}P`tt$G*R_9Tm+xt19Lt!s8Ac?aLI5X+4!`) zLKOHFOS%@M$_TdSw30n>cg`mK2tHGai>6k84IP?eec0Jh_#BJ&OW`PuzM^(*5)j)_ zPXdZgtuP{|TO<@>i%;ma4$cra6jzNyP`Cpp9b88=dW@tnyOc#qQVx9q?Il)m;3 zRL$nm9y2QbN)F+nbFb2$2mQX|-c`KMB^*c7txXMX{4Qu%%^I6qVkPI8`nmELD|9nB z%s<>alCS=bf)Od|#p>1c5D-f>eN=_IFxstEbt<=*@*`|TgaFAxBJfCL<6o`>$I z1jBa|*BUmrdsCF1T+Mprn~ivm`|2AMc8Yv-BisIylQ=ZBckY{rhB^s&N(K7Lw?_ThfpVwfW;*uAN*YnW^VuZ(AwNe?5Tmu zQtcoLsy?B^PLR!;-^?KYRe<>SNoarS&-WDjG9yvn-p}XIB3jltDF7thNF692H{PR{ zHt$_HH}=rD!uZ)NPhqA`pQt~1by9hBB`t+OQIwhwT6vuoJGcl&re<5X z)T8cRk9ei5nXLtt&bO!WlP{9xO@`rao2f1OsW6V@XF?7pBtHsgsxNXS+YfHo4!YVtl0*2v!9-(^z7sV;I?ydCz z7qD~dq4UhF1l8yGq(Daaxmf8CyvwNR^Sayayjhipb+6W@NGuxpiEX=lCV!k_-Yw;6 zP!TSJe_j}FZs-1X^!%6tV*t`h0`>&PTW`epRYBtU*H6_KIi*UHqh~-j}@k&&paOS6&uA_yX?nv#KZ2hx;pt zU|^0vX#Gf5#Bq8-I+)xW!8d&FmVWkwYTA8#n1m%@-d`CA#YAbe{Q3wHj5zA`L)Z>5 zXvV81jivk|*c39_qrX^MTHPPn!{1QS6l;up#;tpYm6d@r;H6#Ry|B!17%muzqDtN~ zCXkIOBrBm_ty$ry<7H%BVntJobK>G;S&Zb5QR&kZYC9O3QEMH8tjhA@^L?oB4qv

Ep{*F{ousoqNmkE1i6%!On#?C5J!5Ii@xS+BaMDJ&twd@JbVOTOvgyRnQGwa5yJP>WU1%EZF$_wR$t5}ok#lWMR+{M@UNqa%v+n+;P}+$?uJ zYxi6DOrA9QxD9vn4bVwtzT1cJREw_ zFZhJ{0A;=IEh$85roq_VhiNFhRkx+REVexr^F~E9VbrFssV(LxU|93MxAu{5Y1CD2 zSBj)l9dALNZx68tEV<5kKA%EarR3k@|nuMOCvl(ve-2~K5ZoqiyiBpMGStzY*mxP1vy9U`=9W{3q-x`ZGmDdAeIHIP4W@oVZN7kV zwX1jB88xjLZiTB&YBCus?_4hrD}k1<9$lqY*7R=Qa(HGDGrB#o9mF$kT@tF<|nnEI8AnK8ED8jjw~^|~bc2_4R~ z(sZL!mvk@m&jad`Z!}K9-r$UP3bENSpchgJA0U%AKd|mF+TG&Vx3jKKKad$~%+2dC zG3dpTayln~@0plb@?B1MU}xQU=P5pnD~iCnFvzf?I+-wvVSK-1W1m-QUA!u-UUG3D zuvS~`>1`$OJbjD-@@zlXFuE(YuXEl` z3E!1F@$xN=qG^{s12!%y&@fza-ivJjiPCEpJ8hydd-^g4<23qSqhflLPIB`6aAjmHROWogh8l zWzKT!%UXo+TWM391a6;=tXakU4N2cF_I$19C6|%U^!(4ndOC_L)!QA?$Ihm?f_`wO zceX1x>iv1{*lVI`!gb_GKZ^N$Q?<$B;otJPFOCJSYhE7Rs86<^keufGm`|S= zI_#X_R%(to9RH$1QsT%@(KM$N(=>0jiumU$SgGct?z3iRvZe5Kou3*wc?)(t=B1^rx<0hvr;jNPEfskf|$S zzLI#HAUhWHn4nmWN9wnXuX}Tj*q&;j4{lERfaHk5Sjp6$uWt&qCQ-Htj^`v=qso2XAmr6GoIi=e4P zl+NAC#~#~n=r>rV0C54 zU5>ARZai~_`u_QbXYJ9mc3Mw3Et;67OQe$+Z?vdkm--r7cFqhH|zN|rmZH`^vYoq z%1_(6xww>lk?c>4XnA#muU019K6%v;h(0g*s$C=!%rK#itj$vo`fG}s7)H)s%6n1{<_mycr$=5J(i`iT=k=K`(au&Wx>sL* zL>~Dmg+}DAflX%%F8j8WS3}sqjDPR!9CF#aR5bgf@a6PGF`3IxS^1NyJ}-O_+7^yd zJuAuP!-n^tUGel*v^A`@A2I%Nr#$(}RQDw#U-riE5}Cq+jcBBJnsq)4js!#zg{B4{ z;pw|`eeQU9Ih`0#$_Zs$^n0mVTrY#RefMC9+D^|ek_VrL-R#YcEiA#G?oqXDizsQF z9tflVC{x<#xo}AI{2QJ@?yHiw@bb7mZF~h5`C^VGNZSitF(+WlQ(51SU^BAUdvAZt zI!i1k)5>p}TgYGk807u`%|{IfQJ;S>_5Iyv*bvMnN)XA*oT%vr`g2Fm;f^M$X8v>| zE`CE}&^J-aM3ncUnqJyXYR8zMm*}4airSUNiTojaNGQl}2L zMyzg6sj6H}!V~}6FjX|^(d}b0c)^p1sVB!E*ab{XW)&h8?l#C6ei>JN3!QhdNA>m_ z*tI8kOA`;<@p_n4VG44ObKYI4%rYrDt%t!0shaIVy|K@O-9$&smg9^Ul3(xO*5Iu5 zrquZJ1IFWu^dS=){O4AGS2>pS>eItoSBez<8<>Z! z^|8daVSLH67TsQa>n{4J1!{&8xd#F?LMdZp_>PAmiSv{M!CKc_t*qty_xolK;h1t< zE4n;Io7zS{5Z^TO-d0UYWn0g+En#lBA6Qu>ykTY%nt!u!W)^R2frnu><9Rh=a7u8# z{s6z?9yC`Q?#_5ht!qO^G1QZGVx=>F<6LO>Nt4K&MWXNsD*eb5DfZf{|oa z{A}Ngx1(-KyssO5I7*RP6I~dX*ZQ^mjSx)Qh>DD;f8m|e4>l2H*TqPHvfEseci*Y) zH$bFJZ<)dJ(Zx-nmJ?TEOuM%woIe ziGp*6SRse;UWzogYgbim+*S@*!*1SE$N;yv58g0nw$6Us3#ABIy8E?-arx6arh_Y_ zP8(|)V>?ewb1hkIml#f|DJgpr-qd!J-rmN*D@eNIuEo@ybOk5-dE!#72#1T=*~8HW zI!R8ERB^g#*IyQ93(Y4b-AdaXqF!W1n#Kw6w~cGMz?s+5nK|&@3*7>z#_I8#_3%&6 zp>++dqtlhD;gej>(vBHlvx*E}no2iTQ(nSN124XfO5iF{Nue-coNW?n_R#2^@VQ; z6g~S;)~vQ3cmhoJ6{Y?Qw<<^O6Ngf#X4 E0n$V$