building an R loop for random sampling

I am sampling from a file containing a list of many values eg:

and using R to randomly sample from this list:

list = read.table("data")
out <-sample(list,50,replace=TRUE)
out.mean<-mean(out)
out.mean

Could somebody please show me how to put this into a loop, so that I can perform this procedure 1000 times and take the mean of the 1000 means that this will generate?

Thank you very much in advance!

Rubal

Solution

An alternative solution could be (keep in mind what @Tyler Rinker just said about replicate)

Data <- read.table(text='
312313.34
243444
12334.92
321312
353532', header=FALSE)

Data <- as.numeric(as.matrix((Data))) 

set.seed(007)
Means <- replicate(1000, mean(sample(Data,50,replace=TRUE)))

Means consists of 1000 mean each one for every subsample of size 50. If you want the mean of the means do this:

mean(Means)

What you're trying to do sounds like a bootstrapping or something similar to resample techniques for bias reduction (I guess).