Publications by Hazel Elena Palacios Palacios Carnet:PS15018
Solución de ejercicios de estimación MCO
Solución Solución Ejercicio #1 1.Generando la matriz X′X options(scipen = 99999999) matriz_xx<-matrix(data = c(25,4586, 2018, 4586, 1030398, 364545, 2018, 364545, 204312), nrow = 3,ncol = 3, byrow = TRUE) print(matriz_xx) ## ...
942 sym R (2414 sym/20 pcs)
solución parcial 2
PARTE TEÓRICA 1. para un modelo con 2 regresores, la matriz de correlacion es de [1,0.96;0.96,1], el VIF es de: R/12.7551 #Matriz de correlación options(scipen = 999999) mat_R<-matrix(data = c(1,0.96,0.96,1),nrow = 2,ncol = 2,byrow = TRUE) #calculando los VIF VIF<-diag(solve(mat_R)) print(VIF) ## [1] 12.7551 12.7551 2. prueba robusta ...
5678 sym R (47613 sym/93 pcs) 2 img 3 tbl
calculo de raíces cuadradas por la formula general
Función para calcular las raices de una ecuación de la forma ax^2+bx+c=0,a != 0 calculo_raices <- function(a,b,c){ if(b^2-4*a*c<0){ message("La funcion tiene soluciones complejas")} else { raiz_1 <- ((-b+sqrt((b^2)-(4*a*c)))/(2*a)) raiz_2 <- ((-b-sqrt((b^2)-(4*a*c)))/(2*a)) resultado <- list(raiz_1,raiz_2) return(resul...
229 sym R (428 sym/5 pcs)
Laboratorio 3 de econometria
Solución EJERCICIO I Importación de datos library(readxl) ventas_empresa <- read_excel("C:/Users/BURRITO/Desktop/econometria/laboratorio 3/ventas_empresa.xlsx") head(ventas_empresa, n=6) ## # A tibble: 6 x 4 ## V C P M ## <dbl> <dbl> <dbl> <dbl> ## 1 607 197 173 110 ## 2 590 208 152 107 ## 3 543 1...
4592 sym R (8318 sym/35 pcs)
Versiones gráficas de R(X)
1.1 Matriz de Información:X library(readr) library(kableExtra) url_link<-"http://halweb.uc3m.es/esp/Personal/personas/agrane/libro/ficheros_datos/capitulo_7/datos_prob_7_3.txt" mat_X<-read_table2(url_link,col_names = FALSE) mat_X %>% head() %>% kable(caption ="Matriz de información:" ,align = "c",digits = 6) %>% kable_material(html...
2482 sym R (2619 sym/8 pcs) 5 img
Base de datos 2017-2020 (agosto)
1. Creación de la Tabla de Importaciones agosto 2020 library(readr) library(dplyr) library(kableExtra) setwd("C:/Users/BURRITO/Desktop/metodos/comercio/datos nuevos importación") archivos_importar<-list.files() lista_importacion<-lapply(archivos_importar, FUN = read_delim,delim="|", co...
2893 sym R (4712 sym/7 pcs)
indicadores
1. Carga de las funciones. source(file = "C:/Users/BURRITO/Desktop/metodos/comercio/funciones_comercio_exterior.R",echo = TRUE,max.deparse.length = 100,encoding = "utf-8") ## ## > options(scipen = 999) ## ## > library(dplyr) ## ## > library(readxl) ## ## > library(stringr) ## ## > load("C:/Users/BURRITO/Desktop/metodos/comercio/data...
3530 sym R (4767 sym/14 pcs)
solución parcial 1 MAE
Parte 1: data comercio exterior cargando la data y las funciones load("C:/Users/BURRITO/Desktop/metodos/comercio/data_comercio_exterior_actualizada.RData") source(file = "C:/Users/BURRITO/Desktop/metodos/comercio/funciones_comercio_exterior.R") clave 1 1. Calcule las exportaciones totales de El Salvador hacia la región de África Sub-Saharia...
105439 sym R (14177 sym/26 pcs)