벡터를 두 개로 나누기

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