lefty

data.frame(y = c(332928,358323,422244,430035,3168,2397,3099,5508,23802,26346,28546,33933,2286,2370,5667,9468,6024,5370,6126,7971,5979,4893,5007,6381,17985,18771,24081,26532),t=rep(c(1996,2001,2006,2013),7),type=rep(c("car","mb","bus","train","other","bike","walk"),each=4)) -> dat

dat$t96 <- dat$t-1996
dat$type <- relevel(dat$type, "car")

model <- lm(log(y) ~ t96*type, data=dat)
summary(model)
anova(model)