data("Grunfeld", package = "plm")
gi <- plm(inv ~ value + capital, data = Grunfeld, model = "within")
fixef(gi)
summary(fixef(gi))
# extract time effects in a twoways effects model
gi_tw <- plm(inv ~ value + capital, data = Grunfeld,
model = "within", effect = "twoways")
fixef(gi_tw, effect = "time")
# calc. fitted values of
# oneway within model using fixef:
fixefs <- merge(Grunfeld, data.frame(firm = names(fixef(gi)),
fixef = as.numeric(fixef(gi))),
all.x = TRUE, by = c("firm"))[ , 6]
fitted_by_hand <- fixefs + gi$coefficients["value"] * Grunfeld$value +
gi$coefficients["capital"] * Grunfeld$capital
Run the code above in your browser using DataLab