ÖDEV 1

CEO MAASI

library(wooldridge)
data("ceosal1")

CEOSAL VERİ SETİ

library(rmarkdown)
paged_table(ceosal1)

ORTALAMA MAAŞ

mean(ceosal1$salary)

## [1] 1281.12

EN KÜÇÜK VE EN BÜYÜK MAAŞ

min(ceosal1$salary)

## [1] 223

max(ceosal1$salary)

## [1] 14822

ORTALAMA ÖZSERMAYE

mean(ceosal1$salary)

## [1] 1281.12

EN KÜÇÜK VE EN BÜYÜK ÖZSERMAYE

min(ceosal1$roe)

## [1] 0.5

max(ceosal1$roe)

## [1] 56.3

SEKK REGRESYON DOĞRUSU

lm(salary ~ roe, data = ceosal1)

## 
## Call:
## lm(formula = salary ~ roe, data = ceosal1)
## 
## Coefficients:
## (Intercept)          roe  
##       963.2         18.5