Хотя я не могу комментировать достоверность вашего анализа, я предоставлю вам решение.
Мы зациклились на векторе 1: 100, используя lapply
, чтобы сгенерировать 100 воспроизводимых перестановок одного столбца, связать его вместе с остальными данными и сохранить все выборки в списке.
data=data.frame(rep(1:3, each=10), rep(2:4, each=10), rep(10:12, each=10))
names(data)<-c("aH", "bH", "cH")
test <- lapply(1:100, function(x){
set.seed(x)
cbind.data.frame(data[,1:2], sample(data[,3]))
})
Другим вариантом будет пакет combinat
и его функция permn()
, которая генерирует все возможные перестановки входного вектора.