Diviser un vecteur en deux

Question

Comment diviser un vecteur en deux, de sorte qu'il sélectionne un échantillon aléatoire pour chaque nouveau vecteur. Mais je veux toujours diviser en deux. Par exemple

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

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

Remarque: le but est de faire une demi-fiabilité.

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