将矢量分成两个

Question

如何将矢量分成两个，以便为每个新矢量选择一个随机样本。但我总是想分成两半。例如

x <- 1:10
obj <- splitMyVector(x)

obj$a
 > 5 3 9 7 10
obj$b
 > 8 4 1 6 2

注意：这样做的目的是实现分半部分的可靠性。

Answer 1

split(sample(x),letters[seq(length(x))%%2+1])
$a
[1]  9  7 10  4  2

$b
[1] 6 1 8 3 5