Applied Econometrics

#e4.1

ls(cps08_1_)

summary(cps08_1_)

ahe<-cps08_1_$ahe

age<-cps08_1_$age

plot(age,ahe)

cor(age,ahe)

reg1<-lm(ahe~age)

summary(reg1)

plot(age,ahe)

abline(reg1)

#E4.2

ls(TeachingRatings_1_)

summary(TeachingRatings_1_)

eval<-TeachingRatings_1_$course_eval

beauty<-TeachingRatings_1_$beauty

cor(beauty,eval)

reg2<-lm(eval~beauty)

summary(reg2)

plot(beauty,eval)

abine(reg2)