एकाधिक सूचियों से वैक्टर के माध्य की गणना कैसे करें?

Question

मेरे पास वैक्टर युक्त कई सूचियां हैं और मैं एक सूची प्राप्त करना चाहता हूं, जो तत्व प्रारंभिक सूचियों के वैक्टरों का औसत वैक्टर हैं।

उदाहरण: दो प्रारंभिक सूचियों

lt1 <- list(a = c(1,2,3), b = c(2,5,10)) 
lt2 <- list(a = c(3,4,5), b = c(4,5,2)) 

और मैं प्राप्त करने के लिए

lt12 <- list(a = c(2,3,4), b = c(3,5,6)) 

मैं llply lapply साथ की कोशिश की और चाहते हैं, लेकिन मैं हमेशा एक सूची के वेक्टर के माध्य प्राप्त करने के अंत में ।

Answer 1

आप Map()cbind() वैक्टरों को एकसाथ उपयोग कर सकते हैं, फिर परिणामी सूची पर rowMeans() चला सकते हैं।

lapply(Map(cbind, lt1, lt2), rowMeans) 
# $a 
# [1] 2 3 4 
# 
# $b 
# [1] 3 5 6 

या lapply(Map(rbind, lt1, lt2), colMeans)