आर

2012-11-28 10 views
6

मैं कैसे आर में दो हूबहू संरचित सूचियों घटाना है में दो हूबहू संरचित सूचियों घटाने निम्नलिखित समारोह बनाता है डेटा सेटआर

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 

मैं dataSet2

से DataSet1 घटाना चाहते हैं

उत्तर

10

यह पर निर्भर करता है संरचना। इस मामले में मैप्ली को काम करना चाहिए:

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