minor

easystats · Oct 3, 2023 · 2d4a3fb · 2d4a3fb
1 parent f6e8544
commit 2d4a3fb
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/R/r2.R b/R/r2.R
@@ -291,7 +291,7 @@ r2.glm <- function(model, ci = NULL, verbose = TRUE, ...) {
   if (info$family %in% c("gaussian", "inverse.gaussian")) {
     out <- r2.default(model, ...)
   } else if (info$is_logit && info$is_bernoulli) {
-    out <- list("R2_Tjur" = r2_tjur(model, ...))
+    out <- list("R2_Tjur" = r2_tjur(model, model_info = info, ...))
     attr(out, "model_type") <- "Logistic"
     names(out$R2_Tjur) <- "Tjur's R2"
     class(out) <- c("r2_pseudo", class(out))
@@ -312,6 +312,10 @@ r2.glm <- function(model, ci = NULL, verbose = TRUE, ...) {
 #' @export
 r2.glmx <- r2.glm
 
+#' @export
+r2.nestedLogit <- function(model, ci = NULL, verbose = TRUE, ...) {
+  lapply(r2, model$models, ci = ci, verbose = verbose, ...)
+}
 
 
 

diff --git a/tests/testthat/test-nestedLogit.R b/tests/testthat/test-nestedLogit.R
@@ -1,3 +1,4 @@
+skip_on_os(c("mac", "linux"))
 skip_if_not_installed("nestedLogit")
 skip_if_not_installed("carData")