Publications by Mariela Cecilia Palacios Constanza PC17006

Ejercicios de Estimación MCO

25.03.2020

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) ## [,1] [,2] [,3] ## [1,] 25 4586 2018 ## [2,] 4586 1030...

370 sym R (1883 sym/16 pcs)

PC17006_L3

11.07.2020

Ejercicio 1 Sea el conjunto de datos, indicados en el enlace de abajo, tomados en 24 meses correspondientes a los gastos de comercialización (C) de una empresa, el nivel de ventas (V), su coste de personal (P) y los costes de materias primas (M); se trata de estimar el nivel de ventas a partir de las restantes variables. Verifique los supuestos...

5303 sym R (11415 sym/32 pcs)

Solucion Parcial 2

18.06.2020

Parte Teórica Para un modelo de 2 regresores, la matriz de correlación es [1,0.96;0.96,1], el VIF es de: Los VIF son de 12.75 options(scipen = 99999) mat_cr<-matrix(data = c(1,0.96, 0.96,1), nrow = 2,ncol = 2,byrow = TRUE) print(mat_cr) ## [,1] [,2] ## [1,] 1.00 0.96 ## [2,] 0.96 1.00 ## VIF VIFcr<-diag(sol...

8562 sym R (21020 sym/150 pcs) 12 img

Solución Ecuación Cuadrática

06.09.2020

Creando la ecuación e_cuadratica<- function(a,b,c){ discriminante<-(b^2-(4*a*c)) if(discriminante<0){ print("No tiene solución real") } else{ x1<- (-b+sqrt(discriminante))/(2*a) x2<- (-b-sqrt(discriminante))/(2*a) resultado<-list(x1,x2) names(resultado)<-c("x1","x2") print(resultado) } } Probando la ecuación ##### Ejemp...

50 sym R (458 sym/5 pcs)

Componentes Principales y Análisis Factorial (Uso de librería corrplot).

17.10.2020

Matriz de información 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_font...

5357 sym R (4025 sym/13 pcs) 6 img

Uso de funciones para indicadores de comercio exterior

27.09.2020

Cargando funciones. source(file= "C:/Users/Lourdes/Documents/practicasm/funciones_comercio_exterior.R") Herramientas de consulta de países. library(kableExtra) herramientas_mostrar_paises() %>% head() %>% kable() %>% kable_material(html_font = "sans-serif") nom_pais_esp codigo_pais region cod_region region_intermedia cod_region_inte...

2675 sym R (4049 sym/13 pcs)

Base de datos. Comercio exterior (actualizada)

19.09.2020

Creando tabla de importaciones agosto 2020 library(readr) library(dplyr) library(kableExtra) setwd("C:/Users/Lourdes/Documents/practicasm/Importacion_agosto_2020") archivos_importar<- list.files() lista_importacion<-lapply(archivos_importar, FUN = read_delim, delim="|", col_names=c("pais...

2750 sym R (3679 sym/6 pcs)

PC17006_P1_2

30.09.2020

carga de Penn Word Table source(file= "C:/Users/Lourdes/Documents/practicasm/funciones_comercio_exterior.R") library(pwt9) data("pwt9.0") 1. Funcion para elegir un pais (El Salvador, periodo 1950-2014) paises<-function(){ pwt9.0 %>% group_by(country, year)->paises paises } library(kableExtra) paises() %>% filter(cou...

37798 sym R (471 sym/4 pcs)