ODEV6

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

library(wooldridge)

data(murder)

ÖDEV14.7

library(rmarkdown)
paged_table(murder)

summary(lm(mrdrte ~ exec + unem + d90 + d93 , data = murder ))

ÖDEV 14.10

library(plm)

data("airfare")

library(rmarkdown)
paged_table(airfare)

indexdata <- pdata.frame(airfare, index = c("id", "year"))

pdim(indexdata)

pvar(indexdata)

 poolingmodel <- plm(lpassen ~ fare + dist + passen + bmktshr + I(ldist^2) + year, data = indexdata, model = "pooling")



withinmodel <- plm(lpassen ~ fare + dist + passen + bmktshr + I(ldist^2) + year, data = indexdata, model = "within")



 randommodel <- plm(lpassen ~ fare + dist + passen + bmktshr + I(ldist^2) + year, data = indexdata, model = "random")

library(stargazer)

stargazer(poolingmodel, withinmodel, randommodel, type = "text", column.labels = c("OLS","RE","FE"))

phtest(poolingmodel, randommodel)