Practica2

Datos

datos<-c(87,74,85,86,86,74,88,74,92.5,91,81,93.33,89,88,74,79,92.5,94.8,84,81.5,85,84.5,80,82.5,91.5,82,83.5,79.9,89,92,83,80,85,86.33,83,82,85,80)
datos

##  [1] 87.00 74.00 85.00 86.00 86.00 74.00 88.00 74.00 92.50 91.00 81.00
## [12] 93.33 89.00 88.00 74.00 79.00 92.50 94.80 84.00 81.50 85.00 84.50
## [23] 80.00 82.50 91.50 82.00 83.50 79.90 89.00 92.00 83.00 80.00 85.00
## [34] 86.33 83.00 82.00 85.00 80.00

Media

media<-mean(datos)
media

## [1] 84.44368

Frecuencia

table(datos)

## datos
##    74    79  79.9    80    81  81.5    82  82.5    83  83.5    84  84.5 
##     4     1     1     3     1     1     2     1     2     1     1     1 
##    85    86 86.33    87    88    89    91  91.5    92  92.5 93.33  94.8 
##     4     2     1     1     2     2     1     1     1     2     1     1

Mediana

mediana<-median(datos)
mediana

## [1] 84.75

Maximo

maximo<-max(datos)
maximo

## [1] 94.8

Minimo

minimo<-min(datos)
minimo

## [1] 74

Moda

datos<-table(datos)
datos[which(datos== max(datos))[1]]

## 74 
##  4

Rango

rango<-maximo-minimo
rango

## [1] 20.8

Porcentaje (80%)

quantile(datos,.80)

## 80% 
##   2

Porcentajes de 25,50,75

quantile(datos,c(.25,.50,.75))

## 25% 50% 75% 
##   1   1   2

Grafica de frecuencia

plot(table(datos))

Grafica de dispercion

plot(datos)