Publications by Luis Fernando Lagos Alas
Creacion de Matrices Econometria I UES
Creacion de Matrices Matriz Y #Generacion de la Matriz Y matriz_y<-matrix(data = c(20,30,36,24,40), nrow = 5, ncol = 1,byrow = TRUE) colnames(matriz_y)<-c("y") print(matriz_y) y [1,] 20 [2,] 30 [3,] 36 [4,] 24 [5,] 40 Matrix X matriz_x<-cbind(rep(1,5), matrix(data = c(4,10,3,8,6,11,4,9,8,12),nrow = 5,ncol ...
284 sym R (531 sym/8 pcs)
Prueba de la clase
R Markdown Aqui esta el reporte del analisis This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com. When you click the Knit button a document will be generated that includes both content as well as the output of a...
628 sym R (268 sym/2 pcs) 1 img
Guía Trabajo 1 Econometria UES Ciclo I
#Ejercicio 1 load("~/Econometria Guia Practica Bases de Datos/modelo_ventas.RData") matriz_X<-model.matrix(modelo_ventas) matriz_XX<-t(matriz_X)%*%matriz_X matriz_A<-solve(matriz_XX)%*%t(matriz_X) print(matriz_A) ## 1 2 3 4 ## (Intercept) -0.01128647020 0.014103779728 0.03506...
482 sym R (770729 sym/51 pcs)
Document
library(wooldridge) data(hprice1) head(force(hprice1), n=5) ## price assess bdrms lotsize sqrft colonial lprice lassess llotsize lsqrft ## 1 300 349.1 4 6126 2438 1 5.703783 5.855359 8.720297 7.798934 ## 2 370 351.5 3 9903 2076 1 5.913503 5.862210 9.200593 7.638198 ## 3 191 217.7 3 5200 1...
431 sym R (1512 sym/9 pcs) 1 tbl
Document
library(wooldridge) data(hprice1) head(force(hprice1), n=5) ## price assess bdrms lotsize sqrft colonial lprice lassess llotsize lsqrft ## 1 300 349.1 4 6126 2438 1 5.703783 5.855359 8.720297 7.798934 ## 2 370 351.5 3 9903 2076 1 5.913503 5.862210 9.200593 7.638198 ## 3 191 217.7 3 5200 1...
573 sym R (1635 sym/12 pcs) 3 img 1 tbl
Document
library(wooldridge) data(hprice1) head(force(hprice1), n=5) ## price assess bdrms lotsize sqrft colonial lprice lassess llotsize lsqrft ## 1 300 349.1 4 6126 2438 1 5.703783 5.855359 8.720297 7.798934 ## 2 370 351.5 3 9903 2076 1 5.913503 5.862210 9.200593 7.638198 ## 3 191 217.7 3 5200 1...
658 sym R (5504 sym/15 pcs) 1 tbl
Document
library(wooldridge) data(hprice1) head(force(hprice1), n=5) ## price assess bdrms lotsize sqrft colonial lprice lassess llotsize lsqrft ## 1 300 349.1 4 6126 2438 1 5.703783 5.855359 8.720297 7.798934 ## 2 370 351.5 3 9903 2076 1 5.913503 5.862210 9.200593 7.638198 ## 3 191 217.7 3 5200 1...
489 sym R (1241 sym/6 pcs) 1 img 1 tbl
Document
library(wooldridge) data(hprice1) head(force(hprice1), n=5) ## price assess bdrms lotsize sqrft colonial lprice lassess llotsize lsqrft ## 1 300 349.1 4 6126 2438 1 5.703783 5.855359 8.720297 7.798934 ## 2 370 351.5 3 9903 2076 1 5.913503 5.862210 9.200593 7.638198 ## 3 191 217.7 3 5200 1...
759 sym R (4555 sym/17 pcs) 8 img
Document
Estimacion del Modelo sin corregir library(foreign) library(stargazer) library(equatiomatic) datae<-read.dta("https://stats.idre.ucla.edu/stat/data/crime.dta") modeloestimado<-lm(crime~poverty+single, data = datae) extract_eq(modeloestimado) \[ \operatorname{crime} = \alpha + \beta_{1}(\operatorname{poverty}) + \beta_{2}(\operatorname{singl...
198 sym R (700 sym/3 pcs)
Document
options(scipen = 999999) library(lmtest) library(stargazer) library(equatiomatic) library(mlbench) data(BostonHousing) bostonmodel<-lm(formula = medv~.,data=BostonHousing) extract_eq(bostonmodel,wrap = TRUE) \[ \begin{aligned} \operatorname{medv} &= \alpha + \beta_{1}(\operatorname{crim}) + \beta_{2}(\operatorname{zn}) + \beta_{3}(\op...
572 sym R (4848 sym/5 pcs)