Untitled

Datos

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

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

Frecuencia

frec<-table(datos)
frec

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

Limite de datos maximo

maximo<-max(datos)
maximo

## [1] 50

Limite de datos minimo

min<-min(datos)
min

## [1] 15

Media aritmetica de datos

mediana<-mean(datos)
mediana

## [1] 33.31

Media

media<-median(datos)
media

## [1] 35

Grafica de dispersion

plot(datos)

###Grafica de frecuencias

barplot(datos)