Uygulamali Ekonometri ÖDEV 1

data("attend", package = "wooldridge")
attach(attend)

## The following object is masked _by_ .GlobalEnv:
## 
##     attend

library(rmarkdown)
paged_table(attend)

(ornek6_3 <- lm(stndfnl~ atndrte*priGPA + ACT + I(priGPA^2) + I(ACT^2), data=attend))

## 
## Call:
## lm(formula = stndfnl ~ atndrte * priGPA + ACT + I(priGPA^2) + 
##     I(ACT^2), data = attend)
## 
## Coefficients:
##    (Intercept)         atndrte          priGPA             ACT     I(priGPA^2)  
##       2.050293       -0.006713       -1.628540       -0.128039        0.295905  
##       I(ACT^2)  atndrte:priGPA  
##       0.004533        0.005586

(ornek6_3 <- lm(stndfnl~ atndrte*priGPA + ACT + I(priGPA^2) + I(ACT^2), data=attend))

## 
## Call:
## lm(formula = stndfnl ~ atndrte * priGPA + ACT + I(priGPA^2) + 
##     I(ACT^2), data = attend)
## 
## Coefficients:
##    (Intercept)         atndrte          priGPA             ACT     I(priGPA^2)  
##       2.050293       -0.006713       -1.628540       -0.128039        0.295905  
##       I(ACT^2)  atndrte:priGPA  
##       0.004533        0.005586

max(attend$priGPA)

## [1] 3.93

min(attend$priGPA)

## [1] 0.857

names(attend)

##  [1] "attend"  "termGPA" "priGPA"  "ACT"     "final"   "atndrte" "hwrte"  
##  [8] "frosh"   "soph"    "missed"  "stndfnl"

katsayi <- coef(ornek6_3)

katsayi["atndrte"]

##      atndrte 
## -0.006712928

katsayi["atndrte:priGPA"]

## atndrte:priGPA 
##    0.005585907

katsayi["atndrte"] + mean(attend$priGPA)*katsayi["atndrte:priGPA"]

##     atndrte 
## 0.007736558