do.call

This question is a follow-up to a previous answer which raised a puzzle. Reproducible example from the previous answer: Models <- list( lm(runif(10)~rnorm(10)),lm(runif(10)~rnorm(10)),lm(runif(10)~rnorm(10)) ) lm1 <- lm(runif(10)~rnorm(10)) library(functional) # This works do.call( Curry(anova, object=lm1), Models ) # But so does this do.call( anova, Models ) The question is why does do.call(anova, Models) work fine, as @Roland points out? The signature for anova is anova(object, ...) anova calls UseMethod , which should* call anova.lm which should call anova.lmlist , whose first line is

I use R to generate a toy set data.frame(name = c("Tom", "Shane", "Daniel", "Akira", "Jack", "Zoe"), c1 = c(1,2,3,0,5,0), c2 = c(0, 3, 5, 0,4,0), c3 = c(0, 0,1,0,0,3), c4=c(0,0,0,1,0,0)) which is displayed below: I only care about the columns c1, c2, c3, c4 , and if a specific row has more than one value, which is greater than 0. we need to duplicate rows to make sure that there are only one value, which is greater than 0, and then remove the original row. For instance, the second row has two values are greater than 0 (c1: 2, c2: 3), then we have to duplicate that row to two, which looks like

I am getting an error when I try and combine using expression with do.call and plot . x <- 1:10 y <- x^1.5 I can get the plot I want by using only the plot function: plot(y~x,xlab=expression(paste("Concentration (",mu,"M)"))) However, I would like to implement my plot using do.call . I have a really long list of parameters stored as a list, p . However, when I try and pass the list to do.call I get the following error: p <- list(xlab=expression(paste("Concentration (",mu,"M)"))) do.call(plot,c(y~x,p)) Error in paste("Concentration (", mu, "M)") : object 'mu' not found I also tried defining the

I want to sort this matrix row-wise to descending order > set.seed(123); a <- matrix(rbinom(100,10,0.3),ncol=10) [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [1,] 2 6 5 6 1 1 4 4 2 1 [2,] 4 3 4 5 3 3 1 3 4 4 [3,] 3 4 3 4 3 4 3 4 3 2 [4,] 5 3 7 4 2 1 2 0 4 4 [5,] 5 1 4 0 2 3 4 3 1 2 [6,] 1 5 4 3 1 2 3 2 3 2 [7,] 3 2 3 4 2 1 4 2 6 4 [8,] 5 1 3 2 3 4 4 3 5 1 [9,] 3 2 2 2 2 5 4 2 5 3 [10,] 3 6 1 2 5 2 3 1 2 3 but > do.call(order,as.list(a[1,],a[2,])) [1] 1 How can you sort the matrix with the do.call and order? Edit. Fixed above matrix to conform with the above code. Two alternatives: # Jaap

I am trying to import and merge a set of csv files using the following code, but it doesn't seem to be passing the by=c("X","Y") argument to the merge function. Any recommendations on how to fix this? Thank you csvfiles <- list.files(path = ".", pattern='bbg_.*\\.csv$') csvfiles <- paste("fx/",csvfiles,sep="") csvfiles my.df <- do.call("merge",list(lapply(csvfiles, read.csv, header = TRUE), by=c("date","fx_code"))) merge doesn't accept more than 2 data.frames, so you can't pass it a larger list using do.call : do.call(merge, list(iris, iris, iris)) #Error in fix.by(by.x, x) : # 'by' must

I have a problem when combining the following vectors included in the list: x <- list(as.numeric(c(1,4)),as.numeric(c(3,19,11))) names (x[[1]]) <- c("species.A","species.C") names (x[[2]]) <- c("species.A","species.B","species.C") which gives the following list: >x >[[1]] >species.A species.C > 1 4 >[[2]] >species.A species.B species.C > 3 19 11 combining them using the do.call function: y<- do.call(cbind,x) gives: >y > [,1] [,2] > species.A 1 3 > species.B 4 19 > species.C 1 11 while I would like to obtain this: > [,1] [,2] > species.A 1 3 > species.B NA 19 > species.C 4 11 You need to give R