Repeat a procedure with generated random data and save the results in data frames in R

Question

I create random data in R like that:

data<-matrix(rnorm(100*5,mean=0,sd=1), 100, 5) 
colnames(data) <- c("X1", "X2", "X3",