[COLOR="silver"]## Create a list of similar matrices[/COLOR]
mat <- do.call(rbind, lapply(1:10, function(i) 1:10))
list_o_matrices <- lapply(1:15, function(i) jitter(mat))
[COLOR="silver"]## Average them[/COLOR]
ave_matrix <- rowMeans(simplify2array(list_o_matrices), dim = 2)
ave_matrix
[COLOR="silver"]## [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
## [1,] 1.0014703 2.011833 3.044069 3.967024 5.006964 5.971793 6.925115 7.990019 9.021979 10.015695
## [2,] 1.0246623 2.019152 3.004829 3.957002 4.981350 6.028579 7.038584 8.007656 8.955430 9.973690
## [3,] 1.0555988 1.989264 2.963845 4.027272 5.026608 6.036112 7.031711 7.958438 8.989878 10.025474
## [4,] 1.0518842 1.983410 3.029770 4.018368 4.990986 6.057223 6.997357 7.979873 8.922734 9.986551
## [5,] 0.9832327 2.024032 2.969966 4.015551 4.997545 5.981654 6.992704 8.039162 8.982212 10.070446
## [6,] 0.9531061 2.028616 3.014846 4.015529 4.970212 6.019053 6.957198 8.013462 8.994654 10.015937
## [7,] 0.9967407 1.974352 2.990255 3.987084 4.987525 5.973495 7.080626 7.977638 8.978614 9.999084
## [8,] 1.0342885 1.957007 3.007492 4.047000 5.017924 5.987988 7.074926 7.931602 8.982353 9.974031
## [9,] 1.0120165 1.981054 3.038811 4.060915 4.988357 6.038697 7.023861 7.996769 9.005903 9.967318
## [10,] 0.9792814 1.968815 3.004207 4.014563 5.013227 5.952917 6.956201 7.969725 8.991927 10.047069[/COLOR]