Изменение элемента в списке матриц

Question

Я создал список из 100 матриц для модели структурированной популяции.Я хотел бы изменить элемент (1,3) каждой матрицы в списке, умножив их на последовательность из 100 чисел от 0,01 до 1. Цель состоит в том, чтобы строка 1, столбец 3 первой матрицы умножалась на 0,01,тот же элемент во второй матрице на 0,02 и т. д.

Спасибо

Ls<-6.521
Pg<-.318
Sr<-0.5
Sn<-.432
Sj<-.564
Sa<-.501


AA<-lapply(1:100, 
          function(x) { 
                       matrix(c(0, 0, Sr * rnorm(1,Ls,.3886) * rnorm(1,Pg,.1466), 
                                rnorm(1,Sn,.0954),0,0, 0,rnorm(1,Sj,.0468), 
                                rnorm(1,Sa,.472)), 
                             nrow=3, ncol=3,byrow=TRUE))

Answer 1

Я бы просто сделал for цикл, простой и понятный:

for(i in seq_along(AA)) {
  AA[[i]][1, 3] = AA[[i]][1, 3] * i / length(AA)
}

Answer 2

вы можете использовать функцию map2 из пакета purrr.Я определил списки только с двумя матрицами и двумя скалярами, но он должен работать и для вас.

m <- list(m1 = matrix(1, 2, 3),
         m2 = matrix(2, 2, 3))
a <- list(a1 = 0.01, a2 = 0.02)

fun <- function(mymatrix, myx){
  mymatrix[1, 3] <- mymatrix[1, 3]* myx
  return(mymatrix)
} 

purrr::map2(m, a, fun)

$m1
     [,1] [,2] [,3]
[1,]    1    1 0.01
[2,]    1    1 1.00

$m2
     [,1] [,2] [,3]
[1,]    2    2 0.04
[2,]    2    2 2.00