ࡱ> QSPZ[ Hbjbj 4ΐΐ@  ]]]qqqqdq4neeeeDDD4444444N684]D@DDD4  ee4,,,D 8e]e4,D4,,V2@Ec3eChwq 2 o44042xt9p+t9c3t9]c3 DD,DDDDD44,DDD4DDDDt9DDDDDDDDD : Assignment 1: Introduction to R This assignment is an opportunity to try the R statistical package and to start to learn some of its behaviors and options. Text like this will be general comments. Text like this will be my commands to R, the R prompt is a "greater than" sign (>). Text like this will be output from R in my examples. Text like this will be problems for you to do and turn in. (There are 7 in all.) You will need to do this (and most other) assignments on a computer with R installed. Most of the campus computer labs should have R already installed, but you can install it to a computer (Windows, Mac OS X, Linux) by going to the "Comprehensive R Archive Network" (CRAN) website:  HYPERLINK "http://cran.us.r-project.org/" http://cran.us.r-project.org/. There are links to download pages for each of the above operating systems at the top of the main CRAN page. Windows users should select the base package and then download a file with a name like R-2.x.1-win32.exe. Running this file after you download it should install R. Mac users want a file named something like R-2.x.1.dmg. Linux users will have to find a similar file under the appropriate flavor of Linux. Please note, these instructions will be written for a Windows system. While you may use Mac OS X or Linux, there may be some differences that you will be responsible for handling. Once R is installed, start it from the desktop icon or the StartPrograms menu. You will also need to open a word processor program such as Word. Be sure to put your name at the top of your assignment. 0. Assignment and basics Assignment to an object name may be done using 1) an equals sign =, 2) a "left arrow" <- (less than, hyphen), or 3) a "right arrow" -> (hyphen, greater than). You can type the name of any object to look at that object. > n <- 15 > n [1] 15 > a = 12 > a [1] 12 > 24 -> z > z [1] 24 Variables must start with a letter, but may also contain numbers and periods. R is case sensitive. > N <- 26.42 > N [1] 26.42 > n [1] 15 To see a list of your objects, use ls( ). The ( ) is required, even though there are no arguments. > ls() [1] "a" "n" "N" "z" Use rm to delete objects you no longer need. > rm(n) > ls() [1] "a" "N" "z" You may see online help about a function using the help command or a question mark. > ?ls > help(rm) Several commands are available to help find a command whose name you don't know. Note that anything after a pound sign (#) is a comment and will not have any effect on R. > apropos(help) # "help" in name [1] ".helpForCall" "help" "help.search" "help.start" [5] "link.html.help" > help.search("help") # "help" in name or summary; note quotes! > help.start() # also remember the R Commands web page (link on # class page) Other data types are available. You do not need to declare these; they will be assigned automatically. > name <- "Mike" # Character data > name [1] "Mike" > q1 <- TRUE # Logical data > q1 [1] TRUE > q2 <- F > q2 [1] FALSE 1. Simple calculation R may be used for simple calculation, using the standard arithmetic symbols +, -, *, /, as well as parentheses and ^ (exponentiation). > a <- 12+14 > a [1] 26 > 3*5 [1] 15 > (20-4)/2 [1] 8 > 7^2 [1] 49 Standard mathematical functions are available. > exp(2) [1] 7.389056 > log(10) # Natural log [1] 2.302585 > log10(10) # Base 10 [1] 1 > log2(64) # Base 2 [1] 6 > pi [1] 3.141593 > cos(pi) [1] -1 > sqrt(100) [1] 10 Problem 1: Use R as a calculator to compute the following values. After you do so, cut and paste your input and output from R to Word. Add numbering in Word to identify each part of each problem. (Do this for every problem from now on.) 27(38-17) ln(147) EMBED Equation.3   EMBED Equation.3  2. Vectors Vectors may be created using the c command, separating your elements with commas. > a <- c(1, 7, 32, 16) > a [1] 1 7 32 16 Sequences of integers may be created using a colon (:). > b <- 1:10 > b [1] 1 2 3 4 5 6 7 8 9 10 > c <- 20:15 > c [1] 20 19 18 17 16 15 Other regular vectors may be created using the seq (sequence) and rep (repeat) commands. > d <- seq(1, 5, by=0.5) > d [1] 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 > e <- seq(0, 10, length=5) > e [1] 0.0 2.5 5.0 7.5 10.0 > f <- rep(0, 5) > f [1] 0 0 0 0 0 > g <- rep(1:3, 4) > g [1] 1 2 3 1 2 3 1 2 3 1 2 3 > h <- rep(4:6, 1:3) > h [1] 4 5 5 6 6 6 Random vectors can be created with a set of functions that start with r, such as rnorm (normal) or runif (uniform). > x <- rnorm(5) # Standard normal random variables > x [1] -1.4086632 0.3085322 0.3081487 0.2317044 -0.6424644 > y <- rnorm(7, 10, 3) # Normal r.v.s with mu = 10, sigma = 3 > y [1] 10.407509 13.000935 8.438786 8.892890 12.022136 9.817101 9.330355 > z <- runif(10) # Uniform(0, 1) random variables > z [1] 0.925665659 0.786650785 0.417698083 0.619715904 0.768478685 0.676038428 [7] 0.050055548 0.727041628 0.008758944 0.956625536 If a vector is passed to an arithmetic calculation, it will be computed element-by-element. > c(1, 2, 3) + c(4, 5, 6) [1] 5 7 9 If the vectors involved are of different lengths, the shorter one will be repeated until it is the same length as the longer. > c(1, 2, 3, 4) + c(10, 20) [1] 11 22 13 24 > c(1, 2, 3) + c(10, 20) [1] 11 22 13 Warning message: longer object length is not a multiple of shorter object length in: c(1, 2, 3) + c(10, 20) Basic mathematical functions will apply element-by-element. > sqrt(c(100, 225, 400)) [1] 10 15 20 To select subsets of a vector, use square brackets ([ ]). > d [1] 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 > d[3] [1] 2 > d[5:7] [1] 3.0 3.5 4.0 A logical vector in the brackets will return the TRUE elements. > d > 2.8 [1] FALSE FALSE FALSE FALSE TRUE TRUE TRUE TRUE TRUE > d[d > 2.8] [1] 3.0 3.5 4.0 4.5 5.0 The number of elements in a vector can be found with the length command. > length(d) [1] 9 > length(d[d > 2.8]) [1] 5 Problem 2: Create the following vectors in R. a = (5, 10, 15, 20, ..., 160) b = (87, 86, 85, ..., 56) Use vector arithmetic to multiply these vectors and call the result d. Select subsets of d to identify the following. What are the 19th, 20th, and 21st elements of d? What are all of the elements of d which are less than 2000? How many elements of d are greater than 6000? 3. Simple statistics There are a variety of mathematical and statistical summaries which can be computed from a vector. > 1:4 [1] 1 2 3 4 > sum(1:4) [1] 10 > prod(1:4) # product [1] 24 > max(1:10) [1] 10 > min(1:10) [1] 1 > range(1:10) [1] 1 10 > X <- rnorm(10) > X [1] 0.2993040 -1.1337012 -0.9095197 -0.7406619 -1.1783715 0.7052832 [7] 0.4288495 -0.8321391 1.1202479 -0.9507774 > mean(X) [1] -0.3191486 > sort(X) [1] -1.1783715 -1.1337012 -0.9507774 -0.9095197 -0.8321391 -0.7406619 [7] 0.2993040 0.4288495 0.7052832 1.1202479 > median(X) [1] -0.7864005 > var(X) [1] 0.739266 > sd(X) [1] 0.8598058 Problem 3: Using d from problem 2, use R to compute the following statistics of d: sum median standard deviation 4. Matrices Matrices can be created with the matrix command, specifying all elements (column-by-column) as well as the number of rows and number of columns. > A <- matrix(1:12, nr=3, nc=4) > A [,1] [,2] [,3] [,4] [1,] 1 4 7 10 [2,] 2 5 8 11 [3,] 3 6 9 12 You may also specify the rows (or columns) as vectors, and then combine them into a matrix using the rbind (cbind) command. > a <- c(1,2,3) > a [1] 1 2 3 > b <- c(10, 20, 30) > b [1] 10 20 30 > c <- c(100, 200, 300) > c [1] 100 200 300 > d <- c(1000, 2000, 3000) > d [1] 1000 2000 3000 > B <- rbind(a, b, c, d) > B [,1] [,2] [,3] a 1 2 3 b 10 20 30 c 100 200 300 d 1000 2000 3000 > C <- cbind(a, b, c, d) > C a b c d [1,] 1 10 100 1000 [2,] 2 20 200 2000 [3,] 3 30 300 3000 To select a subset of a matrix, use the square brackets and specify rows before the comma, and columns after. > C[1:2,] a b c d [1,] 1 10 100 1000 [2,] 2 20 200 2000 > C[,c(1,3)] a c [1,] 1 100 [2,] 2 200 [3,] 3 300 > C[1:2,c(1,3)] a c [1,] 1 100 [2,] 2 200 Matrix multiplication is performed with the operator %*%. Remember that order matters! > B%*%C a b c d a 14 140 1400 1.4e+04 b 140 1400 14000 1.4e+05 c 1400 14000 140000 1.4e+06 d 14000 140000 1400000 1.4e+07 > C%*%B [,1] [,2] [,3] [1,] 1010101 2020202 3030303 [2,] 2020202 4040404 6060606 [3,] 3030303 6060606 9090909 You may apply a summary function to the rows or columns of a matrix using the apply function. > C a b c d [1,] 1 10 100 1000 [2,] 2 20 200 2000 [3,] 3 30 300 3000 > sum(C) [1] 6666 > apply(C, 1, sum) # sums of rows [1] 1111 2222 3333 > apply(C, 2, sum) # sums of columns a b c d 6 60 600 6000 Problem 4: Use R to create the following two matrices and do the indicated matrix multiplication.  EMBED Equation.3  What is the resulting matrix? 4.5 Mixed modes and data frames All elements of a matrix must be the same mode (numeric, character, logical, etc.). If you try to put different modes in a matrix, all elements will be coerced to the most general usually character. > Name <- c("Bob", "Bill", "Betty") > Test1 <- c(80, 95, 92) > Test2 <- c(40, 87, 90) > grades <- cbind(Name, Test1, Test2) > grades Name Test1 Test2 [1,] "Bob" "80" "40" [2,] "Bill" "95" "87" [3,] "Betty" "92" "90" The solution is another complex object called a data frame. The data frame views rows as cases and columns as variables. All elements in a column must be the same mode, but different columns may be different modes. > grades.df <- data.frame(Name, Test1, Test2) > grades.df Name Test1 Test2 1 Bob 80 40 2 Bill 95 87 3 Betty 92 90 Summary functions applied to a data frame will be applied to each column. > mean(grades.df) Name Test1 Test2 NA 89.00000 72.33333 Warning message: argument is not numeric or logical: returning NA in: mean.default(X[[1]], ...) > mean(grades.df[,2:3]) Test1 Test2 89.00000 72.33333 Note: as similar as matrices and data frames appear, R considers them to be quite different. Many functions will work on one or the other, but not both. You can convert from one to the other using as.matrix or as.data.frame. > C.df <- data.frame(a,b,c,d) > C.df a b c d 1 1 10 100 1000 2 2 20 200 2000 3 3 30 300 3000 > C.df%*%B Error in C.df %*% B : requires numeric matrix/vector arguments > as.matrix(C.df)%*%B [,1] [,2] [,3] 1 1010101 2020202 3030303 2 2020202 4040404 6060606 3 3030303 6060606 9090909 > C a b c d [1,] 1 10 100 1000 [2,] 2 20 200 2000 [3,] 3 30 300 3000 > mean(C) [1] 555.5 > mean(as.data.frame(C)) a b c d 2 20 200 2000 5. Data Import Text Files Data files should most easily be set up as text files with rows as cases and columns as variables. Datasets for this course will be found in this format on the course web site. Save them to a text file and use read.table to read them into R as data frames. This will require a complete path to the file's location. The easiest way to find this is to select "Source R Code" from the file menu in R and browse to the desired file. You will get an error message, but use the up arrow or cut and paste to change the source command to read.table. > iris<-read.table("C:\\...\\Iris.txt",header=T) > iris Species SepalLength SepalWidth PetalLength PetalWidth 1 1 5.1 3.5 1.4 0.2 2 1 4.9 3.0 1.4 0.2 3 1 4.7 3.2 1.3 0.2 4 1 4.6 3.1 1.5 0.2 5 1 5.0 3.6 1.4 0.2 6 1 5.4 3.9 1.7 0.4 : : : : : : : : : : : : : : : : : : 149 3 6.2 3.4 5.4 2.3 150 3 5.9 3.0 5.1 1.8 > mean(iris) Species SepalLength SepalWidth PetalLength PetalWidth 2.000000 5.843333 3.057333 3.758000 1.199333 Other possible file format includes: >iris<-read.table("C:\\Teaching_Advising\\sta519---Multivariate Statistics\\08 Spring\\Data\\IRIS.csv",header=T,sep=",) Or in a handy manner: > iris=read.table('clipboard') # Copy and paste Problem 5: The dataset RADIOLOGY may be found on the web page. This dataset (from problem 3.5 in your book), contains hospital information for 31 months: visits to radiology, patient-days, ER visits, and clinic visits. Save this file and use read.table to import it into R. What are the means and standard deviations of the four data variables (excluding month)? 6. Graphics R has functions to automatically plot many standard statistical graphics. Histograms and boxplots may be generated with hist and boxplot, respectively. Once you have a graphic you're happy with, you can copy the entire thing. Make sure that the graphics window is the active (selected) window, and select "Copy to clipboard as bitmap" from the file menu. You can then paste your figure into Word and resize to taste. > hist(iris$PetalLength) > > hist(iris[,4])# alternative specification   > boxplot(iris$PetalLength) > boxplot(PetalLength~Species, data=iris) # Formula description, # side-by-side boxplots  Problem 6: From the radiology data, examine the histograms and boxplots of clinic visits and radiology visits. (Note: these will be two separate boxplots, not a single side-by-side boxplot as above.) 7. Scatterplots and simple linear regression Scatterplots may be produced by using the plot command. For separate vectors, the form is plot(x, y). For columns in a dataframe, the form is plot(yvar ~ xvar, data=dataframe). > plot(iris$PetalLength, iris$PetalWidth) > plot(PetalWidth~PetalLength, data=iris)  Linear regression is done with the lm command, with a form similar to the second version of the scatterplot command. > PetalReg <- lm(PetalWidth~PetalLength, data=iris) > summary(PetalReg) Call: lm(formula = PetalWidth ~ PetalLength, data = iris) Residuals: Min 1Q Median 3Q Max -0.56515 -0.12358 -0.01898 0.13288 0.64272 Coefficients: Estimate Std. Error t value Pr(>|t|) (Intercept) -0.363076 0.039762 -9.131 4.7e-16 *** PetalLength 0.415755 0.009582 43.387 < 2e-16 *** --- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 Residual standard error: 0.2065 on 148 degrees of freedom Multiple R-Squared: 0.9271, Adjusted R-squared: 0.9266 F-statistic: 1882 on 1 and 148 DF, p-value: < 2.2e-16 > abline(PetalReg) # add the regression line to the plot  Problem 7: From the radiology data, construct a scatterplot of clinic visits (x) versus radiology visits (y). Perform the simple linear regression of radiology visits on clinic visits and add the regression line to the plot. Briefly comment on the fit. Check out some misc R commands (always use bold Courier New font for your R commands in your homework) like: > ls.str(); ls.str; ?ls.str > ls() > getwd() > setwd() > dir() > search() > searchpaths() > attach() > detach() > history() > save.history() > save.image() > demo() > demo(package = .packages(all.available = TRUE)) > help.search() > help.search("linear models") > help.search(keyword = "hplot") > help(library=car) > library() > demo() > demo(package = .packages(all.available = TRUE)) In addition to the standard packages listed in the search, > search() ".GlobalEnv" "package:stats" "package:graphics" "package:grDevices" "package:utils" "package:datasets" "package:methods" "Autoloads" "package:base" you also need the following for this course: graphics lattice scatterplot3d rgl MASS cluster sem rpart randomForest TeachingDemos ellipse HYPERLINK "Descriptions/kohonen.html"kohonen HYPERLINK "Descriptions/mclust.html"mclust HYPERLINK "Descriptions/mvtnorm.html"mvtnorm HYPERLINK "Descriptions/mvtnormpcs.html"mvtnormpcs HYPERLINK "Descriptions/neural.html"neural HYPERLINK "Descriptions/tree.html"tree mva graphics lattice scatterplot3d HYPERLINK "Descriptions/amap.html"amap HYPERLINK "Descriptions/AMORE.html"AMORE ade4 nnet car ca vcd     T U   T U -;BNWel]f{2^W̓h5CJOJQJ\^Jy(hCJOJQJ^Jh@ h0Jjh>*U h>*jh>*U h5\hCJOJQJ^Jhb5CJOJQJ\^Jh5CJOJQJ\^Jh hCJ(3 !  T U ~  h i 56OP,-7;BK$a$KOWael\]fz{%&112H]^VWzq p^p`r#9?SY^ku|#>P?[ڸڜjTh5EHU\jJFI hCJUVaJjh5EHU\jrIFI hCJUVaJjh5U\h5H*\ h5\hh5CJOJQJ\^JhCJOJQJ^J8qr#9?SY^ku|"#:>NOP>?X\h^h & F\15EF-.lp5E-pstu;{ 0q{%17LSA C G I Q S K!Q!^!i!p!!!!!!!!!!["f"u"""###+#h5H*\ hCJ h5\hCJOJQJ^JhhCJOJQJ^Jh5CJOJQJ\^JL>sttu=>z{  /0pq{$%17LRS2 c  & F J!K!Q!]!^!i!p!q!!!!!!!!!!!!!*"["\"f"u"u"v"""""####+#,#4#B#C##############Y$ & F+#4#C##Y$~$$`%s%~%%%%%%&&v&&&P'Z'''''(](e() )~))).*7*A*c*w***.+/+B+C+D+E+d+P,,9-.M....4/////001)1h1~1hCJOJQJ^Jjth5EHU\j^FI hCJUVaJjh5U\h h5\hCJOJQJ^Jh5CJOJQJ\^JBY$Z$z$~$$$$$$_%`%p%t%~%%%%%%%%%&&& &1&B&S&d&d&u&v&&&&&&&&O'P'Z'm''''''''''''''''''((\(](e((((()) )&)C)`)})~)))))**-*.*7*@*A*c*c*v*w*****.+F+d+++O,P,t,,,,,,,-!-9-:-..B.N.$a$N.b.v......./4/E///////000000 111)1h1~1~111111112$27282B2L2M2f2{2222233445 5E555~11182B2M2f22444 56677777F8G8H8m8n88880929:T<<<<<<<"=#=$=žyh jK`h h@I3UmHnHu j4h h@I3UmHnHu j%h h@I3UmHnHu h5\hB)hB)5CJOJQJ^JhB)CJOJQJ^J hB)hB)hB)hOJQJ^Jh4 5CJOJQJ\^Jhh5CJOJQJ\^JhCJOJQJ^J'55-6g6667L77777 8G8H8m8n88888091929F:G::::::G;H;S<T<m<p<<<<<<<<<<<<<<<< =#=&='===> ^`$=%='==>'?(?)?*???3BlBmBoCpCqCrCsCCCCCCCCCCCijէՕ䎉|totojoYHoj!h<hAd5>*OJQJ\^J!h<h<5>*OJQJ\^J h<\ hAd\h29 h29 \h29 hu\ hu\ h29 \ h29 5\#jh@I3h@I35UmHnHuhCJOJQJ^J jh h@I3UmHnHu jͱh h@I3UmHnHuh5CJOJQJ\^J h5\h j h h@I3UmHnHu>>>>>'?(?+?,???????%@&@1@_@@@@@A>ABAAAAAA2B3BlBnBoBoCpCqCrCsCCCCDDD!D,D,#L&,@bίt6O?4G53K0b~"Qvcذ]2%Ǹ˶@&w0TJ#hdiji?~5zd N~c䙴lѕ>Qm[B?EGSP9MsK*ྶkQ~| r?HW28OI? r-SnDrJfkļZ:HK 6TZ%sJ=o)3Rp1"#yoSqi`it= zçLQ %NN<"}2rSf//r䋆gn<2&3ߧV\v`GwL,DN_!'(x"=hTb"FN?2Trbo~Eq@3 oݻa,O8 vSUo%.c^Ww1G^17'ze{kX+~EҖ;mK7SVg}27p)|<}),!U}})mkl)D_kc8_rP{_(<\@Chf+L?4R>|9s||9Oֵ|r!|_ >"%ql/aY2{ƢX cS}?M4 1[6媰wyNVRxa{beNOIc^rZ`;@m,xG6h\ng\VDB&0 h4Z)V?KZ2K(Ca tުcz .!HrdKV VO[L'k;2!a):@M AM}sutOܭU(!h1kb"qi 3C+OYBϋ,=WZFZ F !QkI&嘥*Lw2ોv}F--F⺾9@y)}'ۧ2 `1ecRp~#/ϧ?@ABCDEFGIJKLMNO[RUWVXY\]^_`abcdefghijklmnopqrstuvwxyz{|}~Root Entry FChwT Data H9\WordDocument4ObjectPool hwChw_1229343090FhwhwOle CompObjfObjInfo  !"#$%&'()*+,-./02 FMicrosoft Equation 3.0 DS Equation Equation.39qԍ  FMicrosoft Equation 3.0 DS Equation Equation.39qEquation Native #_1229343384 FhwhwOle CompObj fObjInfo Equation Native  K_1229348508FhwhwOle  /Hv  43612  FMicrosoft Equation 3.0 DS Equation Equation.39qXq 7CompObj fObjInfoEquation Native 1Table99122413[]171219281320391421[]Oh+'0`    ( 4@HPX Assignment 1: Introduction to R minnotteNorm5A! #\ a\'1*WuVTZE}zo=|TG$gA¸d-O H} Ҳ_~`z}l~ufj p2pտh @ ѦcBcfQT @#ONt @ @{ԣ?JeL @@ZC0oW?`QrF)pKwV @ pt`]K @@4Կei# @ CnEd$) @@`xddA¨X,>H֜@Gc\ TkL4uqPDB&]7\k 7Z__H<^O0 p .O  @@@=~=AJC,g=4 p,p̿0 q{ 8YN$pp{U')V @!( @y<7g @~` U,8C0! 2! @<2X}6 `A$΀  @@!XAQ ! @ Ǎ$ Z)M] 'v] G!x @4] @@ϛ !HuhIMr+V ,A2  @@??2 @s *ۿes٬%pt`c}!@C @?E@7 ; 桪!@ !zn " 0|yd-j @@S+"@? |iÿ  @@ G p7CZH  @@&QsLj9 @ G@C Й CGXt~KpqZ ҟ@F h4/<͂v.) a\'>, UsV䃉k+%@GexMIe @#݆) / VpѱR ;?u8߇X&x=ɵ @]uCb!@~@dxi"K(!x`-4jF?8.) a\'>,8^HCf#2H^&+qKau>pb"3 p!to D @=6l Z@C:=#@hq6 -! @{48N @={BB hBGp @ =f!@4#8 pg @G@CpY @@h A#!, @ tzGl Z@C:=#@hq6 -! @{48N @={BB hBGp @ =f!@4#8 pg @G@CpY @@h A#!, @ tzGl Z@C:=#@hq6 -! @{^:#\!K9?Hgr@I|Q:8{̘)k,P0 x Ba=2xN h GC @  @h !P @ `2 @4jp@  @ @ீ= @5@xd @{ 0 T @  @!P @Gj@  @M  @5@xd @ݓuvEGS0v9PGɲhDx]4gşIa\ j#B М~pI#`_rIf62xZƭ|(  @ @>~  p@G6_A6Qߜ  @uMC'X&@ im @ rvFn?)7e4 @ @`X|R# p@` >~ݷz3 @@͆L |= @@ J\(jCp! @: MNC0mL݀'V @ @@OA H P]rCP} @! @ ;  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY@CP9'@4  PY~+p .Pb+ev !4~ x`a\ j#B UyKJA/ @""%@m hʗh  @@ AV @4mK @A  @@[%Z PD@CPՠ @- A[-("!(jP Ж| ֬>|)DH>IEΨW[0Z$kAZCh%k;D#Bbr- K^md0 ) @7 Ao !!@s M@C[Fdh2МBzQ!@ 4 @4ez @@ ) @7 Ao !!@s M@C[Fdh2МBzQ!@ 4 @4ez @@ ) @7 Ao !!@s M@C[Fdh2МBzQ!@ 4 @4ez @@ ) @7 Ao !!@s M@C[Fdh2МBzQ!@ 4 @4ez @@ ) @7 Ao !!@s M@C[Fdh2МBzQ!@qZS^+:?%8X2$%BmDaȦ0V/9wg/S=| OBPb*DR8y$  @@h  @ऀ$  @@h  @ऀ$  @@h  @ऀ$  @@h  @@͆`_'t @Wj Z|N'@ i?bs֓  @Q:gn'~{E-ea @ Kҝ+j!\ @{:  |=}V,,PȽ `9[#@j6dX @W: ~ @@Q AQ^ @64mI @(  @@6$J PT@CP @  Ay%(*!(kp І<58hC@CFDI h!!h#O$@E4Ey N'Q @]t^,`)EVC.!h(_44f  ch6<2(}I5>h@@C@HJ hJ 4 !h IB$@4O4$! @'@ $D PZ'@ hH  @@i Aia @4 $I @  @@$D PZ@CPZ @ AI"(-!(-l| Ѐ$ 6>h@2X'bdpiw\2Y앲|L,// Jm22%ꩠg?il{-ˤd;^&{yjGG& r: o *>v8%!?4"d|  ɕo2VW 8-։VGx毌;F9{G8=-SՋmx1io 1k_PMЁtm7&+FiMMa= <ݏJ%g4>E|d>uEnE747b75n`~ TJ|^>{[q5CJq[!.]G|)['SιW^4ڪ޽h}RZ/O~/4y╢0V?=dڋF* @@( BC0 @Y  @@( Atq7+%! @::f%@4! PG@CPݬ @ T:Ch긛J` @@ Aw @PP #!nV J@C*!@u4uJB hBC0 @Y  @@( Atq7+%!Fz]3Qx~?fJ p!{Iժ<ڗazʤo(!W x񞯋ת99%HH> h;E},/0Nq8##0OTs)!xfޭ a#kt]^g S2Wow9lܞr퐌Bc Aɵ' o川>Ćc<ɰfM hJ` 󝀃Kro8W|_S8q@k=F&??X>:RfYs.XRv )8'pޥzG]y4d̲=zP# 0:qƮ"n8/īWVS^{NFXM=grhj2[(%ТŬ 4KȠTZRnz*h%qlNR&`8x>8 &PL@CP @ ɕH  @@1 A1Z @v4J @  @@;vr%R PL@CP @ A;)(&!(Fk` Ў\50hG@CNDJ h#!h'W"%@4h L+ @bb&@6=cIENDB`+DdP(A(j   FA ?Picture 5b*n$M wb*4n*n$M wbPNG  IHDRksBIT3 sRGB*PIDATx^킪8=eT #_gzm=}'@   @, @=@l* @@ @w `@ @ @%`SF @=@C @Kz@ @/ 5  @=@X2 @=zx T @@ @ @ @! @KB@z|>9 "x{XzMa}c] .+oCV7/ Cߥ +0<`ߙídswd u/[!u#qAʲ)K~_?.4>?ft< ۼ&/W Xuq..d~y_ ]ft;'A) ߯~xFnJern ZFD.Ax)%ׇ T90@&V.i &-Hr#ų!*.A ( <dW @@@P! @ @G $!@6? P  y. d @C @@v {͏HB +l~ @@@ (@ ]@ ^a#@A @A ( <dW @@@P! @ @G $!@6? P  y. d @C @@v {͏HB +l~ @@@ (@ ]@ ^a#@A @A ( <dW @@@P! @ @G $!@6? P  y. d @,x؍x ~!$h/SdedMf: _M Y k @ &$@Ţ&={ @ @@0@|(0{Ő @ @@U|AbqS#@ZD) ܳfM% h @@  @@ @M@z! @@ @w `@ @! @@ @w `@ @ @%`SF @=@C @Kz@ @/ 5  @=@X2 @=zx T @@ @ @ @! @KB@zp@ @  ` @^6j @@  @;zd @{ P# @ @! @%=@C @M  @, @=@l* @@ @w `@ @ @%`SF @=@C @Kz@ @/ 5  @=@X2 @=zx T @@ @ @ @! @KB@zp@ @  ` @^6j @@  @;zd @{ P# @ @! @%=@C @M  @, @=@l* @@ @w `@ @ @%`SF @=@C @Kz@ @/ 5  @=@X2 @=zx |Tx}Q"@ 5<__c, Hw1Hwns'@;~dpn0Gcx/j0=~N%?1G %0iΌ>>=+Q?!5 2C$ak-3j(]cͥ  @?eUXng#@16/Z8YE"@;֖ o?yI @JvxƸO=Zk9' ",LO8ԁ @W m*mo0qe?xHND([> |h`}QB:hGL50%@k}@w !sq|A05<ӾѬ|>μdAѰ5]:@4Mbl 4[25Szm5 @@f`Dc2b$ @n>(ō{(^!@[ lFeB(#@ !~^&8NHJ!Xy J1 @X`Fc3t6 @`]`-LoOq+T$ULiL$fIqZ @N@ ssH%탉|rx  v` 8Ƿd@dl @@{ @@ku\X40 pSmh@b Z`ےO*L &Gd @ @&G6o* ֣ @@O6J=X  @@%b*$@y6/@`f p_%Ao̿s_63'@9o6 @{ G  @@qu`Q蝇XC0f4̈ ? e@'`A,#LÉo> @p7Cz(1 @LT Ld5 P# Ԩ9$XcVaG'?!8Aq\$@3 %Q1A 0~|mg8 㐹8I> i 3#LtZ)*.l @Ml*IM | >H @X2X?c @&kwpϛИ&= @@`E@ @ C "ܰ-L&;M|  @ ݔ  @R@  @7z}C*0ҟ1o8|OCf$,9$8K~]0KO' F @e@ ߿lp.D\#`S5ήBB cp @gW!@18 p@p @AF@ U @@h ty \# \* @ @<Gqv Z@ ]#@8 - . @kk]B @55ήBB cp @gW!@18 p@p @AF@ U @@h ty \# \* @ @<Gqv Z@ ]#@8 - . @kk]B @55ήBB cp @gW!@18 p|^skx32agIu~g @=@C @Kz@ @/ 5  @=@X2 @=zx T @@ @ @ @ . @m01|Jc @:f`+ @/`O |= @@L5HT @@@jC\&&#ve.D chd ` @`hL  @@sƁ h@  @D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @A< D1 @x^;g8dBqcʓDckyս/ q%?%aӀ=0aLya %`=;g80挃!O7"aa,&s?|V\C732A[#Ec(~h|d @ @@v ;N2h @`@ @ @@v ;N2h @`@@0|ǯSr8 UY ?TWϩݪ @S6`#6 tOM [??swyYV6ltz WH/f`}QU1A p@;$ݜr9 p@@pҔ*f`(=8U@ 8  @@Au2J p@p* @>>d @TT^''@}}(  @NNQ @SSy! Q'$@ :9C@ NFINNur Ї@G*x>^?l SY`BC ~g?h̅iL(4Ʒ>zްdpK @d @lla'@  @O::(! @t =  @- @""8[@ 8[  @@AE2D p@p @d @lla'@  @O::(! @t o,x0k28L4糃^>s3eYn&c7F/_/#c!ozBs{LY9NF ?~[ tʷ`Ln 덕W 8=@OKk2|$}q+&8UqxCh^S >~Vͭ/loӗ8hx{`@p $NxOxd=]4l_ۏN)2 _k@]:.Ew1 bwu)i`Zng v^>{ҝ CgZ#T }ΣV>_''ss_g^,߼1hսF 27b|&7w?[X&0o1![p7a%D&.J.^Ri_@ 迆f@`ni `0ߴ@0_\t/a<<##5@/[ z1fYw&_ "Щ@i @h[B|e7 JZ@AU3f *̓ĴoA UA.0vŭ[ p@p1F )8B@ 8B9dX!+ܐtGmAzG!s&@=[+Qpla'@CA @(ibcC! |A,``3 @@> _M͈l69Ԍ @f`3 @@> _M͈l69Ԍ @f`3 @@> _M͈l69Ԍ @f`3 @@> _M͈l69Ԍ @f*(IENDB`'DdP(A(j  FA?Picture 6b'iLNJ]8[&`n&iLNJ]8[PNG  IHDRksBIT3 sRGB&oIDATx^۸ Pή:>ugLB"'݊pڎݾ  @  8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @w @G ; %K 8 @v<{vB8e` 8gT p_Ӵ?H $  @'@ CR"8Z@ 8Z @ @`HJ$@G G ۟$<>(P"\I`N ؄L \G/m?bҧCq pNYo|F/.2#(d8KoY?^ϴzMI|Qf(/ $2  @rD. 0'xGK I`N $V pC"h -!?vxC.Ls<π*a/jq+@>3ʧbqg^AD iGp ' YډҎN <{w&p@p}  @@" ѰJ/PxZ@pk+ 8  @M p @ @nC@CVR8A@ 8- @R<`(@0h9 T @@0h9 T @@0h9+ xA v TOXPmI`@0ynOVV @d`ܞ 05 @=Cqjj&@ @7! @g p@p[ @'> p@p[ @'> xCQA`r PA@ 0E= @A`rW+N]! @r . T @`K @@uG!8Ֆ&  @``)L& dSS3'  8 @M p @ @Cs:,!,>  @33݃,. ,> XQsV c~V @A1j c~V @A1j c~V\r..  @`k @@qG!8B՞ sݝ,! ,1E @\w'@KKA @`@0 cS4_  05Uׯc!@`q!X|@#!0ǐ_~Y1HK @@3 %`d @OOyG >n\\ k x  @@@?P*CymN`;ȟ5stG8H3펨ߞ @%pڜ P)B @"!Xd @3M2dT++ W^  @_G >ͬ wV @  nAVV @  nAVV,(9 EIA@  @@@A@ \Qs8u=WOX @`@% @@P}#@;H.!@<T[, L @ 0Y@ <'Qs2NM~ @&8 @@  @7! @g!@CGPv @G`E!Xq*j"0& YMJ%ƨ  0& YMJ%ƨ  0& YMCpɱk@P|#@{=J!@#<U{+ ww @A sݝ,! ,1E @\w'RsRM~ @&8 @@  |nfCGNN@v  @GNN@v  @G`A!Xp(J"0(  ZN* 0(  ZNCpũ빺@P}#@;H.!@! @r . T 9ڒd`ܞ 05 @=Cqjj&@ @7! @g  8txA%}XG|+VzD;gU{<gwE!t<yN-=q (.  @`k @@q9W)N= @׏owNTD_ܒLPi@?bqCU @%5k%@:3Af '0'|{22 @s j*$@&b!@IS6"5E Il ) Djڋ$N @ R@ ԴH* $  @@@i/ T@ H:8e @H R^ @ @tp&@A @@R M"HM{ @A)D "@IS6"5E Il ) Djڋ$N @ R@ ԴH* $  @@@i/ T@ H:8e @H R^ @ @tp&@A @@R M"HM{ @A)D "@IS6"5E Il ) Djڋ$N @ R@ ԴH* $  @@@i/ T@ H:8e @H R^ @ @tp&@A @@R M"HM{ @A)D G~߫u4[sR1](o*4Ş4BQ@}A@cXO%e tk9M`?ݕ4CVġ.NA<'!Hq$I;H! "  @v'@)cR$8V@ 8 @ @bL$@ ڝRI @XX_ @A1)+ kw B@ H1&E @cc}NR)ƤH p@p  @@  ŘI;H! "  @v'@)cR$8V@ 8 @ @bL$@ ڝx/煿m羅#Dd"[?B'ad;~) @!skr[ǟ @ L L ~7W~  @@@/o @`3  @A%L08E  @*`? @ -!@BF @A!6!@S=BmBr z " 0ڄrO @ D@ a - 䞟  @@@h [@ =? @ & @ @{~'@!AM @@n TOBF @A!6!@S=BmBr z " 0ڄrO @ D@ a - 䞟  @@@h [@ =? @ & @ @{~'@!AM @@n TOBF @A!6!@S=BmBr z " 0ڄrO @ D@ a - 䞟  @@@h [@ =? @ & @ @{~'@!AM @@n TOBF @A!6!@S=BmBr z " 0ڄrO @ D@ a - 䞟  @@@h [@ =? @ & @ @{~'@!AM @@n TOBF @A!6!@S=BmBr z " 0ڄrO @ D@ a - 䞟  @@BOHc6!@ L [?< @49^=o@&8wco0|{c7K @>_ݬ"@}(M\Pj>Eg|>w$@5??  E`f bN P^@ (?b  @@6r(/   @@[@ hʏX @- \A GA F @# h m#W @Ak+ @@y5HA @@P~$@mm  P^@ (?b  @@6r(/   @@[@ hʏX @- \A GA F @# h m#W @Ak+ @@y5HA @@P~$@mm  P^@ (?b  @@6r(/   @@[@ hʏX @- \A GA F @# h m#W @Ak+ @@y5HA @@P~$@mm  P^@ (?b  @@6r(/   @@[@ hʏX @- \A GA F @# h m#W @Ak+ @@y5HA @@P~$@mm  P^@ (?b  @@6r(/   @@[@ hʏX @- \A GA F @# h m#W @3S^ @`i`{ 련\M`N x3W;|%@u?Q&x}Ȫ$X(lj3oHDT @ LJ @@v97޿^W @ @3 RE @@ F @@v OD[ @A  @T?mA '~   ڂdOP @ @@ @. d  @@@h  ]@ >A @  @ @}'@A- @@v OD[ @A  @T?mA '~   ڂdOP @ @@ @. d  @@xl{-UvNJ9ի>Ev#8LohmL#  xc2 ,/ ,?" @݁,/ ,?"XO_Xo&*"0*  ZO  0*  ZO  0*  ZOCpk@P~$@mm  P^@ (?b xS;- ̞ @ 0[@ ='@  A  @`@0{O $ 4G  8|.9YA`u>! @݂. >! @݂. >!XPs  @ A) \qz. T @`K @@uGv;\B '?x$0Y@ <'@++LA  @`@0ynO d . 8! @M p @ @nC@CЁf |`)!  @`q`)CTD`L@ JQ @`L>{o+l۹o%7ڵyg^9/B wt9L`OhYэQPtjk#i`>#P @(3_f~`3(؇ [ @ J`r j> @@0g-(" 6 @@0g-(" 6 @@0g-(" 6 @@0g-(" 6 @@0g-(" 6 @@0g-(" 6 @@0g-(" 6 @@0g-("p<EZj~WjG/ pq^ @>YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ Ʃ ' YEJ _^}K'kIENDB`)DdP(A(j  FA?Picture 7b)ەnȳl(Nn(ەnȳlPNG  IHDRksBIT3 sRGB(sIDATx^њJfv3a؝l,U䕋rvP-o\? @s= @` @  @ @)3@  @.*4 @@` @G  @\C` @o @@ 0 @#fp  @!0 @   @3@8e` @ @[E  @20 @k -B@fp  @N @5fpQA @3@8B` @  3@|  @ @!0 @Sfp  @\Th @  @ @)3@  @.*4 @@` @G  @\C` @o @@ 0 @#fp  @!0 @   @3@8e` @ @[E  @20 @k -B@f\N˥vN.0ca fw};C5ݴ>( h  @@@-l} P@@ ($% @l [ @@PIJ$@A  @@9   @LsM Ă3M @K?bӡ88{">󡂍h|qta i @@U.^" vUK PD`ڴSTgiHIX.,'  p9- @@%9Z  @ 4  @;'@'<ؑۅ  (H&Ygv둞Na % @@ 0 '*8Vr`(ƛ{E @\KDyP)+6By, t @F(#@ݵ7 Q@ a ^}`Ψ b{) @jgECPi+Y ; @0 B @@Pw*'@aA @@]nTN܇`l.H L @@зvF6 < ;u] X7*#@a^+  @a0j/D PN}ʵQ@Pw*'@aA @@]nTN܇`l.H L @@зvF6 < @f`3 @;!x' Fe @`@0  @uu{2pr-{,  @@@Fi! PW@ ; @0 B @@Pw*'@rC\K6$l@ W@ [;#@TH܇к. @a0j/D @0`"@ Fe('>Z(X ; @0 B @@Pw*'@rC\K6$l@ W@ [;#@TH }{kg @`@  @Zu{2 0L@ F @Q A= N @ L@ +   @@@Fi! PW@ ; @`9!X% 6Sy +  @3Uo\ @ZCV?T3-܆q󴧃KVn@&% @f9`sy}){ZN.P5>Gk8&_gt wV#@%mS4r\}MrU Z` /0'~5<Ҋ -0b~l~㏋o E @`7f#=}|պ BլbxyNj8C,u/  @@@Fi! PW@ ; @`9W.ג < @f`3 @CзvȯUtmV8r&o^J/!0Ej9gm#g)sΘ] @    @K 0 @@` @k  @3@ܩh|\I$W/;~iVVz-tpQa~\ {в=ZJ)VF[pJҬZ:C#g3L= @7!@܇  @C` @Sƀ  @20 @?!0 @@` @G  @\C` @o @@ 0 @#fp  @!0 @   @3@8e` @ @[` / @.u«n[IdFkVfԑ393?<Ǔ46  @ 3=lB/N.8B`!DXaR_xbf U|Z@{?h[lYs}?eWE&O pZɁ.vlX"L2lp}#($J g2FG I`@Љ^ @@-VTK` /EB9-Fj 5j * rZjM @ T@ s9lo%@  %v n2O @|H|c@o  @@@o @-R ܇`Qਠ @A&8* |'p6ݖ [l @ཀ@# @@{}myh/ o pxS+- '@  4A  @`@0^@A!(4%x#  @K 0 @@` @/ @ @!S,.< 0B@ 5 @ R܇`Ů1g @A68& l B@ hF @c~MCpʶtsyml(y h. 4op Uk+  @` `6({u @DA s:CPm&R@ 0  @@` @  _}y!XC#@^. ! @f_lC%t=͈^j>>G @]#?Ԝ2&@=}+ K@  @@гvEv <zծ @.` @AϾ% ` S@ W"@]\Lz =jW @`@˃  @@Og_vqy0) ] @]..&@=}+ K@  @@гvEv ,.ڀ 0X:Er?kn} <~T~l?it kU\{Gsza~sev @M`~ ?jEG  @`N x=h %0'>|yA>CoFk @! @`Gi2 @L hf!AGAL;8vdQS F~ 돜ŵ%TG #߄2`/IVVz @`$@ udz\V?TC4  @@PW*%@iAmElaA @@]nTN0J  @Aީ a-rm).   @K 0 @@`^ !@I!8Im  @C@fീD5'im @W @\C`^ !@I.N>g)sRNI63w.fndw@oV!h366B>>L F@ hJ!@ y&h# i @<ØVAU܇` "@C_;nӤYG^W׎y.25/kɽ K 8eӞGub*>*u=2#߬!(3 %@yA  @@LJ<[+ @2AV) A/8\b{)>-&i#g$I#߄2ޗ3>үg= pJmi oD @_!x%bIA'im @W @20 @@` @ pB$M J@ 0 @kK!0 8#'im @  RB  @C`^  !@I28Im 3R} N"Im @)3@p @_f+n߇yC]#?Ժ}|T&@{F~9e;O  jK @`@W  @@CaSt;w(% @@У_r#Z ϘϾ6VFa"@osM&_DϒĞ@пvH@8-H]DZw &@w8?޻3rWP 7\WE+W6a @@pDs  @@I#my.h" 4im @#=%@M&  pD@ 8 @@ФAG<446 @ @&AF8" \ D@ hH @G#zK\k|ortڎ @}Lw 'ְY /ނy#϶fn2; @0 B @@Pw*'@aA @@]nTN0J  @Aީ y @@]GN @ L@ +   @@@Fi! PW@ ; @0 B @@Pw*'@aA @@]nTN0J  @Aީ eFrńl盺h1o;ao JG@ϟ_ @g ߳o @?u@ 5@d`  @! @7Z @@`  @X @K kpS@ 5@d`  @! @7Z @@`  @X @K kpS@ 5@d`  @! @7Z @@`  @X @K kpS@ 5@d`  @! @7Z @@`  @X @K kpS@ 5@d`  @! @7Z @@`  @X @K kpS@ 5@d`  @! @7Z @@`  @X @K kpS@ 5@d`  @! @7Z @@`  @~Li8Bhv04{5|-zڳ} @@ 0IJ$@'@D P[@ -} @@ 0IJ$@'@D P[O x>׿Ǭ} @`''XiÖ)h,?/+ׁ @'  @ Y[ Xn!<}w̯{ 0@@p 1* @Y}j&%.<{uǣAF`xt}}3pJ-DLm|<`ӖBLO }ˡM+lbݓ8t(phD }ZpY8赁@pE6xrѶDlޗ]6A!!@ ZԺC\ܷ. ! @@\>`yo# .# @@t>PM&Oq =,]L*'@}A/]L*'@}Ad@Ϻĝ @ > U&hEz @    S@ 詯o 0@0D(z "  2 @=&@i ez%@C CMb @@^  @PPӡ G@ W 0@0t( %  5!@}>z%@C CMb @@^  @PPӡ&w8eS&*Ir졵1e&@Y#ğLPlD%4ihZ[Vޗ@_ }Q%>z%@ tS- @X-! 5[ը_HTn!cWdq ^WmyPs຅-  0gѼFg' ffA mPBOwl hC&@zvn5l\2h 8$5I=3ͦ B`}xx}7hC-4QhoؘI~O2Twx}ޟT;^[ @6-j!X\qa p('"O<h '̏6o] @| 2%@]!He.@ p>'@%$4x@@dwc'@C CMb @@^  @PPӡ G@ W 0@0t( %  5!@`/k^!('ZmA)S0C Ckh7B"Κ T`/hO`95" p[@ Mf 0@0ߜ- &O@ oNnف' 7FDn @S#"@dv @`LžFmJFPC L`J[\6&@`DT7SɈ󤦱Gu @@ЄY'؞ؾGqT~z. DA JA4f1B%V[-. 0rSSj" D)u @AE\M @(AR'( T4" D)u @AE\M @(AR'( T4" D)u @AE\M @(AR'( T4" D)u @AE\M Rï=uueiA`4x Vn]v4\ V*jvˁvz&+{Tˮ3"/CzZ&@a0SP> l l߈ʞeYx'<[>Z|eU"@rzby{]l}ei`˃@P{6O2Z 2'n @`&`4 ) dٍ$ 4B2L8 @R2 w?ҫ -ǥ/x@˃@вs"@iZ\2x?њfvF/XG 0@pþx?Ҭ/+;F`v)if@ @l} l 1}EVMA%O9wݲmOsSrz6dHS3"@@ 剋P6#W`y)bh3Q,whyPD'Z*|KP: ,Q&} 55a|>vxs NRZTؾqͼ ŪxwUB.5<=رh,pFssyW7.{Iƙyʫd5-j!hY\e.Xδ 5Dy/$/-$&̴rh|Te0 @ @{| \b0hyPKȝw>Į4J^G <5Yͪ'@ZzCP;I$ @KUzk_B؝p8l)T8dLAFYl {my${ 1<"8WOk&¾/XfE;FX^Fxȫ$WCMzbZ.uH㯡vϴ @@BA{[ SM 0}#$2L]ʖ @ CA_W1 @0TK|)p~؝_`o[Ɵ] @@h{;*$@-j.^*'@eRg>]>pɠV @@R`3ۯ!i"@]2y# p*pSD @ O | N ـ5-]Cv۫ .:Cf??7>{z;pL.% ,72C_-O`+pr`=o?h@1IDwyi` !&c. U"1|z{mǕmCpSa)I/}K_vgvCkIE6/#H`y 7{&{hpij4+!%&Ed)"@iZR;@ @=~ @@PT X?򻌭"*DH}$ | ءA, @s H|86 @`27Z>\|ܠWLl8 @`pَR Ny p]A=Ŗ @`Z@>in` @}Du:!@>D0  @CI7d  Ke(%@H|7sք @> +Ð  @Q.aFhy G^ j#@G !xR3x V }Mᛯ|iyv!@UZԺC7fߪq pWA%'o{ ^O h?N= @  @:} }Q%Kx t~Fϧ ,M (9&2lӭ7ni] ld|9vD%EZ!,-j!Xw?YrtTv=C,0h H҃'gf鼽vo5ww v f98󙯗ÿ8*%@ `Pwҷ=Ip+' . |(T",\Q ywd !v ]~$@ZM @b}.\A)͖a$h < QWdf-T ^A%"n?7z$@S t /M`%eP Qg X2AD55 @:4 N  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjN  @@I @@P )JjjMxu^QϟLlK-i`7 ̩ O  @@}qgg %x@lL 6 @`x`)z+p0^*&@'Gi @@JZ? @```Qh% X@ xrFZ C޿lx(fvٞך @ٞ @`N`NW"@PӥX PG[ H?{̵V  @G>`ypW`ij%@uk2K{izi@ Xs h<ڹ[?5s @{ACݩ^jͻz'@߯GDDb:/gaw[1;Fhb5|v#m ؟0ڤ|=7|wRr<  0@3Nsp5jDx@˃Z@7f.8'@1Z\2HMcKU @}ĠF" gM @@@(IaN @n*|qA5jh$r@P]IV> L6 0@0t( %  5!@}>z%@C CMb @@^  @PAx}/%:NxFwuNcaB?ޘ+h*hFj륮g^GktWF 0@0ޜ4jo \2^GktWF 07;'n{%ݭmLS{C- @*-KUP @ @kTKUX5Jb K @@PU @ @kTKUX5Jb K @@PU @ @kTKUX5Jb K @@PU @ @Pw^?T$_Crm  @ @Pq|gN*R 0@Pk?by]I68KSSLA @>}=%{tjP 0?'ίЖJ(fw  @]5؞4h\2h4!@# #ώ @@#n @ȳ6 H@ h 0@0쨍4A, <;j#@Fк!@# #ώ @@#n @ȳ6 H@ h 0@0쨍4]^zՖfbPyd{Y@ ;;Nne^Z"?U\ {hME: .  >A#@-gӓثCS"b{|*R{hp_v$  @@;%v' 0@0(Y +  ;5 #@vz"@ N @@; @S0 N@ hg' 0@0(Y +  ;5 #@vz"@ WSˏ K4XR5kf.R `.F l|?G]$$,lA~ @@ g/zI}eiGx?gp!r@ADiwP{7 !8Kj5TI &L @@PCU @ @l”Kj5TI &L @@PCU @ @l”Kj5TI &L @@PCU @ @l”Kj5TI &L @@PCU @ ?+9Y߿g @g ߯Wh} Zdg"9}-Hָdpm@c#$@)  @sl @T@ 8%_@  D6 @ sl @TS" @  @@pJd 0@0!8Nl@c#$@)  @sl @T@ 8%_@  D6 @ -_Ūϟ Fiy, g/gdy_C- ^z&gdH$hmn._Ɏwlku?dǧi!3($CL"m׌8 & qzס߂ NOi[:_b $ΗGi$bBLS">پtb ^P˫d@XX^E뻜v'_ӱ5w}.=}W_ڬ.ZnL^Yz| ;̶-{Ys匌\Mf%3ݨc\|n\~,\ۃjv w9K!ۅēkhOXʿ'y/v[㉓aB K~3CO8w)i;6 @@PSk d|z݇l/6x^ZٗXRwcj OC[w {74dKyP- 8q]E$wtw W]ƻz-l>b .>OwVG( D558un ܣ 7 F%i@r2 4eNpS`H\y& T0#AR)& T0# ę+ @jA5Z  @8AR)& T0# ę+ @jA5Z  @8AR)& T0# ę+ @jA5Z  @8AR)& T0# ę+ @jA5Z  @8W}nFIENDB`3DdP(A(j  FA?Picture 9b439N̝֔'IQl3n39N̝֔'IQlPNG  IHDRksBIT3 sRGB2IDATx^b8.ι{C~)d}l?S%%<l? @߳o @}@ =@d` @! @_7 @@` @ @K {pS@ =@d` @! @_7 @@` @ @K {pS@ =@d` @! @_7 @@` @ @K {pS@ =@d` @! @_7 @@` @ @K {pS@ =@d` @! @_7 @@` @ @K {pS@ =@d` @! @_7 @@` @ @K {pS@ =@d` @! @_7 @@` @ϟ~~~f @' GMj ,rCP{5OX$% @Ama @I @@P[X @``ER"- ?@@ `Hj 'S{'@}?l @2.@&h GO"VA  @@@Bv-ܩ3  @@ >p>H16* @Y}f%୚L0fR?+(8O0fR9+'$2I 0@@>P..  @@Kn`*"@=} @ @d!Az =MAB @@S @ @d!Az =M|[2+_  0-}?=H,3fYI @ [^;~F{2bCM@-ލƳ6 @z09). E9uFr0mAʰYB C1 @@ݨ @ @j9C}܍JB C1 @@ݨ @ @j9C}܍JB C1 @@ݨ @ @j9C}܍JB C1 @@ݨ @ @j9C??o'YlD%>[ʞZˆy -+<%t74X~^3Aeo= [V:@7 [ a0{ׇ̎nyP=% @Z 9 @& @{G  @ @ @@` @ @K { @@  @g @%{p=@ F @.?o'UaB*U^R P#f4thGݨySJ":!@@kzymimin^Kp)A%AdC @AR _N\(0 JX/Ss}1:j wl=hN^>Y˃@p}x&h*2dti Fb 1EU @@Д` @ @s]TE M Fb 1EU @@Ϸ~BoK4 '-$&iZZ @J-j}.g*YX @@( r(Z^2nT LMw !@X-_! 5[ը_ !ܼC,ǡ;u $@@4oKG6W'fЦI@jB @k&H<%^[]O.aF ͚ V,۟fp"@3 `4Zl^M-L` @.}$2A}`Px@@3W  @@cn`k! G,3<  @@( r(B-b @@Q  @@( r(B-bA y_jʉ6H`%S0vVC) mM?< Lt8:Sti~04┮8;5 0zۿ>u83VdiZ"K P^e pɠ '  d &@z$@ -  @@y  @ppK` P^@ (oG 0@0ܒ)ʛ '  d &@z$@ -  @@y  @ppK` ,_4~[Otq 3.a|MԌ( ~ O}S6'C`ЅS6_B9osFĩ?+0\!X&E @A]_ 05L}'SY8{l_+9ͅoH&J0cvq/>fi&YS @-KG 0@0ߚ- &Ӏ' ̷fDn 4 @  @m2  @||kjF @඀@pL 0@0ߚ- &Ӏ' ̷fDn 4 @  @m2 )|Q8DP((+NR/?3AJ[\L@DV7ĩ$:)@{}TGM B@MYkc;N%nWPR7 YD pK@ Xo*P_J"ha`R'( T5E@ eI* quMFFY)u @AE\] @QQVJ @@PW @``R'( T5E@ eI* quMFFY)u @AE\] R`y=pu~j8zAfP i5ͅs÷2A^leיHa%n h'hgVٳj<\v4px:' Գ3F@ fJ'Y X^Uh<\vezϳeX4Xخ\1_x:?5 ;lyPj  @@@@A"iFffZMs!@A&f @`&`4 ) diFffZMs!@A&f @`&>Go=Z3-s!@ `GkTI x_V6J (?t  @U@  @~ q`r @ng֛{o:K ^%-l3]ɌH5c>nuy[U|#9|S *A:c^>JԐp @фz˂c34>[=8 lSmk 7wObcp~O &{I.CXi D@@y`$>JgDŇ+zD J t!pEiiWr @@˃3-(- @`>ʛCfÙhyPJm̍*[AK?R-bv @ Ao.}wX[o @@˃^_$@MZ >*r  @~t pC%syoQOmyv25%@-jvxΐvYjD `T'HT(djH@K B0UǕ24PvsBb$9.5 l|ri%6@RsjSkgpymi`u>L!&w$#l# 0o;\ē75 _R7py gcvP`RE=^84=p@-j@C ,]H^yd,{K4!@ZԜ!.I o;l:u @=Rg>]>pɠJ' c9 +4/ @7pS  @`y!181pCS  @3[&XcqS+| F      !"#$v߿$ 0@C|dFCpSKl @\="F.5 DAM-(.]P@Wj޾H<$avOﰆ>+zc  ldz0P: )OjTNHrL  @_nʻ /[ @@eَRK {h'vj$ V} QFx#C AGDy @@{4$@󬥙 @l NC 0@0Z 4$@?pO0nNgN'@_ <⯖J 9r,^&u6 .4XPC#}lוsicM;1g=@U*ΧG>31g=4_ _/ fJ`V兽KLmY75T8b)5ķ׹0S@G ."@-"@A , R@ hm, T@ 0"@-"@A , R|zoG[6[ @-jAbjLZ\2HpFV>> J@ !@}ELvS]6r @ @W=A v5d|ݶy ~wĺ$*. hyPs wY*{tTv]OW@%} Zmi`ND[N˟? @U=v+[W ZOI&Lԯi W<@E;Z`dPjJn*,%o^fFHЮ͌Bhy =]{'@]!&$-T3([ݚ FZ9 @ @~H ˍ?+?[Pn= @C~`˦\/KMխb, ^ @VA+i @AQh% 6, ^ @VA+i @}= @`f> }ay^?t0J#@99]͊ %  \%@uZ|֛{o:V ^O %WfDۜf)M:Ƴ{ݛ0͎.Rm|Y#*$à3r^KO  AQujiakdh|#yK=zy, @`>g>朿|{Ԍ Xn 1oMn8'@-j}.g&RU 0@@01 @WM @@@(IaN @1Tpy{F H+䞁gKl-j}.Xl @ @j9C}܍JB C1 @@ݨ @ @j9C}܍JB ucy _J nxpuN1~/oLJ Wq&@)Z˸C&{JX6Ԛ~  @` `e4  @SWJ K {{s8vz[伇3JٝB pWAM :O .4ZT @AQh$ 46 , D^ @FA#h @AQh$ 46 , D^ @FA#h @AQh$ 46 , D^ @FA#h @AQh$ E]D-Tެ*y>DϭLhU5 |*x7 @@z4]LhU- -xe @ @|GZ) _m!ѪCS"b=O ~,;zvb)VZ/|*x<j|yPU@p˓  @@;%vj$ V@ 4 #@vF"@aK0 N@ hgm$ V@ 4 #@vF"@aK0 N@ hgm$ V@ 4 #@vF"@aK0 N@ hgm$ V@ 4WN_.\'aJլU@ P.?2Ac]' @uLX  ?]@XEjHL.r~ =P+afZbs!@s^ +3%@Z 9Kj5TI[0 @A U} @L @@PCU @`0`S.! P'L@ lKj5TI[0 @A U} @L @@PCU @`0`S.! P'Lϟ?,g <\az@Y"E3mWd& 6"$oK @kl @T@ 8% 0@0!8N</ ̿fHNS"O @ xkl @TS"O @  @S @kl @T@ 8% 0@0!8N</ ̿fHNS"O @  @S @??L3Y(6?pa _d[feyvY[W/wms~[mj~KxOK+\xZ)`[kL (IB,"Q/q^|:7@G_C[ԮJ{%@|ɲ=J۵6 Cl`e\'{A\^Zl?2X:k ??mNrMݟ DOowO`3 3j9_r+a'g[cy@3]i`h_)_prF6OdD2>*pte"@3ͨ D@mF鯩s s xy(M(@u퓉"֣ߦDko͸=հ[MBU@`^ ][3#UpAPz3Zo%D` d. 0@0:J%4&@ssY @4&@ssY @4&@ssY @4&@ssY @4&@ssY @4&@ssY @4&@ssY @4&@ssY @? N,-^IENDB`;DdP(A(l  HA?Picture 10 b:4"o3{ղ:n:4"o3{ղPNG  IHDRksBIT3 sRGB:fIDATx^떫6\)҄`[ѣG %W????G-kO  @ @kp @55UjK(+PWv&Z AilKhOG@  @X{`=Z 0к/tR @@?U @`-iz ]` 4[*b<_@AE1$, Y]Ϻ@mi  H=WT :Fyk)t^ #@ @U @`li` C  0,l@2T3G^Mv }~(m3H`j k gLҖ^A-g| ƺM6V@0YAMUg;= lཻYϷjjFh, G}3{ @_^:]+?]NC}3{Eq[U c>FIv̌3yRk 2:jbrƶUM 8Exfu7/t"PoNlCe&@xi j-; /k`g# SF&N2A^@w'&/\~+IڞҀ.,l[IdB72ngN@d,T H wA1:d2ANی@0miM4`1\ D6 @5z~ P]`۪?de3h\ ɢK" {ra aj r {( ۜY[3?{ @ p<~%e6YkE'@@UQ@U qN"@@ӹ9R[{nM-&Of8Xճ?] lO|_Tb3.\iP5*T*n PNi,.PnX[9cl) .^gC:+ @ Z@ᵀ@pmd t( tX$ ]>'@`E~dъ/9g  [`& kou`` $@np%3`-|i C7ܛ sHؿx2 ^2LdI0Sud ˖ *p<߁bM8J043(۩ ;Ё£ccW:=ڱ6UKj%Psme00Zfyğ| Y95F;-ۖj_ofz0,AF @kl]^@ (oW@"::,! 040suG@0r*xm=, X!! P]  ' 9٪@R_L/'2A[ 0va dn}}(NmJ: lz4@DϾt$ݭa@  cH@ XJWn}q?#\nq٘_O5:SA1:hDA2~~kcdD  zNADٌI@ $A`w ZdZC#n -+F[T{k kl +J@^O5gH)jX@ 8F@ ^à&&)i PGqK} UmQ+gAM _ҀU0@0w}͎<@Gt, t\C#@i:EY ]@) DBٌU+o\ HWB^J@ &C@.i vFFq p!}]{Ki;rۏ>r2,LPDS @/ xLqi`e[짺<ڝSx^?Ar?7K"P. "h# #W x;~3Ow7VFXMFU&4XPh%@vc1-m9V.yv}AJ7X& ZkRtˠ%`PTy2!HI3AvR  040@ @P[ot tPCN@ $D@Qi(ƭ p[@MfeeJm_Bm{lS1djp26iп603 H3U\ oPy4KC3~ة (>f !_}bI@_pav'hzOL@=zzEM ܟ8~xe 84=k@0j4?>ilB+T+P  _ 7ݥ$WV^*^S@0QSS_\ ܹ>cL.m$ὲwwi: grc Լ: A$&sŏ t6^ٻ殡rGb.(نSæ'WS/KIx=$o7/7ip&@`¿^!9t4E`ujLk.6۵cӮCԴ[v8iyRk]iw'@ yF !Psa/6H <> -pBPbG ]]'07d5Kk/aydbAh2v " @ 4Sk:b"@. X *|epy &^TFjf;,^Ӯ4KkMI-C @@C†5N0#HvR h"܄] |#>v>#KJ#L,%TM6 PÃ^%tq.0m$^5V1~agX`;C{2 $$0ktt/,Un%p[x. YjNI`n vCcg0"~ܨ͌"(] v9:"oD[D%IV_ͦ$WKuƘZwD4v7zn l.m$^iz}<@DϾ<y{4P;h$P=FE-j@Z7nWOO[*qzq[89ي@co 5)n ( D5qʊ5,[V9 U.5F`rs ؿlK7=uz#pC16iŷ)ޞu6@w k+3ujLo&۟ۿ-L2u @4PKZ?.~JdkxณIvqcHMHyRF|״K= !FͲ@7чO  ]lvK#PC}>L- L]^SC*9+oV Hh5L@SAAxM(&P+N@`$A혶W:h`Q;=Up?\ީSؿT fibК 0Z}K^zU"mǴ)+P]||`p㾒hff2Թ a @_;<~]1:Fxss?,N\Ixi;5JY@[uƑ \CBBmK{DMk|)'5`e2 'Л {h/ .ᙀk=?F@V} p6o*j># |?~}H 2kagdOI#%m0L#w'ՆuV~K4=|y=2~$iJZ_"й3 _Ӹ|G.+x2 liݕC`JP 8p;%IR5)MvxL0G͂@̵?Ox@Oi{.'wuHS e5)QJ?axLJ$F*'p|=K3qӺ+1|.ѭ#H3> x/[hpqD*D`s#]' 04F]3V j\b5US|#b&A7&!G[HӔD8f (*ࢼ'0g) prFqsM0G͂@W8@mi .  ^@'I@.+ =+d|8.y?PxU=O.-0yMo1پbtBsLY[&x%-../ZZezuedX@ Yx{<4g#@v~ i`  @ੀ@Tte$9uV&j:D벤0*dDya`c* [@ \@ xn@K}} 0@0Q1כ4^͘RA)YEEy5NE~~h ĈnX (! Pf)iv X^@ X~  S+#%@`<`9bi`ͺ5j:JI8 Vvz&@`!`b8Ui`Ī3# #Vm1KT< @@ I@. PS@ Xi Vv$ dL>i  + Jٮ, |,^dQ/0,{vk kջJ}ŨXJ@ ۍe44+~}L yj{<}  0@0{{4keE *0 ubA4Un`Ѓc MK{)Ծ4PVx( < iM  PW@ po7u(C1AmdQ=  PQ@ ^WnWs3&@`T`?ni!v6;w?@@@Rmxͼ}^&} JW XP} x?yC/Di`< O9qi`ʲ++TJк!@@f JBoRՊ%YS+%]mU+%]h_j}~|nSp% 4͚۔ VT(i yJ]㉹64 y<@btF]NҧMꇕ;J̏#5|Ӭi_:[s/P:\z!@@52HpSPznCXC"@ -|BUU(  pym|2'ZaV* ; @@7Al)(ڷ~E;\ @;AE[&xEOiӈ5J @TZx_`;O?-e؂2  ~ 0@p]/- <<KHxz;R=mdxR%@Nj*Y$Q, PY؂.PN Н@*4݂5 (# |u,9 @@H=Vc"@bZiz0t* 0: <" * S8 ]MY,I# 0@ z \ȶ4D# , @@Nu4siX4H['@+i "/gY;~ ,.P4=[ xn\?8y_TL,CEbI+d[d @*n @@`Y @  X @_E@ = 5@e`  @/;  @ @\! @  @oX @@`  @X @[ k[L^Ϗo9o ]YޗGW+?ZqmwpߏL>BoHIJvh[mE~x>ۆ#ߵ͜L8J$Tj@OԎ ן8oc&߮ qy gZcƿmz5^Z?J6 C,`25'P~y4~> ^؎? wI#Zt*Hyٻ@pI.|\ڬՏ ?@0cUq?l-w.VcYL@ Xw+ ;?]"%gU (Yv6D=4,D]n$Y$@] ,/dQ㍳od32ʛE +-("AV @e @@PU @`,`z-(" a(K@ ^FKEX5Jƪ @"AV @e @@PU @`,`z-(" a(K@ ^FKEX5Jƪ @"AV @e @@PU @`,`z-(" a(KX#6Z6?S}GOM&֜t% AW0^gӿ)&,Ak|zˀ|e<}ǔ.Ɩ$x .vcv>>|@v~W{1{0s B0W=fyo'ngNz.W! 0~}? gӵ ] xiDm<)"{i\!*p^0_SL/i-ۋjTun饽K@ fC pz/^wQ7 aD'Ã[7֧o, n}4>cckjv#@@`i ^ 2ܴW-ykkfz8]oz-q% Z6[3A:aC@ fA e @``:x$ <3C@ fA L樣Y @G#>; @99h @@ @``:x$ <3C@ fA L樣Y @G#>; @99h @cLtIENDB`DyK yK LDescriptions/kohonen.htmlyX;H,]ą'cDyK yK JDescriptions/mclust.htmlyX;H,]ą'cDyK yK LDescriptions/mvtnorm.htmlyX;H,]ą'cDyK yK RDescriptions/mvtnormpcs.htmlyX;H,]ą'cDyK yK JDescriptions/neural.htmlyX;H,]ą'cDyK yK FDescriptions/tree.htmlyX;H,]ą'cDyK yK FDescriptions/amap.htmlyX;H,]ą'cDyK yK HDescriptions/AMORE.htmlyX;H,]ą'cSummaryInformation(DocumentSummaryInformation8XCompObj1yalstevel2Microsoft Office Word@F#@Q/@4hw@4hw 7՜.+,D՜.+,` hp  Utah State Universityu!@  Assignment 1: Introduction to R Title 8@ _PID_HLINKSA6xi!Descriptions/AMORE.html%1Descriptions/amap.html/ Descriptions/tree.htmlCKDescriptions/neural.htmlQIDescriptions/mvtnormpcs.html Descriptions/mvtnorm.htmlZCDescriptions/mclust.html Descriptions/kohonen.htmlDhttp://cran.us.r-project.org/  F'Microsoft Office Word 97-2003 Document MSWordDocWord.Document.89q^ 666666666vvvvvvvvv666666>6666666666666666666666666666666666666666666666666hH6666666666666666666666666666666666666666666666666666666666666666662 0@P`p2( 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p 0@P`p8XV~_HmH nH sH tH @`@ NormalCJ_HaJmH sH tH N"N  Heading 2dd@&[$\$5CJ$\aJ$N2N  Heading 3dd@&[$\$5CJ\aJDA`D Default Paragraph FontViV 0 Table Normal :V 44 la (k ( 0No List 6U@6  Hyperlink >*B*phe@ 0HTML Preformatted7 2( Px 4 #\'*.25@9CJOJPJQJ^JaJB^B  Normal (Web)dd[$\$Bb!B  HTML CodeCJOJPJQJ^JaJ.X1. Emphasis6]>fA>  HTML SampleOJPJQJ^JTQT NQ0HTML Preformatted CharOJPJQJ^JHbH @I30 Balloon TextCJOJQJ^JaJN/qN @I30Balloon Text CharCJOJQJ^JaJPK![Content_Types].xmlj0Eжr(΢Iw},-j4 wP-t#bΙ{UTU^hd}㨫)*1P' ^W0)T9<l#$yi};~@(Hu* Dנz/0ǰ $ X3aZ,D0j~3߶b~i>3\`?/[G\!-Rk.sԻ..a濭?PK!֧6 _rels/.relsj0 }Q%v/C/}(h"O = C?hv=Ʌ%[xp{۵_Pѣ<1H0ORBdJE4b$q_6LR7`0̞O,En7Lib/SeеPK!kytheme/theme/themeManager.xml M @}w7c(EbˮCAǠҟ7՛K Y, e.|,H,lxɴIsQ}#Ր ֵ+!,^$j=GW)E+& 8PK!Ptheme/theme/theme1.xmlYOo6w toc'vuر-MniP@I}úama[إ4:lЯGRX^6؊>$ !)O^rC$y@/yH*񄴽)޵߻UDb`}"qۋJחX^)I`nEp)liV[]1M<OP6r=zgbIguSebORD۫qu gZo~ٺlAplxpT0+[}`jzAV2Fi@qv֬5\|ʜ̭NleXdsjcs7f W+Ն7`g ȘJj|h(KD- dXiJ؇(x$( :;˹! I_TS 1?E??ZBΪmU/?~xY'y5g&΋/ɋ>GMGeD3Vq%'#q$8K)fw9:ĵ x}rxwr:\TZaG*y8IjbRc|XŻǿI u3KGnD1NIBs RuK>V.EL+M2#'fi ~V vl{u8zH *:(W☕ ~JTe\O*tHGHY}KNP*ݾ˦TѼ9/#A7qZ$*c?qUnwN%Oi4 =3ڗP 1Pm \\9Mؓ2aD];Yt\[x]}Wr|]g- eW )6-rCSj id DЇAΜIqbJ#x꺃 6k#ASh&ʌt(Q%p%m&]caSl=X\P1Mh9MVdDAaVB[݈fJíP|8 քAV^f Hn- "d>znNJ ة>b&2vKyϼD:,AGm\nziÙ.uχYC6OMf3or$5NHT[XF64T,ќM0E)`#5XY`פ;%1U٥m;R>QD DcpU'&LE/pm%]8firS4d 7y\`JnίI R3U~7+׸#m qBiDi*L69mY&iHE=(K&N!V.KeLDĕ{D vEꦚdeNƟe(MN9ߜR6&3(a/DUz<{ˊYȳV)9Z[4^n5!J?Q3eBoCM m<.vpIYfZY_p[=al-Y}Nc͙ŋ4vfavl'SA8|*u{-ߟ0%M07%<ҍPK! ѐ'theme/theme/_rels/themeManager.xml.relsM 0wooӺ&݈Э5 6?$Q ,.aic21h:qm@RN;d`o7gK(M&$R(.1r'JЊT8V"AȻHu}|$b{P8g/]QAsم(#L[PK-![Content_Types].xmlPK-!֧6 +_rels/.relsPK-!kytheme/theme/themeManager.xmlPK-!Ptheme/theme/theme1.xmlPK-! ѐ' theme/theme/_rels/themeManager.xml.relsPK] @@+#~1$=CDkEFG[HH%)-29<?@BCEFK1q\  u"Y$d&'c*N.~15:>ADFH&'(*+,./01345678:;=>AD.#B#D#>???B?I?L?s?{?~??????? @@6@Z@_@b@@@@X:::XXXXXXXX8@0(  B S  ?@_a" $ - /   ' 2 8 B M [ ` k m p ~ FI=>ABCD5:NS}.0tvHMOT }$$&&#&-&D&M&&&z''''((((((((((((((())) )$)2)6)j)s)t)x)T*a*++,,,,,--"-#---.-9-:-D-O-P-/////// 0u0000000011&20233'3+30373V4Z4[4k4r4v44444444444445"5#5%5f5n55555566+666666666666677(7*77777777778 8899B9H9}9~95:;:<:D:l:m:::<<< <<<.<9<`<l<q<{<<<<<<<<<==M=Z========== >>">&>5>:>C>N>Z>>>>>>>>>>>??C?I?t?{???@@[@_@@@@@@@z9:MNcd_ckl " ( -   ` l Y ] |  % + A F [ ] m q ~ *,<=@DFJZ[#'34 5;no~wy}  st'.9@`dsx-9^cx}.1ahgirs #%(*-/12BCSYde}RT_ck l !!!!"!$!!!""""Z$\$$$$$$$$$#&.&v&}&&&E'M'''((((;)>)j)t)))))))))O*T*i*j***,,- -////u0011V4[4r4w444444444#5%5666667(7*7777777r88888899B9I9J9O9::5:<:l:m:;;;;<<<<<<< <#<+<.<;<><F<I<Q<T<]<`<n<q<}<<<<<<<<<<< ===(=+=1=4=9=====&>.>]>`>>>>>>>>>>>>>>>>>??C?I?t?{????? @@@@@@ @'@[@_@@@@@@@@@33333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333333.#E#4444#5%5(7*7l:m:p;r;<<<<}<<=(=d=@' ^5|H-S@\|d1UhP^`Po(()h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L.hP^`Po(()h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L.hP^`Po(()h^`.hpLp^p`L.h@ @ ^@ `.h^`.hL^`L.h^`.h^`.hPLP^P`L.\|' H-S(r3        (r3        (r3        =< BX4 9d 29 yF  <WJwj"&n)!+8P,2@I3#71:w<a$?,@^F,HjGI=P8VpbAd!kmz8r=/vovTVy4K}NQ(|I*} H)IVgVddB)@[ub7vr@@@@@UnknownG*Ax Times New Roman5Symbol3. *Cx Arial?= *Cx Courier New5. *[`)TahomaA BCambria Math"1h{ц{цf 7!u 7!u#0d@@ 2QHX $P4 2!xxAssignment 1: Introduction to Rminnottestevel