在for循环中按元素填充矩阵

Question

nahead <- 2000
nsim <- 100
w_eq <- 1/2

sigma_1和sigma_2是大小的矩阵（nahead，nsim） nu_是大小为nsim的向量

F_equal = function(y, sigma_1, sigma_2, nu_2, size = nahead, sim = nsim){
  y <- as.vector(y)
  len <- sim*size
  final <- matrix(NA, nrow = length(y), ncol = len)
  for (i in size) {
    for (j in sim) {
      final[,???] <- w_eq * (
        dnorm(x = y, mean = 0, sd = sigma_1[i, j]) + 
        dstd(x = y, mean = 0, sd = sigma_2[i, j], nu = nu_2[j]) +
        )
    }
  }
}

我想知道如何正确放置矩阵“ final”的引用以使其具有大小（length（y），size * sim）