datos aleatorios frecuencia y media

Es un programa que genera 100 datos elatorios por medio de sample

genera la frecuencia y la grafica

Determina la media y la mediana

edades <- sample(15:50, size=100, replace = TRUE)  
edades

##   [1] 28 22 37 16 45 42 50 18 36 26 45 27 50 45 23 43 44 20 16 25 44 18 23
##  [24] 32 25 22 37 29 33 40 48 34 23 44 40 31 44 50 49 20 45 25 50 42 15 41
##  [47] 43 41 19 29 35 40 23 21 47 32 26 17 21 28 32 41 23 50 23 24 23 37 49
##  [70] 47 26 44 16 49 44 29 42 34 38 32 30 27 44 49 16 20 40 42 36 19 20 34
##  [93] 23 16 41 24 50 38 32 41