TCL<-function(N,a,b,n){
media<-0
poblacion<- runif(N,a,b)
for(i in 1:300){
media[i]=mean(sample(poblacion,n))}
hist(media)}
par(mfrow=c(3,3))
n<-seq(50,450,by=50)
for(i in 1:9){
for(j in 1:length(n)){TCL(1000,20,80,n[j])}}
Hola buen día: necesito su ayuda; quiero obtener 9 gráficas correspondiente al
histograma de la media, donde cada una de ellas se de diferente tamaño muestral
(n<-seq(50,450,by=50)), por ejemplo la gráfica 1 sería un histograma de
300 muestras de tamaño 50, la gráfica 2 sería un histograma de
300 muestras de tamaño 100, y así sucesivamente