Hola , Realice una gráficas con datos random, pero mi tutor me pidió que hiciera lo siguiente y la verdad no se como

*"Debes hacer diez mil veces la aleatorizacion ( en las gráficas que nos mostraste solo hiciste una). Y en cada aleatorizacion debes obtener la media de la matriz y guardarla. De ese modo acabas con diez mil medias. *
Gráficas el histograma de las diez mil medias y ya, este metodo se llama montecarlo, pero es modificado"
Les dejo el scritpt de mis random y de mis histogramas.
De ante mano gracias 
Script random base de datos.
datos<- read.csv("BASENUTRCPP.csv", row.names = "Symbol", sep = ","
datosRandcpp <- apply(datos, MARGIN = 2, FUN=permute)
Script de histograma
HCPPRD1 <- hist(x = e$Peso.T,xlim = c(-1,+1), xlab = "Coeficiente de correlacion", ylab = "Frecuencia", main = "Histograma de Correlacion_miRNAs-Macros_CPP_Peso Total_RD", col = "red")