Assume we have a vector
v <- 1:3
sample
v
X1 X2 X3
1 3 2
2 3 1
3 1 2
2 1 3
3 2 1
v = 1:3
data.frame(matrix(sample(v, 5*length(v), replace = T), nrow = 5, ncol = length(v)))
# X1 X2 X3
#1 3 3 1
#2 1 1 3
#3 3 3 1
#4 2 2 1
#5 3 1 2
# else
data.frame(t(replicate(5, sample(v, length(v), replace = F))))
# else
data.frame(t(sapply(1:5, function(x) sample(v, length(v), replace = F))))