Ragy Isaac
Ragy Isaac

Reputation: 1458

Subtracting two identically structured lists in R

How do I subtract two identically structured lists in R. The following function creates the data sets

dataSet <- function(x,y){
    data <- lapply(1:4, function(x)
           do.call(cbind,do.call(cbind,
                                 lapply(lapply(1:5,function(y)
                                               cbind(rnorm(10))), data.frame)) ))
    pVariatesNames <- paste("s",seq(from=380, length.out=5),sep="")
    nCasesNames <- c("Paper","R","G","B")
    customerNames <- paste("Customer",seq(from=1, length.out=10),sep=" ")
    names(data) <- nCasesNames
    for(i in 1:4) {
        colnames(data[[i]]) <- pVariatesNames
        rownames(data[[i]]) <- customerNames
    }
    return(data)
}
dataSet1 <- dataSet(4,5); dataSet1
dataSet2 <- dataSet(4,5); dataSet2

I would like to subtract dataSet1 from dataSet2

Upvotes: 13

Views: 9680

Answers (1)

Sacha Epskamp
Sacha Epskamp

Reputation: 47541

It depends on the structure. In this case mapply should work:

mapply('-', dataSet2, dataSet1, SIMPLIFY = FALSE)

Edit: another solution with Map()

Map('-', dataSet2, dataSet1)

Upvotes: 22

Related Questions