U1A11

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

library(readr)
GDP <- read_csv("GDP.csv")

## 
## -- Column specification --------------------------------------------------------
## cols(
##   year = col_double(),
##   mexico = col_double(),
##   usa = col_double(),
##   canada = col_double()
## )

View(GDP)

Análisis para México

Crear una variable que contenga los datos para México

mex <- GDP$mexico

Estadística descriptiva

Medidas de tendencia central

Media

mediamex <- mean(mex)
mediamex

## [1] 5818.308

Mediana

medianamex <- median(mex)
medianamex

## [1] 3256

Moda

library(modeest)

## Warning: package 'modeest' was built under R version 4.0.4

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)

Analisis para USA

VAriable para USA

usa <- GDP$usa

Estadística 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 intercuartil (IQR)

summary(usa)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    6252    9490   17407   22958   34730   53015

IQR(usa)

## [1] 25240

Gráfico de caja y bigote

boxplot(usa)

Histograma

hist(usa)

Despues de haber analizado esto dos datos, analizamos que USA tiene mayor factor economico.