fix typo

EvolEcolGroup · Dec 9, 2024 · a2c1302 · a2c1302
1 parent 891c595
commit a2c1302
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/gt_admix_methods.R b/R/gt_admix_methods.R
@@ -19,7 +19,7 @@ c.gt_admix <- function(...) {
     combined_obj$P <- sapply(list(...), function(x) x$P)
   }
   # if we have a log_lik element in any of the objects, combine it
-  if (all(sapply(list(...), function(x) !is.null(x$log_lik)))) {
+  if (all(sapply(list(...), function(x) !is.null(x$loglik)))) {
     combined_obj$loglik <- unlist(sapply(list(...), function(x) x$loglik))
   }