Applied Econometrics

ts<-caschool_4_$testscr

str<-caschool_4_$str

reg1<-lm(ts~str)

summary(reg1)

####95% CI of the coefficinets##########

confint(reg1)

#############dummay ###########

#package is "dummy"

dummy1 <- as.numeric(str>=20)

summary (dummy1)

reg2=lm(ts~dummy1)

summary (reg2)