# NOT RUN {
#### Example 8-3
## ------------------------------------------------------------------------
data("MagazinePrices", package = "pder")
logitS <- glm(change ~ length + cuminf + cumsales, data = MagazinePrices,
subset = included == 1, family = binomial(link = 'logit'))
logitD <- glm(change ~ length + cuminf + cumsales + magazine,
data = MagazinePrices,
subset = included == 1, family = binomial(link = 'logit'))
library("survival")
logitC <- clogit(change ~ length + cuminf + cumsales + strata(id),
data = MagazinePrices,
subset = included == 1)
library("texreg")
screenreg(list(logit = logitS, "FE logit" = logitD,
"cond. logit" = logitC), omit.coef = "magazine")
# }
Run the code above in your browser using DataCamp Workspace