Вы получаете список случаев, когда не все числа в x
выбраны.
Вы всегда можете вернуть список, используя simplify = FALSE
.
y <- replicate(M, as.numeric(table(sample(x,n,TRUE))), simplify = FALSE)
Кроме того, вы используете 1
для установки replace
аргумента. Лучше использовать логический аргумент, т.е. TRUE
.
Чтобы всегда возвращать матрицу, мы можем сделать:
sapply(y, `[`, x)
Это добавит NA
для значений, где длина не равна.