From babbeef3dc862bb9f7b710ed4db50c31086fd69e Mon Sep 17 00:00:00 2001 From: rurik-uniba Date: Fri, 22 Aug 2025 10:09:06 +0200 Subject: [PATCH 1/2] Bug fix: count_ana_dispersal_event always returned 0 range contractions in Biogeographic stochastic mapping (originally reported by Ollie White in 2020) --- R/summarize_BSM_tables_v1.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/summarize_BSM_tables_v1.R b/R/summarize_BSM_tables_v1.R index 7c0f32a..348044b 100644 --- a/R/summarize_BSM_tables_v1.R +++ b/R/summarize_BSM_tables_v1.R @@ -583,7 +583,7 @@ count_ana_dispersal_events <- function(ana_events_table, areanames, actual_names } # END for (j in 1:length(areanames)) # Extinction/extirpation vector - TF = events_df2$extirpation_from == areanames[i] + TF = extirp_df2$extirpation_from == areanames[i] if (sum(TF) > 0) { e_counts_list[,i] = sum(TF) From 1ab7ed811a5e3c8a5c99dac2016afedd05211d6e Mon Sep 17 00:00:00 2001 From: rurik-uniba Date: Fri, 22 Aug 2025 14:18:02 +0200 Subject: [PATCH 2/2] Update summarize_BSM_tables_v1.R Bug fix: count_ana_clado_events does not include e_total_list in ana_totals_list --- R/summarize_BSM_tables_v1.R | 1 + 1 file changed, 1 insertion(+) diff --git a/R/summarize_BSM_tables_v1.R b/R/summarize_BSM_tables_v1.R index 348044b..8a87518 100644 --- a/R/summarize_BSM_tables_v1.R +++ b/R/summarize_BSM_tables_v1.R @@ -1318,6 +1318,7 @@ count_ana_clado_events <- function(clado_events_tables, ana_events_tables, arean { e_counts_rectangle[i,] = as.matrix(e_counts_df) e_totals_list[i] = sum(e_counts_df) + ana_totals_list[i] = ana_totals_list[i] + e_totals_list[i] } else { e_counts_rectangle[i,] = 0 e_totals_list[i] = 0