I do not understand your question perfectly, but I think you are trying to reselect without replacing on your vector if you want to use the built-in R function sample()and then:
n<-10
x<-rnorm(n)
resampled<-sample(x,length(x),replace=F)
, (x) N (0,1). - , - :
resampled<-numeric(n)
for(i in 1:n){
a<-sample(1:n,1)
resampled[i]<-x[a]
x<-x[-a]
n<-n-1
}