Repaso unidad 1 y 2, Crecimiento económico mundial

Para este ejercicio usaremos los datos de GDP de paises de América del norte descargados de esta página:

https://ourworldindata.org/economic-growth

Importar datos

setwd("~/ESTADISTICA")
library(readr)
GDP <- read_csv("GDP.csv")
## 
## -- Column specification --------------------------------------------------------
## cols(
##   year = col_double(),
##   mexico = col_double(),
##   usa = col_double(),
##   canada = col_double()
## )
head(GDP)
## # A tibble: 6 x 4
##    year mexico   usa canada
##   <dbl>  <dbl> <dbl>  <dbl>
## 1  1900   1374  6252   4630
## 2  1901   1477  6822   4913
## 3  1902   1356  6756   5270
## 4  1903   1493  6955   5260
## 5  1904   1503  6739   5161
## 6  1905   1643  7094   5590

Análisis para México

mex <- GDP$mexico
usa <- GDP$usa

Estadística descriptiva

Medidas de tendencia central

Media

mediamex <- mean(mex)
mediamex
## [1] 5818.308
mediausa <- mean(usa)
mediausa
## [1] 22958.44

Mediana

medianamex <- median(mex)
medianamex
## [1] 3256

Moda

library(modeest)
mlv(mex, method="mfv")[1]
## [1] 1356

Rango intercuartil (IQR)

summary(mex)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    1356    1872    3256    5818    9946   15803
IQR(mex)
## [1] 8074

Gráfico de caja y bigote

boxplot(mex)

Histograma

hist(mex)

Estadistica descriptiva

Medidas de tendencia central

Media

mediausa <- mean(usa)
mediausa
## [1] 22958.44

Mediana

medianausa <- median(usa)
medianausa
## [1] 17407

Moda

library(modeest)
mlv(usa, method="mfv")[1]
## [1] 6252

Rango Intercualtil (IQR)

summary(usa)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6252    9490   17407   22958   34730   53015
IQR(usa)
## [1] 25240

Grafico de caja y bigote

boxplot(usa)

Histograma

hist(usa)

Después de haber comparado los datos notamos la diferencia entre México y usa, usa tiene un mayor factor económico.