घटाना मैट्रिक्स, कश्मीर आयाम n के मैट्रिक्स की सरणी से, आयाम

Question

k अगर मैं एक सरणी एक

A <- array(0, c(4, 3, 5)) 
for(i in 1:5) { 
    set.seed(i) 
    A[, , i] <- matrix(rnorm(12), 4, 3) 
} 

है और अगर मैं मैट्रिक्स बी

set.seed(6) 
B <- matrix(rnorm(12), 4, 3) 

बी घटाना कोड है से सरणी एक से प्रत्येक मैट्रिक्स होगा:

d<-array(0, c(4,3,5)) 
for(i in 1:5){ 
    d[,,i]<-A[,,i]-B 
} 

हालांकि, "एक से एक ही गणना एक समारोह का उपयोग कर प्रदर्शन करने के लिए कोड होगा प्लीज "परिवार?

Answer 1

यह वही है sweep के लिए है।

sweep(A, 1:2, B) 

Answer 2

हो सकता है कि बहुत सहज ज्ञान युक्त नहीं:

A[] <- apply(A, 3, `-`, B) 

Answer 3

आपने पिछले सरणी आयाम पर पाशन कर रहे हैं, तो आप बस कर सकते हैं:

d <- A - as.vector(B) 

और यह बहुत तेजी से किया जाएगा। यह वही विचार है जब आप एक मैट्रिक्स से वेक्टर घटाते हैं: वेक्टर को पुनर्नवीनीकरण किया जाता है, इसलिए यह प्रत्येक कॉलम पर घटाया जाता है।