odev.2

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

library(wooldridge)
data(fertil1)

head(fertil1)

tail(fertil1)

summary(fertil1)

library(rmarkdown)
paged_table(fertil1)

library(dplyr)
data("fertil1")

odev2 <- fertil1 %>% group_by(year) %>%
summarise("ortalama çocuk (kids)" = mean(kids))

fertil1 %>% 
  group_by(year) %>% 
  summarise(across(everything(), mean))

require(dplyr)
fertil1 %>% 
  group_by(year) %>% 
  summarise("ortalama çocuk sayısı (kids)" = mean(kids), "stadandart sapma çocuk sayısı (kids)" = sd(kids) )

summary(lm(kids ~ educ + age + I(age^2) + black + east + northcen + west + farm + othrural + town + smcity + y74 + y76 + y78 + y80 + y82 + y84, data = fertil1))

fertil1 %>% 
  group_by(year) %>% 
  summarise(across(everything(), mean))

fertil1 %>% 
  group_by(year) %>% 
  summarise("ortalama çocuk sayısı (kids)" = mean(kids), "stadandart sapma çocuk sayısı (kids)" = sd(kids) )

fertil1 %>% 
summary(lm(y72))

fertil1 %>%
 select(educ , age, year, meduc, feduc, kids, black) %>%
 mutate( sabit=1)