Practica2

Datos

datos<-c(87.75,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.75 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 aritmetica

media<-mean(datos)
media

## [1] 84.46342

Mediana

mediana<-median(datos)
media

## [1] 84.46342

Maximo

maximo<-max(datos)
maximo

## [1] 94.8

Minimo

minimo<-min(datos)
minimo

## [1] 74

Moda

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

## 74 
##  4

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.75    88    89    91  91.5    92  92.5 93.33  94.8 
##     4     2     1     1     2     2     1     1     1     2     1     1

Porcentaje a 80%

quantile(datos,.80)

## 80% 
##  89

Cuantiles 1,2,3

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

##    25%    50%    75% 
## 81.125 84.750 88.000

Grafica Frecuencias

plot(table(datos))