# NOT RUN {
#### Example 8-1
## ------------------------------------------------------------------------
# }
# NOT RUN {
library("plm")
data("Reelection", package = "pder")
## ------------------------------------------------------------------------
elect.l <- glm(reelect ~ ddefterm + ddefey + gdppc + dev + nd + maj,
data = Reelection, family = "binomial", subset = narrow)
l2 <- update(elect.l, family = binomial)
l3 <- update(elect.l, family = binomial())
l4 <- update(elect.l, family = binomial(link = 'logit'))
## ------------------------------------------------------------------------
elect.p <- update(elect.l, family = binomial(link = 'probit'))
## ------------------------------------------------------------------------
if (requireNamespace("pglm")){
library("pglm")
elect.pl <- pglm(reelect ~ ddefterm + ddefey + gdppc + dev + nd + maj,
Reelection, family = binomial(link = 'logit'),
subset = narrow)
elect.pp <- pglm(reelect ~ ddefterm + ddefey + gdppc + dev + nd + maj,
Reelection, family = binomial(link = 'probit'),
subset = narrow)
}
# }
Run the code above in your browser using DataLab