As matrizes não são iguais; cada uma corresponde à anterior com uma linha consecutiva modificada. Eis uma versão mais simples do que está fazendo para ficar mais claro:
set.seed(79)
matriz <- matrix(NA, nrow = 3, ncol = 5)
lista <- list()
for (i in 1:3) {
matriz[i,] <- sample(1:6, 1)
lista[[i]] <- matriz
}
lista
#> [[1]]
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] 6 6 6 6 6
#> [2,] NA NA NA NA NA
#> [3,] NA NA NA NA NA
#>
#> [[2]]
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] 6 6 6 6 6
#> [2,] 3 3 3 3 3
#> [3,] NA NA NA NA NA
#>
#> [[3]]
#> [,1] [,2] [,3] [,4] [,5]
#> [1,] 6 6 6 6 6
#> [2,] 3 3 3 3 3
#> [3,] 5 5 5 5 5
O que o código está fazendo:
Sua função:
- cria um vetor com os números de 1 a 6
- sorteia um valor entre 1 e 6 (note que
replicate(1, ...
e sample(..., size = 1
resultam em um valor)
- sobrescreve o vetor
dados
com o valor sorteado
Seu loop:
- 1a volta: substitui os valores da 1a linha da matriz por um valor de 1 a 6 (o mesmo valor é replicado em todas as colunas); grava a matriz atualizada no primeiro elemento da lista
- 2a volta: sorteia outro valor, coloca na segunda linha e grava a matriz no segundo elemento da lista
- etc
Não ficou claro o resultado final que deseja. Se é uma lista com 10 matrizes 10x5 com sorteios aleatórios:
lapply(1:10, function(x) matrix(sample(1:6, 10*5, TRUE), nrow = 10, ncol = 5))