Commit: 174946cb309a680d774faf60790a7c026391b902 - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisión: 174946cb309a680d774faf60790a7c026391b902 (tree)
• Tiempo: 2025-01-14 20:08:11
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Log Message

I fixed the equal_within function.

Cambiar Resumen

• modified: R-codes/stat_lib.R

Diferencia incremental

diff -r 951210671562 -r 174946cb309a R-codes/stat_lib.R
--- a/R-codes/stat_lib.R	Mon Jan 13 22:55:59 2025 +0100
+++ b/R-codes/stat_lib.R	Tue Jan 14 12:08:11 2025 +0100
@@ -7290,10 +7290,13 @@
     stop("x and y must have the same length.")
   }
   
-  # Check for division by zero
+  # Check for equality and division by zero
   res <- if_else(
-    (x == 0 | y == 0), FALSE, 
-    (abs(x - y) / abs(pmin(x, y))) <= percent / 100
+    x == y, TRUE,  # Identical numbers always return TRUE
+    if_else(
+      (x == 0 | y == 0), FALSE,  # If one is zero but not both, return FALSE
+      (abs(x - y) / abs(pmin(x, y))) <= percent / 100  # Otherwise, check the percentage condition
+    )
   )
   
   return(res)
@@ -7301,7 +7304,6 @@
 
 
 
-
 ## calculate_return <- function(x) {