Sesión 4

Instalar librerías

#install.packages("Nombre de la librería")

LLamar librerías

library(haven)
library(Hmisc)
library(jtools)

Cargar datos

wage <- read_dta("wage1.dta")

Modelo de Regresión 1

Modelo 1

modelo_educ <- lm(wage ~  educ, data = wage)

Visualizar resultados

summ(modelo_educ)
Observations 526
Dependent variable wage
Type OLS linear regression
F(1,524) 103.36
R² 0.16
Adj. R² 0.16
Est. S.E. t val. p
(Intercept) -0.90 0.68 -1.32 0.19
educ 0.54 0.05 10.17 0.00
Standard errors: OLS

Modelo de Regresión 2

Modelo 2

modelo2_exper <- lm(wage ~  exper, data = wage)

Visualizar resultados

summ(modelo2_exper)
Observations 526
Dependent variable wage
Type OLS linear regression
F(1,524) 6.77
R² 0.01
Adj. R² 0.01
Est. S.E. t val. p
(Intercept) 5.37 0.26 20.91 0.00
exper 0.03 0.01 2.60 0.01
Standard errors: OLS

Modelo de Regresión 3

Modelo 3

modelo3_tenure <- lm(wage ~  tenure, data = wage)

Visualizar resultados

summ(modelo3_tenure)
Observations 526
Dependent variable wage
Type OLS linear regression
F(1,524) 71.68
R² 0.12
Adj. R² 0.12
Est. S.E. t val. p
(Intercept) 4.99 0.19 26.95 0.00
tenure 0.18 0.02 8.47 0.00
Standard errors: OLS