Merge pull request #9 from pachadotdev/issue8

fix #8
pachadotdev · Sep 20, 2024 · 3aa24f6 · 3aa24f6
2 parents ca4c305 + 4718d8b
commit 3aa24f6
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git a/R/feglm_offset.R b/R/feglm_offset.R
@@ -20,7 +20,7 @@ feglm_offset_ <- function(object, offset) {
   wt <- object[["weights"]]
   family <- object[["family"]]
   lvls_k <- object[["lvls_k"]]
-  nt <- object[["nobs"]][["nobs"]]
+  nt <- object[["nobs"]][["nobs_full"]] - object[["nobs"]][["nobs_pc"]]
   k_vars <- names(lvls_k)
 
   # Extract dependent variable

diff --git a/dev/issue8.r b/dev/issue8.r
@@ -0,0 +1,14 @@
+devtools::load_all()
+
+# install.packages("bife")
+data(psid, package = "bife")
+
+lmod = feglm(
+  LFP ~ KID1 + KID2 + KID3 + log(INCH) | ID + TIME,
+  data   = psid,
+  family = binomial()
+  )
+
+summary(lmod)
+
+bias_corr(lmod)