Fix model_info.averaging (#975)

* Fix model_info.averaging

* test

* lintr

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: insight
 Title: Easy Access to Model Information for Various Model Objects
-Version: 0.99.0.22
+Version: 0.99.0.23
 Authors@R:
     c(person(given = "Daniel",
              family = "Lüdecke",
@@ -86,6 +86,7 @@ Suggests:
     AER,
     afex,
     aod,
+    ape,
     BayesFactor,
     bayestestR,
     bbmle,
@@ -175,6 +176,7 @@ Suggests:
     parsnip,
     pbkrtest,
     performance,
+    phylolm,
     plm,
     poorman,
     PROreg (>= 1.3.0),

NEWS.md

@@ -69,6 +69,8 @@
 * Fixed edge case in `find_transformation()` for simple log-transformation of
   the response variable.
 
+* Fixed issue for `model_info.averaging()`.
+
 # insight 0.20.5
 
 ## General

R/model_info.R

@@ -892,10 +892,10 @@ model_info.summary.lm <- model_info.Arima
 #' @export
 model_info.averaging <- function(x, ...) {
   if (is.null(attributes(x)$modelList)) {
-    format_warning("Can't calculate covariance matrix. Please use 'fit = TRUE' in 'model.avg()'.")
+    format_warning("Can't access model information. Please use 'fit = TRUE' in 'model.avg()'.")
     return(NULL)
   }
-  model_info.default(x = attributes(x)$modelList[[1]])
+  model_info(x = attributes(x)$modelList[[1]])
 }
 
 

tests/testthat/test-phylolm.R

@@ -0,0 +1,51 @@
+skip_if_not_installed("phylolm")
+skip_if_not_installed("ape")
+skip_if_not_installed("MuMIn")
+skip_if_not_installed("withr")
+skip_on_cran()
+
+withr::with_options(
+  list(na.action = "na.fail"),
+  test_that("phylolm modelinfo", {
+    set.seed(123456)
+    tre <- ape::rcoal(60)
+    taxa <- sort(tre$tip.label)
+    b0 <- 0
+    b1 <- 1
+
+    x <- phylolm::rTrait(
+      n = 1,
+      phy = tre,
+      model = "BM",
+      parameters = list(ancestral.state = 0, sigma2 = 10)
+    )
+    y <- b0 + b1 * x +
+      phylolm::rTrait(
+        n = 1,
+        phy = tre,
+        model = "lambda",
+        parameters = list(
+          ancestral.state = 0,
+          sigma2 = 1,
+          lambda = 0.5
+        )
+      )
+    dat <- data.frame(trait = y[taxa], pred = x[taxa])
+    mod <- phylolm::phylolm(
+      trait ~ pred,
+      data = dat,
+      phy = tre,
+      model = "lambda"
+    )
+    out <- model_info(mod)
+    expect_true(out$is_linear)
+
+    library(MuMIn) # nolint
+    mod.d <- MuMIn::dredge(mod, rank = "AICc")
+    mod.avg.fit <- MuMIn::model.avg(mod.d, revised.var = TRUE, fit = TRUE)
+    out <- model_info(mod.avg.fit)
+    expect_true(out$is_linear)
+  })
+)
+
+unloadNamespace("MuMIn")