# \donttest{
# Load 'psid' dataset
library(bife)
dataset <- psid
# Fit a static logit model
mod <- bife(LFP ~ I(AGE^2) + log(INCH) + KID1 + KID2 + KID3 + factor(TIME) | ID, dataset)
summary(mod)
# Compute average partial effects
mod_ape <- get_APEs(mod)
summary(mod_ape)
# Apply analytical bias correction
mod_bc <- bias_corr(mod)
summary(mod_bc)
# Compute bias-corrected average partial effects
mod_ape_bc <- get_APEs(mod_bc)
summary(mod_ape_bc)
# }
Run the code above in your browser using DataLab