From 07f8731b2d2029ab774621b768b20259238ede4d Mon Sep 17 00:00:00 2001 From: Hannah A Pliner Date: Tue, 3 Sep 2024 03:07:35 +0200 Subject: [PATCH] Update runCicero.R --- R/runCicero.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/runCicero.R b/R/runCicero.R index 7514d01..287ff30 100755 --- a/R/runCicero.R +++ b/R/runCicero.R @@ -900,7 +900,7 @@ find_ccan_cutoff <- function(connection_df, tolerance_digits) { connection_df <- connection_df[connection_df$coaccess > 0,] tolerance <- 10^-(tolerance_digits) bottom <- 0 - top <- max(connection_df$coaccess) + top <- max(connection_df$coaccess, na.rm = TRUE) while ((top - bottom) > tolerance) { test_val <- bottom + round((top - bottom)/2, digits = tolerance_digits + 1) ccan_num_test <- number_of_ccans(connection_df, test_val)