Cinsiyet Ayrımı ve Eğitimin Getirisindeki Değişiklikler
library(wooldridge)
library(rmarkdown)
data("cps78_85")
paged_table(cps78_85)
require(dplyr)
## Loading required package: dplyr
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
data("cps78_85")
paged_table(cps78_85)
data<-cps78_85%>%
mutate(y78= ifelse(year==78,1,0))
cps78_85 %>%
group_by(year) %>%
summary(lm(lwage ~ y85*(educ + female) + exper + I(exper^2) + union + y78, data = cps78_85))
## educ south nonwhite female
## Min. : 1.00 Min. :0.0000 Min. :0.0000 Min. :0.000
## 1st Qu.:12.00 1st Qu.:0.0000 1st Qu.:0.0000 1st Qu.:0.000
## Median :12.00 Median :0.0000 Median :0.0000 Median :0.000
## Mean :12.77 Mean :0.2943 Mean :0.1144 Mean :0.417
## 3rd Qu.:14.00 3rd Qu.:1.0000 3rd Qu.:0.0000 3rd Qu.:1.000
## Max. :18.00 Max. :1.0000 Max. :1.0000 Max. :1.000
## married exper expersq union
## Min. :0.0000 Min. : 0.00 Min. : 0.0 Min. :0.0000
## 1st Qu.:0.0000 1st Qu.: 8.00 1st Qu.: 64.0 1st Qu.:0.0000
## Median :1.0000 Median :15.00 Median : 225.0 Median :0.0000
## Mean :0.6541 Mean :18.28 Mean : 499.8 Mean :0.2435
## 3rd Qu.:1.0000 3rd Qu.:28.00 3rd Qu.: 784.0 3rd Qu.:0.0000
## Max. :1.0000 Max. :55.00 Max. :3025.0 Max. :1.0000
## lwage age year y85
## Min. :-0.470 Min. :18.00 Min. :78.00 Min. :0.0000
## 1st Qu.: 1.470 1st Qu.:27.00 1st Qu.:78.00 1st Qu.:0.0000
## Median : 1.833 Median :34.00 Median :78.00 Median :0.0000
## Mean : 1.867 Mean :36.54 Mean :81.45 Mean :0.4926
## 3rd Qu.: 2.225 3rd Qu.:46.00 3rd Qu.:85.00 3rd Qu.:1.0000
## Max. : 3.796 Max. :64.00 Max. :85.00 Max. :1.0000
## y85fem y85educ y85union
## Min. :0.000 Min. : 0.000 Min. :0.00000
## 1st Qu.:0.000 1st Qu.: 0.000 1st Qu.:0.00000
## Median :0.000 Median : 0.000 Median :0.00000
## Mean :0.226 Mean : 6.413 Mean :0.08856
## 3rd Qu.:0.000 3rd Qu.:12.000 3rd Qu.:0.00000
## Max. :1.000 Max. :18.000 Max. :1.00000