Fix model_info.averaging

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,38 @@
+skip_if_not_installed("phylolm")
+skip_if_not_installed("ape")
+skip_on_cran()
+
+test_that("MuMIn link functions", {
+  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)
+})