Fix emmeans bug

pbs-assess · Jun 19, 2024 · d2d54f6 · d2d54f6
1 parent 51d7d45
commit d2d54f6
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/tidy.R b/R/tidy.R
@@ -151,7 +151,8 @@ tidy.sdmTMB <- function(x, effects = c("fixed", "ran_pars", "ran_vals"), model =
     out$conf.low <- as.numeric(trans(out$estimate - crit * out$std.error))
     out$conf.high <- as.numeric(trans(out$estimate + crit * out$std.error))
   }
-  out$estimate <- trans(out$estimate)
+  # must wrap in as.numeric() otherwise I() leaves 'AsIs' class that affects emmeans package
+  out$estimate <- as.numeric(trans(out$estimate))
   if (exponentiate) out$std.error <- NULL
 
   out_re <- list()