title: “Solución de Ejercicios de Estimación de MCO” author: “Febe García” date: “25/3/2020” output: html_document #Solución de Ejercicios de Estimación de MCO #Solución Ejercicio #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) ##Generando la matriz X’Y matriz_xy<-matrix(data=c(55331, + 12524626, + 4374490), nrow = 3,ncol = 1,byrow = TRUE) print(matriz_xy) ##Calculando la Inversa de X’X inv_matriz_xx<-solve(matriz_xx) print(inv_matriz_xx) ##Calculando el estimador de los parámetros beta<-inv_matriz_xx%%matriz_xy print(beta) ##También es posible a través de la solución del sistema de ecuaciones normales beta<-solve(matriz_xx,matriz_xy) print(beta) #Solución del Ejericio #2 ##Generando “Matriz X’X” options(scipen = 99999999) matriz_xx_2<-matrix(data = c(26,5857,131, + 5857,1675143,28173, + 131,28173,869),nrow = 3,ncol = 3,byrow = TRUE) print(matriz_xx_2) ##Generando “Matriz X’Y” matriz_xy_2<-matrix(data = c(1181, + 298629, + 6068),nrow = 3,ncol = 1,byrow = TRUE) print(matriz_xy_2) ##Calculando la Inversa de X’X inv_matriz_xx_2<-solve(matriz_xx_2) print(inv_matriz_xx_2) ##Calculando el estimador de parámetros beta<-inv_matriz_xx_2%%matriz_xy_2 print(beta) ##Calculando el estimador de parámetros a través del sistema de ecuaciones normales beta<-solve(matriz_xx_2,matriz_xy_2) print(beta)