# \donttest{
# Generate an artificial data set for logit models
library(alpaca)
data <- simGLM(1000L, 20L, 1805L, model = "logit")
# Fit 'feglm()'
mod <- feglm(y ~ x1 + x2 + x3 | i + t, data)
# Compute average partial effects
mod.ape <- getAPEs(mod)
summary(mod.ape)
# Apply analytical bias correction
mod.bc <- biasCorr(mod)
summary(mod.bc)
# Compute bias-corrected average partial effects
mod.ape.bc <- getAPEs(mod.bc)
summary(mod.ape.bc)
# }
Run the code above in your browser using DataLab