ÖDEV Ekonometrı 2

library(wooldridge) # data komutuyla fertil1 verisetini indirmek içim

## Warning: package 'wooldridge' was built under R version 4.1.3

library(rmarkdown) # page_table komutuyla veri setini rmarkdown üzerinde gösterebilmek için
data("fertil1")
paged_table(fertil1)

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

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

## # A tibble: 7 x 3
##    year `ortalama çocuk sayisi (kids)` `stadandart sapma çocuk sayisi (kids)`
##   <int>                          <dbl>                                  <dbl>
## 1    72                           3.03                                   1.83
## 2    74                           3.21                                   1.50
## 3    76                           2.80                                   1.66
## 4    78                           2.80                                   1.58
## 5    80                           2.82                                   1.58
## 6    82                           2.40                                   1.70
## 7    84                           2.24                                   1.51