extract functions for bife and feglm

extract.R

extract.bife <- function(model) {
  s <- summary(model)
  names <- rownames(s$coefmat_beta)
  co <- s$coef[, 1]
  se <- s$coef[, 2]
  tstat <- s$coef[, 3]
  pval <- s$coef[, 4]

  aic <- s$AIC
  bic <- s$BIC
  n <- s$nobs

  gof <- c(n, aic, bic)
  gof.names <- c("Num.\\ obs.", "AIC", "BIC")
  gof.decimal <- c(F,T,T)

  tr <- createTexreg(
      coef.names = names,
      coef = co,
      se = se,
      pvalues = pval,
      gof.names = gof.names,
      gof = gof,
      gof.decimal = gof.decimal
  )
  return(tr)
}

extract.feglm <- function(model) {
  s <- summary(model, type="clustered", cluster.vars=names(model$lvls.k))
  names <- rownames(s$cm)
  co <- s$cm[, 1]
  se <- s$cm[, 2]
  tstat <- s$cm[, 3]
  pval <- s$cm[, 4]

  dev <- s$deviance
  n <- s$nobs[['nobs']]+s$nobs[['nobs.pc']]

  gof <- c(n, dev)
  gof.names <- c("Obs.", "Deviance")
  gof.decimal <- c(F,T)

  tr <- createTexreg(
      coef.names = names,
      coef = co,
      se = se,
      pvalues = pval,
      gof.names = gof.names,
      gof = gof,
      gof.decimal = gof.decimal
  )
  return(tr)
}