odev.3

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

cps78_85

library(wooldridge) 
library(rmarkdown) 
data("cps78_85")
paged_table(cps78_85)

require(dplyr)

summary(lm(lwage ~ y85*(educ + female) + exper + I(exper^2) + union, data = cps78_85))

y78 Kukla Değişkeni

benimdata <- cps78_85 %>%
  mutate(y78 = ifelse (year == 78, 1, 0) )

model1 <- lm(lwage ~ y85*(educ + female) + y78 + exper + I(exper^2) + union -1 , data = benimdata)

summary(model1)

İnterceptsiz

model2 <- lm(lwage ~ y85*(educ + female) + exper + I(exper^2) + union -1 , data = cps78_85)

summary(model2)

library(stargazer)

stargazer(model1, model2, type = 'text')