bug fix

KlausVigo · Mar 7, 2024 · 02e3193 · 02e3193
1 parent 7b634b5
commit 02e3193
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ancestral_pml.R b/R/ancestral_pml.R
@@ -234,8 +234,8 @@ ancestral.pars <- function(tree, data, type = c("MPR", "ACCTRAN", "POSTORDER"),
   ind <- identical_sites(data)
   if(length(ind)>0){
     for(k in (Ntip(tree)+1L):length(res)){
-      if(return=="prob") result[[k]][ind,] <- result[[1]][ind,]
-      else result[[k]][ind] <- data[[1]][ind]
+      if(return=="prob") res[[k]][ind,] <- res[[1]][ind,]
+      else res[[k]][ind] <- data[[1]][ind]
     }
   }
   res