practica1

Ceniceros Berumen Angel

R Markdown

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

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

Maximo

maximo<-max(datos)
maximo

## [1] 50

Minimo

minimo<-min(datos)
minimo

## [1] 15

Media

media<-mean(datos)
media

## [1] 31.18

Frecuencia

frecuencia<-table(datos)
frecuencia

## datos
## 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 
##  9  5  3  1  1  2  4  5  1  5  1  1  2  1  5  3  3  3  3  1  2  4  2  2  1 
## 40 41 42 44 45 46 47 48 49 50 
##  3  5  4  3  1  3  2  1  5  3

Grafica

plot(frecuencia)