sample from given distribution

Question

I have a text file with a distribution of values, one on each row eg:

2313213.32
321233.23
97938.23
21323
211555

How do I randomly sample from this distribution 1000 times with replacement and get the mean from this random sampling? Preferably using R.

Thank you in advance,

Rubal

Answer 1

#test<-readLines('your.file')
#test<-as.numeric(test)

test<-c(2313213.32,321233.23,97938.23,21323,211555)

out<-sample(test,1000,replace=TRUE)

out.mean<-mean(out)
> out.mean
[1] 618679.5