Assign final value to return the right copy

epiverse-trace · Sep 13, 2023 · 1ccfe38 · 1ccfe38
1 parent cfa9a65
commit 1ccfe38
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/likelihood.R b/R/likelihood.R
@@ -144,7 +144,7 @@ likelihood <- function(chains, statistic = c("size", "length"), offspring_dist,
   ## multiply the likelihoods
   if (isFALSE(individual)) {
     summarise_func <- ifelse(log, sum, prod)
-    vapply(chains_likelihood, summarise_func, 0)
+    chains_likelihood <- vapply(chains_likelihood, summarise_func, 0)
   }
 
   return(chains_likelihood)