Asignación 1, Repaso de probabilidad y estadistica.

En esta asignación se verá la practica del software R, para el analisis de datos reales por medio de graficas y medidas estadisticas.

El tema que se verá a continuación será, la deuda externa de México en los ultimos 10 años (2020-2010)

Datos sacados de: https://datosmacro.expansion.com/deuda/mexico

deuda <- c(571.319, 604.073, 554.633,   553.783,    552.833,    557.351,    483.570,    440.430,    398.463,    363.543,    334.553)

Manejo de datos

Ordenando datos de menor a mayor

sort(deuda, decreasing = FALSE)
##  [1] 334.553 363.543 398.463 440.430 483.570 552.833 553.783 554.633 557.351
## [10] 571.319 604.073

Tablas de distribución de frecuencia

Histograma de frecuencia absoluta segun struge

library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
tabla2 <-fdt(deuda)
library(fdth)

plot(tabla2, type='fh')

* Poligono

library(fdth)

plot(tabla2, type='fp')

Histograma y poligono de frecuencia relativa segun struge

library(fdth)

plot(tabla2, type='rfh')

* Poligono

library(fdth)

plot(tabla2, type='rfp')

Histograma y poligono de frecuencia acumulada segun struge

library(fdth)

plot(tabla2, type='cfh')

  • Poligono
library(fdth)

plot(tabla2, type='cfp')

Medidas de tendencia central

Media

mean(deuda)
## [1] 492.2319

Mediana

median(deuda)
## [1] 552.833

Moda

library(modeest)
## 
## Attaching package: 'modeest'
## The following object is masked from 'package:fdth':
## 
##     mfv
mlv(deuda,method = 'mfv')
##  [1] 334.553 363.543 398.463 440.430 483.570 552.833 553.783 554.633 557.351
## [10] 571.319 604.073

Cuartiles

summary(deuda)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   334.6   419.4   552.8   492.2   556.0   604.1

Grafico de caja y bigotes

boxplot(deuda)

##Repaso de probabilidad

NORMALCLIMCDOB <- c(17.4, 18.6, 20.3, 23.5, 26.9, 30.6, 31.9, 31.6, 31.0, 27.5, 22.1, 17.9 )

Manejo de datos

Ordenando datos de mayor a menor

sort(NORMALCLIMCDOB, decreasing = TRUE)
##  [1] 31.9 31.6 31.0 30.6 27.5 26.9 23.5 22.1 20.3 18.6 17.9 17.4

Ordenando datos de menor a mayor

sort(NORMALCLIMCDOB, decreasing = FALSE)
##  [1] 17.4 17.9 18.6 20.3 22.1 23.5 26.9 27.5 30.6 31.0 31.6 31.9

Tablas de distribución de frecuencia

Histograma y poligono de frecuencia absoluta segun struge

library(fdth)

tabla <-fdt(NORMALCLIMCDOB)
tabla
##     Class limits f   rf rf(%) cf  cf(%)
##  [17.226,20.225) 3 0.25 25.00  3  25.00
##  [20.225,23.223) 2 0.17 16.67  5  41.67
##  [23.223,26.222) 1 0.08  8.33  6  50.00
##   [26.222,29.22) 2 0.17 16.67  8  66.67
##   [29.22,32.219) 4 0.33 33.33 12 100.00
library(fdth)

plot(tabla, type='fh')

* Poligono

library(fdth)

plot(tabla, type='fp')

### Histograma y poligono de frecuencia relativa segun struge

library(fdth)

plot(tabla, type='rfh')

* Poligono

library(fdth)

plot(tabla, type='rfp')

Histograma y poligono de frecuencia acumulada segun struge

library(fdth)

plot(tabla, type='cfh')

  • Poligono
library(fdth)

plot(tabla, type='cfp')

Medidas de tendencia central

Media

mean(NORMALCLIMCDOB)
## [1] 24.94167

Mediana

median(NORMALCLIMCDOB)
## [1] 25.2

Moda

library(modeest)
mlv(NORMALCLIMCDOB,method = 'mfv')
##  [1] 17.4 17.9 18.6 20.3 22.1 23.5 26.9 27.5 30.6 31.0 31.6 31.9

Cuartiles

summary(NORMALCLIMCDOB)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   17.40   19.88   25.20   24.94   30.70   31.90

Grafico de caja y bigotes

boxplot(NORMALCLIMCDOB)