Estudiante: Wilmer Francisco Aviles Arevalo
N°Carnet: AA02042
Materia: Metodos para el Analisis Económico
Grupo Teórico: 02

TAREA 1

Planteamiento de la ecuacion Cuadratica

Ecuacion_Cuadratica<-function(a,b,c){
  
  if((b^2-4*a*c)>=0)
  {x1<-(-b+sqrt(b^2-(4*a*c)))/(2*a)
  x2<-(-b-sqrt(b^2-(4*a*c)))/(2*a)
  solucion_de_Ecuacion<-list(x1,x2)
  print(solucion_de_Ecuacion)}
  
else {print(paste0("No se puede realizar la solucion debido a que contiene una raiz compleja"))}
}

verificando_Ejemplo_1

a<-(-3)
b<-6
c<-(-2)
Ejemplo_1<-Ecuacion_Cuadratica(a,b,c)
## [[1]]
## [1] 0.4226497
## 
## [[2]]
## [1] 1.57735

Verificando_Ejemplo_2

a<-3
b<-2
c<-4
Ejemplo_2<-Ecuacion_Cuadratica(a,b,c)
## [1] "No se puede realizar la solucion debido a que contiene una raiz compleja"

TAREA_2_ACTUALIZACION_COMERCIO_EXTERIOR

Actualizacion de la tabla de comercio Exterior- El Salvador 2017-2020 Agosto.

TABLA DE IMPORTACIONES 2020

library(dplyr)
library(kableExtra) 

library(readr)
Importaciones_Agosto_2020 <- read_delim("C:/Users/CHELO/Downloads/datos_comercio_exterior_2017_2020_julio/Importaciones_Agosto_2020.csv", 
    "|", escape_double = FALSE, na = "null", 
    trim_ws = TRUE,
                          col_names=c("pais",
                                  "sac",
                                  "anio",
                                  "mes",
                                  "valor_cif",
                                  "kilogramos"),
                          skip=1)
data_importaciones_Agosto_2020<-bind_rows(Importaciones_Agosto_2020)
data_importaciones_Agosto_2020 %>% head()%>% kable(caption="El Salvador: Base de Importaciones 2020 (Agosto)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
El Salvador: Base de Importaciones 2020 (Agosto)
pais sac anio mes valor_cif kilogramos
Canada 0511100000 2020 08 15416.16 59.00
Canada 0713334000 2020 08 2250.88 9988.00
Canada 0713400000 2020 08 662.02 381.60
Canada 0811900000 2020 08 24056.86 6050.04
Canada 1101000000 2020 08 377.68 500.00
Canada 1207500000 2020 08 61635.45 58512.00
* Elaboración propia con base en datos del BCR

Creación de la Tabla de Importaciones

library(readr)
library(dplyr)
library(kableExtra) 

setwd("C:/Users/CHELO/Downloads/datos_comercio_exterior_2017_2020_julio/Importaciones_M")
archivos_importar<-list.files()
lista_importacion<-lapply(archivos_importar,
                          FUN = read_delim,delim="|",
                          col_names=c("pais",
                                  "sac",
                                  "anio",
                                  "mes",
                                  "valor_cif",
                                  "kilogramos"),
                          skip=1)
data_importaciones<-bind_rows(lista_importacion)
data_importaciones %>% head()%>% kable(caption="El Salvador: Base de Importaciones 2017-2020 (julio)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
El Salvador: Base de Importaciones 2017-2020 (julio)
pais sac anio mes valor_cif kilogramos
Groenlandia (Din) 2710199900 2017 02 317.40 8.16
Canada 0409000000 2017 03 673.18 836.10
Canada 0409000000 2017 04 171.17 600.00
Canada 0409000000 2017 05 330.09 660.00
Canada 0409000000 2017 06 149.46 437.50
Canada 0511100000 2017 03 18988.60 30.00
* Elaboración propia con base en datos del BCR

TABLA DE EXPORTACIONES HASTA AGOSTO 2020

library(readr)
library(dplyr)
library(kableExtra) 

library(readr)
Exportaciones_Agosto_2020<- read_delim("C:/Users/CHELO/Downloads/datos_comercio_exterior_2017_2020_julio/Exportaciones_Agosto_2020.csv", 
    "|", escape_double = FALSE, na = "null", 
    trim_ws = TRUE,
                          col_names=c("pais",
                                  "sac",
                                  "anio",
                                  "mes",
                                  "valor_cif",
                                  "kilogramos"),
                          skip=1)
data_Exportaciones_Agosto_2020<-bind_rows(Exportaciones_Agosto_2020)
data_Exportaciones_Agosto_2020 %>% head()%>% kable(caption="El Salvador: Base de Exportaciones 2020 (Agosto)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
El Salvador: Base de Exportaciones 2020 (Agosto)
pais sac anio mes valor_cif kilogramos
Canada 0602100000 2020 08 6180.94 157.06
Canada 0811900000 2020 08 125.58 40.70
Canada 0901113000 2020 08 128349.23 27996.14
Canada 0904119000 2020 08 0.70 0.36
Canada 0910910000 2020 08 702.00 95.33
Canada 1207990000 2020 08 700.00 238.33
* Elaboración propia con base en datos del BCR

Creación de la Tabla de Exportaciones sin actualizar

library(readr)
library(dplyr)
library(kableExtra) 

setwd("C:/Users/CHELO/Downloads/datos_comercio_exterior_2017_2020_julio/Exportaciones_X")
archivos_importar<-list.files()
lista_importacion<-lapply(archivos_importar,
                          FUN = read_delim,delim="|",
                          col_names=c("pais",
                                  "sac",
                                  "anio",
                                  "mes",
                                  "valor_cif",
                                  "kilogramos"),
                          skip=1)
data_Exportaciones<-bind_rows(lista_importacion)
data_Exportaciones %>% head()%>% kable(caption="El Salvador: Base de Exportaciones 2017-2020 (julio)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
El Salvador: Base de Exportaciones 2017-2020 (julio)
pais sac anio mes valor_cif kilogramos
Canada 0106190000 2017 02 100.00 26.0
Canada 0106190000 2017 06 580.00 10.0
Canada 0106900000 2017 01 3491.55 11.0
Canada 0106900000 2017 02 4791.20 14.0
Canada 0106900000 2017 03 5516.00 17.0
Canada 0106900000 2017 04 5019.50 14.5
* Elaboración propia con base en datos del BCR

3. Creación de la tabla de Comercio Exterior actualizado Agosto

library(dplyr)
library(tidyr)
library(kableExtra)

data_importaciones_Agosto_2020 %>% full_join(
  data_Exportaciones_Agosto_2020, 
  by=c("pais","sac","anio","mes"),
  suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior_actualizada

data_comercio_exterior_actualizada %>% replace_na(list(valor_cif=0,
             valor_fob=0,valor_cif_exportaciones_Agosto_2020 =0,
             kilogramos_importaciones_Agosto_2020=0,
             kilogramos_exportaciones_Agosto_2020=0)) %>% 
  arrange(pais,anio,mes,sac) ->data_comercio_exterior_actualizada 
data_comercio_exterior_actualizada %>% head() %>% 
  kable(caption="Base de Comercio Exterior 2020 (agosto)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
Base de Comercio Exterior 2020 (agosto)
pais sac anio mes valor_cif_importaciones kilogramos_importaciones valor_cif_exportaciones kilogramos_exportaciones
Afganistan 4202190000 2020 08 18.88 0.68 NA NA
Afganistan 4202990000 2020 08 7.55 0.27 NA NA
Afganistan 6103109000 2020 08 75.52 2.73 NA NA
Afganistan 6110900000 2020 08 75.52 2.73 NA NA
Afganistan 6117100000 2020 08 9.06 0.33 NA NA
Afganistan 6204490000 2020 08 113.28 4.10 NA NA
* Elaboración propia con base en datos del BCR

comercio exterior

library(dplyr)
library(tidyr)
library(kableExtra)

data_importaciones %>% full_join(
  data_Exportaciones, 
  by=c("pais","sac","anio","mes"),
  suffix=c("_importaciones","_exportaciones"))->data_comercio_exterior

data_comercio_exterior %>% replace_na(list(valor_cif=0,
             valor_fob=0,valor_cif_exportaciones =0,
             kilogramos_importaciones=0,
             kilogramos_exportaciones=0)) %>% 
  arrange(pais,anio,mes,sac) ->data_comercio_exterior 
data_comercio_exterior %>% head() %>% 
  kable(caption="Base de Comercio Exterior 2017-2020 (julio)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
Base de Comercio Exterior 2017-2020 (julio)
pais sac anio mes valor_cif_importaciones kilogramos_importaciones valor_cif_exportaciones kilogramos_exportaciones
Afganistan 4010390000 2017 04 58.06 0.92 0 0
Afganistan 6812999000 2017 04 88.38 1.39 0 0
Afganistan 8487900000 2017 04 20.93 0.33 0 0
Afganistan 8511800000 2017 04 98.93 1.56 0 0
Afganistan 8708930000 2017 04 62.18 0.98 0 0
Afganistan 9028200000 2017 04 130.06 2.05 0 0
* Elaboración propia con base en datos del BCR

Guardando la data

#Guardado del objeto data_comercio_exterior
save(data_comercio_exterior,file = "C:/Users/CHELO/Downloads/data_comercio_exterior.RData")
data_comercio_exterior_actualizada_agosto_2020<-bind_rows(data_comercio_exterior,data_comercio_exterior_actualizada)

data_comercio_exterior_actualizada_agosto_2020 %>% head()%>% kable(caption="Base de comercio exterior 2017-2020 (agosto)",
        align="c") %>% 
  add_footnote(label="Elaboración propia con base en datos del BCR",
               notation="symbol") %>%  kable_styling()
Base de comercio exterior 2017-2020 (agosto)
pais sac anio mes valor_cif_importaciones kilogramos_importaciones valor_cif_exportaciones kilogramos_exportaciones
Afganistan 4010390000 2017 04 58.06 0.92 0 0
Afganistan 6812999000 2017 04 88.38 1.39 0 0
Afganistan 8487900000 2017 04 20.93 0.33 0 0
Afganistan 8511800000 2017 04 98.93 1.56 0 0
Afganistan 8708930000 2017 04 62.18 0.98 0 0
Afganistan 9028200000 2017 04 130.06 2.05 0 0
* Elaboración propia con base en datos del BCR