The letter of application is intended to provide detailed information on why you are are a qualified candidate for the job. A character vector of the concatenated values. be applied over. FUN is found by a call to match.fun and typically MARGIN: A numeric vector indicating the dimension over which to traverse; 1 means rows and 2 means columns.. FUN: The function to apply (for example, sum or mean). You can create a function like this for any apply function, not just tapply. As you can see, this didn’t work because apply was expecting the data to have at least two dimensions. First, let’s go over the basic apply function. Here are the agruments for the three functions: In this case, X is a vector or list, and FUN is the function you want to use. If your data is a vector you need to use lapply, sapply, or vapply instead. Where X has named dimnames, it can be a character Count in R using the apply function Imagine you counted the birds in your backyard on three different days and stored the counts in a matrix like this: Why? In the case of functions like +, %*%, etc., the I’ve been on r/a2c since I was a freshman; this has probably affected my mental health in the long run, but I’ve always loved this community.. One thing, however, that I was not a fan of was … TL;DR at bottom. For example, using dataset t, I could divide one column by another column to create a new value. If you know me IRL: no, you don’t. There is a part 2 coming that will look at density plots with ggplot, but first I thought I would go on a tangent to give some examples of the apply family, as they come up a lot working with R. I am expecting each item in the list to return a single numeric value, so FUN.VALUE = numeric(1). Another use for mapply would be to create a new variable. Practical advice for writing a cover letter. Apply a Function over a List or Vector. I created a numeric vector of length 10 using the vector function. The articles on the left provide an introduction to R for people who are … This will be of length zero if all the objects are, unless collapse is non-NULL in which case it is a single empty string.. One thing, however, that I was not a fan of was the astronomically high GPAs around every corner. the arguments for mapply are mapply(FUN, …, MoreArgs = NULL, SIMPLIFY = TRUE, USE.NAMES = TRUE). The purpose of apply() is primarily to avoid explicit uses of loop constructs. The apply functions that this chapter will address are apply, lapply, sapply, vapply, tapply, and mapply. Use this form to apply for the Paycheck Protection Program (PPP) with an eligible lender for a First Draw loan The results of the mapply function are then saved into the vector. Then I saved them as objects that could be used later. Monster staff. The Basics of R (Ch 2 – 5) This section presents an orientation to using R. Chapter 2 introduces the R This post will show you how you can use the R apply() function, its variants such as mapply() and a few of apply()'s relatives, applied to different data structures. 586 Main St. Brighton, TX 45965. the apply function looks like this: apply(X, MARGIN, FUN). If your function were to return more than one numeric value, FUN.VALUE = numeric(1) will cause the function to return an error. Welcome. You can use the help section to get a description of this function. R has a large number of in-built functions and the user can create their own functions. If you set the MARGIN to 1:2 it will have the function operate on each cell. To call a function for each row in an R data frame, we shall use R apply function. The arguments for tapply are tapply(X, INDEX, FUN). dim set to MARGIN if this has length greater than one. It relies on forking and hence is not available on Windows unless mc.cores = 1. mcmapply is a parallelized version of mapply, and mcMap corresponds to Map. This is because lapply applies treats the vector like a list, and applies the function to each point in the vector. This last section will be a few examples of using apply functions on real data.This section will make use of the MASS package, which is a collection of publicly available datasets. sapply works just like lapply, but will simplify the output if possible. This may be useful if you want to have the function available to use later. a vector giving the subscripts which the function will Arguments are recycled if necessary. In the above function calls, the argument matching of formal argument to the actual arguments takes place in positional order. Now, let’s present a conceptual overview of the organization of the book. state.region is a factor with four levels: Northeast, South, North Central, and West. 2 indicates columns, c(1, 2) indicates rows and The apply command or rather family of commands, pertains to the R base package. This function didn’t add up the values like we may have expected it to. There are so many different apply functions because they are meant to operate on different types of data. I’ve been on r/a2c since I was a freshman; this has probably affected my mental health in the long run, but I’ve always loved this community. Using the apply family makes sense only if you need that result. If you do not want your results to be simplified to a vector, lapply should be used. The only new argument is INDEX, which is the factor you want to use to separate the data. If X is not an array but an object of a class with a non-null my.matrx is a matrix with 1-10 in column 1, 11-20 in column 2, and 21-30 in column 3. my.matrx will be used to show some of the basic uses for the apply function. Many functions in R work in a vectorized way, so there’s often no need to use this. state.area and state.x77 are not from the same dataset, but that is fine as long as the vectors are the same length and the data is in the same order. If you do not have MASS installed, you can uncomment the code below. Slam the brakes! Spark objects are partitioned so they can be distributed across a cluster. spark_apply() applies an R function to a Spark object (typically, a Spark DataFrame). Usage mapply(FUN, ..., MoreArgs = NULL, SIMPLIFY = TRUE, USE.NAMES = TRUE) through: this both avoids partial matching to MARGIN If n is 0, the result has length 0 but not necessarily the ‘correct’ dimension.. Following is an example R Script to demonstrate how to apply a function for each row in an R Data Frame. character string specifying a function to be searched for from the A letter of application, also known as a cover letter, is a document sent with your resume to provide additional information about your skills and experience to an employer. Apply is the head of the family. If you are trying to decide which of these three functions to use, because it is the simplest, I would suggest to use sapply if possible. tapply(X, INDEX, FUN = NULL,..., simplify = TRUE) This example uses the builtin dataset CO2, sum up the uptake grouped by different plants. Named Arguments. Here are the available R apply functions: apply, lapply, sapply, vapply, mapply, rapply and tapply. They want a cover letter. Otherwise x can be any R object for which length and subsetting by integers make sense: S3 or S4 methods for these operations will be dispatched as appropriate. columns. In this example, the apply function is used to transform the values in each cell. This is an important idiom for writing code in R, and it usually goes by the name Split, Apply, and Combine (SAC). 24. Acme Investments, Inc. Attn: Thomas Burgin. In this example, I want to find the population density for each state. Pay attention to the MARGIN argument. … The apply() collection is bundled with r essential package if you install R with Anaconda. Dataset t will be created by adding a factor to matrix m and converting it to a dataframe. Mr. Burgin, I write to apply for the Office Manager position at Acme Investments, Inc. mapply is a multivariate version of sapply. sparklyr provides support to run arbitrary R code at scale within your Spark Cluster through spark_apply(). Meet three of the members. This means that instead of returning a list like lapply, it will return a vector instead if the data is simplifiable. Sometimes you may want to perform the apply function on some data, but have it separated by factor. MARGIN or FUN. lapply is probably a better choice than apply here, as apply first coerces your data.frame to an array which means all the columns must have the same type. function to margins of an array or matrix. You can use tapply to do some quick summary statistics on a variable split by condition. Say hello to apply(), sapply(), and lapply(), the most used members of the apply family. What is a Job Application Letter? The Apply Functions As Alternatives To Loops. of the basic vector types before the dimensions are set, so that (for mapply applies FUN to the first elements of each ... argument, the second elements, the third elements, and so on. So what is the apply function in R? Now let’s use column 1 as the index and find the mean of column 2. If you run this function it will return the error: Error in apply(v, 1, sum) : dim(X) must have a positive length. 4634 W. Industrial Dr., Ste. If you want to print messages to the console with print() or cat() for example, using the apply family is unnecessary. The articles on the left provide an introduction to R for people who are … I can use the length function to do this. tapply, and convenience functions lapply returns a list of the same length as X, each element of which is the result of applying FUN to the corresponding element of X.. sapply is a user-friendly version and wrapper of lapply by default returning a vector, matrix or, if simplify = "array", an array if appropriate, by applying simplify2array(). environment of the call to apply. If n is 0, the result has length 0 but not necessarily Apply functions are a family of functions in base R which allow you to repetitively perform an action on multiple chunks of data. load the state dataset. In the arguments I created a function that returns length - 1. The apply() function can be feed with many functions to perform redundant application on a collection of object (data frame, list, vector, etc.). What if I wanted to summarize the data in matrix m by finding the sum of each row? Count in R using the apply function. First, let’s create data with an factor for indexing. This is an introductory post about using apply, sapply and lapply, best suited for people relatively new to R or unfamiliar with these functions. apply returns a list of length prod(dim(X)[MARGIN]) with First, try looking up lapply in the help section to see a description of all three function. What if instead, I wanted to find n-1 for each column? mclapply is a parallelized version of lapply, it returns a list of the same length as X, each element of which is the result of applying FUN to the corresponding element of X.. Example: “I will update my resume with relevant qualifications, so I can apply to three open positions for the manager of a development team at a tech startup.” R = Relevant When setting goals for yourself, consider whether or not they are relevant. This order is based on the order of arguments in the rep function itself. What if I wanted to be able to find how many datapoints (n) are in each column of m? Earlier, we created the vector v. Let’s use that vector to test out the lapply function. See how these two examples gave the same answers, but returned a vector instead? This is especially useful where there is a need to use functionality available only in R or R packages that is not available in Apache Spark nor Spark Packages. Because we are using columns, MARGIN = 2. Phone: (555) 555-1212. Arguments are recycled if necessary. I have a function f(var1, var2) in R. Suppose we set var2 = 1 and now I want to apply the function f() to the list L. Basically I want to get a new list L* with the outputs [f(L[1],1),f(L[2],1),.... Stack Overflow. You can use spark_apply with the default partitions or you can define your own partitions with the group… to coerce it to an array via as.matrix if it is two-dimensional sapply and vapply have extra arguments, but most of them have default values, so you don’t need to worry about them. Will the apply function work? R Examples. Wadsworth & Brooks/Cole. More Examples How to run the code Finding data sources. Returns a vector or array or list of values obtained by applying a In order to do this, I want to divide population by area. It contains information about all 50 states, Let’s look at the data we will be using. through …. If you want to print messages to the console with print() or cat() for example, using the apply family is unnecessary. (m = matrix (1: 6, nrow = 2)) apply (m, 1, sum) apply (m, 1: 2, sqrt) # "sweep" returns an array obtained from an input array by sweeping out # a summary statistic. the ‘correct’ dimension. This presents some very handy opportunities. or FUN and ensures that a sensible error message is given if If each call to FUN returns a vector of length n, then apply returns an array of dimension c(n, dim(X)[MARGIN]) if n > 1.If n equals 1, apply returns a vector if MARGIN has length 1 and an array of dimension dim(X)[MARGIN] otherwise. Houston, TX 45987. Apply a Function to Multiple List or Vector Arguments. example) factor results will be coerced to a character array. In the previous examples, apply was used to summarize over a row or column. Email: hwaybird@email.com. R apply function with multiple parameters - Stack Overflow. In R, you can use the apply () function to apply a function over every row or column of a matrix or data frame. The arguments for the vector function are vector(mode, length). Please install MASS if you do not already have it. Welcome. The arguments are X = m, MARGIN = 1 (for row), and FUN = sum. An apply function is essentially a loop, but run faster than loops and often require less code. Basics Functions Countdown User input Random number game Lists Reading data Filtering data. Say you wanted to simulate rolls of a die, and you want to get ten results. Of course, using the with() function, you can write your line of … I read Data from a csv file. Of course, not all the variants can be discussed, but when possible, you will be introduced to the use of these functions in cooperation, via a couple of slightly more beefy examples. Inside mapply I created a function to multiple two variables together. Becker, R. A., Chambers, J. M. and Wilks, A. R. (1988) Here are some sources I used to help me create this chapter: Datacamp tutorial on apply functions: https://www.datacamp.com/community/tutorials/r-tutorial-apply-family, r-bloggers: Using apply, sapply, and lapply in R: https://www.r-bloggers.com/using-apply-sapply-lapply-in-r/, stackoverflow: Why is vapply safer than sapply? Depending on your context, this could have unintended consequences. arguments named X, MARGIN or FUN are passed To do so, you make use of sample(), which takes a vector as input; then you tell it how many samples to draw from that list. For sample the default for size is the number of items inferred from the first argument, so that sample(x) generates a random permutation of the elements of x (or 1:x). tapply()applies a function to each cell of a ragged array, that is to each (non-empty) group of values given by a unique combination of the levels of certain factors. Harold Waybird. If I see this file in R, I have: V1 V2 V3 V4 V5 V6 V7 1 14 25 83 64 987 45 78 2 15 65 789 32 14 NA NA 3 14 67 89 14 NA NA NA If I want the maximum value in each column, I use this: apply(df,2,max) and this is the result: V1 V2 V3 V4 V5 V6 V7 15 67 789 64 NA NA NA In this example, 1:9 is specifying the value to repeat, and 9:1 is specifying how many times to repeat. In this example, a function to find standard error was created, then passed into an apply function. Consider an example: If a data frame has 4 columns out of which the first one belongs to the character class, then use below code: apply(Data.df[,2:4],2,func_name) In this example, I want to find out some information about the population of states split by region. dim(X)[MARGIN] otherwise. If each call to FUN returns a vector of length n, then Sample Letter of Application. Consider the following basic example: > sapply (c ('a','b'), switch, a='Hello', b='Goodbye') a b "Hello" "Goodbye". Imagine you counted the birds in your backyard on three different days and stored the counts in a matrix like this: > counts <- matrix (c (3,2,4,6,5,1,8,6,1), ncol=3) > colnames (counts) <- c ('sparrow','dove','crow') > counts sparrow dove crow [1,] 3 6 8 [2,] 2 5 6 [3,] 4 1 1. If you don’t want to write a function inside of the arguments, you can define the function outside of apply, and then use that function in apply later. First you list the function, followed by the vectors you are using the rest of the arguments have default values so they don’t need to be changed for now. In this case, you split a vector into groups, apply a function to each group, and then combine the result into a vector. Value. Apply a Function to Multiple List or Vector Arguments Description. > tapply(CO2$uptake,CO2$Plant, sum) function name must be backquoted or quoted. It can also be used to repeat a function on cells within a matrix. E.g., for a matrix 1 indicates rows, Using the apply family makes sense only if you need that result. Apply functions are a family of functions in base R which allow you to repetitively perform an action on multiple chunks of data. As you can see, the function correctly returned a vector of n-1 for each column. The apply() function takes four arguments:. Like apply, these functions can also be used for transforming data inside the list. lapply and there, simplify2array; Say hello to apply(), sapply(), and lapply(), the most used members of the apply family. Hi guys! In a previous post, you covered part of the R language control flow, the cycles or loop structures.In a subsequent one, you learned more about how to avoid looping by using the apply() family of functions, which act on compound data in repetitive ways. You can use apply to find measures of central tendency and dispersion. (e.g., a data frame) or via as.array. Apply operates on arrays: apply(X, MARGIN, FUN, …). Welcome. mapply is a multivariate version of sapply. When using an apply family function to create a new variable, one option is to create a new vector ahead of time with the size of the vector pre-allocated. : http://stackoverflow.com/questions/12339650/why-is-vapply-safer-than-sapply, LS0tDQp0aXRsZTogJ0NoYXB0ZXIgNDogYXBwbHkgRnVuY3Rpb25zJw0KYXV0aG9yOiAiRXJpbiBTb3ZhbnNreSBXaW50ZXIiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdGhlbWU6IGNlcnVsZWFuDQogICAgaGlnaGxpZ2h0OiB0ZXh0bWF0ZQ0KICAgIGZvbnRzaXplOiA4cHQNCiAgICB0b2M6IHRydWUNCiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUNCiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlDQogICAgdG9jX2Zsb2F0Og0KICAgICAgY29sbGFwc2VkOiBmYWxzZQ0KLS0tDQoNCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGVjaG8gPSBUUlVFKQ0KYGBgDQoNCiMgIFdoYXQgYXJlIGFwcGx5IGZ1bmN0aW9ucz8NCkFwcGx5IGZ1bmN0aW9ucyBhcmUgYSBmYW1pbHkgb2YgZnVuY3Rpb25zIGluIGJhc2UgUiB3aGljaCBhbGxvdyB5b3UgdG8gcmVwZXRpdGl2ZWx5IHBlcmZvcm0gYW4NCmFjdGlvbiBvbiBtdWx0aXBsZSBjaHVua3Mgb2YgZGF0YS4gQW4gYXBwbHkgZnVuY3Rpb24gaXMgZXNzZW50aWFsbHkgYSBsb29wLCBidXQgcnVuIGZhc3RlciB0aGFuIA0KbG9vcHMgYW5kIG9mdGVuIHJlcXVpcmUgbGVzcyBjb2RlLiANCg0KVGhlIGFwcGx5IGZ1bmN0aW9ucyB0aGF0IHRoaXMgY2hhcHRlciB3aWxsIGFkZHJlc3MgYXJlIGFwcGx5LCBsYXBwbHksIHNhcHBseSwgdmFwcGx5LCB0YXBwbHksIGFuZA0KbWFwcGx5LiBUaGVyZSBhcmUgc28gbWFueSBkaWZmZXJlbnQgYXBwbHkgZnVuY3Rpb25zIGJlY2F1c2UgdGhleSBhcmUgbWVhbnQgdG8gb3BlcmF0ZSBvbiBkaWZmZXJlbnQNCnR5cGVzIG9mIGRhdGEuIA0KDQojICBUaGUgYXBwbHkgZnVuY3Rpb24NCkZpcnN0LCBsZXQncyBnbyBvdmVyIHRoZSBiYXNpYyBhcHBseSBmdW5jdGlvbi4gWW91IGNhbiB1c2UgdGhlIGhlbHAgc2VjdGlvbiB0byBnZXQgYSBkZXNjcmlwdGlvbg0Kb2YgdGhpcyBmdW5jdGlvbi4NCmBgYHtyLCBldmFsPUZBTFNFfQ0KP2FwcGx5DQpgYGANCnRoZSBhcHBseSBmdW5jdGlvbiBsb29rcyBsaWtlIHRoaXM6IGFwcGx5KFgsIE1BUkdJTiwgRlVOKS4gDQoNCiogWCBpcyBhbiBhcnJheSBvciBtYXRyaXggKHRoaXMgaXMgdGhlIGRhdGEgdGhhdCB5b3Ugd2lsbCBiZSBwZXJmb3JtaW5nIHRoZSBmdW5jdGlvbiBvbikNCiogTWFyZ2luIHNwZWNpZmllcyB3aGV0aGVyIHlvdSB3YW50IHRvIGFwcGx5IHRoZSBmdW5jdGlvbiBhY3Jvc3Mgcm93cyAoMSkgb3IgY29sdW1ucyAoMikNCiogRlVOIGlzIHRoZSBmdW5jdGlvbiB5b3Ugd2FudCB0byB1c2UNCg0KIyMgYXBwbHkgZXhhbXBsZXMNCm15Lm1hdHJ4IGlzIGEgbWF0cml4IHdpdGggMS0xMCBpbiBjb2x1bW4gMSwgMTEtMjAgaW4gY29sdW1uIDIsIGFuZCAyMS0zMCBpbiBjb2x1bW4gMy4gDQpteS5tYXRyeCB3aWxsIGJlIHVzZWQgdG8gc2hvdyBzb21lIG9mIHRoZSBiYXNpYyB1c2VzIGZvciB0aGUgYXBwbHkgZnVuY3Rpb24uDQpgYGB7cn0NCm15Lm1hdHJ4IDwtIG1hdHJpeChjKDE6MTAsIDExOjIwLCAyMTozMCksIG5yb3cgPSAxMCwgbmNvbCA9IDMpDQpteS5tYXRyeA0KYGBgDQoNCiMjIyBFeGFtcGxlIDE6IFVzaW5nIGFwcGx5IHRvIGZpbmQgcm93IHN1bXMNCldoYXQgaWYgSSB3YW50ZWQgdG8gc3VtbWFyaXplIHRoZSBkYXRhIGluIG1hdHJpeCBtIGJ5IGZpbmRpbmcgdGhlIHN1bSBvZiBlYWNoIHJvdz8gVGhlIGFyZ3VtZW50cyANCmFyZSBYID0gbSwgTUFSR0lOID0gMSAoZm9yIHJvdyksIGFuZCBGVU4gPSBzdW0NCg0KYGBge3J9DQphcHBseShteS5tYXRyeCwgMSwgc3VtKQ0KYGBgDQpUaGUgYXBwbHkgZnVuY3Rpb24gcmV0dXJuZWQgYSB2ZWN0b3IgY29udGFpbmluZyB0aGUgc3VtcyBmb3IgZWFjaCByb3cuDQoNCiMjIyBFeGFtcGxlIDI6IENyZWF0aW5nIGEgZnVuY3Rpb24gaW4gdGhlIGFyZ3VtZW50cw0KV2hhdCBpZiBJIHdhbnRlZCB0byBiZSBhYmxlIHRvIGZpbmQgaG93IG1hbnkgZGF0YXBvaW50cyAobikgYXJlIGluIGVhY2ggY29sdW1uIG9mIG0/IEkgY2FuIHVzZSANCnRoZSBsZW5ndGggZnVuY3Rpb24gdG8gZG8gdGhpcy4gQmVjYXVzZSB3ZSBhcmUgdXNpbmcgY29sdW1ucywgTUFSR0lOID0gMi4NCmBgYHtyfQ0KYXBwbHkobXkubWF0cngsIDIsIGxlbmd0aCkNCmBgYA0KV2hhdCBpZiBpbnN0ZWFkLCBJIHdhbnRlZCB0byBmaW5kIG4tMSBmb3IgZWFjaCBjb2x1bW4/IFRoZXJlIGlzbid0IGEgZnVuY3Rpb24gaW4gUiB0byBkbyB0aGlzDQphdXRvbWF0aWNhbGx5LCBzbyBJIGNhbiBjcmVhdGUgbXkgb3duIGZ1bmN0aW9uLiBJZiB0aGUgZnVuY3Rpb24gaXMgc2ltcGxlLCB5b3UgY2FuIGNyZWF0ZSBpdA0KcmlnaHQgaW5zaWRlIHRoZSBhcmd1bWVudHMgZm9yIGFwcGx5LiBJbiB0aGUgYXJndW1lbnRzIEkgY3JlYXRlZCBhIGZ1bmN0aW9uIHRoYXQgcmV0dXJucw0KbGVuZ3RoIC0gMS4NCmBgYHtyfQ0KYXBwbHkobXkubWF0cngsIDIsIGZ1bmN0aW9uICh4KSBsZW5ndGgoeCktMSkNCmBgYA0KQXMgeW91IGNhbiBzZWUsIHRoZSBmdW5jdGlvbiBjb3JyZWN0bHkgcmV0dXJuZWQgYSB2ZWN0b3Igb2Ygbi0xIGZvciBlYWNoIGNvbHVtbi4NCiANCiMjIyBFeGFtcGxlIDM6IFVzaW5nIGEgZnVuY3Rpb24gZGVmaW5lZCBvdXRzaWRlIG9mIGFwcGx5DQpJZiB5b3UgZG9uJ3Qgd2FudCB0byB3cml0ZSBhIGZ1bmN0aW9uIGluc2lkZSBvZiB0aGUgYXJndW1lbnRzLCB5b3UgY2FuIGRlZmluZSB0aGUgZnVuY3Rpb24gDQpvdXRzaWRlIG9mIGFwcGx5LCBhbmQgdGhlbiB1c2UgdGhhdCBmdW5jdGlvbiBpbiBhcHBseSBsYXRlci4gVGhpcyBtYXkgYmUgdXNlZnVsIGlmIHlvdSB3YW50IHRvIA0KaGF2ZSB0aGUgZnVuY3Rpb24gYXZhaWxhYmxlIHRvIHVzZSBsYXRlci4gSW4gdGhpcyBleGFtcGxlLCBhIGZ1bmN0aW9uIHRvIGZpbmQgc3RhbmRhcmQgZXJyb3Igd2FzDQpjcmVhdGVkLCB0aGVuIHBhc3NlZCBpbnRvIGFuIGFwcGx5IGZ1bmN0aW9uLg0KYGBge3J9DQpzdC5lcnIgPC0gZnVuY3Rpb24oeCl7DQogIHNkKHgpL3NxcnQobGVuZ3RoKHgpKQ0KfQ0KYXBwbHkobXkubWF0cngsMiwgc3QuZXJyKQ0KYGBgDQoNCiMjIyBFeGFtcGxlIDQ6IFRyYW5zZm9ybWluZyBkYXRhDQpOb3cgZm9yIHNvbWV0aGluZyBhIGxpdHRsZSBkaWZmZXJlbnQuIEluIHRoZSBwcmV2aW91cyBleGFtcGxlcywgYXBwbHkgd2FzIHVzZWQgdG8gc3VtbWFyaXplDQpvdmVyIGEgcm93IG9yIGNvbHVtbi4gSXQgY2FuIGFsc28gYmUgdXNlZCB0byByZXBlYXQgYSBmdW5jdGlvbiBvbiBjZWxscyB3aXRoaW4gYSBtYXRyaXguIEluIHRoaXMNCmV4YW1wbGUsIHRoZSBhcHBseSBmdW5jdGlvbiBpcyB1c2VkIHRvIHRyYW5zZm9ybSB0aGUgdmFsdWVzIGluIGVhY2ggY2VsbC4gUGF5IGF0dGVudGlvbiB0byB0aGUNCk1BUkdJTiBhcmd1bWVudC4gSWYgeW91IHNldCB0aGUgTUFSR0lOIHRvIDE6MiBpdCB3aWxsIGhhdmUgdGhlIGZ1bmN0aW9uIG9wZXJhdGUgb24gZWFjaCBjZWxsLg0KYGBge3J9DQpteS5tYXRyeDIgPC0gYXBwbHkobXkubWF0cngsMToyLCBmdW5jdGlvbih4KSB4KzMpDQpteS5tYXRyeDINCmBgYA0KDQojIyMgRXhhbXBsZSA1OiBWZWN0b3JzPw0KVGhlIHByZXZpb3VzIGV4YW1wbGVzIHNob3dlZCBzZXZlcmFsIHdheXMgdG8gdXNlIHRoZSBhcHBseSBmdW5jdGlvbiBvbiBhIG1hdHJpeC4gQnV0IHdoYXQgaWYgSSANCndhbnRlZCB0byBsb29wIHRocm91Z2ggYSB2ZWN0b3IgaW5zdGVhZD8gV2lsbCB0aGUgYXBwbHkgZnVuY3Rpb24gd29yaz8NCg0KYGBge3IsIH0NCnZlYyA8LSBjKDE6MTApDQp2ZWMNCmBgYA0KYGBge3IsIGV2YWw9RkFMU0V9DQphcHBseSh2ZWMsIDEsIHN1bSkNCmBgYA0KSWYgeW91IHJ1biB0aGlzIGZ1bmN0aW9uIGl0IHdpbGwgcmV0dXJuIHRoZSBlcnJvcjogRXJyb3IgaW4gYXBwbHkodiwgMSwgc3VtKSA6IGRpbShYKSBtdXN0IGhhdmUgYSBwb3NpdGl2ZSBsZW5ndGguIA0KQXMgeW91IGNhbiBzZWUsIHRoaXMgZGlkbid0IHdvcmsgYmVjYXVzZSBhcHBseSB3YXMgZXhwZWN0aW5nIHRoZSBkYXRhIHRvIGhhdmUgYXQgbGVhc3QgdHdvIGRpbWVuc2lvbnMuIElmIHlvdXIgZGF0YSBpcyBhIHZlY3RvciB5b3UgbmVlZCB0byB1c2UgbGFwcGx5LCBzYXBwbHksIG9yIHZhcHBseSBpbnN0ZWFkLg0KDQojIGxhcHBseSwgc2FwcGx5LCBhbmQgdmFwcGx5DQpsYXBwbHksIHNhcHBseSwgYW5kIHZhcHBseSBhcmUgYWxsIGZ1bmN0aW9ucyB0aGF0IHdpbGwgbG9vcCBhIGZ1bmN0aW9uIHRocm91Z2ggZGF0YSBpbiBhIGxpc3Qgb3INCnZlY3Rvci4gRmlyc3QsIHRyeSBsb29raW5nIHVwIGxhcHBseSBpbiB0aGUgaGVscCBzZWN0aW9uIHRvIHNlZSBhIGRlc2NyaXB0aW9uIG9mIGFsbCB0aHJlZSANCmZ1bmN0aW9uLg0KDQpgYGB7ciwgZXZhbD1GQUxTRX0NCj9sYXBwbHkNCmBgYA0KDQpIZXJlIGFyZSB0aGUgYWdydW1lbnRzIGZvciB0aGUgdGhyZWUgZnVuY3Rpb25zOg0KDQoqIGxhcHBseShYLCBGVU4sIC4uLikNCiogc2FwcGx5KFgsIEZVTiwgLi4uLCBzaW1wbGlmeSA9IFRSVUUsIFVTRS5OQU1FUyA9IFRSVUUpDQoqIHZhcHBseShYLCBGVU4sIEZVTi5WQUxVRSwgLi4uLCBVU0UuTkFNRVMgPSBUUlVFKQ0KDQpJbiB0aGlzIGNhc2UsIFggaXMgYSB2ZWN0b3Igb3IgbGlzdCwgYW5kIEZVTiBpcyB0aGUgZnVuY3Rpb24geW91IHdhbnQgdG8gdXNlLiBzYXBwbHkgYW5kIHZhcHBseSBoYXZlIGV4dHJhIGFyZ3VtZW50cywgYnV0IG1vc3Qgb2YgdGhlbSBoYXZlIGRlZmF1bHQgdmFsdWVzLCBzbyB5b3UgZG9uJ3QgbmVlZCB0byB3b3JyeSBhYm91dA0KdGhlbS4gSG93ZXZlciwgdmFwcGx5IHJlcXVpcmVzIGFub3RoZXIgYWdydW1lbnQgY2FsbGVkIEZVTi5WQUxVRSwgd2hpY2ggd2Ugd2lsbCBsb29rIGF0IGxhdGVyLg0KDQojIyMgRXhhbXBsZSAxOiBHZXR0aW5nIHN0YXJ0ZWQgd2l0aCBsYXBwbHkNCkVhcmxpZXIsIHdlIGNyZWF0ZWQgdGhlIHZlY3RvciB2LiBMZXQncyB1c2UgdGhhdCB2ZWN0b3IgdG8gdGVzdCBvdXQgdGhlIGxhcHBseSBmdW5jdGlvbi4NCmBgYHtyfQ0KbGFwcGx5KHZlYywgc3VtKQ0KYGBgDQpUaGlzIGZ1bmN0aW9uIGRpZG4ndCBhZGQgdXAgdGhlIHZhbHVlcyBsaWtlIHdlIG1heSBoYXZlIGV4cGVjdGVkIGl0IHRvLiBUaGlzIGlzIGJlY2F1c2UgbGFwcGx5DQphcHBsaWVzIHRyZWF0cyB0aGUgdmVjdG9yIGxpa2UgYSBsaXN0LCBhbmQgYXBwbGllcyB0aGUgZnVuY3Rpb24gdG8gZWFjaCBwb2ludCBpbiB0aGUgdmVjdG9yLg0KDQpMZXQncyB0cnkgdXNpbmcgYSBsaXN0IGluc3RlYWQNCmBgYHtyfQ0KQTwtYygxOjkpDQpCPC1jKDE6MTIpDQpDPC1jKDE6MTUpDQpteS5sc3Q8LWxpc3QoQSxCLEMpDQpsYXBwbHkobXkubHN0LCBzdW0pDQpgYGANClRoaXMgdGltZSwgdGhlIGxhcHBseSBmdW5jdGlvbiBzZWVtZWQgdG8gd29yayBiZXR0ZXIuIFRoZSBmdW5jdGlvbiBzdW1tZWQgZWFjaCB2ZWN0b3IgaW4gdGhlIGxpc3QNCmFuZCByZXR1cm5lZCBhIGxpc3Qgb2YgdGhlIDMgc3Vtcy4gDQoNCiMjIyBFeGFtcGxlIDI6IHNhcHBseQ0Kc2FwcGx5IHdvcmtzIGp1c3QgbGlrZSBsYXBwbHksIGJ1dCB3aWxsIHNpbXBsaWZ5IHRoZSBvdXRwdXQgaWYgcG9zc2libGUuIFRoaXMgbWVhbnMgdGhhdCBpbnN0ZWFkDQpvZiByZXR1cm5pbmcgYSBsaXN0IGxpa2UgbGFwcGx5LCBpdCB3aWxsIHJldHVybiBhIHZlY3RvciBpbnN0ZWFkIGlmIHRoZSBkYXRhIGlzIHNpbXBsaWZpYWJsZS4NCg0KYGBge3J9DQpzYXBwbHkodmVjLCBzdW0pDQpgYGANCg0KYGBge3J9DQpzYXBwbHkobXkubHN0LCBzdW0pDQpgYGANClNlZSBob3cgdGhlc2UgdHdvIGV4YW1wbGVzIGdhdmUgdGhlIHNhbWUgYW5zd2VycywgYnV0IHJldHVybmVkIGEgdmVjdG9yIGluc3RlYWQ/DQoNCiMjIyBFeGFtcGxlIDM6IHZhcHBseQ0KdmFwcGx5IGlzIHNpbWlsYXIgdG8gc2FwcGx5LCBidXQgaXQgcmVxdWlyZXMgeW91IHRvIHNwZWNpZnkgd2hhdCB0eXBlIG9mIGRhdGEgeW91IGFyZSBleHBlY3RpbmcNCnRoZSBhcmd1bWVudHMgZm9yIHZhcHBseSBhcmUgdmFwcGx5KFgsIEZVTiwgRlVOLlZBTFVFKS4NCkZVTi5WQUxVRSBpcyB3aGVyZSB5b3Ugc3BlY2lmeSB0aGUgdHlwZSBvZiBkYXRhIHlvdSBhcmUgZXhwZWN0aW5nLg0KSSBhbSBleHBlY3RpbmcgZWFjaCBpdGVtIGluIHRoZSBsaXN0IHRvIHJldHVybiBhIHNpbmdsZSBudW1lcmljIHZhbHVlLCBzbyBGVU4uVkFMVUUgPSBudW1lcmljKDEpLg0KDQpgYGB7cn0NCnZhcHBseSh2ZWMsIHN1bSwgbnVtZXJpYygxKSkNCmBgYA0KDQpgYGB7cn0NCnZhcHBseShteS5sc3QsIHN1bSwgbnVtZXJpYygxKSkNCmBgYA0KDQpJZiB5b3VyIGZ1bmN0aW9uIHdlcmUgdG8gcmV0dXJuIG1vcmUgdGhhbiBvbmUgbnVtZXJpYyB2YWx1ZSwgRlVOLlZBTFVFID0gbnVtZXJpYygxKSB3aWxsIGNhdXNlIHRoZSBmdW5jdGlvbiB0byByZXR1cm4gYW4gZXJyb3IuIFRoaXMgY291bGQgYmUgdXNlZnVsIGlmIHlvdSBhcmUgZXhwZWN0aW5nIG9ubHkgb25lIHJlc3VsdCBwZXIgc3ViamVjdC4gDQpgYGB7cn0NCiN2YXBwbHkobXkubHN0LCBmdW5jdGlvbih4KSB4KzIsIG51bWVyaWMoMSkpDQpgYGANCg0KIyMjIEV4YW1wbGUgNDogVHJhbnNmb3JtaW5nIGRhdGEgd2l0aCBzYXBwbHkNCkxpa2UgYXBwbHksIHRoZXNlIGZ1bmN0aW9ucyBjYW4gYWxzbyBiZSB1c2VkIGZvciB0cmFuc2Zvcm1pbmcgZGF0YSBpbnNpZGUgdGhlIGxpc3QNCmBgYHtyfQ0KbXkubHN0MiA8LSBzYXBwbHkobXkubHN0LCBmdW5jdGlvbih4KSB4KjIpDQpteS5sc3QyDQpgYGANCg0KIyMjIFdoaWNoIGZ1bmN0aW9uIHNob3VsZCBJIHVzZSwgbGFwcGx5LCBzYXBwbHksIG9yIHZhcHBseT8NCg0KSWYgeW91IGFyZSB0cnlpbmcgdG8gZGVjaWRlIHdoaWNoIG9mIHRoZXNlIHRocmVlIGZ1bmN0aW9ucyB0byB1c2UsIGJlY2F1c2UgaXQgaXMgdGhlIHNpbXBsZXN0LCBJIHdvdWxkIHN1Z2dlc3QgdG8gdXNlIHNhcHBseSBpZiBwb3NzaWJsZS4gSWYgeW91IGRvIG5vdCB3YW50IHlvdXIgcmVzdWx0cyB0byBiZSBzaW1wbGlmaWVkIHRvIGEgdmVjdG9yLCBsYXBwbHkgc2hvdWxkIGJlIHVzZWQuIElmIHlvdSB3YW50IHRvIHNwZWNpZnkgdGhlIHR5cGUgb2YgcmVzdWx0IHlvdSBhcmUgZXhwZWN0aW5nLCB1c2UgdmFwcGx5Lg0KDQoNCiMgdGFwcGx5DQoNClNvbWV0aW1lcyB5b3UgbWF5IHdhbnQgdG8gcGVyZm9ybSB0aGUgYXBwbHkgZnVuY3Rpb24gb24gc29tZSBkYXRhLCBidXQgaGF2ZSBpdCBzZXBhcmF0ZWQgYnkgDQpmYWN0b3IuIEluIHRoYXQgY2FzZSwgeW91IHNob3VsZCB1c2UgdGFwcGx5LiBMZXQncyB0YWtlIGEgbG9vayBhdCB0aGUgaW5mb3JtYXRpb24gZm9yIHRhcHBseS4NCg0KYGBge3IsIGV2YWw9RkFMU0V9DQo/dGFwcGx5DQpgYGANClRoZSBhcmd1bWVudHMgZm9yIHRhcHBseSBhcmUgdGFwcGx5KFgsIElOREVYLCBGVU4pLiBUaGUgb25seSBuZXcgYXJndW1lbnQgaXMgSU5ERVgsIHdoaWNoIGlzIHRoZSANCmZhY3RvciB5b3Ugd2FudCB0byB1c2UgdG8gc2VwYXJhdGUgdGhlIGRhdGEuDQoNCiMjIyBFeGFtcGxlIDE6IE1lYW5zIHNwbGl0IGJ5IGNvbmRpdGlvbg0KRmlyc3QsIGxldCdzIGNyZWF0ZSBkYXRhIHdpdGggYW4gZmFjdG9yIGZvciBpbmRleGluZy4gRGF0YXNldCB0IHdpbGwgYmUgY3JlYXRlZCBieSBhZGRpbmcgYSBmYWN0b3IgdG8gbWF0cml4IG0gYW5kIGNvbnZlcnRpbmcgaXQgdG8gYSBkYXRhZnJhbWUuIA0KDQpgYGB7cn0NCnRkYXRhIDwtIGFzLmRhdGEuZnJhbWUoY2JpbmQoYygxLDEsMSwxLDEsMiwyLDIsMiwyKSwgbXkubWF0cngpKQ0KY29sbmFtZXModGRhdGEpDQpgYGANCk5vdyBsZXQncyB1c2UgY29sdW1uIDEgYXMgdGhlIGluZGV4IGFuZCBmaW5kIHRoZSBtZWFuIG9mIGNvbHVtbiAyDQoNCmBgYHtyfQ0KdGFwcGx5KHRkYXRhJFYyLCB0ZGF0YSRWMSwgbWVhbikNCmBgYA0KDQojIyMgRXhhbXBsZSAyOiBDb21iaW5pbmcgZnVuY3Rpb25zDQpZb3UgY2FuIHVzZSB0YXBwbHkgdG8gZG8gc29tZSBxdWljayBzdW1tYXJ5IHN0YXRpc3RpY3Mgb24gYSB2YXJpYWJsZSBzcGxpdCBieSBjb25kaXRpb24uIEluIHRoaXMgDQpleGFtcGxlLCBJIGNyZWF0ZWQgYSBmdW5jdGlvbiB0aGF0IHJldHVybnMgYSB2ZWN0b3Igb2Zib3RoIHRoZSBtZWFuIGFuZCBzdGFuZGFyZCBkZXZpYXRpb24uIFlvdSANCmNhbiBjcmVhdGUgYSBmdW5jdGlvbiBsaWtlIHRoaXMgZm9yIGFueSBhcHBseSBmdW5jdGlvbiwgbm90IGp1c3QgdGFwcGx5Lg0KYGBge3J9DQpzdW1tYXJ5IDwtIHRhcHBseSh0ZGF0YSRWMiwgdGRhdGEkVjEsIGZ1bmN0aW9uKHgpIGMobWVhbih4KSwgc2QoeCkpKQ0Kc3VtbWFyeQ0KYGBgDQoNCiMgbWFwcGx5DQp0aGUgbGFzdCBhcHBseSBmdW5jdGlvbiBJIHdpbGwgY292ZXIgaXMgbWFwcGx5Lg0KYGBge3IsIGV2YWw9RkFMU0V9DQo/bWFwcGx5DQpgYGANCnRoZSBhcmd1bWVudHMgZm9yIG1hcHBseSBhcmUgbWFwcGx5KEZVTiwgLi4uLCBNb3JlQXJncyA9IE5VTEwsIFNJTVBMSUZZID0gVFJVRSwgVVNFLk5BTUVTID0gVFJVRSkuDQpGaXJzdCB5b3UgbGlzdCB0aGUgZnVuY3Rpb24sIGZvbGxvd2VkIGJ5IHRoZSB2ZWN0b3JzIHlvdSBhcmUgdXNpbmcNCnRoZSByZXN0IG9mIHRoZSBhcmd1bWVudHMgaGF2ZSBkZWZhdWx0IHZhbHVlcyBzbyB0aGV5IGRvbid0IG5lZWQgdG8gYmUgY2hhbmdlZCBmb3Igbm93LiANCldoZW4geW91IGhhdmUgYSBmdW5jdGlvbiB0aGF0IHRha2VzIDIgYXJndW1lbnRzLCB0aGUgZmlyc3QgdmVjdG9yIGdvZXMgaW50byB0aGUgZmlyc3QgYXJndW1lbnQNCmFuZCB0aGUgc2Vjb25kIHZlY3RvciBnb2VzIGludG8gdGhlIHNlY29uZCBhcmd1bWVudC4NCg0KIyMjIEV4YW1wbGUgMTogVW5kZXJzdGFuZGluZyBtYXBwbHkNCkluIHRoaXMgZXhhbXBsZSwgMTo5IGlzIHNwZWNpZnlpbmcgdGhlIHZhbHVlIHRvIHJlcGVhdCwgYW5kIDk6MSBpcyBzcGVjaWZ5aW5nIGhvdyBtYW55IHRpbWVzDQp0byByZXBlYXQuIFRoaXMgb3JkZXIgaXMgYmFzZWQgb24gdGhlIG9yZGVyIG9mIGFyZ3VtZW50cyBpbiB0aGUgcmVwIGZ1bmN0aW9uIGl0c2VsZi4NCmBgYHtyfQ0KbWFwcGx5KHJlcCwgMTo5LCA5OjEpDQpgYGANCg0KIyMjIEV4YW1wbGUgMjogQ3JlYXRpbmcgYSBuZXcgdmFyaWFibGUNCkFub3RoZXIgdXNlIGZvciBtYXBwbHkgd291bGQgYmUgdG8gY3JlYXRlIGEgbmV3IHZhcmlhYmxlLiBGb3IgZXhhbXBsZSwgdXNpbmcgZGF0YXNldCB0LCBJIGNvdWxkDQpkaXZpZGUgb25lIGNvbHVtbiBieSBhbm90aGVyIGNvbHVtbiB0byBjcmVhdGUgYSBuZXcgdmFsdWUuIFRoaXMgd291bGQgYmUgdXNlZnVsIGZvciBjcmVhdGluZyBhIA0KcmF0aW8gb2YgdHdvIHZhcmlhYmxlcyBhcyBzaG93biBpbiB0aGUgZXhhbXBsZSBiZWxvdy4gDQoNCmBgYHtyfQ0KdGRhdGEkVjUgPC0gbWFwcGx5KGZ1bmN0aW9uKHgsIHkpIHgveSwgdGRhdGEkVjIsIHRkYXRhJFY0KQ0KdGRhdGEkVjUNCmBgYA0KDQojIyMgRXhhbXBsZSAzOiBTYXZpbmcgZGF0YSBpbnRvIGEgcHJlbWFkZSB2ZWN0b3INCldoZW4gdXNpbmcgYW4gYXBwbHkgZmFtaWx5IGZ1bmN0aW9uIHRvIGNyZWF0ZSBhIG5ldyB2YXJpYWJsZSwgb25lIG9wdGlvbiBpcyB0byBjcmVhdGUgYSBuZXcgdmVjdG9yIGFoZWFkIG9mIHRpbWUgd2l0aCB0aGUgc2l6ZSBvZiB0aGUgdmVjdG9yIHByZS1hbGxvY2F0ZWQuIEkgY3JlYXRlZCBhIG51bWVyaWMgdmVjdG9yIG9mIGxlbmd0aCAxMCB1c2luZyB0aGUgdmVjdG9yIGZ1bmN0aW9uLiBUaGUgYXJndW1lbnRzIGZvciB0aGUgdmVjdG9yIGZ1bmN0aW9uIGFyZSB2ZWN0b3IobW9kZSwgbGVuZ3RoKS4gSW5zaWRlIG1hcHBseSBJIGNyZWF0ZWQgYSBmdW5jdGlvbiB0byBtdWx0aXBsZSB0d28gdmFyaWFibGVzIHRvZ2V0aGVyLiBUaGUgcmVzdWx0cyBvZiB0aGUgbWFwcGx5IGZ1bmN0aW9uIGFyZSB0aGVuIHNhdmVkIGludG8gdGhlIHZlY3Rvci4NCg0KYGBge3J9DQpuZXcudmVjIDwtIHZlY3Rvcihtb2RlID0gIm51bWVyaWMiLCBsZW5ndGggPSAxMCkNCm5ldy52ZWMgPC0gbWFwcGx5KGZ1bmN0aW9uKHgsIHkpIHgqeSwgdGRhdGEkVjMsIHRkYXRhJFY0KQ0KbmV3LnZlYw0KYGBgDQoNCiMgVXNpbmcgYXBwbHkgZnVuY3Rpb25zIG9uIHJlYWwgZGF0YXNldHMNClRoaXMgbGFzdCBzZWN0aW9uIHdpbGwgYmUgYSBmZXcgZXhhbXBsZXMgb2YgdXNpbmcgYXBwbHkgZnVuY3Rpb25zIG9uIHJlYWwgZGF0YS5UaGlzIHNlY3Rpb24gd2lsbA0KbWFrZSB1c2Ugb2YgdGhlIE1BU1MgcGFja2FnZSwgd2hpY2ggaXMgYSBjb2xsZWN0aW9uIG9mIHB1YmxpY2x5IGF2YWlsYWJsZSBkYXRhc2V0cy4gUGxlYXNlDQppbnN0YWxsIE1BU1MgaWYgeW91IGRvIG5vdCBhbHJlYWR5IGhhdmUgaXQuIElmIHlvdSBkbyBub3QgaGF2ZSBNQVNTIGluc3RhbGxlZCwgeW91IGNhbiB1bmNvbW1lbnQNCnRoZSBjb2RlIGJlbG93Lg0KDQpgYGB7cn0NCiNpbnN0YWxsLnBhY2thZ2VzKCJNQVNTIikNCmxpYnJhcnkoTUFTUykNCmBgYA0KDQpsb2FkIHRoZSBzdGF0ZSBkYXRhc2V0LiBJdCBjb250YWlucyBpbmZvcm1hdGlvbiBhYm91dCBhbGwgNTAgc3RhdGVzDQpgYGB7cn0NCmRhdGEoc3RhdGUpDQpgYGANCkxldCdzIGxvb2sgYXQgdGhlIGRhdGEgd2Ugd2lsbCBiZSB1c2luZy4gV2Ugd2lsbCBiZSB1c2luZyB0aGUgc3RhdGUueDc3IGRhdGFzZXQNCmBgYHtyfQ0KaGVhZChzdGF0ZS54NzcpDQpzdHIoc3RhdGUueDc3KQ0KYGBgDQpBbGwgdGhlIGRhdGEgaW4gdGhlIGRhdGFzZXQgaGFwcGVucyB0byBiZSBudW1lcmljLCB3aGljaCBpcyBuZWNlc3Nhcnkgd2hlbiB0aGUgZnVuY3Rpb24gaW5zaWRlIHRoZSBhcHBseSBmdW5jdGlvbiByZXF1aXJlcyBudW1lcmljIGRhdGEuDQoNCiMjIyBFeGFtcGxlIDE6IHVzaW5nIGFwcGx5IHRvIGdldCBzdW1tYXJ5IGRhdGENCllvdSBjYW4gdXNlIGFwcGx5IHRvIGZpbmQgbWVhc3VyZXMgb2YgY2VudHJhbCB0ZW5kZW5jeSBhbmQgZGlzcGVyc2lvbg0KYGBge3J9DQphcHBseShzdGF0ZS54NzcsIDIsIG1lYW4pDQphcHBseShzdGF0ZS54NzcsIDIsIG1lZGlhbikNCmFwcGx5KHN0YXRlLng3NywgMiwgc2QpDQpgYGANCg0KIyMjIEV4YW1wbGUgMjogU2F2aW5nIHRoZSByZXN1bHRzIG9mIGFwcGx5DQoNCkluIHRoaXMsIEkgY3JlYXRlZCBvbmUgZnVuY3Rpb24gdGhhdCBnaXZlcyB0aGUgbWVhbiBhbmQgU0QsIGFuZCBhbm90aGVyIHRoYXQgZ2l2ZSBtaW4sIG1lZGlhbiwgYW5kIG1heC4gVGhlbiBJIHNhdmVkIHRoZW0gYXMgb2JqZWN0cyB0aGF0IGNvdWxkIGJlIHVzZWQgbGF0ZXIuDQpgYGB7cn0NCnN0YXRlLnN1bW1hcnk8LSBhcHBseShzdGF0ZS54NzcsIDIsIGZ1bmN0aW9uKHgpIGMobWVhbih4KSwgc2QoeCkpKSANCnN0YXRlLnN1bW1hcnkNCnN0YXRlLnJhbmdlIDwtIGFwcGx5KHN0YXRlLng3NywgMiwgZnVuY3Rpb24oeCkgYyhtaW4oeCksIG1lZGlhbih4KSwgbWF4KHgpKSkNCnN0YXRlLnJhbmdlDQpgYGANCg0KIyMjIEV4YW1wbGUgMzogVXNpbmcgbWFwcGx5IHRvIGNvbXB1dGUgYSBuZXcgdmFyaWFibGUNCkluIHRoaXMgZXhhbXBsZSwgSSB3YW50IHRvIGZpbmQgdGhlIHBvcHVsYXRpb24gZGVuc2l0eSBmb3IgZWFjaCBzdGF0ZS4gSW4gb3JkZXIgdG8gZG8gdGhpcywgSSANCndhbnQgdG8gZGl2aWRlIHBvcHVsYXRpb24gYnkgYXJlYS4gc3RhdGUuYXJlYSBhbmQgc3RhdGUueDc3IGFyZSBub3QgZnJvbSB0aGUgc2FtZSBkYXRhc2V0LCBidXQgDQp0aGF0IGlzIGZpbmUgYXMgbG9uZyBhcyB0aGUgdmVjdG9ycyBhcmUgdGhlIHNhbWUgbGVuZ3RoIGFuZCB0aGUgZGF0YSBpcyBpbiB0aGUgc2FtZSBvcmRlci4gQm90aA0KdmVjdG9ycyBhcmUgYWxwaGFiZXRpY2FsbHkgYnkgc3RhdGUsIHNvIG1hcHBseSBjYW4gYmUgdXNlZC4NCmBgYHtyfQ0KcG9wdWxhdGlvbiA8LSBzdGF0ZS54NzdbMTo1MF0NCmFyZWEgPC0gc3RhdGUuYXJlYQ0KcG9wLmRlbnMgPC0gbWFwcGx5KGZ1bmN0aW9uKHgsIHkpIHgveSwgcG9wdWxhdGlvbiwgYXJlYSkNCnBvcC5kZW5zDQpgYGANCg0KIyMjIEV4YW1wbGUgNDogVXNpbmcgdGFwcGx5ICB0byBleHBsb3JlIHBvcHVsYXRpb24gYnkgcmVnaW9uDQpJbiB0aGlzIGV4YW1wbGUsIEkgd2FudCB0byBmaW5kIG91dCBzb21lIGluZm9ybWF0aW9uIGFib3V0IHRoZSBwb3B1bGF0aW9uIG9mIHN0YXRlcyBzcGxpdCBieQ0KcmVnaW9uLiBzdGF0ZS5yZWdpb24gaXMgYSBmYWN0b3Igd2l0aCBmb3VyIGxldmVsczogTm9ydGhlYXN0LCBTb3V0aCwgTm9ydGggQ2VudHJhbCwgYW5kIFdlc3QuDQpGb3IgZWFjaCByZWdpb24sIEkgd2FudCB0aGUgbWluaW11bSwgbWVkaWFuLCBhbmQgbWF4aW11bSBwb3B1bGF0aW9ucy4NCg0KYGBge3J9DQpyZWdpb24uaW5mbyA8LSB0YXBwbHkocG9wdWxhdGlvbiwgc3RhdGUucmVnaW9uLCBmdW5jdGlvbih4KSBjKG1pbih4KSwgbWVkaWFuKHgpLCBtYXgoeCkpKQ0KcmVnaW9uLmluZm8NCmBgYA0KDQojIFJlZmVyZW5jZXMNCkhlcmUgYXJlIHNvbWUgc291cmNlcyBJIHVzZWQgdG8gaGVscCBtZSBjcmVhdGUgdGhpcyBjaGFwdGVyOg0KDQpEYXRhY2FtcCB0dXRvcmlhbCBvbiBhcHBseSBmdW5jdGlvbnM6IGh0dHBzOi8vd3d3LmRhdGFjYW1wLmNvbS9jb21tdW5pdHkvdHV0b3JpYWxzL3ItdHV0b3JpYWwtYXBwbHktZmFtaWx5DQoNCnItYmxvZ2dlcnM6IFVzaW5nIGFwcGx5LCBzYXBwbHksIGFuZCBsYXBwbHkgaW4gUjogaHR0cHM6Ly93d3cuci1ibG9nZ2Vycy5jb20vdXNpbmctYXBwbHktc2FwcGx5LWxhcHBseS1pbi1yLw0KDQpzdGFja292ZXJmbG93OiBXaHkgaXMgdmFwcGx5IHNhZmVyIHRoYW4gc2FwcGx5PzogaHR0cDovL3N0YWNrb3ZlcmZsb3cuY29tL3F1ZXN0aW9ucy8xMjMzOTY1MC93aHktaXMtdmFwcGx5LXNhZmVyLXRoYW4tc2FwcGx5DQoNCg0KPHNjcmlwdD4NCiAgKGZ1bmN0aW9uKGkscyxvLGcscixhLG0pe2lbJ0dvb2dsZUFuYWx5dGljc09iamVjdCddPXI7aVtyXT1pW3JdfHxmdW5jdGlvbigpew0KICAoaVtyXS5xPWlbcl0ucXx8W10pLnB1c2goYXJndW1lbnRzKX0saVtyXS5sPTEqbmV3IERhdGUoKTthPXMuY3JlYXRlRWxlbWVudChvKSwNCiAgbT1zLmdldEVsZW1lbnRzQnlUYWdOYW1lKG8pWzBdO2EuYXN5bmM9MTthLnNyYz1nO20ucGFyZW50Tm9kZS5pbnNlcnRCZWZvcmUoYSxtKQ0KICB9KSh3aW5kb3csZG9jdW1lbnQsJ3NjcmlwdCcsJ2h0dHBzOi8vd3d3Lmdvb2dsZS1hbmFseXRpY3MuY29tL2FuYWx5dGljcy5qcycsJ2dhJyk7DQoNCiAgZ2EoJ2NyZWF0ZScsICdVQS05ODg3ODc5My0xJywgJ2F1dG8nKTsNCiAgZ2EoJ3NlbmQnLCAncGFnZXZpZXcnKTsNCg0KPC9zY3JpcHQ+DQo=, A Language, not a Letter: Learning Statistics in R, https://www.datacamp.com/community/tutorials/r-tutorial-apply-family, https://www.r-bloggers.com/using-apply-sapply-lapply-in-r/, http://stackoverflow.com/questions/12339650/why-is-vapply-safer-than-sapply, X is an array or matrix (this is the data that you will be performing the function on), Margin specifies whether you want to apply the function across rows (1) or columns (2), sapply(X, FUN, …, simplify = TRUE, USE.NAMES = TRUE), vapply(X, FUN, FUN.VALUE, …, USE.NAMES = TRUE).