Gostaria de gerar nBS
reamostras para cada um dos N
vetores coluna de tamanho n
da minha matriz, e retornar então algo como uma lista.
Consegui algo parecido com o desejado com o seguinte (testando com valores iguais no vetor para ter certeza que as reamostras são das respectivas colunas):
v1 = c(1,3,2,4,1)
v2 = c(2,2,2,2,2)
dados = matrix(c(v1,v2),ncol = 2)
N = ncol(dados)
n = nrow(dados)
nBS <- 5
for (i in 1:N){
y = dados[,i]
lst <- lapply(1:N, function(x) matrix(sample(y,n,T), nrow = n, ncol = nBS))
}
Mas minha saída aparentemente indica que só o v2
foi usado nessa reamostragem:
> lst
[[1]]
[,1] [,2] [,3] [,4] [,5]
[1,] 2 2 2 2 2
[2,] 2 2 2 2 2
[3,] 2 2 2 2 2
[4,] 2 2 2 2 2
[5,] 2 2 2 2 2
[[2]]
[,1] [,2] [,3] [,4] [,5]
[1,] 2 2 2 2 2
[2,] 2 2 2 2 2
[3,] 2 2 2 2 2
[4,] 2 2 2 2 2
[5,] 2 2 2 2 2
Como faço para percorrer todas as colunas da minha matriz e retornar nBS
reamostras de tamanho n
para cada um dos meus N
vetores?
Agradeço desde já a ajuda!