Publications by PH17001 - Patricia Lilibeth Portillo Hernandez
Ejercicio de MCO
Solución ejercicio 1 Generando la matriz X’X options(scipen = 9999999999) 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 1...
330 sym R (1895 sym/16 pcs)
Solución P2
PARTE TEORICA - RESPUESTAS 1. Para una tolerancia de 0.05 el VIF es de: #Ya que VIF=1/1-R^2*(Tolerancia), entonces: 1/0.05 ## [1] 20 2. Sean 10,15,-10,-15,4,-4, los residuos de un modelo. El estadistico de prueba para el contraste de normalidad de JB es: library(normtest) matriz_residuos<-matrix(data = c(10,15, -10, ...
6165 sym R (16524 sym/129 pcs) 9 img 3 tbl
PH17001_L3
Resuelva los siguientes ejercicios: 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 variabl...
8843 sym R (7194 sym/40 pcs)
Uso de Corrplot, ejemplos
Carga de datos 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 = "sans-...
544 sym R (2340 sym/6 pcs) 5 img
Base de Datos Comercio Exterior Actualizada
Importaciones agosto 2020 library(readr) library(dplyr) library(kableExtra) setwd("C:/Users/Lilibeth Portillo/Documents/Metodos para el analisis economico/Comercio Exterior Actualizado/IMPORTACIONES/") archivos_importar<-list.files() lista_importacion<-lapply(archivos_importar, FUN = read_delim, "|", col_names=c("p...
3553 sym R (3691 sym/7 pcs)
Calculo de ecuación cuadrática
Calculando la equacion cuadratica cuadratica<-function(a,b,c){ numerador<-(b^2-4*a*c) if(numerador>=0){ X1<-(-b+sqrt(numerador))/(2*a) X2<-(-b-sqrt(numerador))/(2*a) result<-list(X1,X2) return(result) } else{ (numerador<0) print("raices complejas") } } #Insertando datos de la ecuacion en el orden (a,b,c) cuadrat...
41 sym R (481 sym/4 pcs)
Solucion P1 MAE - PH17001
library(dplyr) source(file = "/home/sagastume/Downloads/Comercio Exterior/funciones_comercio_exterior.R",echo = TRUE,max.deparse.length = 100,encoding = "utf-8") ## ## > options(scipen = 999) ## ## > library(dplyr) ## ## > library(readxl) ## ## > library(stringr) ## ## > load("/home/sagastume/Downloads/Comercio Exterior/Comercio Exterior Act...
85476 sym R (44250 sym/39 pcs)
Métodos de Ponderadores de Variables
Métodos de ponderación de variables CRITIC y Entropía: Funciones Integrantes Luis Fernando Solano Tovar ST17005 Keiry Margarita Umanzor Portillo UP17003 Patricia Lilibeth Portillo Hernández PH17001 Método CRITIC #Carga de datos library(readr) datos_ejercicio <- read_table2("http://halweb.uc3m.es/esp/Personal/personas/agrane/libro/ficher...
551 sym R (7125 sym/17 pcs)
Laboratorio_3
LABORATORIO 3 Integrantes Luis Fernando Solano Tovar ST17005 Patricia Lilibeth Portillo Hernandez PH17001 1 Carga de Datos library(ggplot2) library(forecast) library(readxl) ivae_ts <- read_excel("D:/ivae_ts.xlsx") data=ivae_ts$IVAE %>% ts(start = c(2005,1),frequency = 12)->ivae print(ivae) ## Jan Feb Mar Apr May J...
312 sym R (9683 sym/16 pcs) 6 img
LABORATORIO 2
Integrantes Carné Keiry Margarita Umanzor Portillo UP17003 Patricia Lilibeth Portillo Hernández PH17001 Iris Leonor Márquez Arévalo MA15003 Análisis de Clúster Explique en qué consiste el análisis de conglomerados La agrupación es un método para encontrar subgrupos de observaciones dentro de un conjunto de datos. Cuando...
3014 sym R (22023 sym/93 pcs) 31 img 2 tbl