From c75196b7b951578755c901ec1d00595c8996ff21 Mon Sep 17 00:00:00 2001
From: Emanuele Guidotti <emanuele.guidotti@unine.ch>
Date: Sun, 11 Aug 2024 16:27:01 +0200
Subject: [PATCH] Update edge.R

---
 r/R/edge.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/r/R/edge.R b/r/R/edge.R
index 562cb06..81d7f8b 100644
--- a/r/R/edge.R
+++ b/r/R/edge.R
@@ -187,7 +187,7 @@ edge <- function(open, high, low, close, sign = FALSE){
   s2 <- (v2*e1 + v1*e2) / (v1 + v2)
   
   s <- sqrt(abs(s2))
-  if(sign & s2 < 0)
+  if(sign & !is.na(s2) & s2 < 0)
     s <- -s
   
   return(s)